Navigation¶

• Main Page
  

• Random Page
• Create a new Page
• All Pages
• Categories
• Navigation Paths
  

• Administration
• File Management
  

• Create Account
  

利用Net::ping 建立 MRTG 圖表

安裝需求¶

安裝方法 CentOS¶

1. 預設下 CentOS 5 已裝完 ActivePerl 與相關模組
   

安裝方法 Windows¶

1. 安裝 ActivePerl
2. 於 command mode 執行 ppm ，安裝 Net::Ping 模組
   

使用方法¶

1. 建立 ping.pl
2. 建立 MRTG.cfg
3. 執行三次 mrtg ，直到沒有錯誤訊息發生
4. 利用 indexmaker 產生 index.html
5. 加入 crontab 定期更新 mrtg
   

程式碼¶

#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
use Time::HiRes;
 
my $host = shift;
 
my $p = Net::Ping->new("icmp");
$p->hires();
my ($ret, $duration, $ip) = $p->ping($host, 5.5);
if ( $ret ) {
        printf "%.0f\n", 1000 * $duration;
} else {
        print "0\n";
}
 
# Value "in" for mrtg
print "0\n";
# Value "out" for mrtg
print "\n";
# A comment for mrt
print "$host\n";
$p->close();

#
# Defaults for some ping-checks into the internet
#
MaxBytes[_]: 10000
Options[_]: gauge,growright
LegendI[_]: Ping in ms
ShortLegend[_]: ms
YLegend[_]: ms
Factor[_]: 1
 
# every "section" muss have a unique name
# I prefer this: [$SERVICE$_$HOST$]
Target[ping_www.amazon.de]: `perl /home/mrtg/bin/ping.pl www.amazon.de`
Title[ping_www.amazon.de]: Ping www.amazon.de
PageTop[ping_www.amazon.de]: 
Ping www.amazon.de
LegendO[ping_www.amazon.de]:

特別方法¶

參考網站¶