diff -u blow-0.1/blow blow-0.1-wf/blow
--- blow-0.1/blow	Mon Aug 23 21:28:34 1999
+++ blow-0.1-wf/blow	Mon May 15 06:16:09 2000
@@ -8,18 +8,20 @@
 
 ###################################################################
 # Please edit the default settings below
-my $version = '0.1';
+my $version = '0.1-wf';
 my $maxlines = 7500;
 my $server = 'news';
 my $port = '119';
-my $address = 'unnamed <Rei@I.love.you>';
+my $address = 'unnamed <yourusername@yourisp.com>';
 my $subject = '';
-my $newsgroups = 'alt.binaries.test';
-my $organization = 'the super-duper GIANT Rei fanclub';
+my $newsgroups = 'alt.binaries.warez.linux';
+my $organization = 'Alt Binaries Warez Linux';
 my $useragent = 'Blow/' . $version;
 # That's all you can edit.. =) Leave the rest alone
 ##################################################################
 
+$| = 1;
+
 getopt('mpasnou'); # switches that take arguments
 
 $maxlines = $opt_m if ($opt_m);
@@ -75,9 +77,13 @@
 	print "Total files: ". ($#filename + 1) ." ($totalsize bytes, ".
 		int(($totalsize/1048576)+.999)." megs)\n";
 	print "Posting parts $opt_p.\n" if ($opt_p);
-	print "Posting in dummy mode.\n" if ($opt_d);
-	print "Posting in 5 seconds, are you sure?\n";
-	sleep 5;
+	if ($opt_d) { 
+	print "Posting in dummy mode.\n";
+	}
+	else {
+	print "Posting in 10 seconds, are you sure?\n";
+	sleep 10;
+	}
 
 	my $timetook = time;
 	# part post?
@@ -104,23 +110,53 @@
 	my (@stat) = stat FILEBLOW;
 	my $currentpart = 1;
 	my $lastpart = int(($stat[7]/($maxlines*45))+.9999);
+	my $currentpartzero;
+	my $lastpartzero;
 	
 	print "\nPosting $filename (".int(($stat[7]/1048576)+.999)." megs, $lastpart parts) ";
+
+	# fix any funky file paths
+	if ($filename =~ /.*\/.*/) {
+		$filename =~ /.*\/(.*)$/;
+		$safefilename = $1;
+	}
+	else {
+		$safefilename = $filename; 
+	}
+	
 	while ($currentpart <= $lastpart) {
 		read(FILEBLOW,$chunk,45);
 		if ($i == $maxlines or $r = 0) {
-			# fix any funky file paths
-			if ($filename =~ /.*\/.*/) {
-				$filename =~ /.*\/(.*)$/;
-				$safefilename = $1;
+
+			# Not pretty, but it work well -WF
+			if ($lastpart>99999) {
+				$currentpartzero = sprintf("%06d",$currentpart);
+				$lastpartzero = sprintf("%06d",$lastpart);
+			}
+			elsif ($lastpart>9999) {
+				$currentpartzero = sprintf("%05d",$currentpart);
+				$lastpartzero = sprintf("%05d",$lastpart);
+			}
+			elsif ($lastpart>999) {
+				$currentpartzero = sprintf("%04d",$currentpart);
+				$lastpartzero = sprintf("%04d",$lastpart);
+			}
+			elsif ($lastpart>99) {
+				$currentpartzero = sprintf("%03d",$currentpart);
+				$lastpartzero = sprintf("%03d",$lastpart);
+			}
+			elsif ($lastpart>9) {
+				$currentpartzero = sprintf("%02d",$currentpart);
+				$lastpartzero = sprintf("%02d",$lastpart);
 			}
 			else {
-				$safefilename = $filename; 
+				$currentpartzero = $currentpart;
+				$lastpartzero = $lastpart;
 			}
 			
 			my @header = ("From: $address", 
 						"Newsgroups: $newsgroups",
-						"Subject: $subject - $safefilename [$currentpart/$lastpart]",
+						"Subject: $subject - $safefilename [$currentpartzero/$lastpartzero]",
 						"Organization: $organization",
 						"User-Agent: $useragent");
 						
@@ -138,6 +174,7 @@
 			else {
 				$c->post(@header, "", $begin, $result, $end) if (!$opt_d);
 				# print status, messy but it works
+				# messy, but didn't work, I fixed it  -WF
 				print "\010\010" if ((length $status) == 1);
 				print "\010\010\010" if ((length $status) == 2);
 				print "\010\010\010\010" if ((length $status) == 3);
@@ -170,7 +207,7 @@
 	print "  -v          prints version\n";
 	print "  -d          dummy mode. will not post to nntp server.\n";
 	print "  -m #        maximum amounts of lines per part (default=$maxlines)\n";
-	print "  -p #        post only the requested part. multiple parts are\n";
+	print "  -p #        post only the requested part. multiple parts are\n".
 	      "              seperated by comma \",\".\n";
 	print "  -e IP       news server ip or hostname (default=$server)\n";
 	print "  -t #        port number (default=$port)\n";