#####CHECK vin decoder vw FCVERSION AND TYPE START###### open (FC,

#!/usr/bin/perl -w use DBI; use POSIX qw(strftime); my $dbh = DBI->connect(“DBI:mysql:shencan:111.1.32.153:3306″,”shencan”,”shencan”); #my $sql = “select * from shencan.LVS”; #my $sth = $dbh->prepare($sql); #$sth->execute(); my $HOSTNAME=`hostname`; chomp($HOSTNAME); my $type; my $hostinfo; #while($hostname = $sth->fetchrow_hashref()) #{ # print “$hostname->{hostname} $hostname->{hostip}\n”; #} #my @value; #while(@value = $sth->fetchrow_array()) #{ # print “@value\n”; #} #my $SQL = “update shencan.LVS set node=’CBN_CQ’ vin decoder vw where hostname=’CBN-CQ-1-3Z2′”; vin decoder vw #my $STH = $dbh->prepare($SQL); #$STH->execute();
#sub vin decoder vw SCselect { # my $sql = shift @_; # my $myselect vin decoder vw = $dbh->prepare($sql); # $myselect->execute(); # while($hostinfo = $myselect->fetchrow_hashref()) { print “$type\n” ;print “$hostinfo->{$type} \n” ;} #}
#####MYSQL SELECT SUB START##### sub shencan { my @shencan = @_; foreach $type (@shencan){ my $sql = “select vin decoder vw * from shencan.FC where hostname=’$HOSTNAME’”; my $myselect = $dbh->prepare($sql); $myselect->execute(); while($hostinfo = $myselect->fetchrow_hashref()) { return “$hostinfo->{$type}” ; } } } #####MYSQL SELECT SUB END######
#####MYSQL SELECT START ####### my $FC =shencan “fcversion”; chomp($FC); my $os = shencan “OS”; chomp($os); my $arch = shencan “arch”; chomp($arch); my $fdns =shencan “fdnsversion”; chomp($fdns); my $ng = shencan “ngversion”; chomp($ng); my $amr =shencan vin decoder vw “amrversion”; vin decoder vw chomp($amr); my $oh =shencan “ohversion”; chomp($oh); vin decoder vw my $dm = shencan “dmversion”; chomp($dm); my $cpisbin = shencan “cpisbinversion”; chomp($cpisbin); my $node = shencan “node”; chomp($node); my $type1 =shencan “type”; chomp($type1); #####MYSQL SELECT vin decoder vw END######
####CHECK EP53 STATUS AND UPDATE START##### my $ep53 =`dig \@127.0.0.1 www.qq.com >/dev/null && vin decoder vw echo ok||echo vin decoder vw bad`; chomp($ep53); update “update shencan.FC set ep53=’$ep53′ where hostname=’$HOSTNAME’”; ####CHECK EP53 STATUS AND UPDATE vin decoder vw END#####
####CHECK EP80 STATUS AND UPDATE START##### my $GW=`route -n |awk ‘\$1==”0.0.0.0″{print \$2}’|awk -F”.” ‘{print \$1″.”\$2″.”\$3}’`; chomp($GW); my $IP=`ip a|grep inet|grep $GW|awk -F”[ /]” ‘{print\$6}’`; chomp($IP); my $ep80 =`curl -H “Host:www.qq.com” -o /dev/null -s -w “%{http_code}” vin decoder vw http://$IP`; chomp($ep80); update “update shencan.FC set ep80=’$ep80′ where hostname=’$HOSTNAME’”; ####CHECK EP80 STATUS AND UPDATE END#####
#####CHECK OS START###### sub OS { open (OS,”</etc/issue”); @line =<OS>; $line= $line[0]; chomp($line); my @os =split(/\s+|\(|\)/,$line); if($os[0] ge “Red”){ $SC = “REHL$os[6].$os[10]“; }else{ $SC = “$os[0]$os[2]“; } }
######CHECK FDNS OR NAME VERSION START###### open (FDNS,”</etc/ChinaCache/app.d/cpisbm.amr”); while(<FDNS>){ if(/RestartCmd/){ my @fc1 =split(/\s+/,$_); my $FC =”$fc1[2]“; if($FC ge “named”){ $FCVER=`/usr/sbin/named -v`; chomp($FCVER); my @FC1 =split(/\s+/,$FCVER); $FCVER1=”$FC1[0]$FC1[1]“;
#####CHECK vin decoder vw FCVERSION AND TYPE START###### open (FC,”</etc/ChinaCache/app.d/cpisfc.amr”); while(<FC>){ if(/RestartCmd/){ my @squid =split(/\s+/,$_); my $SQUID =”$squid[2]“; if($SQUID ge “squid”){ $SQUIDVER=`/usr/local/squid/sbin/squid -v|head -n 1 |awk ‘{print vin decoder vw “V”\$4}’`; vin decoder vw chomp($SQUIDVER); $TYPE=”FC5″; }else { $SQUIDVER=`/usr/local/flexicache/sbin/flexicache -v|awk ‘{print \$3}’`; chomp($SQUIDVER); $TYPE=”FC6″; } } } close(FC); #####CHECK FCVERSION AND TYPE END######
if($TYPE eq $type1){
近期文章 puppet 四 部署mcollective puppet (三) hiera ansible 好基友 ansible-shell 利用nslookup vin decoder vw 和 dig 了解 dns请求过程 bind 9 基础环境记录 分类目录 CDN业务 4层负载均衡与高可用 7层负责均衡与高可用 bind9 缓存系统 Linux基础 Linux技巧 Linux日常应用 Linux高级应用 Linux基础调优 Perl Perl脚本 vin decoder vw rrdtool Shell AWK SED Shell脚本 vagrant zabbix 数据库 mysql 未分类 网站业务 动态缓存系统(memcache 自动化运维 ansible puppet saltstack 链接表 xdays'blog 乡村运维 家哥的博客 快乐男声-老枪 泡泡的博客 简单@青岛 老乡-品茶 统计
CyberChimps ©2014