latest version of get.pl

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 0a8a1f45c34652137f7f4bfc6560902a5dfa48b3..387512d382dd0da91edebec9e207da26faef8195 100755 (executable)
--- 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__