101 lines
2.9 KiB
Perl
101 lines
2.9 KiB
Perl
package App::Netdisco::Backend::Worker::Poller::Device;
|
|
|
|
use Dancer qw/:moose :syntax :script/;
|
|
|
|
use App::Netdisco::Util::SNMP 'snmp_connect';
|
|
use App::Netdisco::Util::Device qw/get_device is_discoverable_now/;
|
|
use App::Netdisco::Core::Discover ':all';
|
|
use App::Netdisco::Backend::Util ':all';
|
|
use App::Netdisco::JobQueue qw/jq_queued jq_insert/;
|
|
|
|
use Dancer::Plugin::DBIC 'schema';
|
|
use NetAddr::IP::Lite ':lower';
|
|
|
|
use Role::Tiny;
|
|
use namespace::clean;
|
|
|
|
# queue a discover job for all devices known to Netdisco
|
|
sub discoverall {
|
|
my ($self, $job) = @_;
|
|
|
|
my %queued = map {$_ => 1} jq_queued('discover');
|
|
my @devices = schema('netdisco')->resultset('Device')->search({
|
|
-or => [ 'vendor' => undef, 'vendor' => { '!=' => 'netdisco' }],
|
|
})->get_column('ip')->all;
|
|
my @filtered_devices = grep {!exists $queued{$_}} @devices;
|
|
|
|
jq_insert([
|
|
map {{
|
|
device => $_,
|
|
action => 'discover',
|
|
username => $job->username,
|
|
userip => $job->userip,
|
|
}} (@filtered_devices)
|
|
]);
|
|
|
|
return job_done("Queued discover job for all devices");
|
|
}
|
|
|
|
# run a discover job for one device, and its *new* neighbors
|
|
sub discover {
|
|
my ($self, $job) = @_;
|
|
|
|
my $device = get_device($job->device)
|
|
or return job_error(
|
|
"discover failed: unable to interpret device parameter: "
|
|
. ($job->device || "''"));
|
|
my $host = $device->ip;
|
|
|
|
if ($device->ip eq '0.0.0.0') {
|
|
return job_error("discover failed: no device param (need -d ?)");
|
|
}
|
|
|
|
if ($device->in_storage
|
|
and $device->vendor and $device->vendor eq 'netdisco') {
|
|
return job_done("discover skipped: $host is pseudo-device");
|
|
}
|
|
|
|
unless (is_discoverable_now($device)) {
|
|
return job_defer("discover deferred: $host is not discoverable");
|
|
}
|
|
|
|
my $snmp = snmp_connect($device);
|
|
if (!defined $snmp) {
|
|
return job_defer("discover failed: could not SNMP connect to $host");
|
|
}
|
|
|
|
store_device($device, $snmp);
|
|
set_canonical_ip($device, $snmp); # must come after store_device
|
|
store_interfaces($device, $snmp);
|
|
store_wireless($device, $snmp);
|
|
store_vlans($device, $snmp);
|
|
store_power($device, $snmp);
|
|
store_modules($device, $snmp) if setting('store_modules');
|
|
discover_new_neighbors($device, $snmp);
|
|
|
|
# if requested, and the device has not yet been arpniped/macsucked, queue now
|
|
if ($device->in_storage and $job->subaction and $job->subaction eq 'with-nodes') {
|
|
if (!defined $device->last_macsuck) {
|
|
jq_insert({
|
|
device => $device->ip,
|
|
action => 'macsuck',
|
|
username => $job->username,
|
|
userip => $job->userip,
|
|
});
|
|
}
|
|
|
|
if (!defined $device->last_arpnip) {
|
|
jq_insert({
|
|
device => $device->ip,
|
|
action => 'arpnip',
|
|
username => $job->username,
|
|
userip => $job->userip,
|
|
});
|
|
}
|
|
}
|
|
|
|
return job_done("Ended discover for $host");
|
|
}
|
|
|
|
1;
|