Return to network.pm CVS log | 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
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);