#!/usr/local/bin/perl
#
# List Database.
#
# (c) Otmar Lendl (lendl@cosy.sbg.ac.at)
#

#
# Location of the database
#
$offenders = $ENV{"HOME"} . "/News/complaindb";

dbmopen(%OFF, $offenders, 0644) || die "Can't open database.";

while(($user,$t) = each %OFF)
	{
	$days = int( (time() - $t) / (3600*24));
	print "$user\t$days days ago.\n";
	}
dbmclose(OFF);