如何监控 URL，然后在出现问题时通过电子邮件给自己发送跟踪路由？

Question

我在网上找到了一个脚本，我认为它可以满足我的需要，但我无法让它工作，因为我的 PERL 技能非常低。基本上，我需要在 apple.com 上监视此 URL 并确保下载表单可用，如果不可用，我需要收到一封电子邮件，说明该表单无法从 $hostname 获取，这是来自该主机的跟踪路由。跟踪路由很重要，因为 Apple 使用 Akamai 和一些 GeoIP 魔法进行下载。

我愿意保留这个脚本并添加到它或以其他方式进行。感谢您花时间帮我看这个。当我完成后，我一定会分享最终的结果。我很确定这个脚本不仅仅对我自己有用。 ;)

编辑 2011 年 5 月 8 日 我刚刚更新了脚本以反映我最近的更改。

#!/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. 始终使用：

   使用严格；
使用警告；

2. 为什么chmod 0777？您的日志文件需要可执行吗？

3. $statusfile 不包含任何数据。

4. $traceroute 包含traceroute 数据，但该数据随后被替换为空字符串。

5. 如果没有运行traceroute，您将在第一个open()中打印出一个未定义的值，这将在perl中引起警告。

6. 您的第二个 open() 截断了日志文件。也许是故意的，但值得一提。

7. 执行的检查相当宽松。首先，在页面上执行的唯一有效检查是它是否包含“Quicktime 7.6.9 for Windows XP”。这可能在任何页面上，甚至是一个显示系统已关闭的页面。此外，还会检查 $response 中是否有字符串“WARNING”，该字符串显然来自脚本本身，但检查时不区分大小写，这很奇怪。因此，不仅在出现错误时，而且在下载页面上的任何位置出现“警告”一词时，都会发送邮件。 IMO，这并不是一个很好的检查。

8. $response 文本表示电子邮件已发送给管理员，但实际上尚未发送。

9. “/bin/hostname” 不使用应用程序，仅将其名称添加到电子邮件的主题中。如果你想使用它，你需要像traceroute一样使用反引号（我会告诉你，但显然反引号是这个文本字段中的元字符；））

网页似乎通过正常，我无法测试sendmail，因为我在 Windows 机器上，但看起来没问题。

很难判断这是否解决了您的问题，因为您没有指定您的问题是什么。不过，这是一个相当粗糙的脚本。