www/prep/wrappers-and-scripts ftp_convert.pl

[Karl Berry]

CVSROOT:        /web/www
Module name:    www
Changes by:     Karl Berry <karl>       10/05/03 18:08:02

Modified files:
        prep/wrappers-and-scripts: ftp_convert.pl 

Log message:
        few more spaces

CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/prep/wrappers-and-scripts/ftp_convert.pl?cvsroot=www&r1=1.12&r2=1.13

Patches:
Index: ftp_convert.pl
===================================================================
RCS file: /web/www/www/prep/wrappers-and-scripts/ftp_convert.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- ftp_convert.pl      2 May 2010 17:20:25 -0000       1.12
+++ ftp_convert.pl      3 May 2010 18:07:56 -0000       1.13
@@ -1,5 +1,5 @@
 #!/usr/local/bin/perl -w
-# $Id: ftp_convert.pl,v 1.12 2010/05/02 17:20:25 karl Exp $
+# $Id: ftp_convert.pl,v 1.13 2010/05/03 18:07:56 karl Exp $
 #
 # Converts the FTP file to a html file - just prints on the standard out
 # and it is the responsibility of who ever running this to redirect to a 
@@ -19,15 +19,15 @@
 my $state = 0;
 my $printstr = "";
 my $headlvl = 0;
-my $start_of_ftp_list=0;
-my $last_place="";
-my $place="";
-my $ftpsite="";
-my $list_open=0;
-my $extra_bits="";
-my $actual_bits="";
-my $print_current_output=1;
-my @ftp_sites=();
+my $start_of_ftp_list = 0;
+my $last_place = "";
+my $place = "";
+my $ftpsite = "";
+my $list_open = 0;
+my $extra_bits = "";
+my $actual_bits = "";
+my $print_current_output = 1;
+my @ftp_sites = ();
 
 $_ = <>;
 die "Incorrect format, start with How to get." unless /^How to get/;
@@ -123,7 +123,7 @@
       print "</li>\n</ul>\n</li>\n";
       $list_open = 0;
     }
-    $last_place="";
+    $last_place = "";
     print "<li>$1\n";
     $print_current_output = 0;
     next;