From de0e698e640906a186af38e2c5684f4b6e251b3d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 13 Aug 2022 17:49:23 +0200
Subject: [PATCH] use /dev/shm/name-mac* files

---
 sbw-parse.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sbw-parse.pl b/sbw-parse.pl
index 04e24e1..13dccf5 100755
--- a/sbw-parse.pl
+++ b/sbw-parse.pl
@@ -18,18 +18,22 @@ my $debug = $ENV{DEBUG} || 0;
 
 my @cols = qw( ifName ifHighSpeed ifAdminStatus ifOperStatus ifType dot1dStpPortPathCost ifAlias );
 
+my @name_mac_files = ( qw( /dev/shm/sw-name-mac /dev/shm/wap-name-mac ), $ENV{NAME_MAC}, glob '/dev/shm/name-mac*' );
 my $mac2name;
 
-foreach my $name_mac ( qw( /dev/shm/sw-name-mac /dev/shm/wap-name-mac ), $ENV{NAME_MAC} ) {
+foreach my $name_mac ( @name_mac_files ) {
 	next unless -e $name_mac;
 	open(my $f, '<'. $name_mac);
+	my $count = 0;
 	while(<$f>) {
 		chomp;
 		#my ( $ip, $name, $mac ) = split(/ /,$_);
 		my ( $name, $mac ) = split(/ /,$_);
 		$mac = lc($mac);
 		$mac2name->{$mac} = $name;
+		$count++;
 	}
+	warn "## $name_mac $count";
 }
 
 sub mac2name {
-- 
2.20.1