Skip to content

add crs125/rb1100 vlan support #631

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
si458 wants to merge 2 commits into
base: master
Choose a base branch
from
Open

add crs125/rb1100 vlan support #631

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
64584dc
add crs125 switch vlan support
si458 Aug 19, 2026
12e37f2
Refactor VLAN handling and add error check
si458 Aug 21, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
64 changes: 63 additions & 1 deletion snmp/Routeros/LNMS_vlans.scr
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,11 @@
:global vlansu [:toarray ""]
:global vlansn [:toarray ""]

:local hasswvlan true
:do {
:put [/interface ethernet switch vlan print count-only]
} on-error={ :set hasswvlan false }

:foreach i in [/interface bridge vlan find] do={
:local intf [/interface bridge vlan get $i bridge]
:local vlid [/interface bridge vlan get $i vlan-ids]
Expand All @@ -33,7 +38,7 @@
:local fl 0
:foreach tmp in $vlansu do={
:local ar [:toarray $tmp]
:if ((($ar->0) = $vlid) && (($ar->1) = $iu)) do={
:if ((($ar->0) = $vlid) && (($ar->1) = $iu)) do={
:set fl 1
}
}
Expand All @@ -49,6 +54,8 @@
:local vname [/interface vlan get $vl name]
:local fl 0

:set $vlansn ($vlansn, "$vlid,$vname")

:foreach tmp in $vlanst do={
:local ar [:toarray $tmp]
:if ((($ar->0) = $vlid) && (($ar->1) = $intf)) do={
Expand All @@ -58,6 +65,61 @@
:if ( $fl != 1 ) do={
:set $vlanst ($vlanst, "$vlid,$intf,$vname")
}

:foreach u in [/interface bridge port find where bridge=$intf and pvid=$vlid] do={
:local iu [/interface bridge port get $u interface]
:local fl 0
:foreach tmp in $vlansu do={
:local ar [:toarray $tmp]
:if ((($ar->0) = $vlid) && (($ar->1) = $iu)) do={
:set fl 1
}
}
:if ( $fl != 1 ) do={
:set $vlansu ($vlansu, "$vlid,$iu,$vname")
}
}
}

:if ($hasswvlan) do={
:foreach i in [/interface ethernet switch vlan find] do={
:local vlid [/interface ethernet switch vlan get $i vlan-id]
:local vname [/interface ethernet switch vlan get $i comment]

:set $vlansn ($vlansn, "$vlid,$vname")

:foreach i in [/interface vlan find where vlan-id=$vlid] do={
:local intname [/interface vlan get $i name]
:set $vname ($intname)
}

:foreach j in [/interface ethernet switch egress-vlan-tag find where vlan-id=$vlid] do={
:local tagged [/interface ethernet switch egress-vlan-tag get $j tagged-ports]
:foreach port in $tagged do={
:if ($port != "") do={
:set $vlanst ($vlanst, "$vlid,$port,$vname")
}
}
}

:foreach j in [/interface ethernet switch ingress-vlan-translation find where new-customer-vid=$vlid] do={
:local untagged [/interface ethernet switch ingress-vlan-translation get $j ports]
:foreach port in $untagged do={
:if ($port != "") do={
:local fl 0
:foreach tmp in $vlansu do={
:local ar [:toarray $tmp]
:if ((($ar->0) = $vlid) && (($ar->1) = $port)) do={
:set fl 1
}
}
:if ( $fl != 1 ) do={
:set $vlansu ($vlansu, "$vlid,$port,$vname")
}
}
}
}
}
}

:foreach tmp in $vlansn do={
Expand Down