#!/usr/local/bin/perl
my ($url,$timeout) = @ARGV;
require LWP;

die "Usage: validate.pl url [timeout in seconds]\n" if($#ARGV<0);
$timeout=30 unless($timeout =~/\d+/);

print &validate, "\n";

sub validate {
my $ua=LWP::UserAgent->new();
   $ua->agent('SmileyBot/0.0 '.$ua->agent);
   $ua->timeout($timeout);

my $req = HTTP::Request->new(GET=>$url);
my $res = $ua->request($req);
        
if($res->is_success) { return "$url is up and running!"; }
elsif($res->is_redirect) { return "$url was redirected."; }
else { return "No response from $url within $timeout seconds."; }
}