Dengan perl memonitor ALIVE server
Dalam menggunakan script ini, anda memerlukan untuk menginstall terlebih dahulu Perl module, Net::Ping. Untuk menginstall nya sangat mudah sekali, tinggal jalankan perintah berikut.
tar xvfz Net-Ping-2.35.tar.gz
cd Net-Ping-2.35
perl Makefile.PL
make
make install
Berikut adalah contoh sederhana perl script dengan modul Net::Ping.
#!/usr/bin/perluse Net::Ping;
$ipserver=”192.168.33.1″;
$timeout=0.1;
$p = Net::Ping->new(”icmp”);
if $p->ping($ipserver, $timeout){
print “$ipserver is alive.\n”;
}
$p->close();
Contoh di atas , 192.168.33.1 adalah ip server anda, atau dapat juga anda masukkan domain atau host yang dapat di lihat dari luar.
Berikut adalah contoh yang lebih rumit dengan mengecek juga mac address ip yang kita monitor.
#!/usr/bin/perluse Net::Ping;
$timeout=0.1;
$p = Net::Ping->new(”icmp”);
@host=map(”192.168.0.$_”, 11..41);
for $host (@host){
$p->ping($host, $timeout);
}
$p->close();
open(CMD, “arp -a|”) or die “cannot exec arp”;
print grep($_!~/invalid/,);
close(CMD);
Mudah bukan ? tentu saja dapat anda gabungkan dengan email alert, sehingga ketika server anda down, anda dapat mengeceknya lewat email.
Selamat mencoba.
Isi Komentar