should defer SNMP against pseudo devices
This commit is contained in:
		| @@ -58,8 +58,12 @@ Returns C<undef> if the connection fails. | ||||
| sub reader_for { | ||||
|   my ($class, $ip, $useclass) = @_; | ||||
|   my $device = get_device($ip) or return undef; | ||||
|   return undef if $device->in_storage | ||||
|     and $device->vendor and $device->vendor eq 'netdisco'; | ||||
|  | ||||
|   my $readers = $class->instance->readers or return undef; | ||||
|   return $readers->{$device->ip} if exists $readers->{$device->ip}; | ||||
|  | ||||
|   debug sprintf 'snmp reader cache warm: [%s]', $device->ip; | ||||
|   return ($readers->{$device->ip} | ||||
|     = _snmp_connect_generic('read', $device, $useclass)); | ||||
| @@ -104,8 +108,12 @@ Returns C<undef> if the connection fails. | ||||
| sub writer_for { | ||||
|   my ($class, $ip, $useclass) = @_; | ||||
|   my $device = get_device($ip) or return undef; | ||||
|   return undef if $device->in_storage | ||||
|     and $device->vendor and $device->vendor eq 'netdisco'; | ||||
|  | ||||
|   my $writers = $class->instance->writers or return undef; | ||||
|   return $writers->{$device->ip} if exists $writers->{$device->ip}; | ||||
|  | ||||
|   debug sprintf 'snmp writer cache warm: [%s]', $device->ip; | ||||
|   return ($writers->{$device->ip} | ||||
|     = _snmp_connect_generic('write', $device, $useclass)); | ||||
|   | ||||
		Reference in New Issue
	
	Block a user