From 2417c18eee0d8b80c31c5b145c63e96206d00190 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Tue, 29 Nov 2022 16:51:33 +0100 Subject: [PATCH] Add links to web pages, add list of tools --- web/htdocs/index.pl | 25 +++++++++++------ web/htdocs/network/tools.pl | 55 +++++++++++++++++++++++++++++++++++++ 2 files changed, 71 insertions(+), 9 deletions(-) create mode 100755 web/htdocs/network/tools.pl diff --git a/web/htdocs/index.pl b/web/htdocs/index.pl index 313a611..8a0bac7 100755 --- a/web/htdocs/index.pl +++ b/web/htdocs/index.pl @@ -53,8 +53,7 @@ The main documentation of the network can be found in these documents and locati
  • CTS Control
  • TrbNet status
  • Network Hubs -
  • GbE status -
  • GbE (xml-based) +
  • GbE
  • Network Map @@ -65,8 +64,9 @@ The main documentation of the network can be found in these documents and locati
    @@ -77,11 +77,14 @@ The main documentation of the network can be found in these documents and locati + +

    Building Blocks

    @@ -93,6 +96,7 @@ The main documentation of the network can be found in these documents and locati
  • 48ch sampling ADC
  • 48ch sampling ADC CFD
  • Pulser AddOn +
  • Tools like SPI, UART, I2C
  • Everything else @@ -102,13 +106,14 @@ The main documentation of the network can be found in these documents and locati

    Further Tools

    +
    @@ -117,12 +122,14 @@ The main documentation of the network can be found in these documents and locati
    diff --git a/web/htdocs/network/tools.pl b/web/htdocs/network/tools.pl new file mode 100755 index 0000000..ea95ac5 --- /dev/null +++ b/web/htdocs/network/tools.pl @@ -0,0 +1,55 @@ +#!/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} = "Triggerbox Register"; +$page->{link} = "../"; + +my @setup; + + +push(@setup,({name => "ADC", + cmd => "ADC_Controller-0xffff-Results", + period => 1000, + rates => 1, + address => 1})); + + +push(@setup,({name => "I2C", + cmd => "I2C-0xffff-I2C", + period => 1000, + rates => 1, + address => 1})); + + +push(@setup,({name => "SPI", + cmd => "SPI-0xffff-ControlRegisters", + period => 1000, + rates => 1, + address => 1})); + +xmlpage::initPage(\@setup,$page); + + + + +1; + + -- 2.43.0