move discover and discoverall to worker plugins

lib/App/Netdisco/Backend/Worker/Poller/Device.pm

@@ -1,100 +0,0 @@
-package App::Netdisco::Backend::Worker::Poller::Device;
-
-use Dancer qw/:moose :syntax :script/;
-
-use App::Netdisco::Transport::SNMP;
-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 = App::Netdisco::Transport::SNMP->reader_for($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;