#! /usr/local/bin/perl
# 
# rebuild rebuilds the real2alias database given the output of listr2a
# as stdin
#
# Usage: rebuild < <listr2a-output>
#
dbmopen(r2a,"/usr/personals/real2alias",0600) 
	|| die "$0: can't dbmopen real2alias: $!\n";

while (<>) {
	($alias,$address) = split(/:/);
	chop $address;
	$r2a{"$address"} = $alias;
}
dbmclose(r2a);
exit(0);
