Return to network.pm CVS log

Up to [local] / wpscripts / ztransfer

Annotation of wpscripts/ztransfer/network.pm, Revision 1.1.1.1

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