#!/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.

$now = time;

# struct counter_stat {
#   long count;                          /* total hits */
#   long weekly;                         /* hits since last reset */
#   long creation, lastaccess,lastreset; /* timestamps */
# };
$DBformat = "lllll";

dbmopen(%keys,"/home/system/www/c-counters",666);

while (<>)
{
  ($val,$key) = split(' ');
  if (defined($keys{$key})){
    ($oldval,$weekly,$creation,$lastaccess,$lastreset) = unpack($DBformat,$keys{$key});
    $keys{$key} = pack($DBformat,$val,$weekly,$creation,$lastaccess,$lastreset);
    print $key, ' = ', $val, " (was $oldval)\n";
  } else {
    $keys{$key} = pack($DBformat,$val,0,$now,0,$now);
    print $key, ' = ', $val, " (was undefined)\n";
  }
}
dbmclose(%keys);
