#! /usr/local/bin/perl
# 
# rmbyaddr deletes an entry from real2addr database given the addr
#
# Usage: rmbyaddr <target-addr>
#
if ( $#ARGV != 0 ) {
	print STDERR "Usage: rmbyaddr <address>\n";
	exit(1);
}

$target_addr = $ARGV[0];

dbmopen(r2a,"/usr/personals/real2alias",0600) 
	|| die "$0: can't dbmopen real2alias: $!\n";
open(LOG,">>/usr/personals/REMOVED");
$value = $r2a{$target_addr};
delete $r2a{$target_addr};
if (defined($value)) {
	print LOG "$value:$target_addr\n";
	print "Removed $value:$key\n";
}
dbmclose(r2a);
close(LOG);
exit(0);
