sordid — Tue, 26 Sep 2000 20:18:06 +0000

Rob, thanks for the reply! I've been working on this problem for almost six months

Umm, I've got $| = 1 which flushes the output, and as each site is checked it shows in the browser as either ok or not ok, so I know the file gets opened.

The LWP module is installed on the server.

As far as I can tell there's nothing wrong with my code....but there has to be because it never runs to completion.

Specifically the problem is when it encounters a site that is slow (super slow), it'll just hang and die. If you were to try one of these slow sites in Netscape it would say contacting host, and then after a few seconds a window would pop up saying the server is down, please try later.

Try loading a file with a link that is super slow, that does the above in Netscape. If it works for you then, let me know.

I appreciate your help!

Rob Pengelly — Tue, 26 Sep 2000 19:40:56 +0000

I see nothing wrong with you code. I tried it out and for me it worked flawlessly.

Are you sure that the libwww-perl library is installed on your server?

Are you sure that the file which contains the site is being opened properly when the script runs?
Try adding
open(FILE, "$path_to_urls") or die "Couldn't open file:$!";

sordid — Tue, 26 Sep 2000 18:54:59 +0000

I should have included the code, eh? Here it is :

#!/usr/bin/perl

use LWP::UserAgent;

print "content-type: text/html\n\n";
$| = 1;

open(FILE, "$path_to_urls");
@sites = ;
close(FILE);

$ua = LWP::UserAgent->new;
$ua->timeout(30);

foreach $site (@sites) {
$request = HTTP::Request->new('GET', "$site");
$response = $ua->request($request);
if ($response->is_success) {
print "$site is OK\n";
} else {
print "$site is not OK\n";
}
}