*** empty log message ***

diff --git a/cts/include/TrbNet.pm b/cts/include/TrbNet.pm
index 16ada4f539e743ad43058b98928eaeb5d8fd85aa..562c3c2d80840cd84759cefa6ba932fb061fd1d2 100644 (file)
--- a/cts/include/TrbNet.pm
+++ b/cts/include/TrbNet.pm
@@ -13,6 +13,7 @@ sub new {
    trb_init_ports() or die trb_strerror();
    
    my $self = {
+      '_daqopserver' => $ENV{'DAQOPSERVER'},
       '_endpoint' => $endpoint,
       '_known_registers' => {},
       '_prefetch' => {},
@@ -209,5 +210,7 @@ sub addKnownRegister {
    $self->{'_known_registers'}{$reg->getAddress} = $reg;
 }
 
-
+sub getDAQOPSERVER {
+  return $_[0]->{'_daqopserver'}
+}
 1;