Perl实现批量安装NRPE客户端

近期要安装N多台Linux主机的NRPE客户端,话说我这么“懒”的人怎么可能会一个个自己安.批量处理的简单小程序就用perl来做吧!

 

# tar -tf BatchNrpe.tar.gz
BatchNrpe/
BatchNrpe/install.sh
BatchNrpe/Check_Nrpe.pl
BatchNrpe/nrpe-2.15.tar.gz
BatchNrpe/Batch_Installation_Nrpe.pl
BatchNrpe/hostlist
BatchNrpe/nagios-plugins-1.5.tar.gz

BatchNrpe.tar.gz为主主程序包.

 

install.sh是自动部署NRPE的Shell脚本

useradd nagios

/bin/tar -zxvf nagios-plugins-1.5.tar.gz
cd nagios-plugins-1.5
./configure
make
make install
/bin/chown nagios.nagios /usr/local/nagios
cd ..
yum -y install xinetd --nogpgcheck
/bin/tar -zxvf nrpe-2.15.tar.gz
cd nrpe-2.15
./configure
make all
make install-plugin
make install-daemon
make install-daemon-config
make install-xinetd
perl -i -p -e 's/(127.0.0.1)/$1 172.20.11.2/' /etc/xinetd.d/nrpe
echo "nrpe            5666/tcp              # nrpe" >> /etc/services
/etc/init.d/xinetd restart

 

hostlist是需要安装NRPE的主机列表

#IC Server

#格式 IP->密码
172.20.105.1->sunnorth
172.20.105.2->sunnorth
172.20.105.3->7234567
172.20.105.4->1128@123
172.20.105.5->8888@321
172.20.105.6->ggggggg@
172.20.105.7->sunnorth
172.20.105.8->9999990000@
172.20.105.9->sun

 

 

nagios-plugins-1.5.tar.gz  nrpe-2.15.tar.gz是安装必须要的Tarball

 

Batch_Installation_Nrpe.pl用于自动scp必要的Tarball和install.sh安装脚本至hostlist列表主机

#!/bin/env perl
#
# This program is used to batch install NRPE
#
#
# Created : Yumeng
# Creation Date : 4 December 2013
#
# E-mail  : [e-mail]
#
# Use Statement
#
use strict;
use warnings;
use Expect;
#
# Read the installation list
# File Format: IP address->Passwd
# such as : 172.20.1.1->password
#
open HOSTLIST,"<","hostlist" or die "Can't open file :$!\n";
my @hostlist = <HOSTLIST>;
close HOSTLIST;
#
my %hostlist;
for (@hostlist)
{
    chomp;
    next if m{^#};
    my $host;   my $pass;
    $host = (split(/\->/))[0];
    $pass = (split(/\->/))[1];
    $hostlist{$host}=$pass;
}
#
# Login host
#
while (my ($host,$pass)=each %hostlist)
{
    my $exp_scp = Expect->new;
       $exp_scp = Expect->spawn("scp install.sh  nagios-plugins-1.5.tar.gz  nrpe-2.15.tar.gz $host:/root");
       $exp_scp->expect(2, [
                      'password',
                      sub {
                           my $self_scp = shift;
                              $self_scp->send("$pass\n");
                          }
                      ],
                      [
                      '\(yes/no\)?',
                      sub {
                           my $self_scp = shift;
                              $self_scp->send("yes\n");
                              exp_continue;
                          }
                      ],
                   );
       #$exp->send("exit\n")  if ($exp->expect(undef,'#'));
    my $exp_ssh = Expect->spawn("ssh $host");
       $exp_ssh->expect(2, [
                      'password',
                      sub {
                           my $self = shift;
                              $self->send("$pass\n");
                          }
                      ],
                      [
                      '\(yes/no\)?',
                      sub {
                           my $self = shift;
                              $self->send("yes\n");
                              exp_continue;
                          }
                      ],
                   );
      $exp_ssh->send("sh install.sh\n") if ($exp_ssh->expect(undef,'#'));
      $exp_ssh->send("exit\n")  if ($exp_ssh->expect(undef,'#'));
}

 

Check_Nrpe.pl用于检测NRPE是否连通

#!/bin/env perl

open HOSTLIST,"<","hostlist" or die "Can't open file :$!\n";
my @hostlist = <HOSTLIST>;
close HOSTLIST;
for (@hostlist)
{
    chomp;
    next if m{^#};
    my $host;
    $host = (split(/\->/))[0];
    system("/usr/local/nagios/libexec/check_nrpe -H $host");
}