use vars qw/
@MiscListOrder %MiscListCalc
%OSFamily %BrowsersFamily @SessionsRange %SessionsAverage
+ @PayloadRange %PayloadAverage
+ @TimeRange %TimeAverage
%LangBrowserToLangAwstats %LangAWStatsToFlagAwstats %BrowsersSafariBuildToVersionHash
@HostAliases @AllowAccessFromWebToFollowingAuthenticatedUsers
@DefaultFile @SkipDNSLookupFor
'1h+', 3600
);
+ @PayloadRange = ('0-44', '44-100', '100-500', '500-1K', '1K-2K', '2K-5K', '5K+');
+ %PayloadAverage = (
+ '0-44', 44, '44-100', 100, '100-500', 500, '500-1K', 1024,
+ '1K-2K', 2048, '2K-5K', 5120, '5K+', 5121
+ );
+
+@TimeRange = ('0-44', '44-100', '100-500', '500-1K', '1K-2K', '2K-5K', '5K+');
+%TimeAverage = (
+ '0-44', 44, '44-100', 100, '100-500', 500, '500-1K', 1024,
+ '1K-2K', 2048, '2K-5K', 5120, '5K+', 5121
+);
+
# HTTP-Accept or Lang parameter => AWStats code to use for lang
# ISO-639-1 or 2 or other => awstats-xx.txt where xx is ISO-639-1
%LangBrowserToLangAwstats = (
%MonthPages %MonthHits %MonthBytes
%MonthNotViewedPages %MonthNotViewedHits %MonthNotViewedBytes
%_session %_browser_h %_browser_p
+ %_filesize
+ %_requesttime
%_domener_p %_domener_h %_domener_k %_errors_h %_errors_k
%_filetypes_h %_filetypes_k %_filetypes_gz_in %_filetypes_gz_out
%_host_p %_host_h %_host_k %_host_l %_host_s %_host_u
'Period',
's',
'Request average frequency [/s]',
- 'Request size'
++ 'Request size',
+ 'Request time'
);
#------------------------------------------------------------------------------
return $temp;
}
+ #------------------------------------------------------------------------------
+ # Function: Return string of Bandwidth Range
+ # Parameters: $starttime $endtime
+ # Input: None
+ # Output: None
+ # Return: A string that identify the bandwidth range
+ #------------------------------------------------------------------------------
+ sub GetBandwidthRange {
+ my $payload = shift;
+ if ($Debug) { debug("GetPayloadRange $payload",4); }
+ if ($payload <= 44) { return $PayloadRange[0]; }
+ if ($payload <= 100) { return $PayloadRange[1]; }
+ if ($payload <= 500) { return $PayloadRange[2]; }
+ if ($payload <= 1024) { return $PayloadRange[3]; }
+ if ($payload <= 2048) { return $PayloadRange[4]; }
+ if ($payload <= 5120) { return $PayloadRange[5]; }
+ return $PayloadRange[6];
+ }
+
+#------------------------------------------------------------------------------
+# Function: Return string of Request Time Range
+# Parameters: $starttime $endtime
+# Input: None
+# Output: None
+# Return: A string that identify the time range
+#------------------------------------------------------------------------------
+sub GetRequestTimeRange {
+ my $rqtime = shift;
+ if ($Debug) { debug("GetRequestTimeRange $rqtime",4); }
+ if ($rqtime <= 44) { return $TimeRange[0]; }
+ if ($rqtime <= 100) { return $TimeRange[1]; }
+ if ($rqtime <= 500) { return $TimeRange[2]; }
+ if ($rqtime <= 1024) { return $TimeRange[3]; }
+ if ($rqtime <= 2048) { return $TimeRange[4]; }
+ if ($rqtime <= 5120) { return $TimeRange[5]; }
+ return $TimeRange[6];
+}
+
#------------------------------------------------------------------------------
# Function: Compare two browsers version
# Parameters: $a
'searchwords' => 25,
'keywords' => 26,
'errors' => 27,
- 'requesttime' => 28,
+ 'filesize' => 28,
++ 'requesttime' => 29,
);
my $order = ( scalar keys %allsections ) + 1;
{
$SectionsToLoad{'session'} = $order++;
}
+ if ( $UpdateStats
+ || $MigrateStats
+ || ($HTMLOutput{'main'} && $ShowFileSizesStats)
+ || $HTMLOutput{'filesizes'} )
+ {
+ $SectionsToLoad{'filesize'} = $order++;
+ }
+ if ( $UpdateStats
+ || $MigrateStats
+ || ( $HTMLOutput{'main'} && $ShowRequestTimesStats )
+ || $HTMLOutput{'requesttime'} )
+ {
+ $SectionsToLoad{'requesttime'} = $order++;
+ }
if ( $UpdateStats
|| $MigrateStats
|| ( $HTMLOutput{'main'} && $ShowPagesStats )
next;
}
- delete $SectionsToLoad{'filesize'};
+ # BEGIN_FILESIZE
+ if ( $field[0] eq 'BEGIN_FILESIZE' ) {
+ if ($Debug) { debug(" Begin of FILESIZE section"); }
+ $field[0] = '';
+ my $count = 0;
+ my $countloaded = 0;
+ do {
+ if ( $field[0] ) {
+ $count++;
+ if ( $SectionsToLoad{'filesize'} ) {
+ $countloaded++;
+ if ($field[1]) {
+ $_filesize{ $field[0] } += $field[1];
+ }
+ }
+ }
+ $_ = <HISTORY>;
+ chomp $_;
+ s/\r//;
+ @field =
+ split( /\s+/,
+ ( $readxml ? CleanFromTags($_) : $_) );
+ $countlines++;
+ } until ( $field[0] eq 'END_FILESIZE'
+ || $field[0] eq "${xmleb}END_FILESIZE"
+ || ! $_ );
+ if ( $field[0] ne 'END_FILESIZE'
+ && $field[0] ne "${xmleb}END_FILESIZE")
+ {
+ error(
+ "History file \"$filetoread\" is corrupted (End of section FILESIZE not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1
+ );
+ }
+ if ($Debug) {
+ debug(
+ " End of FILESIZE section ($count entries, $countloaded loaded)"
+ );
+ }
+ delete $SectionsToLoad{'filesize'};
+ if ( !scalar %SectionsToLoad ) {
+ debug(" Stop reading history file. Got all we need.");
+ last;
+ }
+ next;
+ }
+
+ # BEGIN_REQUESTTIME
+ if ( $field[0] eq 'BEGIN_REQUESTTIME' ) {
+ if ($Debug) { debug(" Begin of REQUESTTIME section"); }
+ $field[0] = '';
+ my $count = 0;
+ my $countloaded = 0;
+ do {
+ if ( $field[0] ) {
+ $count++;
+ if ( $SectionsToLoad{'requesttime'} ) {
+ $countloaded++;
+ if ( $field[1] ) {
+ $_requesttime{ $field[0] } += $field[1];
+ } }
+ }
+ $_ = <HISTORY>;
+ chomp $_;
+ s/\r//;
+ @field =
+ split( /\s+/,
+ ( $readxml ? CleanFromTags($_) : $_) );
+ $countlines++;
+ } until ( $field[0] eq 'END_REQUESTTIME'
+ || $field[0] eq "${xmleb}END_REQUESTTIME"
+ || !$_ );
+ if ( $field[0] ne 'END_REQUESTTIME'
+ && $field[0] ne "${xmleb}END_REQUESTTIME")
+ {
+ error(
+"History file \"$filetoread\" is corrupted (End of section REQUESTTIME not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).",
+ "", "", 1
+ );
+ }
+ if ($Debug) {
+ debug(
+" End of _REQUESTTIME section ($count entries, $countloaded loaded)"
+ );
+ }
++ delete $SectionsToLoad{'requesttime'};
+ if ( !scalar %SectionsToLoad ) {
+ debug(" Stop reading history file. Got all we need.");
+ last;
+ }
+ next;
+ }
+
# BEGIN_MISC
if ( $field[0] eq 'BEGIN_MISC' ) {
if ($Debug) { debug(" Begin of MISC section"); }
print HISTORYTMP "${xmlrb}POS_SESSION${xmlrs}";
$PosInFile{"session"} = tell HISTORYTMP;
print HISTORYTMP "$spacebar${xmlre}\n";
+ print HISTORYTMP "${xmlrb}POS_FILESIZE${xmlrs}";
+ $PosInFile{"filesize"} = tell HISTORYTMP;
+ print HISTORYTMP "$spacebar${xmlre}\n";
+ print HISTORYTMP "${xmlrb}POS_REQUESTTIME${xmlrs}";
+ $PosInFile{"requesttime"} = tell HISTORYTMP;
+ print HISTORYTMP "$spacebar${xmlre}\n";
print HISTORYTMP "${xmlrb}POS_SIDER${xmlrs}";
$PosInFile{"sider"} = tell HISTORYTMP;
print HISTORYTMP "$spacebar${xmlre}\n";
}
print HISTORYTMP "${xmleb}END_SESSION${xmlee}\n";
}
+ if ($sectiontosave eq 'filesize')
+ { # This section must be saved after VISITOR section is read
+ print HISTORYTMP "\n";
+ if ($xml) {
+ print HISTORYTMP "<section id='$sectiontosave'><comment>\n";
+ }
+ print HISTORYTMP "# Payload Range - Payload Frequency\n";
+ $ValueInFile{$sectiontosave} = tell HISTORYTMP;
+ print HISTORYTMP "${xmlbb}BEGIN_FILESIZE${xmlbs}"
+ . ( scalar keys %_filesize )
+ . "${xmlbe}\n";
+ foreach ( keys %_filesize) {
+ print HISTORYTMP "${xmlrb}$_${xmlrs}"
+ . int( $_filesize{$_} )
+ . "${xmlre}\n";
+ }
+ print HISTORYTMP "${xmleb}END_FILESIZE${xmlee}\n";
+
++ }
+ if ( $sectiontosave eq 'requesttime' ) {
+ print HISTORYTMP "\n";
+ if ($xml) {
+ print HISTORYTMP "<section id='$sectiontosave'><comment>\n";
+ }
+ print HISTORYTMP "# Request Time Range - Request Time Frequency\n";
+ $ValueInFile{$sectiontosave} = tell HISTORYTMP;
+ print HISTORYTMP "${xmlbb}BEGIN_REQUESTTIME${xmlbs}"
+ . ( scalar keys %_requesttime )
+ . "${xmlbe}\n";
+ foreach ( keys %_requesttime ) {
+ print HISTORYTMP "${xmlrb}$_${xmlrs}"
+ . int( $_requesttime{$_} )
+ . "${xmlre}\n";
+ }
+ print HISTORYTMP "${xmleb}END_REQUESTTIME${xmlee}\n";
+
}
if ( $sectiontosave eq 'sider' )
{ # This section must be saved after VISITOR section is read
# Reset all hash arrays with name beginning by _
%_session = %_browser_h = %_browser_p = ();
+ %_filesize = ();
+ %_requesttime = ();
%_domener_p = %_domener_h = %_domener_k = %_errors_h = %_errors_k = ();
%_filetypes_h = %_filetypes_k = %_filetypes_gz_in = %_filetypes_gz_out = ();
%_host_p = %_host_h = %_host_k = %_host_l = %_host_s = %_host_u = ();
"<a href=\"$linkanchor#sessions\"$targetpage>$Message[117]</a>";
print( $frame? "</td></tr>\n" : " " );
}
- "<a href=\"$linkanchor#requesttimes\"$targetpage>$Message[186]</a>";
+ if ($ShowFileSizesStats) {
+ print ( $frame? "<tr><td class=\"awsm\">" : "" );
+ print
+ "<a href=\"$linkanchor#filesizes\"$targetpage>$Message[186]</a>";
+ print ( $frame? "</td></tr>\n" : " ");
+ }
+ if ($ShowRequestTimesStats) {
+ print( $frame? "<tr><td class=\"awsm\">" : "" );
+ print
++"<a href=\"$linkanchor#requesttimes\"$targetpage>$Message[187]</a>";
+ print ($frame? "</td></tr>\n" : " " );
+ }
if ($ShowFileTypesStats && $LevelForFileTypesDetection > 0) {
print( $frame? "<tr><td class=\"awsm\">" : "" );
print
&tab_end();
}
- my $title = "$Message[186]";
+ #------------------------------------------------------------------------------
+ # Function: Prints the File Size Table
+ # Parameters: _
+ # Input: _
+ # Output: HTML
+ # Return: -
+ #------------------------------------------------------------------------------
+ sub HTMLMainFileSize{
+ if ($Debug) { debug("ShowFileSizesStats",2); }
+ my $FirstTime = 0;
+ my $LastTime = 0;
+ foreach my $key ( keys %FirstTime ) {
+ my $keyqualified = 0;
+ if ( $MonthRequired eq 'all' ) { $keyqualified = 1; }
+ if ( $key =~ /^$YearRequired$MonthRequired/ ) { $keyqualified = 1; }
+ if ($keyqualified) {
+ if ( $FirstTime{$key}
+ && ( $FirstTime == 0 || $FirstTime > $FirstTime{$key} ) )
+ {
+ $FirstTime = $FirstTime{$key};
+ }
+ if ( $LastTime < ( $LastTime{$key} || 0 ) ) {
+ $LastTime = $LastTime{$key};
+ }
+ }
+ }
+
+ my $inicio = 0;
+ my $fim = 0;
+ if ($FirstTime =~ /$regdate/o) { $inicio = Time::Local::timelocal($6, $5, $4, $3, $2-1, $1); }
+ if ($LastTime =~ /$regdate/o) { $fim = Time::Local::timelocal($6, $5, $4, $3, $2-1, $1); }
+ my $periodo = $fim - $inicio;
+ my $number_of_requests = 0;
+ my $request_frequency_average = 0;
+ foreach my $key (@PayloadRange) {
+ $number_of_requests += $_filesize{$key};
+ }
+ if ($periodo) { $request_frequency_average = $number_of_requests/$periodo;}
+ else { $request_frequency_average = 0 };
+ print "$Center<a name=\"filesizes\"> </a><br />\n";
+ my $title = "$Message[186]";
+ &tab_head($title, 19, 0, 'filesizes');
+ my $Totals = 0;
+ my $average_s = 0;
+ foreach (@PayloadRange) {
+ $average_s += ( $_filesize{$_} || 0 ) * $PayloadAverage{$_};
+ $Totals += $_filesize{$_} || 0;
+ }
+ if ($Totals) { $average_s = int($average_s / $Totals); }
+ else { $average_s = '?'; }
+ print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(1)."><th>$Message[182]: $number_of_requests - $Message[183]: $periodo $Message[184] - $Message[185]: ".sprintf ("%.6f",$request_frequency_average)."</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[181]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
+ my $total_s = 0;
+ my $count = 0;
+ foreach my $key (@PayloadRange) {
+ my $p = 0;
+ my $f = 0;
+ if ($Totals) { $p = int($_filesize{$key} / $Totals * 1000) / 10; }
+ if ($periodo) { $f = $_filesize{$key} / $periodo; }
+ $total_s += $_filesize{$key} || 0;
+ print "<tr><td class=\"aws\">$key</td>";
+ print "<td>".($_filesize{$key}? sprintf("%.5f",$f):" ")."</td>";
+ print "<td>".($_filesize{$key}? $_filesize{$key}:" ")."</td>";
+ print "<td>".($_filesize{$key}? "$p %":" ")."</td>";
+ print "</tr>\n";
+ $count++;
+ }
+ my $rest_s = $TotalVisits-$total_s;
+ if ($rest_s > 0) {
+ my $p = 0;
+ if ($TotalVisits) { $p = int($rest_s / $TotalVisits * 1000) / 10; }
+ print "<tr".Tooltip(20)."><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td>";
+ print "<td>$rest_s</td>";
+ print "<td>".($rest_s?"$p %":" ")."</td>";
+ print "</tr>\n";
+ }
+
+ &tab_end();
+ }
+
+#------------------------------------------------------------------------------
+# Function: Prints Request Time table
+# Parameters: _
+# Input: _
+# Output: HTML
+# Return: -
+#------------------------------------------------------------------------------
+sub HTMLMainRequestTime{
+ if ($Debug) { debug("ShowRequestTimesStats", 2); }
+ my $FirstTime = 0;
+ my $LastTime = 0;
+ foreach my $key ( keys %FirstTime ) {
+ my $keyqualified = 0;
+ if ( $MonthRequired eq 'all' ) { $keyqualified = 1; }
+ if ( $key =~ /^$YearRequired$MonthRequired/ ) { $keyqualified = 1; }
+ if ($keyqualified) {
+ if ( $FirstTime{$key}
+ && ( $FirstTime == 0 || $FirstTime > $FirstTime{$key} ) )
+ {
+ $FirstTime = $FirstTime{$key};
+ }
+ if ( $LastTime < ( $LastTime{$key} || 0 ) ) {
+ $LastTime = $LastTime{$key};
+ }
+ }
+ }
+
+ my $inicio = 0;
+ my $fim = 0;
+ if ($FirstTime =~ /$regdate/o) { $inicio = Time::Local::timelocal($6,$5,$4,$3,$2-1,$1); }
+ if ($LastTime =~ /$regdate/o) { $fim = Time::Local::timelocal($6,$5,$4,$3,$2-1,$1); }
+ my $periodo = $fim - $inicio;
+ my $number_of_requests = 0;
+ my $request_frequency_average = 0;
+ foreach my $key (@TimeRange) {
+ $number_of_requests += $_requesttime{$key};
+ }
+ if ($periodo) { $request_frequency_average = $number_of_requests / $periodo;}
+ else { $request_frequency_average = 0};
+ print "$Center<a name=\"requesttimes\"> </a><br />\n";
++ my $title = "$Message[187]";
+ &tab_head($title, 19, 0, 'requesttimes');
+ my $Totals = 0;
+ my $average_s = 0;
+ foreach (@TimeRange) {
+ $average_s += ($_requesttime{$_} || 0) * $TimeAverage{$_};
+ $Totals += $_requesttime{$_} || 0;
+ }
+ if ($Totals) { $average_s = int($average_s / $Totals); }
+ else { $average_s = '?'; }
+ print "<tr bgcolor=\"#$color_TableBGRowTitle\"".Tooltip(1)."><th>$Message[182]: $number_of_requests - $Message[183]: $periodo $Message[184] - $Message[185]: ".sprintf ("%.6f",$request_frequency_average)."</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[181]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[57]</th><th bgcolor=\"#$color_s\" width=\"80\">$Message[15]</th></tr>\n";
+ my $total_s = 0;
+ my $count = 0;
+ foreach my $key (@TimeRange) {
+ my $p = 0;
+ my $f = 0;
+ if ($Totals) { $p = int($_requesttime{$key} / $Totals * 1000) / 10; }
+ if ($periodo) { $f = $_requesttime{$key} / $periodo; }
+ $total_s += $_requesttime{$key} || 0;
+ print "<tr><td class=\"aws\">$key</td>";
+ print "<td>".($_requesttime{$key} ? sprintf("%.5f",$f) : " ")."</td>";
+ print "<td>".($_requesttime{$key} ? $_requesttime{$key} : " ")."</td>";
+ print "<td>".($_requesttime{$key} ? "$p %" : " ")."</td>";
+ print "</tr>\n";
+ $count++;
+ }
+ my $rest_s = $TotalVisits - $total_s;
+ if ($rest_s > 0) {
+ my $p = 0;
+ if ($TotalVisits) { $p = int($rest_s / $TotalVisits * 1000) / 10; }
+ print "<tr".Tooltip(20)."><td class=\"aws\"><span style=\"color: #$color_other\">$Message[0]</span></td>";
+ print "<td>$rest_s</td>";
+ print "<td>".($rest_s?"$p %":" ")."</td>";
+ print "</tr>\n";
+ }
+
+ &tab_end();
+}
+
#------------------------------------------------------------------------------
# Function: Prints the Browser Detail frame or static page
# Parameters: _
int( $field[$pos_size] );} #Count accesses for page (kb)
}
- if ( $pos_time >= 0 )
- {
+ # Check size frequency
+ #---------------------
+ if ( $pos_size >= 0 ) {
+ $_filesize{ GetBandwidthRange(int($field[$pos_size])) }++;
+ }
+
+ # Check request time frequency
+ #-----------------------------
++ if ( $pos_time >= 0 ) {
+ $_requesttime{GetRequestTimeRange(int($field[$pos_time]))}++;
+ }
+
# Analyze: Extra
#---------------
foreach my $extranum ( 1 .. @ExtraName - 1 ) {
# BY FILE SIZE
#-------------------------
if ($ShowFileSizesStats) {
- # TODO
+ &HTMLMainFileSize();
}
+
+ # BY REQUEST TIME
+ #-------------------------
+ if ($ShowRequestTimesStats) {
+ &HTMLMainRequestTime();
+ }
# BY DOWNLOADS
#-------------------------
projects / thirdparty / AWStats.git / commitdiff
