From 409065375eaed82f4cb18e2b535e097c5e7312f8 Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Wed, 5 Apr 2006 01:45:53 +0000
Subject: [PATCH] add sub _snmp_connect_ip

---
 Info.pm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/Info.pm b/Info.pm
index bb95c60b..8e1f47fb 100644
--- a/Info.pm
+++ b/Info.pm
@@ -2522,6 +2522,46 @@ sub _show_attr {
     return $store->{$attr};
 }
 
+=item _snmp_connect_ip() 
+
+Returns true or false based upon snmp connectivity to an IP.
+
+=cut
+
+sub _snmp_connect_ip {
+    my $self = shift;
+    my $ip = shift;
+    my $ver = $self->snmp_ver();
+    my $comm = $self->snmp_comm();
+    
+    return undef if ($ip eq '0.0.0.0') or ($ip =~ /^127\./);
+    
+    # Create session object
+    my $snmp_test = new SNMP::Session( 'DestHost' => $ip, 'Community' => $comm, 'Version' => $ver);
+
+    # No session object created
+    unless (defined $snmp_test){
+        return undef;
+    }
+    
+    # Session object created but SNMP connection failed.
+    my $sess_err = $snmp_test->{ErrorStr} || '';
+    if ($sess_err){
+        return undef;
+    }
+    
+    # Try to get some data from IP
+    my $layers = $snmp_test->get('sysServices.0');
+    
+    $sess_err = $snmp_test->{ErrorStr} || '';
+    if ($sess_err){
+        return undef;
+    }    
+
+    return 1;
+
+}
+
 =back
 
 =head2 AUTOLOAD