From 799e8657ac0b9d1526f6be226b5a6680af081ade Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 12 Apr 2022 09:34:26 +0200
Subject: [PATCH] NAME_MAC=/path to read additional names

---
 sbw-parse.pl | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/sbw-parse.pl b/sbw-parse.pl
index 6f75223..abcd08f 100755
--- a/sbw-parse.pl
+++ b/sbw-parse.pl
@@ -5,6 +5,8 @@ use autodie;
 
 # ./sw-name-mac.sh
 
+# usage: NAME_MAC=/dev/shm/file-with-name-space-mac sbw-parse.pl [optional-switch-snmpbulkwalk-dump]
+
 use Data::Dump qw(dump);
 
 my $debug = $ENV{DEBUG} || 0;
@@ -13,13 +15,16 @@ my @cols = qw( ifName ifHighSpeed ifAdminStatus ifOperStatus ifType dot1dStpPort
 
 my $mac2name;
 
-open(my $f, '<'. '/dev/shm/sw-name-mac');
-while(<$f>) {
-	chomp;
-	#my ( $ip, $name, $mac ) = split(/ /,$_);
-	my ( $name, $mac ) = split(/ /,$_);
-	$mac = lc($mac);
-	$mac2name->{$mac} = $name;
+foreach my $name_mac ( qw( /dev/shm/sw-name-mac /dev/shm/wap-name-mac ), $ENV{NAME_MAC} ) {
+	next unless -e $name_mac;
+	open(my $f, '<'. $name_mac);
+	while(<$f>) {
+		chomp;
+		#my ( $ip, $name, $mac ) = split(/ /,$_);
+		my ( $name, $mac ) = split(/ /,$_);
+		$mac = lc($mac);
+		$mac2name->{$mac} = $name;
+	}
 }
 
 sub mac2name {
-- 
2.20.1