fix skip long SNMP timeout for initial discover

This commit is contained in:
Oliver Gorwits
2023-07-15 10:14:01 +01:00
parent fcd1c45606
commit 71aa261737

View File

@@ -4,11 +4,15 @@ use Dancer ':syntax';
use App::Netdisco::Worker::Plugin; use App::Netdisco::Worker::Plugin;
use aliased 'App::Netdisco::Worker::Status'; use aliased 'App::Netdisco::Worker::Status';
use Scalar::Util 'blessed';
register_worker({ phase => 'check', driver => 'direct' }, sub { register_worker({ phase => 'check', driver => 'direct' }, sub {
my ($job, $workerconf) = @_; my ($job, $workerconf) = @_;
# if the job is a queued job, and discover, and the first one... # if the job is a queued job, and discover, and the first one...
if ($job->job and $job->action eq 'discover' and not $job->log) { if ($job->job and $job->action eq 'discover' and not $job->log
and (not blessed $job->device or not $job->device->in_storage)) {
config->{'snmp_try_slow_connect'} = false; config->{'snmp_try_slow_connect'} = false;
debug sprintf '[%s] skipping long SNMP timeouts for initial discover', debug sprintf '[%s] skipping long SNMP timeouts for initial discover',
$job->device; $job->device;