in reply to Re: Is My Server Up??
in thread Is My Server Up??

Sorry, i just realised the 'recieved' typo. Just one more question, is there any way to do a tcp connect rather than a ping?

Replies are listed 'Best First'.
Re: Re: Re: Is My Server Up??
by twerq (Deacon) on Sep 09, 2002 at 16:00 UTC
    Assuming your server is running a web-server: 
    use IO::Socket::INET;

$sock = IO::Socket::INET->new(
  PeerAddr => 'www.mysite.com', 
  PeerPort => 80, 
  Proto    => 'tcp');

if ($sock) {
        print "yep";
}
else {
        print "nope";
}

    [download]


    --twerq
[reply]
[d/l]
Re: Re: Re: Is My Server Up??
by Anonymous Monk on Sep 09, 2002 at 15:52 UTC
    Nope. Just changed the spelling and it is still reporting that the server is down, even tho when i run the command it comes back with 1 packets received
[reply]

In Section Seekers of Perl Wisdom