relocate repo files so ND2 is the only code

2017-04-14 23:08:55 +01:00
parent 9a016ea6ba
commit d23b32500f
469 changed files with 0 additions and 6920 deletions
--- a/lib/App/Netdisco/Daemon/Worker/Poller/Device.pm
+++ b/lib/App/Netdisco/Daemon/Worker/Poller/Device.pm
@@ -0,0 +1,99 @@
+package App::Netdisco::Daemon::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/;
+use App::Netdisco::Core::Discover ':all';
+use App::Netdisco::Daemon::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')
+    ->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($device->ip)) {
+      return job_defer("discover deferred: $host is not discoverable");
+  }
+
+  my $snmp = snmp_connect($device);
+  if (!defined $snmp) {
+      return job_error("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;