From 3a456d586f27e2db8f4c4fa4a79254b1b8554edd Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Mon, 22 May 2017 11:27:07 +0200 Subject: [PATCH] Update daqtools power supply control --- web/htdocs/tools/pwr/index.html | 4 +++- web/htdocs/tools/pwr/read_conf.pl | 29 ----------------------------- 2 files changed, 3 insertions(+), 30 deletions(-) delete mode 100755 web/htdocs/tools/pwr/read_conf.pl diff --git a/web/htdocs/tools/pwr/index.html b/web/htdocs/tools/pwr/index.html index 7aee7e7..ce04366 100644 --- a/web/htdocs/tools/pwr/index.html +++ b/web/htdocs/tools/pwr/index.html @@ -9,7 +9,9 @@ +

Basic power supply control

+

There is a newer version of this tool available in labtools/powersupplies/web. The new version can handle several users monitoring values (uses caching), this one is single-user only.

Platzhalter

@@ -67,7 +69,7 @@ function write_field(data) { } -getdata('read_conf.pl',write_field); +getdata('pwr.conf',write_field);

diff --git a/web/htdocs/tools/pwr/read_conf.pl b/web/htdocs/tools/pwr/read_conf.pl deleted file mode 100755 index acf4909..0000000 --- a/web/htdocs/tools/pwr/read_conf.pl +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -w -use Cwd; - -if ($ENV{'SERVER_SOFTWARE'} =~ /HTTP-?i/i) { - &htsponse(200, "OK"); - } -print "Content-type: text/html\n\n"; - - -my $pwd = &Cwd::cwd(); - -my $file = "pwr.conf"; -if ($ENV{'SERVER_SOFTWARE'} =~ /HTTPi/i) { - $file = "htdocs/tools/pwr/".$file; - } - - -open(LESEN,$file) - or print "Fehler beim oeffnen von : $!\n"; - -while(defined(my $i = )) { - -print $i; - - } - - - -return true; -- 2.43.0