05062632ba
(and fixes some problems that would be seen with perl 5.12). Couple of other minor fixes.
24 lines
1.2 KiB
Plaintext
24 lines
1.2 KiB
Plaintext
$OpenBSD: patch-bin_cfgmaker,v 1.2 2010/05/18 08:31:43 sthen Exp $
|
|
--- bin/cfgmaker.orig Mon May 17 14:59:20 2010
|
|
+++ bin/cfgmaker Tue May 18 08:53:04 2010
|
|
@@ -170,7 +170,7 @@ sub InterfaceInfo($$$$$) {
|
|
push @Variables, ($1 > 11.0 or $1 < 10.0 ) ? "ifAlias" : "CiscolocIfDescr";
|
|
if ($1 > 11.2) {push @Variables, "vmVlan";};
|
|
if ($1 > 11.3) {push @Variables, "vlanTrunkPortDynamicStatus";};
|
|
- } elsif ( $routers->{$router}{deviceinfo}{Vendor} =~ /(?:hp|juniper|foundry|dellLan|force10|3com|extremenetworks)/) {
|
|
+ } elsif ( $routers->{$router}{deviceinfo}{Vendor} =~ /(?:hp|juniper|foundry|dellLan|force10|3com|extremenetworks|wwp|openBSD)/) {
|
|
push @Variables, "ifAlias";
|
|
}
|
|
|
|
@@ -991,7 +991,9 @@ sub DeviceInfo ($$$) {
|
|
'1.3.6.1.4.1.2636.' => 'juniper',
|
|
'1.3.6.1.4.1.94.' => 'nokiaipsofw',
|
|
'1.3.6.1.4.1.307.' => 'portmaster',
|
|
- '1.3.6.1.4.1.2272.30' => 'nortel'
|
|
+ '1.3.6.1.4.1.2272.30' => 'nortel',
|
|
+ '1.3.6.1.4.1.6141.' => 'wwp',
|
|
+ '1.3.6.1.4.1.30155.' => 'openBSD'
|
|
);
|
|
foreach (keys %vendorIDs) {
|
|
$DevInfo{Vendor} = $vendorIDs{$_} if ($DevInfo{sysObjectID} =~ /\Q$_\E/);
|