From: eldy <> Date: Sat, 4 Aug 2001 16:59:08 +0000 (+0000) Subject: no message X-Git-Tag: AWSTATS_1_0~204 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f7e89b783dec76e9fd2447745590f1bb3a08b698;p=thirdparty%2FAWStats.git no message --- diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl index f30be477..a7dd9070 100644 --- a/wwwroot/cgi-bin/awstats.pl +++ b/wwwroot/cgi-bin/awstats.pl @@ -68,9 +68,7 @@ $paramtoexclude, $rest, $rest_h, $rest_k, $rest_p, $tab_titre, $total_h, $total_k, $total_p, $word, $yearcon, $yearmonth, $yeartoprocess) = (); # ---------- Init arrays -------- -@BrowserArray = @DomainsArray = @HostAliases = -@OnlyFiles = @OSArray = @RobotArray = -@SearchEnginesArray = @SkipDNSLookupFor = @SkipFiles = @SkipHosts = +@HostAliases = @OnlyFiles = @SkipDNSLookupFor = @SkipFiles = @SkipHosts = @dateparts = @felter = @field = @filearray = @message = @paramlist = @refurl = @sortbrowsers = @sortdomains_h = @sortdomains_k = @sortdomains_p = @sorterrors = @sorthosts_p = @sortos = @sortpagerefs = @sortrobot = @@ -91,7 +89,7 @@ $SortDir = -1; # -1 = Sort order from most to less, 1 = reverse order (De $VisitTimeOut = 10000; # Laps of time to consider a page load as a new visit. 10000 = one hour (Default = 10000) $FullHostName = 1; # 1 = Use name.domain.zone to refer host clients, 0 = all hosts in same domain.zone are one host (Default = 1, 0 never tested) $MaxLengthOfURL= 70; # Maximum length of URL shown on stats page. This affects only URL visible text, link still work (Default = 70) -$MaxNbOfDays = 30; +$MaxNbOfDays = 15; $NbOfLinesForBenchmark=4000; $CENTER = ""; $WIDTH = "600"; @@ -333,6 +331,7 @@ $BarImageHorizontal_k = "barrehk.png"; # OS AliasHash ("text that match in log after changing ' ' or '+' into '_' ","osid") %OSAliasHash = ( "windows_me","winme", +"windows2000","win2000", "windows_2000","win2000", "windows_nt_5","win2000", "windows_nt","winnt", @@ -1000,17 +999,19 @@ sub Read_Language_Tooltip { else { if (open(LANG,"${Dir}lang/awstats-tt-en.txt")) { $FileLang="${Dir}lang/awstats-tt-en.txt"; } } # If file not found, we try english &debug("Call to Read_Language_Tooltip [FileLang=\"$FileLang\"]"); if ($FileLang ne "") { - $aws_timeout = $VisitTimeOut/10000*60; - $aws_SearchEnginesArray = @SearchEnginesArray; + my @RobotArray=keys %RobotHash; + my @SearchEnginesArray=keys %SearchEnginesHash; + $aws_Timeout = $VisitTimeOut/10000*60; $aws_MaxNbOfRefererShown = $MaxNbOfRefererShown; $aws_RobotArray = @RobotArray; + $aws_SearchEnginesArray = @SearchEnginesArray; while () { # Search for replaceable parameters s/#PROG#/$PROG/; - s/#VisitTimeOut#/$aws_timeout/; - s/#SearchEnginesArray#/$aws_SearchEnginesArray/; + s/#VisitTimeOut#/$aws_Timeout/; s/#MaxNbOfRefererShown#/$aws_MaxNbOfRefererShown/; s/#RobotArray#/$aws_RobotArray/; + s/#SearchEnginesArray#/$aws_SearchEnginesArray/; print "$_"; } } @@ -1587,15 +1588,15 @@ if (($ENV{"GATEWAY_INTERFACE"} eq "") && ($SiteToAnalyze eq "")) { print " Number of visits and unique visitors\n"; print " Rush hours\n"; print " Most often viewed pages\n"; - @DomainsArray=keys %DomainsHash; + my @DomainsArray=keys %DomainsHash; print " ".(@DomainsArray)." domains/countries\n"; - @BrowserArray=keys %BrowsersHash; + my @BrowserArray=keys %BrowsersHash; print " ".(@BrowserArray)." browsers\n"; - @OSArray=keys %OSHash; + my @OSArray=keys %OSHash; print " ".(@OSArray)." Operating Systems\n"; - @RobotArray=keys %RobotHash; + my @RobotArray=keys %RobotHash; print " ".(@RobotArray)." robots\n"; - @SearchEnginesArray=keys %SearchEnginesHash; + my @SearchEnginesArray=keys %SearchEnginesHash; print " ".(@SearchEnginesArray)." search engines (and keywords or keyphrases used from them)\n"; print " All HTTP errors\n"; print " Statistics by day/month/year\n"; @@ -2414,7 +2415,7 @@ print " \n"; print "$message[16] : "; print "$message[17]   ".ucfirst($message[26])."   $message[53]   $message[20]   $message[45]
\n"; print "$message[72] : "; -print "$message[19]   $message[21]   $message[59]   $message[33]   $message[34]
\n"; +print "$message[19]   $message[21]   $message[59]   $message[33]   $message[34]
\n"; print "$message[23] : "; print "$message[37]   $message[24]
\n"; print "$message[2] : "; @@ -2423,7 +2424,6 @@ print "\n"; print "
\n\n"; - if ($QueryString =~ /action=unknownip/i) { print "$CENTER
"; $tab_titre=$message[45]; @@ -2559,8 +2559,6 @@ if ($QueryString =~ /action=info/i) { } &debug("Start of sorting hash arrays"); -@RobotArray=keys %RobotHash; -@SearchEnginesArray=keys %SearchEnginesHash; @sortdomains_p=sort { $SortDir*$_domener_p{$a} <=> $SortDir*$_domener_p{$b} } keys (%_domener_p); @sortdomains_h=sort { $SortDir*$_domener_h{$a} <=> $SortDir*$_domener_h{$b} } keys (%_domener_h); @sortdomains_k=sort { $SortDir*$_domener_k{$a} <=> $SortDir*$_domener_k{$b} } keys (%_domener_k);