Return to network.pm CVS log

Up to [local] / wpscripts / ztransfer

Annotation of wpscripts/ztransfer/network.pm, Revision 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);