perl Net:SMTP mailsend

刚写一个OM 利用模板ACTION发邮件告警的脚本，现在记录一下：在OVO模板中加入相关TEXT内容到命令后当作参数处理。

djt_nm# more mailsend.pl
#!/usr/bin/perl -w
use Net::SMTP;
my $msg=$ARGV[0];
$smtp = Net::SMTP->new('172.1.1.1');
$smtp->auth(test, 1);
$smtp->mail("test");
$smtp->to('aaaa','bbb');
$smtp->data();
$smtp->datasend("To:CDE\n");
#$smtp->datasend("Cc:GGG\n");
$smtp->datasend("Subject:ovo_alarm \n");
$smtp->datasend("From:macerzou \n");
$smtp->datasend("\n");
$smtp->datasend("The ovo messages is $msg\n");
$smtp->dataend();
$smtp->quit;
                                              
djt_nm#