Rework regex again for conflicts between 8100 and 1100 series.

This commit is contained in:
Eric Miller
2006-09-29 13:56:42 +00:00
parent 88890649bf
commit d8994dc737

View File

@@ -126,7 +126,7 @@ sub i_index {
# Get VLAN Virtual Router Interfaces
if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|1100|12)/)))) {
($partial > 256 and $model =~ /(105|11[05]0|12[05])/)))) {
my $vlan_index = $passport->rc_vlan_if() || {};
@@ -177,7 +177,7 @@ sub interfaces {
if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|1100|12)/)))) {
($partial > 256 and $model =~ /(105|11[05]0|12[05])/)))) {
$vlan_index = $passport->rc_vlan_if();
%reverse_vlan = reverse %$vlan_index;
$vlan_id = $passport->rc_vlan_id();
@@ -205,7 +205,7 @@ sub interfaces {
}
elsif (($index > 2000 and $model =~ /(86|83|81|16)/) or
($index > 256 and $model =~ /(105|1100|12)/)) {
($index > 256 and $model =~ /(105|11[05]0|12[05])/)) {
my $v_index = $reverse_vlan{$iid};
my $v_id = $vlan_id->{$v_index};
@@ -245,7 +245,7 @@ sub i_mac {
# Get VLAN Virtual Router Interfaces
if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|1100|12)/)))) {
($partial > 256 and $model =~ /(105|11[05]0|12[05])/)))) {
my $vlan_index = $passport->rc_vlan_if() || {};
my $vlan_mac = $passport->rc_vlan_mac() || {};
@@ -311,7 +311,7 @@ sub i_description {
# Get VLAN Virtual Router Interfaces
if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|1100|12)/)))) {
($partial > 256 and $model =~ /(105|11[05]0|12[05])/)))) {
my $v_descr = $passport->rc_vlan_name();
my $vlan_index = $passport->rc_vlan_if();
@@ -343,7 +343,7 @@ sub i_name {
if (!defined $partial or (defined $model and
(($partial > 2000 and $model =~ /(86|83|81|16)/) or
($partial > 256 and $model =~ /(105|1100|12)/)))) {
($partial > 256 and $model =~ /(105|11[05]0|12[05])/)))) {
$v_name = $passport->rc_vlan_name() || {};
$vlan_index = $passport->rc_vlan_if() || {};
%reverse_vlan = reverse %$vlan_index;
@@ -369,7 +369,7 @@ sub i_name {
}
elsif (($iid > 2000 and defined $model and $model =~ /(86|83|81|16)/) or
($iid > 256 and defined $model and $model =~ /(105|1100|12)/)) {
($iid > 256 and defined $model and $model =~ /(105|11[05]0|12[05])/)) {
my $vlan_index = $reverse_vlan{$iid};
my $vlan_name = $v_name->{$vlan_index};
next unless defined $vlan_name;
@@ -478,7 +478,7 @@ sub index_factor {
my $model = $passport->model();
my $index_factor = 64;
# Older Accelar models use base 16 instead of 64
$index_factor = 16 if (defined $model and $model =~ /(105|1100|12)/);
$index_factor = 16 if (defined $model and $model =~ /(105|11[05]0|12[05])/);
return $index_factor;
}