Parse netaddr stricter in get.pl

diff --git a/xml-db/get.pl b/xml-db/get.pl
index f4677bda62d0aa37be3120b416abd5e8fa857bd4..a5a39fb54383a7aa39fba6772a947b00ad52fa2a 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -94,9 +94,13 @@ foreach my $req (@request) {
 ###############################
 
   die "Entity $file not found.\n" unless(-e $file) ;
-    
-  if    ($netaddr=~ m/0x([0-9a-fA-F]{4})/) {$netaddr = hex($1);}
-  elsif ($netaddr=~ m/([0-9]{1,5})/) {$netaddr = $1;}
+
+
+  # trim whitespace from netaddr
+  $netaddr =~ s/^\s+|\s+$//g;
+
+  if    ($netaddr=~ m/^0x([0-9a-fA-F]{4})$/) {$netaddr = hex($1);}
+  elsif ($netaddr=~ m/^([0-9]{1,5})$/) {$netaddr = $1;}
   else {die "Could not parse address $netaddr\n";}