[gonzo]

http://www.gofuckyourself.com/showthread.p...65&page=1&pp=50

Someone ran their mouth too long and got busted WIDE open!

This is my favorite part....

#!/usr/bin/perl
# database definition

$database = "nat377";
$user = "sicadm";
$pass = "sicadmin";
$dbname = "executive_earnings";
sub get_db {


$db2 = Mysql->Connect($database, $dbname, $user, $pass);
if (!$db2) {
$email_warn2($db2->errmsg(),"Connect Error",$database);
}

return ($db2);
}


sub email_warn2 {
my $error = shift;
my $query = shift;
my $account = shift;

open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "From: \n";
#print MAIL "To: adrian\@shawinternet.com,6043145946i\@msg.telus.co m\n";
print MAIL "To: adrian\@shawinternet.com,nels\@shawinternet.com\n";
print MAIL "Cc: \n";
print MAIL "Subject: Database error has error: $account\n\n";
print MAIL "An error has occured in the replication.\n\n";
print MAIL "Details about the error:\n\n";
print MAIL "$error\n\n";
print MAIL "SQL:\n";
print MAIL "$query";
close(MAIL);
}