#! /usr/local/bin/perl
# 
# rmbyalias deletes an entry from real2alias database given the alias
#
# Usage: rmbyalias <alias>
#
umask 0077;
if ( $#ARGV != 0 ) {
	print STDERR "Usage: rmbyalias <alias>\n";
	exit(1);
}

$target_alias = $ARGV[0];

dbmopen(r2a,"/usr/personals/real2alias",0600) 
	|| die "$0: can't dbmopen real2alias: $!\n";
open(LOG,">>/usr/personals/REMOVED");

while (($key,$value) = each %r2a) {
	if ( "$value" eq "$target_alias" ) {
		delete $r2a{$key};
		print LOG "$value:$key\n";
		print "Removed $value:$key\n";
	}
}

dbmclose(r2a);
close(LOG);
exit(0);
