#! /usr/local/bin/perl
# 
# rmbyalias deletes an entry from real2alias database given the alias
#
# Usage: rmbyalias <alias>
#
umask 0077;

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

while (($key,$value) = each %r2a) {
	if ( "$key" =~ "acs-" ) {
		print "$value:$key\n";
	}
}

dbmclose(r2a);
exit(0);
