I was referring to the other suggestions offered in this thread, but if the servers are yours then you should be able to get around the ping problem I was talking about.
-----Original Message----- From: Lanceo [mailto:[EMAIL PROTECTED]] Sent: Tuesday, February 26, 2002 7:31 AM To: [EMAIL PROTECTED] Subject: Re: ping What other methods? I am trying to see if a server is alive and reachable. Often our servers will respond to a ping, but IIS has fallen over or there is some problem that stops pages from being served. So right now I have two tools to use - Ping, and fetching a page from the server and comparing it to a previous good one stored in the database. More methods would be good to know... "Timothy Johnson" <[EMAIL PROTECTED]> wrote in message C0FD5BECE2F0C84EAA97D7300A500D5002580FB9@SMILEY">news:C0FD5BECE2F0C84EAA97D7300A500D5002580FB9@SMILEY... > > I had the same problem at first, but I've found that if you want the > Net::Ping module to work on a Win32 platform, you might have better luck > sticking to the ICMP protocol (which is what your command-line ping is > using). Something like this usually works for me: > > my $p = Net::Ping->new('icmp',2); > foreach(@clients){ > if($p->ping($_) == 1){ > print "$_ is alive.\n"; > }else{ > print "$_ is not responding!\n"; > } > } > > Here's the catch, though. You should use one of the other methods to find > out whether an Internet host is alive because many of them have their > servers set to not respond to ping requests from the outside. > > > -----Original Message----- > From: Lanceo > To: [EMAIL PROTECTED] > Sent: 2/22/02 1:19 AM > Subject: ping > > Hi, > > I am having difficulty getting the Net::Ping module to work properly. I > am > using ActivePerl 5.6.1.631 on a win32 platform. I can ping a server in > a > dos prompt ok, but when I try to get the Perl Net::Ping to work it > always > returns a failure. It seems to ponder over pinging the host for a > couple of > seconds, and then return a zero as a result, which means that it could > not > reach the host, if my interpretation of the docs is correct. > > Here is the snippet in question: > > my ($pingThing, $host, $pingResult); > $host = 'www.google.com'; > $pingThing = Net::Ping->new("tcp", 1); > $pingResult = $pingThing->ping($host); > > print "$pingResult\n"; > if($pingResult == 1){print "$host is alive.\n";} > else{print "$host could not be pinged\n";} > > $pingThing->close(); > > Am I doing something wrong here, or do I need some other module that I > am > unaware of? I find this sort of bizarre, as I have LWP doing a > successful > page fetch, so the module can obviously access the web. > > > --- > Outgoing mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.325 / Virus Database: 182 - Release Date: 2/20/02 > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > > > -------------------------------------------------------------------------- ------ > This email may contain confidential and privileged > material for the sole use of the intended recipient. > If you are not the intended recipient, please contact > the sender and delete all copies. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.325 / Virus Database: 182 - Release Date: 2/19/02 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -------------------------------------------------------------------------------- This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
