From a69a62d96390c5bdce389b9bb8fed9dbef8a3113 Mon Sep 17 00:00:00 2001
From: Jan Michel <michel@physik.uni-frankfurt.de>
Date: Wed, 27 Dec 2023 15:19:50 +0100
Subject: [PATCH] add scalerreadout page

---
 web/htdocs/tools/scalerreadout.pl | 38 +++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100755 web/htdocs/tools/scalerreadout.pl

diff --git a/web/htdocs/tools/scalerreadout.pl b/web/htdocs/tools/scalerreadout.pl
new file mode 100755
index 0000000..4bc7ecd
--- /dev/null
+++ b/web/htdocs/tools/scalerreadout.pl
@@ -0,0 +1,38 @@
+#!/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} = "ScalerReadout";
+$page->{link}  = "../";
+
+my @setup;
+my $i = 0;
+
+$setup[$i]->{name}    = "Registers";
+$setup[$i]->{cmd}     = "ScalersReadout-0xfb35-Registers";
+$setup[$i]->{period}  = 1000;
+$setup[$i]->{address} = 1;
+
+
+xmlpage::initPage(\@setup,$page);
+
+1;
+
+
-- 
2.43.0