From 122dd65d8cf52315ad5eed3bfd030c0307fe2e37 Mon Sep 17 00:00:00 2001
From: Michel Jouvin <jouvin@lal.in2p3.fr>
Date: Tue, 16 Apr 2024 09:04:57 +0200
Subject: [PATCH] ncm-nmstate: relax VLAN name pattern

- Does not require a . between interface name and VLAN ID

Fixes #1678
---
 ncm-network/src/main/perl/nmstate.pm          |  2 +-
 ncm-network/src/test/perl/nmstate_advance.t   | 31 +++++++++++++++++++
 .../src/test/resources/nmstate_advance.pan    | 10 +++++-
 3 files changed, 41 insertions(+), 2 deletions(-)

diff --git a/ncm-network/src/main/perl/nmstate.pm b/ncm-network/src/main/perl/nmstate.pm
index 18f67052b2..bc36e9498f 100644
--- a/ncm-network/src/main/perl/nmstate.pm
+++ b/ncm-network/src/main/perl/nmstate.pm
@@ -300,7 +300,7 @@ sub generate_vip_config {
 # i.e given eth0.123 return 123
 sub _get_vlan_id {
     my ($self, $name) = @_;
-    return $1 if ($name =~ m/\.(\d+)$/);
+    return $1 if ($name =~ m/^[a-z]+(?:\d+\.)?(\d+)$/);
 }
 
 # find vlan id from either the name or device.
diff --git a/ncm-network/src/test/perl/nmstate_advance.t b/ncm-network/src/test/perl/nmstate_advance.t
index af1eddcfd2..90ea1021b5 100644
--- a/ncm-network/src/test/perl/nmstate_advance.t
+++ b/ncm-network/src/test/perl/nmstate_advance.t
@@ -120,6 +120,34 @@ routes:
     next-hop-interface: vlan0
 EOF
 
+Readonly my $VLAN123_YML => <<EOF;
+# File generated by NCM::Component::nmstate. Do not edit
+---
+interfaces:
+- ipv4:
+    address:
+    - ip: 4.3.2.1
+      prefix-length: 24
+    dhcp: false
+    enabled: true
+  name: vlan123
+  profile-name: vlan123
+  state: up
+  type: vlan
+  vlan:
+    base-iface: eth0
+    id: '123'
+routes:
+  config:
+  - next-hop-interface: vlan123
+    state: absent
+  - destination: 0.0.0.0/0
+    next-hop-address: 4.3.2.254
+    next-hop-interface: vlan.123
+  - destination: 1.2.3.4/32
+    next-hop-interface: vlan123
+EOF
+
 
 Readonly my $DHCP_YML => <<EOF;
 # File generated by NCM::Component::nmstate. Do not edit
@@ -218,4 +246,7 @@ is($vlanyml, $VLAN_YML, "Exact eth0.123 vlan yml config");
 
 my $vlanyml2 = get_file_contents("/etc/nmstate/vlan0.yml");
 is($vlanyml2, $VLAN0_YML, "Exact vlan0  yml config");
+
+my $vlanyml3 = get_file_contents("/etc/nmstate/vlan123.yml");
+is($vlanyml3, $VLAN123_YML, "Exact vlan123  yml config");
 done_testing();
diff --git a/ncm-network/src/test/resources/nmstate_advance.pan b/ncm-network/src/test/resources/nmstate_advance.pan
index 1896c6eecb..36a46edf83 100644
--- a/ncm-network/src/test/resources/nmstate_advance.pan
+++ b/ncm-network/src/test/resources/nmstate_advance.pan
@@ -39,4 +39,12 @@ prefix "/system/network/interfaces/eth0.123";
 prefix "/system/network/interfaces/vlan0";
 "device" = "eth0.123";
 "physdev" = "eth0";
-"route/0" = dict("address", "1.2.3.4");
\ No newline at end of file
+"route/0" = dict("address", "1.2.3.4");
+
+# test vlan interface route on vlan for backward compatibily with network.pm
+# No dot between 'vlan' and VLAN ID
+"/system/network/interfaces/vlan123" = create("defaultinterface");
+prefix "/system/network/interfaces/vlan123";
+"device" = "vlan123";
+"physdev" = "eth0";
+"route/0" = dict("address", "1.2.3.4");