#!/usr/local/cpanel/3rdparty/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 " " ) {
        my ( $addy, $delv ) = split( / /,  $_ );
        my ( $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";