perl 监控网站域名劫持

来源：互联网发布：javascript程序例子编辑：程序博客网时间：2024/04/29 07:12
use Net::Ping;use Socket;use LWP::Simple qw(get);  use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping;  use Socket;use Net::SMTP;sub send_mail{if (@_ != 2){print "请输入2个参数\n";exit 1};    ($m,$n) = @_; #将参数赋值给变量      my $to_address  = $m;my $CurrTime = time2iso(time());    my $to_address  = $m; my $mail_user   = 'zhaoyangjian@zjcap.cn';    my $mail_pwd    = 'xxxx';    my $mail_server = 'smtp.exmail.qq.com';    my $from    = "From: $mail_user\n";    my $subject = "Subject: zjcap info\n";    my $info = "$CurrTime--$n";     my $message = <<CONTENT;      $infoCONTENT    my $smtp = Net::SMTP->new($mail_server);    $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";    $smtp->mail($mail_user);    $smtp->to($to_address);    $smtp->data();             # begin the data    $smtp->datasend($from);    # set user    $smtp->datasend($subject); # set subject    $smtp->datasend("\n\n");    $smtp->datasend("$message\n"); # set content    $smtp->dataend();    $smtp->quit();};@array=('www.zjcap.cn', 'wenjinbao.winfae.com');foreach $host (@array){$p = Net::Ping->new("icmp");if ($p->ping($host,5)){print "$host is alive.\n"}else{ send_mail('zhaoyangjian@zjcap.cn', "$host is lost")};# print "reachable.\n"; $p->close(); #sleep(1);};$host='www.zjcap.cn';$address=inet_ntoa(inet_aton($host));print "$host is $address\n";unless ($address eq '121.40.3.229'){send_mail('zhaoyangjian@zjcap.cn', "$host 被域名劫持--$address")};$host='wenjinbao.winfae.com';$address=inet_ntoa(inet_aton($host));print "$host is $address\n";unless ($address eq '120.55.138.118'){send_mail('zhaoyangjian@zjcap.cn', "$host 被域名劫持--$address")};
0 0