keepalived双机热备故障时发送邮件

服务器1和服务器2：主备关系
当服务器1宕机时，将自动连接上服务器2，但这时，需要给我们发一封邮件，这样才能知道服务器1宕机了。

直接写了一个脚本，然后每次出问题时，就调用这个脚本，就可以发送邮件了。
脚本内容

#!/usr/bin/perl -w  
use Net::SMTP_auth;  
use strict;  
my $mailhost = 'smtp.163.com';  
my $mailfrom = '发送邮件的邮箱名字@163.com';  
my @mailto   = ('接收邮件的邮箱名字@163.com');  
my $subject  = 'keepalived up on backup';  
my $text = "正文\n 151服务器宕机！";    
my $user   = '发送邮件的邮箱名称.com';  
my $passwd = '发送邮件的邮箱密码';  
&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;  
}  

keepalived 配置文件修改内容，注：我把脚本放到了与配置文件同级目录下
添加一段：

vrrp_sync_group VG_1 {
    group {
        VI_1
    }
    notify_master 脚本文件名字
}

可进入该脚本目录，直接执行脚本，看看是否发送邮件成功；若失败，安装Net::SMTP_auth模块
安装方法：
yum -y install perl-CPAN
cpan Net::SMTP_auth