Return to network.pm CVS log | Up to [local] / wpscripts / ztransfer |
1.1 ! yason 1: #!/usr/bin/perl ! 2: # $Id: network.pm,v 1.1.2.3 2006/12/06 14:39:47 init Exp $ ! 3: package network; ! 4: ! 5: use Net::Ping; ! 6: ! 7: sub alive($) ! 8: { ! 9: my $host = shift; ! 10: my $p = Net::Ping->new( ); ! 11: ! 12: return( $p->ping($host) ? 1 : 0 ); ! 13: } ! 14: ! 15: ! 16: ! 17: return(1);