Fix: Remove warnings

diff --git a/test/test.pl b/test/test.pl
index df41e933f9023216a512fa1624f6e367d9fbae62..45c1dcef3abab5576f00d4322162012cbff26d3a 100644 (file)
--- a/test/test.pl
+++ b/test/test.pl
@@ -108,7 +108,7 @@ while(1==1)
        
        # Option output
        print "Choose output option (browserdetail)...\n";
-       my $bidon='';
+       $bidon='';
        print "Your choice : ";
        $bidon=<STDIN>;
        chomp $bidon;

diff --git a/tools/awstats_buildstaticpages.pl b/tools/awstats_buildstaticpages.pl
index 70d918ec3fbc23d874163646d0557aa2a27fcb56..7118cd7e836f9b263440736f25495457e44753ba 100644 (file)
--- a/tools/awstats_buildstaticpages.pl
+++ b/tools/awstats_buildstaticpages.pl
@@ -44,7 +44,6 @@ my @pages=();
 my @OutputList=();
 my $FileConfig;
 my $FileSuffix;
-my $SiteConfig;
 my $DatabaseBreak;
 use vars qw/
 $ShowAuthenticatedUsers $ShowFileSizesStats $ShowScreenSizeStats $ShowSMTPErrorsStats

diff --git a/tools/awstats_exportlib.pl b/tools/awstats_exportlib.pl
index d5e4f7f64c8cc6395b7df353a7039f96d2e451a2..49f260ab5dd8b0675c145cc05130db17316ec8a7 100644 (file)
--- a/tools/awstats_exportlib.pl
+++ b/tools/awstats_exportlib.pl
@@ -341,7 +341,7 @@ if ($LibToExport =~ /search_engines/) {
                }
                if ($ExportFormat eq 'webalizer') {
                        my $urlkeywordsyntax=$SearchEnginesKnownUrl{$SearchEnginesHashID{$key}};
-                       my $urlkeywordsyntax=&unregexkeywordcode($urlkeywordsyntax,1);
+                       $urlkeywordsyntax=&unregexkeywordcode($urlkeywordsyntax,1);
                        if (! $urlkeywordsyntax) { next; }                              # This has no keywordextractcode
                        my $newkey=&unregex($key);
                        if ($newkey =~ /[\[\]\(\)\|\?\*\+]/) { next; }  # This was a regex value that i can't clean

diff --git a/tools/urlaliasbuilder.pl b/tools/urlaliasbuilder.pl
index 29b29122dc90c4fe978480aa8a317f4c6b03d8ce..6913d39bc9b460bc1a7bb2def82984f100ba1672 100644 (file)
--- a/tools/urlaliasbuilder.pl
+++ b/tools/urlaliasbuilder.pl
@@ -242,7 +242,7 @@ if(!($ua->is_protocol_supported('https')) && $useHTTPS) {
        exit();
 }
 
-my $fileOutput = "";
+$fileOutput = "";
 
 # Now lets build the contents to write (or append) to urlalias file
 foreach my $newAlias (@addToAliasFile) {

diff --git a/tools/webmin/awstats/edit_config.cgi b/tools/webmin/awstats/edit_config.cgi
index 23d5d850275de9c416195ced77301548bf4bb367..84af809ad4cd5ec216b6e068d1e2dbb06d5ed260 100644 (file)
--- a/tools/webmin/awstats/edit_config.cgi
+++ b/tools/webmin/awstats/edit_config.cgi
@@ -28,7 +28,7 @@ else {
 $lconf = &get_config($filetoopen);
 foreach my $key (keys %$lconf) {
        $lconf->{$key}=~s/^\s*//g;
-       $lconf->{$key}=~s/^*[\"\']//;
+       $lconf->{$key}=~s/^\s*[\"\']//;
        $lconf->{$key}=~s/#.*$//;
        $lconf->{$key}=~s/\s*$//g;
        $lconf->{$key}=~s/[\"\']\s*$//;