node search by mac implementation

Netdisco/lib/Netdisco/DB/ResultSet/Node.pm

@@ -0,0 +1,26 @@
+package Netdisco::DB::ResultSet::Node;
+use base 'DBIx::Class::ResultSet';
+
+sub by_mac {
+    my ($set, $archive, $mac) = @_;
+    return $set unless $mac;
+
+    return $set->search(
+      {
+        'me.mac' => $mac,
+        ($archive ? () : (active => 1)),
+      },
+      {
+        order_by => {'-desc' => 'time_last'},
+        columns => [qw/ mac switch port oui active device.dns /],
+        '+select' => [
+          \"to_char(time_first, 'YYYY-MM-DD HH24:MI')",
+          \"to_char(time_last, 'YYYY-MM-DD HH24:MI')",
+        ],
+        '+as' => [qw/ time_first time_last /],
+        join => 'device',
+      },
+    );
+}
+
+1;

Netdisco/lib/Netdisco/DB/ResultSet/NodeIp.pm

@@ -57,4 +57,20 @@ sub by_name {
     );
 }
 
+sub by_mac {
+    my ($set, $archive, $mac) = @_;
+    return $set unless $mac;
+
+    return $set->search(
+      {
+        mac => $mac,
+        ($archive ? () : (active => 1)),
+      },
+      {
+        %$search_attr,
+        ( $set->has_dns_col ? ('+columns' => 'dns') : () ),
+      }
+    );
+}
+
 1;