zabbix:/etc/zabbix/alertscripts# cat smail.pl
#!/usr/bin/perl
use Net::SMTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
# mail_user should be your_mail@163.com
sub send_mail{
if ( $#ARGV < 2 ){
print "please input 收件人 主题 内容!\n";
exit(-1);
}
my $name= $ARGV[2];
my $CurrTime = time2iso(time());
my $to_address = shift;
my $mail_user = 'zhaoyangjian@zjcap.cn';
my $mail_pwd = 'xxxxxx';
my $mail_server = 'smtp.exmail.qq.com';
my $from = "From: $mail_user\n";
my $subject = "Subject:$ARGV[1]";
my $info = "$CurrTime--$name ";
my $message = <
zabbix 调用的发邮件脚本
最新推荐文章于 2024-04-13 16:09:07 发布
这个Perl脚本`smail.pl`用于Zabbix的邮件通知,它通过Net::SMTP模块连接到smtp.exmail.qq.com服务器进行认证并发送邮件。用户需要提供收件人、主题和内容作为参数。邮件的发件人设置为'zhaoyangjian@zjcap.cn',并使用提供的用户名和密码进行SMTP身份验证。
摘要由CSDN通过智能技术生成