双葉鯖監視所

#!/usr/bin/perl #複数のサーバにpingを打って結果を表示するperlスクリプト #Net::Pingが無いと動きません #そのうちphpで作り直したいなー use Net::Ping; print "Content-type: text/html\n\n"; { $NOWTIME = time; my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($NOWTIME); $wday = ("日", "月", "火", "水", "木", "金", "土")[$wday]; $DATE = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $wday, $hour, $min, $sec); } print< 双葉鯖監視所

ふたば鯖勝手な監視所

1 名前：名無しさん＠お腹いっぱい。投稿日： $DATE

1分毎に更新してます。

END @host_array = ( 'www.2ch.net','www.2chan.net','www.iij.ad.jp','www.4chan.net','ime.nu','a.hatena.ne.jp','www.dion.ne.jp'); $timeout = 2; print ""; print ""; foreach $host (@host_array){ $zen++; print ""; if(pingecho($host, $timeout)){print "";$ii++} else{print "";$shobon++;} print "\n"; } if($ii==0){$ii='0';} if($shobon==0){$shobon='0';} print "
resolv name status
$host (･∀･)ｲｲ!! (´・ω・`)ｼｮﾎﾞｰﾝ

\n"; print "サーバ状態:
\n全$zen鯖 (･∀･)ｲｲ $ii鯖（´・ω・`）ｼｮﾎﾞｰﾝ$shobon鯖";