The new script:
#!/usr/bin/perl
use Getopt::Std;
use Text::Wrap;
use Net::SMTP;
getopts ("S:s:g:h:t:l:u");
unless ($opt_S)
{$summary=<STDIN>;
chomp $summary;}
if($opt_S)
{$summary = $opt_S;}
$mailaddrs = join (',', @ARGV);
$ALERT = $opt_u ? "UP" : "DOWN";
$t = localtime($opt_t);
($wday,$mon,$day,$tm) = split (/\s+/, $t);
$MAIL .= <<EOF;<br>
From: support\@cnsp.com
To: $mailaddrs
Subject: SERVER $ALERT $opt_g [ $opt_s ] ($summary) ($wday $mon $day $tm)
X-Mailer: $0
EOF
$MAIL .= <<EOF;<br>
Server $opt_g [${opt_s}] is $ALERT. Time noticed: $t
EOF
$MAIL .= "Summary output : $summary";
$MAIL .= "\n";
$MAIL .= <<EOF;
<br>
Detailed text (if any) follows:
-------------------------------
EOF
while (<STDIN>) {
$MAIL .= $_;
}
$mailmethod = Net::SMTP->new('209.155.168.8');
$mailmethod->mail("support\@cnsp.com");
$mailmethod->to($mailaddrs, { SkipBad => 1 });
$mailmethod->data($MAIL);
$mailmethod->quit();
|
