From d719e240d20ad98d188592e34cbb9ccfb2c842c2 Mon Sep 17 00:00:00 2001
From: Justin Hunter <justin.hunter@highwinds.com>
Date: Fri, 9 Sep 2016 14:45:33 -0700
Subject: [PATCH] return proper VLAN IDs for Juniper

---
 Info/Layer3/Juniper.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/Info/Layer3/Juniper.pm b/Info/Layer3/Juniper.pm
index 7b3fceb0..4803b26a 100644
--- a/Info/Layer3/Juniper.pm
+++ b/Info/Layer3/Juniper.pm
@@ -256,6 +256,22 @@ sub _vlan_hoa {
     return $vlan_hoa;
 }
 
+sub qb_fw_vlan {
+    my $juniper = shift;
+
+    my $qb_fw_vlan = $juniper->SUPER::qb_fw_vlan();
+    my $jnxL2aldVlanFdbId = $juniper->jnxL2aldVlanFdbId();
+    my $jnxL2aldVlanTag = $juniper->jnxL2aldVlanTag();
+    my %fdb_id_to_tag = reverse %$jnxL2aldVlanFdbId;
+
+    foreach my $key (keys %$qb_fw_vlan) {
+        my $v = $qb_fw_vlan->{$key};
+        $qb_fw_vlan->{$key} = $jnxL2aldVlanTag->{$fdb_id_to_tag{$v}};
+    }
+
+    return $qb_fw_vlan;
+}
+
 # Pseudo ENTITY-MIB methods
 
 # This class supports both virtual chassis (stackable) and physical chassis