#!/opt/gnu/bin/perl
# This script is Copyright 1995, Steven Dick <ssd@mae.engr.ucf.edu>
# Copy this freely, use as you like, but please send me e-mail.

# struct counter_stat {
#   long count;                          /* total hits */
#   long weekly;                         /* hits since last reset */
#   long creation, lastaccess,lastreset; /* timestamps */
# };
$DBformat = "lllll";
#$base="/tmp/counter";
$base="/home/system/www/c-";

dbmopen(%keys,"${base}counters",666);

if (@ARGV){
    foreach $key (@ARGV){ 
      if (defined($keys{$key})){ 
        ($val,$weekly,$creation,$lastaccess,$lastreset) = unpack($DBformat,$keys{$key});
        print $val,"\t",$key, "\n" 
      }
    }
} else {
  while (($key,$pval) = each %keys) {
    ($val,$weekly,$creation,$lastaccess,$lastreset) = unpack($DBformat,$pval);
    print $val,"\t",$weekly,"\t",$key;
    if ($lastreset) {
      print "\t",$weeekly / ((time-$lastreset)/86400),"\n";
    } else { print "\n"; }
  }
}
dbmclose(%keys);
