Parent Directory | Revision Log | Patch
revision 203 by dpavlin, Wed Aug 12 11:35:15 2009 UTC | revision 262 by dpavlin, Wed Aug 19 11:02:15 2009 UTC | |
---|---|---|
# | Line 13 use Net::Ping; | Line 13 use Net::Ping; |
13 | use html; | use html; |
14 | ||
15 | sub info { | sub info { |
16 | my $amt = shift; | my ( $amt, $client_ip ) = @_; |
17 | my ( $passwd, $ip ) = split(/\s+/, $amt); | my ( $passwd, $ip ) = split(/\s+/, $amt); |
18 | ( $ip, $passwd ) = ( $passwd, $ip ) if $passwd =~ m/$RE{net}{IPv4}/; | ( $ip, $passwd ) = ( $passwd, $ip ) if $passwd =~ m/$RE{net}{IPv4}/; |
19 | ||
20 | $ip ||= $client_ip; | |
21 | ||
22 | my $p = Net::Ping->new; | my $p = Net::Ping->new; |
23 | ||
24 | if ( ! $p->ping( $ip, 0.7 ) ) { | if ( ! $p->ping( $ip, 0.7 ) ) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |