#! /usr/local/bin/perl
# 
# addalias adds an entry to the real2addr database given the address
# and alias
#
# Usage: addalias <address> <alias>
#
if ( $#ARGV != 1 ) {
	print STDERR "Usage: addalias <address> <alias>\n";
	exit(1);
}

$address = $ARGV[0];
$alias = $ARGV[1];

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

$r2a{"$address"} = $alias;

dbmclose(r2a);
exit(0);
