Clean code.

diff --git a/tools/awstats_buildstaticpages.pl b/tools/awstats_buildstaticpages.pl
index 7eeb145e5006d8c893e544c9963d76ead7f0bb71..9c7fc681435df20ee37413dcc0126496b8f0b3b9 100644 (file)
--- a/tools/awstats_buildstaticpages.pl
+++ b/tools/awstats_buildstaticpages.pl
@@ -1,12 +1,8 @@
 #!/usr/bin/perl
-# With some other Unix Os, first line may be
-#!/usr/local/bin/perl
-# With Apache for Windows and ActiverPerl, first line may be
-#!C:/Program Files/ActiveState/bin/perl
-#-Description-------------------------------------------
+#------------------------------------------------------------------------------
 # Launch awstats with -staticlinks option to build all static pages.
 # See COPYING.TXT file about AWStats GNU General Public License.
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 # $Revision$ - $Author$ - $Date$
 
 # use strict is commented to make AWStats working with old perl.
@@ -16,9 +12,9 @@ use strict;no strict "refs";
 #use Thread;
 
 
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 # Defines
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 my $REVISION='$Revision$'; $REVISION =~ /\s(.*)\s/; $REVISION=$1;
 my $VERSION="1.2 (build $REVISION)";
 
@@ -55,9 +51,9 @@ $ShowKeywordsStats $ShowMiscStats $ShowHTTPErrorsStats $ShowSMTPErrorsStats
 /;
 
 
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 # Functions
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 
 #------------------------------------------------------------------------------
 # Function:            Write error message and exit
@@ -218,9 +214,9 @@ sub Parse_Config {
 
 
 
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 # MAIN
-#-------------------------------------------------------
+#------------------------------------------------------------------------------
 ($DIR=$0) =~ s/([^\/\\]*)$//; ($PROG=$1) =~ s/\.([^\.]*)$//; $Extension=$1;
 
 my $QueryString=''; for (0..@ARGV-1) { $QueryString .= "$ARGV[$_]&"; }