#!/afs/athena/contrib/perl/perl

if ($#ARGV > 0) {
	print STDERR "Usage: $0 <filename>\n";
	exit (1);
}
if ($#ARGV == 0) {
	$rawdata = $ARGV[0];
} else {
	$rawdata = "/mit/sipb/lib/@sys/findprog.db";
}
$dbmdata = $rawdata; # dbm routines add .dir,.pag to filename.

open (RAW, "<$rawdata") || die "$0: error opening $rawdata: $!";
unlink "$dbmdata.dir";
unlink "$dbmdata.pag";
dbmopen (progdb, $dbmdata, 0666) || die "$0: error in dbmopen(): $!";
while (<RAW>) {
	/^([^|]*)\|(.*)$/;
	$progdb{$1} = $2;
}
close (RAW);
dbmclose (progdb);