From a28528e4c58ea53bd4e0ebc47b9ee60af4dcee41 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Fri, 7 Feb 2020 17:26:44 +0100 Subject: [PATCH] allow underscore in names of xml-db names --- xml-db/put.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xml-db/put.pl b/xml-db/put.pl index a6bd596..1fbedb9 100755 --- a/xml-db/put.pl +++ b/xml-db/put.pl @@ -102,8 +102,8 @@ foreach my $req (@request) { else {die "Could not parse address $netaddr\n";} - if ($name =~ m/^([a-zA-Z0-9]+)\.(\d+)$/) {$name = $1; $slice = $2;} - elsif ($name =~ m/^([a-zA-Z0-9]+)$/) {$name = $1; $slice = 0;} + if ($name =~ m/^([a-zA-Z0-9_]+)\.(\d+)$/) {$name = $1; $slice = $2;} + elsif ($name =~ m/^([a-zA-Z0-9_]+)$/) {$name = $1; $slice = 0;} else {die "Could not parse name $name \n";} $db = retrieve($file); -- 2.43.0