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]
