#!/usr/bin/perl

#   Modified to handle multiple pages: Adam J. Griff, Ph.D. (griff@comptuer.org)

# This is a companion program to the "counter.xbm" script.  
# When invoked, it responds with some HTML that it builds on
# the fly that give usage statistics.

# This script was written by Michael Morse (mmorse@nsf.gov) at
# the National Science Foundation.  Feel free to modify and use
# it any way you wish.  You will certainly have to modify
# initialize(), since most of the NSF-specific stuff is there.
# Also, createHTML() has some more NSF-specific stuff (like my
# address!), that you'll want to change.

#  REQUIRED CHANGES
#  Modified by Griff to handle multiple pages.
#  Just call the counter followed by a ?unique_page_name.
#  Change the directory path for $serverRoot in the init procedure to the
#  path on your server
#  for example $serverRoot = "/home/www/htdocs"

   use POSIX;
   use NDBM_File;

   &initialize;
   &getDate;
   &getNumbers;
   &createHTML;
exit(0);

sub initialize {
   $serverRoot = "/home/www/www.griffmonster.com/htdocs";
   $port = $ENV{SERVER_PORT};
   $pagename = $ENV{QUERY_STRING};
   $forString = $pagename;
   $theString = $pagename;
   $logFiles = "$serverRoot/logs/counter";
   $dbmFile =   "$serverRoot/logs/hosts";
   $counterFile = "$logFiles.$pagename.txt";
   $hostsFile = "$logFiles.$pagename.hosts.txt";
}


sub createHTML {
print<<EOMEOM;
Content-type: text/html

<TITLE>Usage Statistics for $forString</TITLE>
<H1>Usage Statistics for $forString</H1>
<HR>
<H2>Numbers That May Interest You</H2>
As of now ($date)
<UL>
<LI>
$theString has been retrieved from the server 
<B>$count</B>.
<LI>
A total of 
<B>$hosts</B> 
different computers have retrieved $theString.
Since most computers that run WWW clients are single-user, this 
number is pretty close to the number of different users.
<LI>
Your computer ($host) has retrieved $theString
<B>$you</B> 
times.
</UL>
<hr>
The odometer counter was adapted and enhanced by <a href="http://www.griffmonster.com/~griff">Adam J. Griff, Ph.D.</a> from a similar program used at <a href="http://www.larc.nasa.gov/">
NASA Langley Research Center.
</A>
EOMEOM

print "<h2>Unique visitors</h2>";
print "<table border=0 cellpadding=5 cellspacing=0 ";

tie(%HOSTS, 'NDBM_File', "$dbmFile.$pagename", 1, 0);
foreach $key (sort sortNumAlpha (keys %HOSTS)) {
  print "<tr><td>", $key, "</td><td>", $HOSTS{$key} , "</td></tr>\n";
}
untie(%HOSTS);
print "</table>\n";

}

sub sortNumAlpha {
  if ($HOSTS{$b} eq $HOSTS{$a}) {
    $a cmp $b;
  } else {
    $HOSTS{$b} <=> $HOSTS{$a};
  }
}

sub getNumbers {
   open(COUNTERFILE,"<$counterFile") || die "$0: can\'t open $counterFile: $!\n";
   $count = <COUNTERFILE>;
   chop $count;
   close(COUNTERFILE);
   open(COUNTERFILE,"<$hostsFile") || die "$0: can\'t open $hostsFile: $!\n";
   $hosts = <COUNTERFILE>;
   chop $hosts;
   close(COUNTERFILE);

   
   $host_addr = $ENV{REMOTE_ADDR};
   if (defined $ENV{REMOTE_HOST}) {
     $host = $ENV{REMOTE_HOST};
   } else {
     open(TEMP, "/usr/bin/host $host_addr 2>&1|"); 
     while ((!defined $host) && ($temp = <TEMP>)) {
       if ($temp =~ /domain name pointer\s*(\S*)\./) {
	 $host = $1;
       }
     }
     close (TEMP);
   }
  
  ($host = $host_addr) if (!defined $host);

   tie(%HOSTS, 'NDBM_File', "$dbmFile.$pagename", 1, 0);
   $you = $HOSTS{$host};
   untie(%HOSTS);

   $count =~ s/^0+//;
   $hosts =~ s/^0+//;
   $you =~ s/^0+//;
   
}



sub getDate{
   @month_names = ("January","February","March","April","May","June",
           "July","August","September","October","November","December");
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   
   $date = sprintf("%s $mday, %04d, $hour:%02d",$month_names[$mon],($year+1900),$min);
}