==================================================================
  Please DO NOT REPLY to this mail or send email to the developers
  about this bug. Please follow-up to Bugzilla using this link:
    http://bugs.contribs.org/show_bug.cgi?id=8120

  Have you checked the Frequently Asked Questions (FAQ)?
    http://wiki.contribs.org/SME_Server:Documentation:FAQ

  Please also take the time to read the following useful guide:
    http://www.chiark.greenend.org.uk/~sgtatham/bugs.html
==================================================================

--- Comment #7 from John Crisp <[email protected]> ---
(In reply to Stephane de Labrusse from comment #6)

> 
> you have updated one day from dag repo

Most likely. In which case many others may have too....

> 
> > I wonder what the perl script below give out ?
> 
> me too

I'm not sure how to feed it the vars to test. Any ideas ?

I tried the following :

[root@home scripts]# cat perl_ping.pl
 use Net::Ping;
 $host = "192.168.10.1";
 @host_array = "192.168.10.1", "192.168.10.2", "192.168.10.3";
 $p = Net::Ping->new();
 print "$host is alive.\n" if $p->ping($host);
 $p->close();
 $p = Net::Ping->new("icmp");
 $p->bind($my_addr); # Specify source interface of pings
 foreach $host (@host_array)
 {
 print "$host is ";
 print "NOT " unless $p->ping($host, 2);
 print "reachable.\n";
 sleep(1);
 }
 $p->close();


The individual $host returns

[root@home scripts]# perl perl_ping.pl
192.168.10.1 is alive.
nonexistent local address  at perl_ping.pl line 8


But I couldn't figure out the array part. Any ideas ?

-- 
You are receiving this mail because:
You are on the CC list for the bug.
_______________________________________________
Mail for each SME Contribs bug report
To unsubscribe, e-mail [email protected]
Searchable archive at http://lists.contribs.org/mailman/public/contribteam/

Reply via email to