Amit Saxena :
Hi all,
I want a perl ping script (console based) to monitor server up/down state.
I once made that a subroutine based on Net::Ping:
use Net::Ping;
sub pinghost {
my $host = shift;
my $type = shift || 'icmp';
my $port = shift || 7; # for syn ping
my $status;
my $p = Net::Ping->new($type);
if ($type eq 'icmp' or $type eq 'tcp') {
if ( $p->ping($host,10) ) {
$status = 1;
} else {
$status = 0;
}
} elsif ($type eq 'syn') {
$p->port_number($port);
$p->ping($host,10);
if ( $p->ack ) {
$status = 1;
} else {
$status = 0;
}
}
$p->close;
return $status;
}
__END__
call it:
pinghost($host); # do the same stuff as unix's ping command with ICMP,
requires root
pinghost($host,'syn',80); # not requires root,can ping to a special TCP
port (i.e, the http port), send a syn and wait for ack.
pinghost($host,'tcp'); # not requires root, try to connect to peer's
echo port
Jeff.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
