From 19fd53ee8ad44cd6f787223a4639e6efb691000a Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Wed, 3 Jul 2013 22:41:59 +0200
Subject: [PATCH] latest version of get.pl

---
 xml-db/get.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

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__
-- 
2.43.0