Return to network.pm CVS log | Up to [local] / wpscripts / ztransfer |
File: [local] / wpscripts / ztransfer / network.pm (download)
Revision 1.1.1.1 (vendor branch), Fri Jun 3 09:28:47 2011 UTC (13 years, 3 months ago) by yason
import scripts for fullprint |
#!/usr/bin/perl # $Id: network.pm,v 1.1.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);