From: Jan Michel <j.michel@gsi.de>
Date: Fri, 7 Feb 2020 16:26:44 +0000 (+0100)
Subject: allow underscore in names of xml-db names
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=a28528e4c58ea53bd4e0ebc47b9ee60af4dcee41;p=daqtools.git

allow underscore in names of xml-db names
---

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);