more precise error message & one more register

diff --git a/xml-db/database/TrbNet.xml b/xml-db/database/TrbNet.xml
index 4f2239735cdf1f04759e9fce608d75cfc01e97f1..6c77701374168f0d0184a58c064e439c304b230d 100644 (file)
--- 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 442fc925cbcf7edbc0cd570c767030d2445f68f7..e2eaf951a5dd5eea76bb0b4328bd450e54108318 100755 (executable)
--- 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