[BACK]Return to network.pm CVS log [TXT][DIR] Up to [local] / wpscripts / ztransfer

File: [local] / wpscripts / ztransfer / network.pm (download)

Revision 1.1, Fri Jun 3 09:28:47 2011 UTC (12 years, 9 months ago) by yason
Branch point for: MAIN

Initial revision

#!/usr/bin/perl
# $Id: network.pm,v 1.1 2011/06/03 09:28:47 yason Exp $
package network;

use Net::Ping;

sub alive($)
{
    my $host = shift;
    my $p = Net::Ping->new( );

    return( $p->ping($host) ? 1 : 0 );
}



return(1);