keepalived双机热备实现故障时发送邮件通知

#!/usr/bin/perl -w
use Net::SMTP_auth;
use strict;
my $mailhost = 'smtp.163.com';
my $mailfrom = 'test@163.com';
my @mailto   = ('123456@139.com');
my $subject  = 'keepalived up on backup';
my $text = "正文\n第二行位于此。";  
my $user   = 'test@163.com';
my $passwd = 'xxxxxxx';
&SendMail();
##############################
# Send notice mail
##############################
sub SendMail() {
    my $smtp = Net::SMTP_auth->new( $mailhost, Timeout => 120, Debug => 1 )
      or die "Error.\n";
    $smtp->auth( 'LOGIN', $user, $passwd );
    foreach my $mailto (@mailto) {
        $smtp->mail($mailfrom);
        $smtp->to($mailto);
        $smtp->data();
        $smtp->datasend("To: $mailto\n");
        $smtp->datasend("From:$mailfrom\n");
        $smtp->datasend("Subject: $subject\n");
        $smtp->datasend("\n");
        $smtp->datasend("$text\n\n"); 
        $smtp->dataend();
    }
    $smtp->quit;
}

主备调度器都开启80端口，两台服务器上的测试内容不一致，这样更方便测试。

##########################

#所需安装模块

#use Net::SMTP

#Authen::SASL

##########################

#$stmp->auth('user','pass');

#大部分SMTP服务器为了防止 spam /垃圾邮件，就需要用户验证身份。

#此方法需要另外安装模块：Authen::SASL, 此模块可能系统不自带

##########################

#Debug => 1

#此段代码用于测试之用，所以开启了Debug，一般测试一次完毕，正式使用的话会关闭它。

注：可在命令行界面直接执行：/etc/keepalived/sendmail.pl，看看能否发送邮件成功，如果失败的话则需要安装Net::SMTP_auth模块

安装方法：

yum -y install perl-CPAN
cpan Net::SMTP_auth