KeepAlived故障切换VIP邮件通知

这是KeepAlived故障切换VIP邮件通知方案一
方案二见: https://blog.csdn.net/m0_38102561/article/details/100727469

1、在keepalived配置文件中添加配置

在/etc/keepalived/keepalived.conf文件中配置当前节点成为备节点时触发/usr/local/sendmail.sh脚本

2、编写邮件通知脚本/usr/local/sendmail.sh

#! /usr/bin/perl -w
use Net::SMTP_auth;
use strict;
#smtp服务器
my $mailhost = 'smtp.qq.com';
#发送邮件的邮箱
my $mailfrom = '913011***@qq.com';
#接收邮件的邮箱，可填多个
my @mailto = ('15773241***@163.com','913011***@qq.com');
#邮件主题
my $subject = 'keepalived up on backup';
#邮件正文
my $text = '通知内容';
#发送邮件的邮箱用户
my $user = '913011***@qq.com';
#发送邮件的邮箱的授权码
my $passwd = 'cozc********bceb';

&SendMail();

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;

}

授予脚本可执行权限

chmod +755  sendmail.sh

3、需要安装Net::SMTP_auth

send_mail.sh脚本使用Perl编写，需要安装环境：

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

依赖环境安装完成后手动执行一下脚本，看是否可以成功发送邮件

./usr/local/sendmail.sh

参考地址
1、https://www.jianshu.com/p/41b052cfd429
2、https://www.cnblogs.com/John-2011/p/7838794.html