http://www.gofuckyourself.com/showthread.p...65&page=1&pp=50 (http://www.gofuckyourself.com/showthread.php?t=483565&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: <admin\@shawinternet.com>\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: <jim\@shawinternet.com>\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);
}