# -*- perl -*- ################################################################
#
# AccessWatch HTML Table Generation Functions
# Copyright 1994-1998 David G. Maher. All Rights Reserved.
#
###############################################################################


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintBarHoriz
#    Purpose  : Prints a horizontal bar with width as specified by argument.
#-----------------------------------------------------------------------------#
sub PrintBarHoriz {
    my($pct) = $_[0];
    my($colorbar) = $horizbar{$_[1]};
    my($scale) = 1;

    $scale = ($pct*8)/log $pct + 1 if ($pct > 0);
    print "<IMG SRC=\"$colorbar\" ALT=\"";
    print "*" x ($pct/3 + 1) . "\" ";
    printf ("HEIGHT=15 WIDTH=%d BORDER=1>", $scale);
}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintBarVert
#    Purpose  : Prints a vertical bar with height as specified by argument.
#-----------------------------------------------------------------------------#
sub PrintBarVert {
    my($pct, $max) = ($_[0], $_[1]);
    my($colorbar) = $vertbar{$_[2]};
    my($width) = $_[3];

    $width = 10 if !($width);
    my($scale) = 0;
    $scale = $pct / $max * 200 if $max;

    print "<IMG SRC=\"$colorbar\" ";
    printf ("HEIGHT=%d WIDTH=$width BORDER=1 ALT=\"$pct\">", $scale);
}

sub byReverseNumber { $b <=> $a; }

#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableRefStats
#    Purpose  : Prints appropriate table.
#-----------------------------------------------------------------------------#

sub PrintTableRefStats {

    if (! %refs) {
	print "<P><FONT SIZE=\"+1\">No reference information is available. Please see <A HREF=\"http://accesswatch.com/help/\">the FAQ</A> for more information.</FONT><P>\n";
        return;
    }

    my($ref, $page, $refsTotal, $count);
    my(@refOrder) = ();

    foreach (keys %refs) {
	my($refUrl) = $siteBaseURL;
	$refURL =~ s/^http:\/\///i;
	$refURL =~ s/^https:\/\///i;
	$refURL =~ s/^ftp:\/\///i;

	if ($_ =~ /$siteBaseURL\//i || $_ =~ /www\.$sitebaseURL/i) {
	    delete $refs{$_};
	}
	else {
	    $refsTotal += $refs{$_};
	}
    }

    my(@countOrderList) = sort { $b <=> $a } values %refs;

    my($refCount) = $maxRefsToList - 1;
    $refCount = $#countOrderList 
	if ($maxRefsToList == -1 || 
	    ($maxRefsToList - 1) > $#countOrderList);

    while (@countOrderList) {
	while (local($tag, $value) = each %refs) {
	    if ($countOrderList[0] == $value) {
		push (@refOrder, $tag);
		shift @countOrderList;
	    }
	}
    }

    my(@favRefs) = @refOrder[0..$refCount];
    my(@othRefs) = @refOrder[@favRefs..$#refOrder];

    print <<EOM;
<P>
<FONT SIZE="+2">References</FONT>
<P>
<TABLE BORDER=1 WIDTH=100% CELLSPACING=0>
<TR><TH>Referring Site / Page </TH><TH>% of total</TH></TR>
EOM
    ;
    
    foreach (@favRefs) {
	/(.*)~~~(.*)/;
	($siteurl, $page) = ($1, $2);
	($sitename = $siteurl) =~ s/^.*:\/\/([^\/]+)/$1/;
	$sitename =~ s/([^\/]+)(.*)/$1<FONT SIZE=-3>$2<\/FONT>/;
	$pct = sprintf("%3.1f", $refs{$_}/$refsTotal*100) if $refsTotal;
	$pct = "0.0" if ! $refsTotal;

	if (! $sample) {
	    print <<EOM;
<TR><TD><A HREF="$siteurl">$sitename</A><BR><DD>$page</TD><TD ALIGN=RIGHT>$pct</TD></TR>
EOM
    ;
	}
	else {
	    print <<EOM;
<TR><TD>$sitename<BR><DD>$page</TD><TD ALIGN=RIGHT>$pct</TD></TR>
EOM
    ;
	}
    }

#    print "<TR><TD COLSPAN=2>";    

 #   foreach (@othRefs) {
#	/(.*)~~~(.*)/;       
#	($siteurl, $page) = ($1, $2);
#	($sitename = $siteurl) =~ s/^.*:\/\/([^\/]+)/$1/;
#	$sitename =~ s/([^\/]+)(.*)/$1<FONT SIZE=-3>$2<\/FONT>/;
#	print "$sitename ";
#    }
#    print "</TD></TR>\n";
    print "</TABLE>\n";

}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableAgentStats
#    Purpose  : Prints appropriate table.
#-----------------------------------------------------------------------------#

sub PrintTableAgentStats {

    my($agent, $agentsTotal, $hour, $browser, $count, %classes, %platforms);

    if (! %agents) {
	print "<H3>No browser information is available. Please see <A HREF=\"http://accesswatch.com/help/\">the FAQ</A> for more information.</H3>\n";
        return;
    }
    
    %classes = ('Netscape Navigator', 0,
		'Microsoft Internet Explorer', 0,
		'Other', 0
		);

    %platforms = ('Windows 95', 0,
		  'Windows 98', 0,
		  'Windows NT', 0,
		  'Windows 3.1 or lower', 0,
		  'Macintosh', 0,
		  'UNIX', 0,
		  'OS/2', 0,
		  'Other', 0
		  );


    %netscapeversions;
    %ieversions;

    my(@countOrderList) = sort { $b <=> $a } values %agents;

    while (($agent, $count) = each %agents) {

	if ($agent =~ /MSIE (\S+)/) {
	    $classes{'Microsoft Internet Explorer'} += $count;
	    my($version);
	    if ($1 =~ /(.*)\./) {
		$ieversions{"$1\.\*"} += $count;
	    }
	}
	elsif ($agent =~ /Mozilla\/(\S+)/ && $agent !~ /compatible/) {
	    $classes{'Netscape Navigator'} += $count;
	    my($version);
	    if ($1 =~ /(.*)\./) {
		$netscapeversions{"$1\.\*"} += $count;
	    }
	}
	else {
	    $classes{'Other'} += $count;
	}

	if ($agent =~ /Macintosh/i || $agent =~ /Mac_PowerPC/ 
	    || $agent =~ /Mac_PPC/) {
	    $platforms{'Macintosh'} += $count;
	}
	elsif ($agent =~ /Windows 95/i || $agent =~ /Win95/i) {
	    $platforms{'Windows 95'} += $count;
	}
	elsif ($agent =~ /Windows 98/i || $agent =~ /Win98/i) {
	    $platforms{'Windows 98'} += $count;
	}
	elsif ($agent =~ /Win16/i
	       || $agent =~ /Windows [321]/) {
	    $platforms{'Windows 3.1 or lower'} += $count;
	}
	elsif ($agent =~ /Windows NT/i || $agent =~ /WinNT/i) {
	    $platforms{'Windows NT'} += $count;
	}
	elsif ($agent =~ /UNIX/i || $agent =~ /X11/ || $agent =~ /Lynx/) {
	    $platforms{'UNIX'} += $count;
	}
	elsif ($agent =~ /OS\/2/i || $agent =~ /OS2/) {
	    $platforms{'OS/2'} += $count;
	}
	else {
	    $platforms{'Other'} += $count;
	}

	$agentsTotal += $count;
    }

    my(@agentOrder) = ();

    my($agentCount) = $maxAgentsToList - 1;
    $agentCount = $#countOrderList 
	if ($maxAgentsToList == -1 || 
	    ($maxAgentsToList - 1) > $#countOrderList);

    while (@countOrderList) {
	while (local($tag, $value) = each %agents) {
	    if ($countOrderList[0] == $value) {
		push (@agentOrder, $tag);
		shift @countOrderList;
	    }
	}
    }

    my(@favAgents) = @agentOrder[0..$agentCount];
    my(@othAgents) = @agentOrder[@favAgents..$#agentOrder];

    print <<EOM;
<P>
<FONT SIZE="+2">Browsers</FONT>
<P>
<CENTER>
<TABLE>
<TR><TD VALIGN=TOP>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3>
<TR><TH>Browser Class</TH><TH>% of total</TH></TR>
EOM
    sub byclass {
	$classes{$b} <=> $classes{$a};
    }

    my($class);
    foreach $class (sort byclass keys %classes) {
	$count = $classes{$class};
	my($pct) = 
	    sprintf("%3.1f", $count/$agentsTotal*100) 
		if $agentsTotal;
	$pct = "0.0" if ! $agentsTotal;
	print "<TR><TD BGCOLOR=\"#EEEEEE\">$class</TD><TD ALIGN=RIGHT BGCOLOR=\"#EEEEEE\">$pct</TD></TR>\n";
	if ($class eq "Netscape Navigator") {
	    my(@pcts);

	    print "<TR><TD ALIGN=RIGHT><FONT SIZE=\"-1\">Versions<BR>";
	    
	    sub byns {
		$netscapeversions{$b} <=> $netscapeversions{$a};
	    }

            my($version);
            foreach $version (sort byns keys %netscapeversions) {
		$count = $netscapeversions{$version};
		my($pct) = 
		    sprintf("%3.1f", $count/$agentsTotal*100) 
			if $agentsTotal;
		$pct = "0.0" if ! $agentsTotal;
		
		if ($pct > 0) {
		    print "$version<BR>\n";
		    push (@pcts, $pct);
		}
	    }
            print "</FONT></TD><TD ALIGN=RIGHT VALIGN=BOTTOM><FONT SIZE=\"-1\">";

            foreach (@pcts) { 
		print "$_<BR>\n";
            }

            print "</FONT></TD></TR>\n";
        }
	elsif ($class eq "Microsoft Internet Explorer") {
	    my(@pcts);

	    print "<TR><TD ALIGN=RIGHT><FONT SIZE=\"-1\">Versions<BR>";
	    
	    sub byie {
		$ieversions{$b} <=> $ieversions{$a};
	    }

            my($version);
            foreach $version (sort byie keys %ieversions) {
		$count = $ieversions{$version};
		my($pct) = 
		    sprintf("%3.1f", $count/$agentsTotal*100) 
			if $agentsTotal;
		$pct = "0.0" if ! $agentsTotal;
		
		if ($pct > 0) {
		    print "$version<BR>\n";
		    push (@pcts, $pct);
		}
	    }
            print "</FONT></TD><TD ALIGN=RIGHT VALIGN=BOTTOM><FONT SIZE=\"-1\">";

            foreach (@pcts) { 
		print "$_<BR>\n";
            }

            print "</FONT></TD></TR>\n";

	}
    }

    print <<EOM;
</TABLE>
</TD>
<TD VALIGN=TOP>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3>
<TR><TH>Platforms</TH><TH>% of total</TH></TR>
EOM
    sub byplatform {
	$platforms{$b} <=> $platforms{$a};
    }

    my($platform);
    foreach $platform (sort byplatform keys %platforms) {
	$count = $platforms{$platform};
	my($pct) = 
	    sprintf("%3.1f", $count/$agentsTotal*100) 
		if $agentsTotal;
	$pct = "0.0" if ! $agentsTotal;
	print "<TR><TD>$platform</TD><TD ALIGN=RIGHT>$pct</TD></TR>\n";
    }

    print <<EOM;
</TABLE>
</TD>
</TR>
</TABLE>
<P>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3>
<TR><TH>Top $maxAgentsToList Browsers</TH><TH>% of total</TH></TR>
EOM
    foreach (@favAgents) {
#	print "$_ - $agents{$_} - $agentsTotal\n";
	$pct = sprintf("%3.1f", $agents{$_}/$agentsTotal*100) if $agentsTotal;
	$pct = "0.0" if ! $agentsTotal;

print <<EOM;
<TR><TD>$_</TD><TD ALIGN=RIGHT>$pct</TD></TR>
EOM

    }
    print "</TABLE>\n</CENTER>\n";

}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableDomainStats
#    Purpose  : Prints table of domains, sorted by number of accesses.
#-----------------------------------------------------------------------------#
sub PrintTableDomainStats {

    print <<EOM;
<P>
<FONT SIZE="+2">Accesses by Domain</FONT>
<P>
<TABLE WIDTH=100% BORDER=1 CELLSPACING=0>
<TR><TH ALIGN=LEFT>Domain</TH><TH ALIGN=LEFT>Description</TH>
<TH ALIGN=RIGHT>Visits</TH><TH ALIGN=RIGHT>% of total</TH></TR>
EOM

    my(@countOrderList) = sort byReverseNumber values %domains;
    my(@domainOrder) = ();

    my($domainCount) = $maxDomainsToList - 1;
    $domainCount = $#countOrderList 
	if ($maxDomainsToList == -1 || 
	    ($maxDomainsToList - 1) > $#countOrderList);

    while (@countOrderList) {
	while (local($tag, $value) = (each %domains)) {
	    if ($countOrderList[0] == $value) {
		push (@domainOrder, $tag);
		shift @countOrderList;
	    }
	}
    }

    my(@favDomains) = @domainOrder[0..$domainCount];
    my(@othDomains) = @domainOrder[@favDomains..$#domainOrder];

    foreach (@favDomains) {
	my($Mdomain) = $_;
	my($Mcount) = $domains{$_};

	$Mdomain =~ tr/[A-Z]/[a-z]/;

	print "<TR><TD>$Mdomain</A> </TD>";
	my($description) = &DescribeDomain($Mdomain);
	print "<TD>$description </TD>";
	print "<TD ALIGN=RIGHT>$Mcount </TD>";

	$pct = 0.00;
	$pct = $Mcount / $stats{'visits'} * 100 if ($stats{'visits'} > 0);

	printf ("<TD ALIGN=RIGHT>%3.1f</TD>\n", $pct);
        print "<TD ALIGN=LEFT>";
	&PrintBarHoriz($pct,0);
        print "</TD></TR>\n";
    }

    print "<TR><TD COLSPAN=5><B>Additionally, there were visits from the following domains:</B><BR>&nbsp;&nbsp;" if (@othDomains);

    my($andCount) = 0;
    foreach (@othDomains) {
	tr/[A-Z]/[a-z]/;
	my($description) = &DescribeDomain($_);
	if ($andCount != $#othDomains) {	    
	    print "$description [$domains{$_}], ";
	}
	else {
	    print "and $description [$domains{$_}].";
	}
	$andCount++;
    }
    print "</TD></TR>\n</TABLE>\n";
}

#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableHostStats
#    Purpose  : Prints table of hosts, sorted by number of accesses.
#-----------------------------------------------------------------------------#
sub PrintTableHostStats {

    print <<EOM;
<P>
<FONT SIZE="+2">Hosts - Common Visitors</FONT>
<P>
<TABLE BORDER=1 WIDTH=100% CELLSPACING=0>
<TR><TH ALIGN=LEFT>Host Address</TH><TH ALIGN=RIGHT>Hits</TH><TH ALIGN=RIGHT>% of total</TH></TR>
EOM
    
    my(@countOrderList) = sort byReverseNumber values %hosts;
    my(@hostOrder) = ();

    my($hostCount) = $maxHostsToList - 1;
    $hostCount = $#countOrderList 
	if ($maxHostsToList == -1 || 
	    ($maxHostsToList - 1) > $#countOrderList);

    while (@countOrderList) {
	while (local($tag, $value) = (each %hosts)) {
	    if ($countOrderList[0] == $value) {
		push (@hostOrder, $tag);
		shift @countOrderList;
	    }
	}
    }

    my(@favHosts) = @hostOrder[0..$hostCount];

    foreach (@favHosts) {
	my($Mhost) = $_;
	my($Mcount) = $hosts{$_};

	print "<TR><TD>$Mhost</A> </TD>";
	print "<TD ALIGN=RIGHT>$Mcount </TD>";

	$pct = 0.00;
	$pct = $Mcount / $stats{'hits'} * 100 if ($stats{'hits'} > 0);

	printf ("<TD ALIGN=RIGHT> %3.2f</TD>\n", $pct);
        print "<TD ALIGN=LEFT>";
	&PrintBarHoriz($pct,0);
        print "</TD></TR>\n";
    }
    print <<EOM if ($details && $periodStats{'accesses'} ne "0");
<TR><TD COLSPAN=4><B>Access Details:</B> <I>A <A HREF="$detailslink">list</A> of individual accesses, sorted by host</I></TD></TR>
EOM
    print "</TABLE>\n";
}

#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableRegionStats
#    Purpose  : Prints table of regions, sorted by number of accesses.
#-----------------------------------------------------------------------------#
sub PrintTableRegionStats {

@americas = ('Antigua and Barbuda', 'Argentina', 'Aruba', 'Brazil', 'Canada', 
	'Chile', 'Dominican Republic', 'Guam', 'Guatemala', 'Mexico', 
	'Paraguay', 'Peru', 'Philippines', 'Saint Lucia', 
	'Trinidad and Tobago', 'United States');

@asia = ('Bahrain', 'China', 'Hong Kong', 'Indonesia', 'Japan', 'Kazakhstan', 
	'Korea (South)', 'Malaysia', 'New Zealand (Aotearoa)', 'Singapore', 
	'Sri Lanka', 'Taiwan', 'Thailand', 'United Arab Emirates');

@europe = ('Andorra', 'Anguilla', 'Australia', 'Austria', 'Belgium', 
	'Croatia (Hrvatska)', 'Cyprus', 'Denmark', 'Estonia', 'Finland', 
	'France', 'Germany', 'Greece', 'Hungary', 'Iceland', 'Ireland',
	'Italy', 'Latvia', 'Lithuania', 'Luxembourg', 'Malta', 'Netherlands',
	'Norway', 'Poland', 'Portugal', 'Romania', 'Slovenia', 'Spain', 
	'Sweden', 'Switzerland', 'Turkey', 'Ukraine', 'United Kingdom',
	'Yugoslavia');

@rimea = ('Czech Republic', 'Egypt', 'India', 'Israel', 'Jordan', 'Kuwait', 
	'Lebanon', 'Russian Federation', 'Slovak Republic', 'South Africa', 
	'USSR (former)');

@other = ('Old-style Arpanet', 'Non-profit organization', 'International', 
	'IP Address', 'Network');

my($country, $total, $grandtotal);
my(%revdomains) = reverse %domains;

    print <<EOM;
<H3><HR SIZE=5>Hits by Region<HR SIZE=5></H3>
<MULTICOL COLS=3>
EOM

print "<TABLE BORDER=1>\n";
print "<TR><TH COLSPAN=2><FONT SIZE=+1>Americas</FONT></TH></TR>\n";
print "<TR><TH>Country </TH><TH>Hits</TH></TR>\n";

$total = 0;
foreach $country (@americas) {
	$count = ($domains{(&DescribeDomain($country))} || 0);
	if ($country eq "United States") {
		$count += $domains{'edu'} + $domains{'com'} 
			+ $domains{'gov'} + $domains{'mil'};
	}
	print "<TR><TD>$country</TD><TD ALIGN=RIGHT>$count</TD></TR>\n" if $count;
	$total += $count;
}
print "<TR><TD><B>Total</B></TD><TD ALIGN=RIGHT><B>$total</B></TD></TR>\n";
print "</TABLE><P>\n";

print "<TABLE BORDER=1>\n";
print "<TR><TH COLSPAN=2><FONT SIZE=+1>Asia / Pac</FONT></TH></TR>\n";
print "<TR><TH>Country </TH><TH>Hits</TH></TR>\n";
$grandtotal += $total;
$total = 0;
foreach $country (@asia) {	
	$count = ($domains{(&DescribeDomain($country))} || 0);
	print "<TR><TD>$country</TD><TD ALIGN=RIGHT>$count</TD></TR>\n" if $count;
	$total += $count;
}
print "<TR><TD><B>Total</B></TD><TD ALIGN=RIGHT><B>$total</B></TD></TR>\n";
print "</TABLE><P>\n";

print "<TABLE BORDER=1>\n";
print "<TR><TH COLSPAN=2><FONT SIZE=+1>Europe</FONT></TH></TR>\n";
print "<TR><TH>Country </TH><TH>Hits</TH></TR>\n";

$grandtotal += $total;
$total = 0;
foreach $country (@europe) {
	$count = ($domains{(&DescribeDomain($country))} || 0);
	print "<TR><TD>$country</TD><TD ALIGN=RIGHT>$count</TD></TR>\n" if $count;
	$total += $count;
}
print "<TR><TD><B>Total</B></TD><TD ALIGN=RIGHT><B>$total</B></TD></TR>\n";
print "</TABLE><P>\n";

print "<TABLE BORDER=1>\n";
print "<TR><TH COLSPAN=2><FONT SIZE=+1>RIMEA</FONT></TH></TR>\n";
print "<TR><TH>Country </TH><TH>Hits</TH></TR>\n";
$grandtotal += $total;
$total = 0;
foreach $country (@rimea) {
	$count = ($domains{(&DescribeDomain($country))} || 0);
	print "<TR><TD>$country</TD><TD ALIGN=RIGHT>$count</TD></TR>\n" if $count;
	$total += $count;
}
print "<TR><TD><B>Total</B></TD><TD ALIGN=RIGHT><B>$total</B></TD></TR>\n";
print "</TABLE><P>\n";

print "<TABLE BORDER=1>\n";
print "<TR><TH COLSPAN=2><FONT SIZE=+1>Other</FONT></TH></TR>\n";
print "<TR><TH>Country </TH><TH>Hits</TH></TR>\n";
$grandtotal += $total;
$total = 0;
foreach $country (@other) {
	$count = ($domains{(&DescribeDomain($country))} || 0);
	print "<TR><TD>$country</TD><TD ALIGN=RIGHT>$count</TD></TR>\n" if $count;
	$total += $count;
}
print "<TR><TD><B>Total</B></TD><TD ALIGN=RIGHT><B>$total</B></TD></TR>\n";
print "</TABLE><P>\n";

$grandtotal += $total;

print "<TABLE BORDER=0>\n";
print "<TR><TH><FONT SIZE=+1>Grand total</FONT></TH><TH ALIGN=RIGHT><FONT SIZE=+1>$grandtotal</FONT></TH></TR>\n";
print "</TABLE>\n";

print "</MULTICOL>\n";

}

#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTablePageStats
#    Purpose  : Prints table of pages, sorted by number of accesses.
#-----------------------------------------------------------------------------#
sub PrintTablePageStats {
    # outputs a table of pages accessed, ranked in order of demand

    print <<EOM;
<P>
<FONT SIZE="+2">Page Demand</FONT>
<P>
Of the <B>$stats{'visits'}</B> visitors in this time period, each traversed an average of <B>$stats{'pages-visit'}</B> pages and downloaded an average of <B>$stats{'kbytes-visit'}</B> kilobytes.<P>

<TABLE BORDER=1 WIDTH=100% CELLSPACING=0>
<TR><TH ALIGN=LEFT>Page Location</TH><TH ALIGN=RIGHT>Accesses</TH><TH ALIGN=RIGHT>\% of total</TH></TR>
EOM

    my(@countOrderList) = sort byReverseNumber values %pages;
    my(@pageOrder) = ();

    my($pageCount) = $maxPagesToList - 1;
    $pageCount = $#countOrderList if ($maxPagesToList == -1 || 
				     ($maxPagesToList - 1) > $#countOrderList);

    while (@countOrderList) {	
	while (local($tag, $value) = (each %pages)) {
	    if ($countOrderList[0] == $value) {
		push (@pageOrder, $tag);
		shift @countOrderList;
	    }
	}
    }

    my(@favPages) = @pageOrder[0..$pageCount];

    foreach (@favPages) {
	my($Mpage) = $_;
	my($Mcount) = $pages{$_};

	my($pct) = 0.00;
	$pct = $Mcount / $stats{'pages'} * 100 if ($stats{'pages'} > 0);

	if ($sample) {
	    print "<TR><TD>";
	}
	else {
	    print "<TR><TD><A HREF=\"$siteBaseURL$Mpage\">";
	}

	my($description) = &DescribePage($Mpage);

	print "$description </A></TD>";
	
	print "<TD ALIGN=RIGHT>$Mcount </TD>\n";
	printf ("<TD ALIGN=RIGHT> %3.2f</TD>\n", $pct);
        print "<TD ALIGN=LEFT>";
	&PrintBarHoriz($pct,0);
        print "</TD></TR>\n";
    }
    print "</TABLE>\n";
}

#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableHourlyStats
#    Purpose  : Prints bar graph of accesses over the course of the current
#                   day. Thanks very much to Paul Blackman for his work on
#                   this function. 
#-----------------------------------------------------------------------------#
sub PrintTableHourlyStats {

    my($hour, $pct);

    print <<EOM;
<P>
<FONT SIZE="+2">Hourly Statistics</FONT>
<P>
<TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=1>
<TR><TD ALIGN=CENTER><TABLE CELLPADDING=0>
<TR>
EOM
    my($barwidth) = 10;
    foreach $hour ('00'..'23') {
	print "<TD VALIGN=BOTTOM>";
	if ($stats{'hours'}{$hour} > 0.9*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 9, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.8*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 8, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.7*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 7, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.6*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour},
			  $stats{'maxhouraccess'}, 6, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.5*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 5, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.4*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 4, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.3*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 3, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.2*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 2, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0.1*$stats{'maxhouraccess'}){
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 1, $barwidth);
	}
	elsif ($stats{'hours'}{$hour} > 0) {
	    &PrintBarVert($stats{'hours'}{$hour}, 
			  $stats{'maxhouraccess'}, 0, $barwidth); 
	}
	else { 
	    &PrintBarVert(0, $stats{'maxhouraccess'}, -1, $barwidth); 
	}
	print "</TD>";
    }
    print "</TR><TR>";
    foreach ('12', '1' .. '12', '1' .. '11') {
	print "<TH><FONT SIZE=-1>$_</FONT></TH>";
    }
    print <<EOM;
</TR>
<TR><TH VALIGN=TOP COLSPAN=12 BGCOLOR=\"#CCFFFF\">AM</TH>
<TH VALIGN=TOP COLSPAN=12 BGCOLOR=\"#FFFFCC\">PM</TH></TR>
</TABLE></TD>

<TD ALIGN=CENTER>
<TABLE BORDER=1 WIDTH=100% CELLSPACING=0>
<TR><TH ALIGN=RIGHT>Avg Hits/Hour</TH><TD ALIGN=RIGHT>$stats{'avghouraccess'}</TD></TR>
<TR><TH ALIGN=RIGHT>Max Hits/Hour</TH><TD ALIGN=RIGHT>$stats{'maxhouraccess'}</TD></TR>
<TR><TH ALIGN=RIGHT>Min Hits/Hour</TH><TD ALIGN=RIGHT>$stats{'minhouraccess'}</TD></TR>
<TR><TH ALIGN=RIGHT>Avg Hits/Day</TH><TD ALIGN=RIGHT>$stats{'avgdayaccess'}</TD></TR>
</TABLE>
<BR>
<TABLE>
EOM

    foreach $pct (0..9) {
	$img = 9 - $pct;
	print "<TR><TD ALIGN=LEFT><IMG SRC=\"$vertbar{$img}\" HEIGHT=8 WIDTH=10 BORDER=1 ALT=\"\"> &gt ";
	printf ("%d%%</TD>", (9 - $pct)*10);
	printf ("<TD ALIGN=RIGHT>%d hits</TD></TR>\n", (1 - $pct/10) * $stats{'maxhouraccess'});
    }

    print "</TABLE></TD></TR></TABLE>\n";
    print "<PRE><BLOCKQUOTE>";
    print "Hour\tHits\n";
    foreach $hour ('00'..'23') {
	printf("$hour\t%.02f\n", $stats{'hours'}{$hour});
    }
    print "</BLOCKQUOTE></PRE>\n";


}

#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableMonthWeekStats
#    Purpose  : Prints bar graph of weekly accesses over the course of the 
#                   month.
#-----------------------------------------------------------------------------#
sub PrintTableMonthWeekStats {

my($week, $pct);

    print <<EOM;
<P>
<FONT SIZE="+2">Weeks - Average accesses per week</FONT>
<P>
<TABLE BORDER=1 WIDTH=100%>
<TR><TD ALIGN=CENTER>
<TABLE BORDER=0>
<TR>
<TD VALIGN=TOP ALIGN=CENTER><B>Accesses<BR> $monthweekStats{($computedStats{'maxweekaccess'})}</B><BR>.<BR>.<BR>.</TD>
EOM
    my($barwidth) = 55;
    foreach $week (1 .. 5) {
	print "<TD VALIGN=BOTTOM ALIGN=CENTER>";
	&PrintBarVert($monthweekStats{$week}, 
		$monthweekStats{($computedStats{'maxweekaccess'})}, 
		9, 
		$barwidth);
	print "</TD>\n";
    }

    print "</TR>\n<TR>\n";
    print "<TD ALIGN=CENTER><B>0<BR>Week:</B></TD>\n";

    foreach $week (1 .. 5) {
	my($weekcount) = $monthweekStats{$week};
	$weekcount = 0 if $weekcount < 0;
	if ($week eq $computedStats{'maxweekaccess'}) {
  	    print "<TD ALIGN=CENTER><B>$weekcount<BR>$week</B></TD>\n";
        }
 	else {
  	    print "<TD ALIGN=CENTER>$weekcount<BR>$week</TD>\n";
	}
    }
    print <<EOM;
</TR></TABLE>
</TD></TR>

<TR><TD ALIGN=CENTER BGCOLOR="#FFFFFF">
<TABLE BORDER=0>

<TR><TH ALIGN=RIGHT>Average Accesses/Week:</TH><TD ALIGN=RIGHT>$computedStats{'accessesPerWeek'}</TD></TR>
<TR><TH ALIGN=RIGHT>Maximum Accesses/Week:</TH><TD ALIGN=RIGHT>$monthweekStats{($computedStats{'maxweekaccess'})}</TD><TD> during week $computedStats{'maxweekaccess'}.</TD></TR>
<TR><TH ALIGN=RIGHT>Minimum Accesses/Week:</TH><TD ALIGN=RIGHT>$monthweekStats{($computedStats{'minweekaccess'})}</TD><TD> during week $computedStats{'minweekaccess'}.</TD></TR>

</TABLE>
</TD></TR>

</TABLE>
EOM

}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableMonthDayStats
#    Purpose  : Prints bar graph of daily accesses over the course of the 
#                   month.
#-----------------------------------------------------------------------------#
sub PrintTableMonthDayStats {

my($day, $pct);

    print <<EOM;
<P>
<FONT SIZE="+2">Months - Average hits per month</FONT>
<P>
<TABLE BORDER=1 WIDTH=100%>
<TR><TD ALIGN=CENTER>
<TABLE BORDER=0>
<TR>
<TD VALIGN=TOP ALIGN=CENTER><B>Hits<BR>$monthdayStats{($computedStats{'maxdayaccess'})}</B><BR>.<BR>.<BR>.</TD>
EOM
    my($barwidth) = 8;
    my($max) = $monthdayStats{($computedStats{'maxdayaccess'})};
    foreach $day ('01' .. '31') {
	print "<TD VALIGN=BOTTOM ALIGN=CENTER CELLPADDING=0>";
	if    ($monthdayStats{$day} > 0.9 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 9, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.8 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 8, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.7 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 7, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.6 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 6, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.5 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 5, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.4 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 4, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.3 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 3, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.2 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 2, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0.1 * $max) {
	    &PrintBarVert($monthdayStats{$day}, $max, 1, $barwidth);
	}
	elsif ($monthdayStats{$day} > 0) {
	    &PrintBarVert($monthdayStats{$day}, $max, 0, $barwidth); 
	}
	else { 
	    &PrintBarVert(0, $max, -1, $barwidth); 
	}
	print "</TD>\n";
    }

    print "</TR>\n<TR>\n";
    print "<TD ALIGN=CENTER><B>0<BR> Day:</B></TD>\n";
    foreach $day ('01' .. '31') {
	my($dayval) = $monthdayStats{$day};	
	$dayval = 0 if ($dayval < 0);
	$day = int($day);

	if ($day == $computerStats{'maxdayaccess'}) {
    	    print "<TD ALIGN=CENTER><FONT SIZE=-3><B>$day</B></FONT></TD>\n";
	}
	else {
       	    print "<TD ALIGN=CENTER><FONT SIZE=-3>$day</FONT></TD>\n";
	}

    }

    print <<EOM;
</TR></TABLE>
</TD></TR>
<TR><TD ALIGN=CENTER BGCOLOR="#FFFFFF">
<TABLE BORDER=0>
<TR><TH ALIGN=RIGHT>Average Hits/Day:</TH><TD ALIGN=RIGHT>$computedStats{'accessesPerDay'}</TD></TR>
<TR><TH ALIGN=RIGHT>Maximum Hits/Day:</TH><TD ALIGN=RIGHT>$monthdayStats{($computedStats{'maxdayaccess'})}</TD><TD> on day $computedStats{'maxdayaccess'}.</TD></TR>
<TR><TH ALIGN=RIGHT>Minimum Hits/Day:</TH><TD ALIGN=RIGHT>$monthdayStats{($computedStats{'mindayaccess'})}</TD><TD> on day $computedStats{'mindayaccess'}.</TD></TR>
</TABLE>
</TD></TR>
</TABLE>
EOM

    print "<P>\n<CENTER>\n<TABLE>\n";
    print "<TR><TH ALIGN=RIGHT> Day </TH> <TH ALIGN=RIGHT>Hits </TH></TR>\n";
    foreach $day ('01' .. '31') {
	my($dayval) = $monthdayStats{$day};	
	$dayval = 0 if ($dayval < 0);
	$day = int($day);
	print "<TR><TD ALIGN=RIGHT>$day</TD><TD ALIGN=RIGHT>$dayval</TD></TR>\n";
    }
    print "</TABLE>\n</CENTER>\n";
}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableDayStats
#    Purpose  : Prints bar graph of accesses by day.
#-----------------------------------------------------------------------------#
sub PrintTableDayStats {

    my($day, $pct);

    print <<EOM;
<P>
<FONT SIZE="+2">Daily Statistics</FONT>
<P>
<TABLE BORDER=1 CELLSPACING=0 WIDTH=100%>
<TR><TD ALIGN=CENTER>
<TABLE BORDER=0>
<TR>
<TD VALIGN=TOP ALIGN=CENTER><B>Hits<BR>$stats{'maxdayaccess'}</B><BR>.<BR>.<BR>.</TD>
EOM
    my($barwidth) = 8;
    my($max) = $stats{'maxdayaccess'};
    foreach $day (sort keys %{ $stats{'days'} }) {
	print "<TD VALIGN=BOTTOM ALIGN=CENTER CELLPADDING=0>";
	if    ($stats{'days'}{$day} > 0.9 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 9, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.8 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 8, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.7 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 7, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.6 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 6, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.5 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 5, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.4 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 4, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.3 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 3, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.2 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 2, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0.1 * $max) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 1, $barwidth);
	}
	elsif ($stats{'days'}{$day} > 0) {
	    &PrintBarVert($stats{'days'}{$day}, $max, 0, $barwidth); 
	}
	else { 
	    &PrintBarVert(0, $max, -1, $barwidth); 
	}
	print "</TD>\n";
    }

    print "</TR>\n<TR>\n";
    print "<TD ALIGN=CENTER><B>0<BR> Day:</B></TD>\n";
    foreach $day (sort keys %{ $stats{'days'} }) {
	my($dayval) = $stats{'days'}{$day};	
	$dayval = 0 if ($dayval < 0);
	$day =~ /(\d\d\d\d)(\d\d)(\d\d)/;
	$day = int($2) . '/' . int($3) if $2 && $3;

	if ($day == $computedStats{'maxdayaccess'}) {
    	    print "<TD ALIGN=CENTER><FONT SIZE=-3><B>$day</B></FONT></TD>\n";
	}
	else {
       	    print "<TD ALIGN=CENTER><FONT SIZE=-3>$day</FONT></TD>\n";
	}

    }
    print <<EOM;
</TR></TABLE>
</TD></TR>
<TR><TD ALIGN=CENTER BGCOLOR="#FFFFFF">
<TABLE BORDER=0>
<TR><TH ALIGN=RIGHT>Average Hits/Day:</TH><TD ALIGN=RIGHT>$stats{'avgdayaccess'}</TD></TR>
<TR><TH ALIGN=RIGHT>Maximum Hits/Day:</TH><TD ALIGN=RIGHT>$stats{'maxdayaccess'}</TD><TD> on day $stats{'maxday'}.</TD></TR>
<TR><TH ALIGN=RIGHT>Minimum Hits/Day:</TH><TD ALIGN=RIGHT>$stats{'mindayaccess'}</TD><TD> on day $stats{'minday'}.</TD></TR>
</TABLE>
</TD></TR>
</TABLE>
EOM

    print "<P>\n<CENTER>\n<TABLE>\n";
    print "<TR><TH ALIGN=RIGHT> Day </TH> <TH ALIGN=RIGHT> Accesses </TH></TR>\n";
    foreach $day (sort keys %{ $stats{'days'} }) {
	my($dayval) = $stats{'days'}{$day};	
	$dayval = 0 if ($dayval < 0);
	$day = int($day);
	print "<TR><TD ALIGN=RIGHT>$day</TD><TD ALIGN=RIGHT>$dayval</TD></TR>\n";
    }
    print "</TABLE>\n</CENTER>\n";
}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableSummaryStats
#    Purpose  : Prints a table which contains general statistics.
#-----------------------------------------------------------------------------#
sub PrintTableSummaryStats {

    my($extra);
    if ($stats{'pages-visit'} < 1) {
	$extra = '<P><FONT SIZE="-1"><B>Note:</B> A pages per visit average that is below 1 indicates a large number of non-HTML hits linked outside the site.</FONT>';
    }

    print <<EOM;
<P>
<FONT SIZE="+2">Summary</FONT>
<P>
During this period, there were <B>$stats{'pages'}</B> accesses and <B>$stats{'hits'}</B> hits. Each vistor viewed an average of <B>$stats{'pages-visit'}</B> pages and downloaded <B>$stats{'kbytes-visit'}</B> kilobytes. Hosts visited <B><I>$siteName</I></B> an average of <B>$stats{'visits-uniq'}</B> times, for a total of <B>$stats{'visits'}</B> unique visits by <B>$stats{'uniquehosts'}</B> unique hosts. 
<P>
There were <B>$stats{'visits-hour'}</B> visits per hour, and a sustained rate of <B>$stats{'hits-hour'}</B> hits per hour.
<P> 
Of these visits, <B>$stats{'intvisits'} ($stats{'intvisitspct'}\%)</B> originated from <I><B>$orgname</B></I>, and
<B>$stats{'extvisits'} ($stats{'extvisitspct'}\%)</B> were from outside networks.
<P>
<I><B>$siteName</B></I> served <B>$stats{'mbytes'}</B> megabytes of information during this time period.
$extra
<P>

<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 CELLPADDING=2>
<TR><TH> </TH><TH ALIGN=RIGHT>Count</TH><TH ALIGN=RIGHT>% of total</TH><TH> </TH></TR>
<TR><TH ALIGN=RIGHT>Accesses from $orgname</TH>
<TD ALIGN=RIGHT>$stats{'intaccesses'}</TD>
<TD ALIGN=RIGHT>$stats{'intaccessespct'}\%</TD>
EOM
    print "<TD ALIGN=LEFT>";
    &PrintBarHoriz($stats{'intaccessespct'}/2,0);
    print "</TD>";
    print <<EOM;
</TR>
<TR><TH ALIGN=RIGHT>Outside Accesses</TH>
<TD ALIGN=RIGHT>$stats{'extaccesses'}</TD>
<TD ALIGN=RIGHT>$stats{'extaccessespct'}\%</TD>
EOM


    print "<TD ALIGN=LEFT>";
    &PrintBarHoriz($stats{'extaccessespct'}/2,0);
    print "</TD>";
    print <<EOM;
</TR>
<TR><TH ALIGN=RIGHT>Total Accesses</TH>
<TD ALIGN=RIGHT>$stats{'pages'}</TD><TD ALIGN=RIGHT>100%</TD>
EOM
    print "<TD ALIGN=LEFT>";
    &PrintBarHoriz(50,1);
    print "</TD>";

print <<EOM;
</TR>
<TR><TH ALIGN=RIGHT>Total hits on site</TH>
<TD ALIGN=RIGHT>$stats{'hits'}</TD>
<TD ALIGN=RIGHT></TD>
</TR>
</TABLE>
EOM

}


#-----------------------------------------------------------------------------#
#  AccessWatch function - PrintTableDetailsStats
#    Purpose  : Prints verbose table of statistics details.
#-----------------------------------------------------------------------------#
sub PrintTableDetailsStats {

    print <<EOM;
<H3><HR SIZE=5>Hosts by Subdomain<HR SIZE=5></H3>

<PRE>
<B>Count\tHost</B>

EOM

    my($subdom, $count, %subdoms);
    while (($subdom, $count) = each %hosts) {
        $subdom =~ /([^\.]+)\.([^\.]+)$/i;
	$subdoms{"$1\.$2"} += $count;
    }

    my(@hostsAR) = sort byDomain (keys %subdoms);
    my($host);

    foreach $host (@hostsAR) {
	print "$subdoms{$host}\t<CODE>$host</CODE>\n";
    }		       
    print <<EOM;
</PRE>
EOM

}	

#-----------------------------------------------------------------------------#
#  AccessWatch sort routine - byDomain
#    Purpose  : Sort subroutine for sorting an array by domain suffix.
#-----------------------------------------------------------------------------#
sub byDomain { 
    my($aHost) = "";
    my($bHost) = "";
    my(@aTemp, @bTemp) = ();
    if ($a =~ /[^0-9].*\.[^0-9].*/) { 
	@aTemp = reverse split(/\./, $a); 
	foreach (@aTemp) { $aHost .= $_ };
    }
    else {
	$aHost = "zzzzzzz".$a;
    }
    if ($b =~ /[^0-9].*\.[^0-9].*/) { 
	@bTemp = reverse split(/\./, $b);
	foreach (@bTemp) { $bHost .= $_ };
    }
    else {
	$bHost = "zzzzzzz".$b;
    }
    return ($aHost cmp $bHost);
}

#-----------------------------------------------------------------------------#



#-----------------------------------------------------------------------------#
#  AccessWatch function - DescribePage
#    Purpose  : Takes a virtual URL as a parameter, and returns a detailed
#                   description as specified in the page descriptions file 
#                   provided. Caches file into memory if used more than once.
#-----------------------------------------------------------------------------#
sub DescribePage {

    my($url) = $_[0];
    my($description) = $url;

    if (!(keys %pageDesc)) {
	open (DESC, "<$pagedescriptions") || return $url;
#	    die "Page Desc. Error: Couldn't open $pagedescriptions... $!";
	while (<DESC>) { 
	    /^(\S+)\s+\"(.*)\"$/;
	    $pageDesc{$1} = $2;
	}
	close(DESC);
    }
    if ($pageDesc{$url}) {
	$description = $pageDesc{$url};
    }

    if ($truncate && length($url) > $toolong && $description eq $url) {
        $description = reverse $url;
	while (length($description) > $toolong) { chop $description; }
	$description = "..." . reverse $description;
    }
    return $description;
}				


1;