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

#$base="/tmp/counter";
$base="/home/system/www/c-";

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

sub showkey {
  local($key,$val)=@_;
  local($t,$q,$hits,$tags,$hitcount,$tagcount,@lengths);
  ($hits,$tags) = unpack("lC",$val);
  ($hitcount,$tagcount,@lengths) = unpack("lCC${tags}a*",$val);
  $str = pop(@lengths);
  $t = "";
  $q=0;
  foreach (@lengths){
    $t .= substr($str,$q,$_) . '|';
    $q += $_;
  }
  print $hits,' ',$tags,"\t",$key, "\t",$t,"\n"; 
#  print $hits,"\t",$key, "\t[$tags] ",join('|',@lengths)," '",$str,"'\n"; 
}


if (@ARGV){
    foreach $key (@ARGV){ 
      if (defined($keys{$key})){ 
	&showkey($key,$keys{$key});
      }
    }
} else {
  while (($key,$pval) = each %keys) {
    &showkey($key,$pval);
  }
}
dbmclose(%keys);
