global-functions: add $GetMacVendor

1 files changed, 2 insertions, 8 deletions

diff --git a/collect-wireless-mac.local b/collect-wireless-mac.local
index 14d2781..303cb53 100644
--- a/collect-wireless-mac.local
+++ b/collect-wireless-mac.local
@@ -9,6 +9,7 @@
 :global "identity";
 
 :global CertificateAvailable;
+:global GetMacVendor;
 :global SendNotification;
 
 :local "place-before" [ / interface wireless access-list find where comment="--- collected above ---" disabled ];
@@ -37,14 +38,7 @@
     :local interface [ / interface wireless registration-table get $regentry interface ];
     :local ssid [ / interface wireless get [ find where name=$interface ] ssid ];
     :local datetime ([ / system clock get date ] . " " . [ / system clock get time ]);
-    :local vendor;
-    :do {
-      $CertificateAvailable "Let's Encrypt Authority X3" "letsencrypt";
-      :set vendor ([ / tool fetch mode=https check-certificate=yes-without-crl \
-         url=("https://api.macvendors.com/" . [ :pick $mac 0 8 ]) output=user as-value ]->"data");
-    } on-error={
-      :set vendor "unknown vendor";
-    }
+    :local vendor [ $GetMacVendor $mac ];
     :local message ("unknown MAC address " . $mac . " (" . $vendor . ", " . $hostname . ") " . \
       "first seen on " . $datetime . " connected to SSID " . $ssid . ", interface " . $interface);
     / log info $message;