/[pxelator]/lib/PXElator/amt.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/amt.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 329 by dpavlin, Wed Aug 19 11:51:51 2009 UTC revision 330 by dpavlin, Fri Aug 28 22:29:08 2009 UTC
# Line 8  use Intel::AMT::RemoteControl; Line 8  use Intel::AMT::RemoteControl;
8  use Intel::AMT::NetworkAdministration;  use Intel::AMT::NetworkAdministration;
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10  use Regexp::Common qw/net/;  use Regexp::Common qw/net/;
 use Net::Ping;  
11    
12  use html;  use html;
13    use ping;
14  use CouchDB;  use CouchDB;
15    
16  sub info {  sub info {
# Line 20  sub info { Line 20  sub info {
20    
21          $ip ||= $client_ip;          $ip ||= $client_ip;
22    
23          my $p = Net::Ping->new;          if ( ! ping::host( $ip ) ) {
   
         if ( ! $p->ping( $ip, 0.7 ) ) {  
24                  return "$ip unreachable";                  return "$ip unreachable";
25          }          }
26    
Legend:
Removed from v.329  
changed lines
  Added in v.330
  ViewVC Help
Powered by ViewVC 1.1.26