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