#!/usr/bin/perl
#Another cool little scripts by BlueDraco
print "Updating smail routing tables....";
open (DOMA, "/etc/domainalias");
open (DOMD, ">/etc/smail/domainaddr.tmp");
while (<DOMA>) {
	if ($_ ne "" && $_ ne "\n" && $_ ne " ") {
		($addy,$delv) = split (/ /, $_);
		($ast,$host) = split (/\@/, $addy);
		if ($host ne "" && $host ne "\n") {
			print DOMD "$host $host!%s\n";
		}
	}
}
close (DOMA);
close (DOMD);
system("cat /etc/smail/domainaddr.tmp | sort | uniq > /etc/smail/domainaddr");
print "Done\n";