如何監控一個URL，然後給自己發送一個跟蹤路由，如果出現問題？

Question

我在網上發現了一個腳本，我認爲它會做我所需要的，但是由於我的PERL技能很低，所以無法工作。基本上，我需要在apple.com上監控這個URL，並確保下載表單可用，如果它不可用，我需要收到一封電子郵件，表明該表單不能從$ hostname獲得，這裏是來自該主機的traceroute。 traceroute非常重要，因爲Apple使用Akamai和一些GeoIP魔術來下載它。

我打算保留這個腳本，並添加到它或做另一種方式。感謝您花時間爲我着想。當我完成後，我一定會分享完成的結果。我很確定這個腳本對我來說不僅僅是有用的。 ;）

編輯 5/8/2011 我剛剛更新了腳本以反映我最近的更改。

#!/usr/bin/perl 
use strict; use warnings; 

# local hostname 
my $hostname = `/bin/hostname`; 

# setup array of servers/websites to check 
my @sitestocheck = ('swdlp.apple.com'); 

# the relative url of the website response script in each site 
my $responseprogram = "/cgi-bin/WebObjects/SoftwareDownloadApp.woa/wa/getProductData?localang=en_us&grp_code=quicktime&returnURL=http://www.apple.com/quicktime/download"; 

# path to the log file with the response data 
my $statusdir = "./tmp"; 

# mail feature 
my $mailprog ='/usr/sbin/sendmail'; 
my $adminmail = 'root@localhost'; 
my $frommail = 'root@$hostname'; 

############################################################### 
# End Configuration           # 
############################################################### 
# main program 
use Crypt::SSLeay; 
use LWP::UserAgent; 

# now check each url in your array 
foreach my $sitetocheck (@sitestocheck) 
{ 
    my $ua = new LWP::UserAgent; 
    my $req = new HTTP::Request 'GET',"https://$sitetocheck$responseprogram"; 
    my $res = $ua->request($req); 
    if ($res->is_success) 
    { 
     if ($res->content =~ m/Quicktime/i) 
     { 
      my $response = "SERVER OK:$sitetocheck:".$res->content;} 
     else 
     { 
      my $response = "Our apologies but there was an unexpected error with the application. This problem has been noted, and an email has been sent to the administrators. Please check back in a few hours to try the download again. "; 
     } 
    } 
    else 
    { 
     my $timestamp = localtime; 
     my $response = "WARNING! $hostname UNABLE TO CONNECT TO $sitetocheck at $timestamp"; 
     my $traceroute = `/usr/sbin/traceroute $sitetocheck`; 
    } 
    # write server status to the main log file 
    open(FILE,">>$statusdir/statuslog.txt"); 
    flock(FILE, 2); 
    print FILE "$response\n$traceroute\n\n"; 
    flock(FILE, 8); 

    # write to a current status file for each server or website 
    # being monitored 
    open(FILE,">$statusdir/$sitetocheck"); 
    flock(FILE, 2); 
    print FILE $response; 
    flock(FILE, 8); 
} 

# if there is an error mail the administrator 
if (my $response =~ m/apologies/i) 
{ 
    open(MAIL, "|$mailprog -t"); 
    print MAIL "Subject: $hostname unable to connect to $sitetocheck\n"; 
    print MAIL "From: $frommail\n"; 
    print MAIL "To: $adminmail\n"; 
    print MAIL "Reply-to: $frommail\n\n"; 
    print MAIL "$response\n$traceroute"; 
    print MAIL "\n\n"; 
    close MAIL; 
} 

Answer 1

好吧，這裏的一些意見：

1. 始終使用：

   use strict; use warnings;

2. 爲什麼chmod 0777？你的日誌文件需要可執行嗎？

3. $statusfile不包含任何數據。

4. $traceroute包含traceroute數據，但數據被替換爲空字符串。

5. 如果沒有traceroute運行，您將在第一個open()中打印一個未定義值，這將在perl中引發警告。

6. 您的第二個open()截斷日誌文件。也許是故意的，但值得一提。

7. 執行的檢查相當鬆散。首先，在頁面上執行的唯一檢查是有效的，它包含"Quicktime 7.6.9 for Windows XP"。這可能在任何頁面上，甚至是一個頁面，說明系統已關閉。此外，$response檢查字符串「警告」，這顯然來自腳本本身，但是檢查不區分大小寫，這很奇怪。因此，不僅在出現錯誤時發送郵件，而且如果在下載頁面的任何位置出現「警告」一詞。海事組織不是一個非常好的檢查。

8. $response文本表示一封電子郵件已發送給管理員，但它沒有發送。

9. "/bin/hostname"該應用程序未使用，只有它的名稱被添加到電子郵件的主題。如果你想要使用，需要使用反引號喜歡用traceroute的（我會告訴你，但顯然反引號在這個文本字段元字符;））

的網頁似乎來過好了，我可以」因爲我在Windows機器上測試sendmail，但它看起來沒問題。

很難說這是否能解決您的問題，因爲您沒有指定問題所在。不過，這是一個相當粗糙的腳本。