From: Jan Michel <j.michel@gsi.de>
Date: Wed, 3 Jul 2013 20:41:59 +0000 (+0200)
Subject: latest version of get.pl
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=19fd53ee8ad44cd6f787223a4639e6efb691000a;p=daqtools.git

latest version of get.pl
---

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 0a8a1f4..387512d 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -51,8 +51,17 @@ if (!defined &trb_init_ports()) {
 my $db = lock_retrieve($file);
 die "Unable to read cache file\n" unless defined $db;
 
-
-
+unless(exists $db->{$name}) {
+  die "Name not found in entity file\n";
+  }
+  
+print DumpTree($db->{$name});  
+  
+if($db->{$name}->{type} eq "register" || $db->{$name}->{type} eq "registerfield") {
+  my $o = trb_register_read($netaddr,$db->{$name}->{address});
+  print DumpTree($o);
+  }
+  
 
 
 __END__