";
#Display the title
print HTML "\n\n
$TitleText
";
#Make a link to the index
print HTML "\nGo to index
";
#Add to the index
$Index .= "\n$TitleText
";
}
sub DisplayIndex()
{
print HTML $Index;
}
sub DisplayResponses()
{
StartTable();
foreach $Code (sort(keys(%Responses)))
{
print HTML "\n| $Code | $Responses{$Code} |
";
}
StopTable();
}
sub DisplaySearchTerms()
{
my $NumberToShow = shift();
DisplayArraySorted(\%SearchTerms, $NumberToShow);
}
sub DisplayArraySorted()
{
my $refArrayToDisplay = shift();
my $NumberToShow=shift();
my $MaxHits = GetMax($refArrayToDisplay);
my $RefSortedKeys = SortByValue($refArrayToDisplay);
StartTable();
GENERAL_DISPLAY:
foreach my $Item (@$RefSortedKeys)
{
my $NumHits = $$refArrayToDisplay{$Item};
print HTML "\n| $Item | $NumHits | ".DisplayBar($NumHits,$MaxHits,500 )." |
";
last GENERAL_DISPLAY if (($NumberToShow--) <= 0);
}
StopTable();
}
sub DisplayNotFoundPages()
{
my $NumberToShow=shift();
my $MaxHits = GetMax(\%NotFoundPages);
my $RefSortedKeys = SortByValue(\%NotFoundPages);
StartTable();
ERROR_DISPLAY:
foreach $File (@$RefSortedKeys)
{
my $NumHits = $NotFoundPages{$File};
print HTML "\n| $File | $NumHits | ".DisplayBar($NumHits,$MaxHits,500 )." |
";
last ERROR_DISPLAY if (($NumberToShow--) <= 0);
}
StopTable();
}
sub DisplayReferrers()
{
my $NumberToShow=shift();
my $MaxHits = GetMax(\%Referrers);
my $RefSortedKeys = SortByValue(\%Referrers);
StartTable();
REFERRER_DISPLAY:
foreach $Referrer (@$RefSortedKeys)
{
my $NumHits = $Referrers{$Referrer};
print HTML "\n| $Referrer | $NumHits | ".DisplayBar($NumHits,$MaxHits,500 )." |
";
last REFERRER_DISPLAY if (($NumberToShow--) <= 0);
}
StopTable();
}
sub DisplayUserAgents()
{
my $NumberToShow=shift();
StartTable();
my $Max = GetMax(\%UserAgents);
my $RefSortedKeys = SortByValue(\%UserAgents);
USERAGENT_DISPLAY:
foreach $UserAgent (@$RefSortedKeys)
{
my $NumHits = $UserAgents{$UserAgent};
my $Percent = int(100 * $NumHits / $Lines);
print HTML "\n| $UserAgent | $NumHits | $Percent\% | ".DisplayBar($NumHits,$Max,350 )." |
";
last USERAGENT_DISPLAY if (($NumberToShow--) <= 0);
}
StopTable();
}
sub DisplayGraphicHits()
{
my $NumberToShow=shift();
my $MaxHits = GetMax(\%GraphicHits);
my $RefSortedKeys = SortByValue(\%GraphicHits);
StartTable();
REFERRER_DISPLAY:
foreach $Page (@$RefSortedKeys)
{
my $NumHits = $GraphicHits{$Page};
print HTML "\n| $Page | $NumHits | ".DisplayBar($NumHits,$MaxHits,500 )." |
";
last REFERRER_DISPLAY if (($NumberToShow--) <= 0);
}
StopTable();
}
sub DisplayIncomingLinksToGraphics()
{
foreach my $Link(@IncomingLinksToGraphics)
{
print HTML "$Link
";
}
}
sub DisplayBar()
{
my $Value = shift();
my $MaxValue = shift();
my $MaxWidth = shift();
my $ImageWidth = int($MaxWidth * $Value / $MaxValue);
my $ImageHTML = "![\"$Value\"](\"fill.png\")
";
$ImageHTML
}
sub DisplayGeneralStats()
{
print HTML "\n$OkLines logfile lines analysed. $FailedLines lines not understood
";
print HTML "\nRequests originated from " . scalar(keys(%IPAddresses)) . " different IP addresses";
}
sub DisplayCredits()
{
print HTML "\n
Created by $ProgramName version $Version, on ";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time);
print HTML $year+1900 . "-$mon-$mday $hour:" . sprintf("%02d", $min) . "
";
print HTML "\nThis program is free software, released under the GNU license. See " .
"blibbleblobble.co.uk " .
"for more details, or to download the program
";
}
sub DisplayPageHitsByDay()
{
print HTML "\n";
my $Max = GetMax( \%PageHitsByDate );
#foreach my $Date(keys(%PageHitsByDate))
#{
# if ($PageHitsByDate{$Date}>$Max)
# {
# $Max=$PageHitsByDate{$Date}
# }
#}
foreach my $Date(sort(keys(%PageHitsByDate)))
{
my $HitsThatDay = $PageHitsByDate{$Date};
my $MaxBarHeightInPixels = 200;
my $ImageHeight = int($MaxBarHeightInPixels * $HitsThatDay / $Max);
if ($ImageHeight<2){$ImageHeight=2;}
my $ImageHTML = "";
print HTML "\n$ImageHTML";
}
print HTML "( max: $Max)
";
}
sub DisplayPageHitsByMonth()
{
#my $Max=GetMax(\%PageHitsByMonth);
foreach my $Month(keys(%PageHitsByMonth))
{
if ($PageHitsByMonth{$Month}>$Max)
{
$Max=$PageHitsByMonth{$Month}
}
}
StartTable();
foreach my $Month(sort(keys(%PageHitsByMonth)))
{
my $MaxBarWidthInPixels = 500;
my $ImageWidth = int($MaxBarWidthInPixels * $PageHitsByMonth{$Month} / $Max);
my $ImageHTML = "";
print HTML "\n| $Month | ".$PageHitsByMonth{$Month}." | $ImageHTML |
";
}
StopTable();
}
sub DisplayHitsByPage()
{
#my $Max = GetMax(\%TotalHitsByPage);
foreach my $Page(keys(%TotalHitsByPage))
{
if ($TotalHitsByPage{$Page}>$Max)
{
$Max = $TotalHitsByPage{$Page};
}
}
my $MaxBarWidthInPixels = 500;
StartTable();
print HTML "\n