From 40cd98c3b7b27dae4f42672c38788a64f42cedb2 Mon Sep 17 00:00:00 2001
From: hadeshyp <hadeshyp>
Date: Fri, 4 Jan 2013 19:24:38 +0000
Subject: [PATCH] *** empty log message ***

---
 cts/include/TrbNet.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/cts/include/TrbNet.pm b/cts/include/TrbNet.pm
index 16ada4f..562c3c2 100644
--- 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;
-- 
2.43.0