That doesn't surprise me, but any ideas regarding the question itself? | [reply] [Watch: Dir/Any] |
Sure; I'd do something like:
my $doc = get(...);
warn "get() failed" unless $doc;
I'm assuming that the page actually has content here. If it's an empty string, the test should be
... unless defined($doc);
The documenation in LWP::Simple does suggest using LWP::UserAgent if you need more information about the return code. Just a thought. | [reply] [Watch: Dir/Any] [d/l] [select] |
Yes, LWP::UserAgent was the ticket. This was the ideal solution that I was seeking:
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);
if ($response->is_success){
(good things happen)
} else {
my $failmsg= ($response->status_line);
(print the $failmsg)
return;
}
BUT, for this to work, the web based script, after being triggered by the get(), must return some response that is part of the HTTP protocol. I added this line to the top of the web based script:
print "Content-type: text/html\n\n";
Otherwise you receive a 500 Internal Server Error.
Thanks again for the help! | [reply] [Watch: Dir/Any] [d/l] [select] |