From: Jan Michel Date: Tue, 29 Nov 2022 15:51:33 +0000 (+0100) Subject: Add links to web pages, add list of tools X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=2417c18eee0d8b80c31c5b145c63e96206d00190;p=daqtools.git Add links to web pages, add list of tools --- 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; + +