#!/usr/bin/perl

# this is broken, only works whith perl4

dbmopen(ifdbm,"ifdbm",0666);

open(alias,"/usr/lib/ifmail/Alias") || die "Cannot open alias file";
while(<alias>) {
	unless (/^#/) {
		/([^ ]*) *(.*) *$/;
		print $1, "--", $2, "\n";
		$ifdbm{$2} = $1;
	}
}

dbmclose(ifdbm);
