#!/bin/perl5

use Text::ParseWords;
use CGI;

print "Content-type: text/html\n\n";
open (Stuff, "Data/Statistics.txt");
@pageviews =;

print "\n";

$loc = 0;
$count = 0;
%info = ();

while ($pageviews[$loc] != NULL)
{
  $count++;
  $line = $pageviews[$loc];
  ($date, $time, $ip, $page) = split (/,/,$line);
  $place = 0;

#################################################
#   Get the data into structure for analysis 
#
#  print "Date:   $date 
\n";
#  print "Time:   $time 
\n";
#  print "IP:     $ip 
 \n"; 
#  print "Locale: $page 
\n";
    

##################################################
# Do the analyis
#
  $info{$date}++;
  $info{$time}++;
  $info{$ip}++;
  $info{$page}++;
  $loc++;
  
}


print "Done Analyzing
\n";
print "
Analysis

\n";
print "Page hits: $count
\n";

print table
       (
        {-border=>0},
        Tr
        (
         {-align=>left, -valign=top},
         [
          td(['Daily',   'Monthly', 'Yearly']),
          td(['numbers', 'numbers', 'numbers'])
         ]
        )
       );

print "\n";
print "\n";
print "";

print "
";
print "By Day:\n";
print "
";
print "By Month:\n";
print "
";
print "By year:\n";
print "
\n";
for ($i=1; $i <= 12; $i++)
  {
   for ($j=1; $j <= 31; $j++)
    {  
     if ($i < 10) {$i2 = "0$i";}
     else         {$i2 = "$i";}
     if ($j < 10) {$j2 = "0$j";}
     else         {$j2 = "$j";}
     $entry = join ('/', $i2,$j2,2000);
     if ($info{$entry} != NULL)
      {
       print "$i2/$j2/2000: $info{$entry}
\n";
      } 
    }
  }
print "
";
for ($i=1; $i <= 12; $i++)
  {
   $monthcount = 0;
   for ($j=1; $j <= 31; $j++)
    {
     if ($i < 10) {$i2 = "0$i";}
     else         {$i2 = "$i";}
     if ($j < 10) {$j2 = "0$j";}
     else         {$j2 = "$j";}
     $entry = join ('/', $i2,$j2,2000);
     $monthcount += $info{$entry};
    }
   print "$i2/2000: $monthcount
\n";
  
  }


print "
";
print "
\n";

print "";
close (Stuff);