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 |