From 17f64b48af7515ec9ed219e25fc900969169fee6 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 4 Oct 2018 13:56:09 +0200
Subject: bridge-port-to-default: support different configurations

Just add something like this to your bridge ports:

comment="default:br-ext,alt:br-intern"
---
 bridge-port-to-default | 28 ++++++++++++++++++----------
 1 file changed, 18 insertions(+), 10 deletions(-)

(limited to 'bridge-port-to-default')

diff --git a/bridge-port-to-default b/bridge-port-to-default
index fc86aae..3a62a57 100644
--- a/bridge-port-to-default
+++ b/bridge-port-to-default
@@ -4,15 +4,23 @@
 #
 # reset bridge ports to default bridge
 
-:foreach interface in=[ / interface bridge port find where comment~"^default:" ] do={
-  :local comment [ / interface bridge port get $interface comment ];
-  :local "interface-name" [ / interface bridge port get $interface interface ];
-  :local "bridge-default" [ :pick $comment 8 [ :len $comment ] ];
-  :local "bridge-current" [ / interface bridge port get $interface bridge ];
-  :if ($"bridge-default" != $"bridge-current") do={
-    :log info ("Reverting interface " . $"interface-name" . " to default bridge " . $"bridge-default");
-    / interface bridge port set bridge=$"bridge-default" $interface;
-  } else={
-    :log debug ("Interface " . $"interface-name" . " already connected to default bridge " . $"bridge-default");
+:global "bridge-port-to";
+
+:local "len" ([ :len $"bridge-port-to" ] + 1);
+
+:foreach interface in=[ / interface bridge port find where comment!="" ] do={
+  :foreach comment in=[ :toarray [ / interface bridge port get $interface comment ] ] do={
+    :if ([ :pick $comment 0 $len ] = ($"bridge-port-to" . ":")) do={
+      :local "interface-name" [ / interface bridge port get $interface interface ];
+      :local "bridge-default" [ :pick $comment $len [ :len $comment ] ];
+      :local "bridge-current" [ / interface bridge port get $interface bridge ];
+      :if ($"bridge-default" != $"bridge-current") do={
+        :log info ("Changing interface " . $"interface-name" . " to " . $"bridge-port-to" . " bridge " . $"bridge-default");
+        / interface bridge port set bridge=$"bridge-default" $interface;
+        / ip dhcp-client renew [ find where interface=$"bridge-default" ];
+      } else={
+        :log debug ("Interface " . $"interface-name" . " already connected to " . $"bridge-port-to" . " bridge " . $"bridge-default");
+      }
+    }
   }
 }
-- 
cgit v1.2.3-54-g00ecf