From: eldy <>
Date: Wed, 26 Nov 2003 20:22:47 +0000 (+0000)
Subject: Clean code.
X-Git-Tag: AWSTATS_6_0_BETA~61
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=dc0efdaf425d3195b31a68e6f1944ebc2f52e925;p=thirdparty%2FAWStats.git

Clean code.
---

diff --git a/tools/awstats_buildstaticpages.pl b/tools/awstats_buildstaticpages.pl
index 7eeb145e..9c7fc681 100644
--- 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[$_]&"; }