#!/usr/local/bin/perl
#
# 960613/iha - new file
#

if ( ! @ARGV ) {
	print "usage: read_dbm filename [all]  |  [user1] [user2] ...\n";
	exit
	}
$filename=shift @ARGV;


use GDBM_File;

tie %DBM ,'GDBM_File', $filename, &GDBM_READER, 0640;
#if (!dbmopen(%DBM, $filename, undef)) {
#    print "No such file $filename\n";
#    exit;
#}

if ($ARGV[0] eq "all") {
	while (($key, $val) = each %DBM) {
		print "\"", $key, "\"",  " ", "\"", $val, "\"", "\n";
#	    print "$val\n";
	}
}
else {
	foreach $i (@ARGV) {
		if ( $DBM{$i} eq "" ) {
			print "No entry for ", $i, "\n";
		}
		else {
#			print "\"", $i, "\"",  " ", "\"", $DBM{$i}, "\"", "\n";
		    print "$DBM{$i}\n"; 
		}
	}
}
untie %DBM



