allow underscore in names of xml-db names

diff --git a/xml-db/put.pl b/xml-db/put.pl
index a6bd596f1542f23e531cbb365c8d870eb39d3baf..1fbedb997e8abc28b28872db96854a94ef456038 100755 (executable)
--- 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);