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);