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

if ( ! @ARGV ) {
    print "usage: read_dbm uid name\n";
    exit
}

$uid=shift @ARGV;
$name=shift @ARGV;

print "Conver from ", $uid, " to ", $name, "\n";
if (!dbmopen(%UIDBM, $uid, undef)) {
    print "No such file $uid\n";
    exit;
}

if (!dbmopen(%NAMEDBM, $name, 0644)) {
    print "cannot open or create $name\n";
    
    exit;
}

while (($key, $val) = each %UIDBM) {
    ($namekey) = split(/:/,$val);
#    print "newkey: ", $namekey, " old\"", $key, "\"",  " ", "\"", $val, "\"", "\n";
    $NAMEDBM{$namekey} = $val;
}


dbmclose(UIDBM);
dbmclose(NAMEDBM);
