From 418957c2f6401d8d0c07915948d4dd6364b31248 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Wed, 16 Oct 2013 13:22:17 +0200 Subject: [PATCH] added xml based TDC GUI for completeness --- web/htdocs/tdc/tdcstatctrl.pl | 42 +++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100755 web/htdocs/tdc/tdcstatctrl.pl 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; + + -- 2.43.0