From 1b2d92728961e9ca40ebb51560a636f347c1483b Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Thu, 4 Jul 2013 19:10:12 +0200
Subject: [PATCH] more precise error message & one more register

---
 xml-db/database/TrbNet.xml | 8 +++++++-
 xml-db/get.pl              | 4 +---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/xml-db/database/TrbNet.xml b/xml-db/database/TrbNet.xml
index 4f22397..6c77701 100644
--- a/xml-db/database/TrbNet.xml
+++ b/xml-db/database/TrbNet.xml
@@ -14,6 +14,12 @@
         <description>Board temperature</description>
       </field>
     </register>
-  </group>
+    
+    <register name="CompileTime" address="0040" purpose="status">
+      <description>Compilation Time</description>
+      <field name="CompileTime" start="0" bits="32" format="time" />
+    </register>
+
+</group>
 
 </TrbNetEntity>
diff --git a/xml-db/get.pl b/xml-db/get.pl
index 442fc92..e2eaf95 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -32,7 +32,7 @@ pod2usage(1) if $help;
 my $file = "$RealBin/cache/$ARGV[0].entity";
 die "Entity $file not found.\n" unless(-e $file) ;
 die "DAQOPSERVER not set in environment" unless (defined $ENV{'DAQOPSERVER'});
-die "can not connect to trbnet-daemon on the $ENV{'DAQOPSERVER'}" unless (defined &trb_init_ports());
+die "can not connect to trbnet-daemon on $ENV{'DAQOPSERVER'}: ".trb_strerror() unless (defined &trb_init_ports());
   
 my $netaddr = $ARGV[1] || "";
 if    ($netaddr=~ m/0x([0-9a-fA-F]{4})/) {$netaddr = hex($1);}
@@ -88,9 +88,7 @@ sub FormatPretty {
   
   return $ret;
   }
-
 #       <xs:enumeration value="string"/>
-#       <xs:enumeration value="enum"/>
 
 ###############################
 #### Do Trbcmd access
-- 
2.43.0