From: Jan Michel <j.michel@gsi.de>
Date: Wed, 16 Oct 2013 11:22:17 +0000 (+0200)
Subject: added xml based TDC GUI for completeness
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=418957c2f6401d8d0c07915948d4dd6364b31248;p=daqtools.git

added xml based TDC GUI for completeness
---

diff --git a/web/htdocs/tdc/tdcstatctrl.pl b/web/htdocs/tdc/tdcstatctrl.pl
new file mode 100755
index 0000000..595083c
--- /dev/null
+++ b/web/htdocs/tdc/tdcstatctrl.pl
@@ -0,0 +1,42 @@
+&htsponse(200, "OK");
+print "Content-type: text/html\r\n\r\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} = "TDC Status & Control";
+$page->{link}  = "../";
+
+my @setup;
+$setup[0]->{name}    = "Status";
+$setup[0]->{cmd}     = "TDC-0xfe48-Status";
+$setup[0]->{refresh} = 1;
+$setup[0]->{period}  = 10000;
+
+$setup[1]->{name}    = "Control";
+$setup[1]->{cmd}     = "TDC-0xfe48-Control";
+$setup[1]->{refresh} = 1;
+$setup[1]->{period}  = 0;
+
+
+$setup[2]->{name}    = "Inputs";
+$setup[2]->{cmd}     = "TDC-0xfe48-Channel";
+$setup[2]->{refresh} = 1;
+$setup[2]->{period}  = 0;
+
+xmlpage::initPage(\@setup,$page);
+ 
+
+ 
+
+1;
+
+