#! /usr/bin/perl
print "Content-type: text/html\n\n";
print <<HERE;
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=big5">
<title>管理主機存活列表</title>
</head>
<body bgcolor="white">
<table border=2 align=center>
<tr><td colspan=3 align=center><H1>管理主機存活列表</H1></td></tr>
<tr><td align=center>主機</td><td align=center>連線狀況</td><td align=center>偵測時間</td></tr></tr>
HERE
# 網站主要目錄的路徑,請修改成您的現況
my $prefix="/home/apache/htdocs";
# 記錄檔路徑
my $ping_log = "$prefix/ping.log";
open(FHD, "$ping_log") || die "$!\n";
while(<FHD>) {
chomp;
my ($host, $alive_or_not, $time)=split(/,/);
my $status=($alive_or_not) ? "<font color=blue>連 通</font>" : "<font color=red>斷 訊</font>";
print "<tr><td>$host</td><td align=center>$status</td><td align=center>$time</td></tr>\n";
}
close(FHD);
print <<HERE2;
</table>
</body>
</html>
HERE2
|