avoid error if juniper vlan not in bp_index
This commit is contained in:
@@ -327,7 +327,14 @@ sub i_vlan_membership {
|
|||||||
|
|
||||||
foreach my $vlan ( keys %$v_ports ) {
|
foreach my $vlan ( keys %$v_ports ) {
|
||||||
my @bp_indexes = split /,/, $v_ports->{$vlan};
|
my @bp_indexes = split /,/, $v_ports->{$vlan};
|
||||||
push @{ $res->{ $bp_index->{$_} } }, $vlan for @bp_indexes;
|
foreach my $idx (@bp_indexes) {
|
||||||
|
if (!exists $bp_index->{$_}) {
|
||||||
|
print " VLAN $vlan has no bp_index mapping. Skipping.\n"
|
||||||
|
if $DEBUG;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
push @{ $res->{ $bp_index->{$_} } }, $vlan for @bp_indexes;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
return $res;
|
return $res;
|
||||||
}
|
}
|
||||||
@@ -353,7 +360,14 @@ sub i_vlan_membership_untagged {
|
|||||||
|
|
||||||
foreach my $vlan ( keys %$v_ports ) {
|
foreach my $vlan ( keys %$v_ports ) {
|
||||||
my @bp_indexes = split /,/, $v_ports->{$vlan};
|
my @bp_indexes = split /,/, $v_ports->{$vlan};
|
||||||
push @{ $res->{ $bp_index->{$_} } }, $vlan for @bp_indexes;
|
foreach my $idx (@bp_indexes) {
|
||||||
|
if (!exists $bp_index->{$_}) {
|
||||||
|
print " untagged VLAN $vlan has no bp_index mapping. Skipping.\n"
|
||||||
|
if $DEBUG;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
push @{ $res->{ $bp_index->{$_} } }, $vlan for @bp_indexes;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
return $res;
|
return $res;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user