Current File : //proc/24011/root/usr/local/scripts/fw.pl

#!/usr/local/cpanel/3rdparty/bin/perl

use DBI;

$immed = shift;

sleep(rand(200)) if ($immed eq "");

$host = `hostname`;
chomp($host);
print "$host\n";

$db = 'fw';
$sqlserver = '94.46.20.116';
$user = 'remote';
$pass = 'aiqu5Iah5EiD4deG1eenih';


$dbh = DBI->connect("DBI:mysql:$db;host=$sqlserver",
                       $user, $pass, { RaiseError => 1 } ) or
   die ( "Couldn't connect to database: " . DBI->errstr );

$sql = "DELETE FROM fw WHERE host=?";
$sth = $dbh->prepare($sql);
$sth->execute($host);

@output = `cat /etc/valiases/*`;

$substr1="mail.ua";

foreach $line ( @output ) {

	chomp($line);
	($domain,$fw) = split(/:/,$line);
	@forw = split(/,/,$fw);
	foreach $f (@forw){
                next if (length($f) <5 );
		next if ($f =~ "autorespo");
		next if ($f =~ "mailman");
		next if ($domain eq "\*");
		$f =~ s/ +//;
		$domain =~ s/ +//;

		(undef,$adomain) = split(/\@/,$domain);
		(undef,$afw) = split(/\@/,$f);
		next if ($adomain eq $afw);

		        $sql = "INSERT INTO fw(host,dominio,forward) VALUES(?,?,?)";
		        $sth = $dbh->prepare($sql);
		        $sth->execute($host,$domain,$f);

	}
}