+# XXX inject additional mac in filter to include wap devices
+my $mac_include = '/dev/shm/mac.wap';
+if ( -e $mac_include ) {
+ open(my $fh, '<', $mac_include);
+ while(<$fh>) {
+ chomp;
+ my ($mac,$host) = split(/\s+/,$_,2);
+ $mac =~ s/^0//; $mac =~ s/:0/:/g; # mungle mac to snmp format without leading zeros
+ $stat->{_mac2sw}->{$mac} = $host;
+ }
+ warn "# $mac_include added to _mac2sw = ",dump($stat->{_mac2sw}),$/;
+}
+