From: Ludwig Maier Date: Tue, 4 Mar 2014 22:29:17 +0000 (+0100) Subject: nxyter update X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=7296baa7d4de73703ac5dbaccb26dec10139871a;p=daqtools.git nxyter update --- diff --git a/web/htdocs/nxyter/index_a.pl b/web/htdocs/nxyter/index_a.pl new file mode 100755 index 0000000..6f8be80 --- /dev/null +++ b/web/htdocs/nxyter/index_a.pl @@ -0,0 +1,69 @@ +#!/usr/bin/perl +if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) { + print "HTTP/1.0 200 OK\n"; + print "Content-type: text/html\r\n\r\n"; + } +else { + use lib '..'; + use if (!($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i)), apacheEnv; + print "Content-type: text/html\n\n"; + } + +use CGI ':standard'; +use XML::LibXML; +use POSIX; +use CGI::Carp qw(fatalsToBrowser); + +use lib qw|../commands htdocs/commands|; +use xmlpage; + +my $page; + +$page->{title} = "Nxyter Register Advanced Mode"; +$page->{link} = "../"; + +my @setup; + +$setup[0]->{name} = "Rate_0"; +$setup[0]->{cmd} = "Nxyter-0x3800-RateHist-rate"; +$setup[0]->{period} = -1; +$setup[0]->{address} = 1; + +$setup[1]->{name} = "Rate_1"; +$setup[1]->{cmd} = "Nxyter-0x3801-RateHist-rate"; +$setup[1]->{period} = -1; +$setup[1]->{address} = 1; + +$setup[2]->{name} = "Pileup_0"; +$setup[2]->{cmd} = "Nxyter-0x3800-PileupHist-rate"; +$setup[2]->{period} = -1; +$setup[2]->{address} = 1; + +$setup[3]->{name} = "Pileup_1"; +$setup[3]->{cmd} = "Nxyter-0x3801-PileupHist-rate"; +$setup[3]->{period} = -1; +$setup[3]->{address} = 1; + +$setup[4]->{name} = "Ovfl_0"; +$setup[4]->{cmd} = "Nxyter-0x3800-OverFlowHist-rate"; +$setup[4]->{period} = -1; +$setup[4]->{address} = 1; + +$setup[5]->{name} = "Ovfl_1"; +$setup[5]->{cmd} = "Nxyter-0x3801-OverFlowHist-rate"; +$setup[5]->{period} = -1; +$setup[5]->{address} = 1; + +$setup[6]->{name} = "ADC_0"; +$setup[6]->{cmd} = "Nxyter-0x3800-ADCHist"; +$setup[6]->{period} = -1; +$setup[6]->{address} = 1; + +$setup[7]->{name} = "ADC_1"; +$setup[7]->{cmd} = "Nxyter-0x3801-ADCHist"; +$setup[7]->{period} = -1; +$setup[7]->{address} = 1; + +xmlpage::initPage(\@setup,$page); + +1;