Re: Redirection

you could use LWP::Simple to check if its up or not

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $website = 'http://www.yahoo.com';

if(head($website)){
   #its up
} else {
   #its not
}
[download]

hth,
Robert

Comment on Re: Redirection Download Code

Replies are listed 'Best First'.
Re: Re: Redirection by Your Mother (Archbishop) on Apr 15, 2003 at 01:37 UTC
This is a good technique but remember that some hosts do not return head requests at all and others don't return requests made by the generic agent name in LWP::Simple. It's not a long list of hosts but it happens. So, if you're having problems, also try a get() and if that's still not it, try LWP::UserAgent and define your own agent name. The previous example is much easier though.	[reply]
Re: Re: Re: Redirection by Kedos (Initiate) on Apr 15, 2003 at 10:23 UTC
I have just spoken to my webhoster (im just using Telewest's Advanced Web Service) and they dont have the perl module installed and it doesnt look like they are going to get it installed...is there any way i can use the module code in the actual orginal script, ie merge the two into one .pl script? (i presume there is just with my attempts it came up with a 500 error)	[reply]
Re: Redirection by crenz (Priest) on Apr 15, 2003 at 10:31 UTC
If you have shell access, see Install CPAN module without root perminssions. I can understand they don't have Net::Ping, but LWP really is a standard module they should support.	[reply]
Re: Re: Redirection by Kedos (Initiate) on Apr 14, 2003 at 22:21 UTC
thanks that looks pretty easy to use !!! just got work out how to install the modules ?! or is it installed ?! hmm i think ill find that out for myself much more interesting!! thanks again	[reply]