From: hadeshyp Date: Fri, 4 Jan 2013 19:24:38 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=40cd98c3b7b27dae4f42672c38788a64f42cedb2;p=daqtools.git *** empty log message *** --- 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;