]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
Update daqtools power supply control
authorJan Michel <j.michel@gsi.de>
Mon, 22 May 2017 09:27:07 +0000 (11:27 +0200)
committerJan Michel <j.michel@gsi.de>
Mon, 22 May 2017 09:27:07 +0000 (11:27 +0200)
web/htdocs/tools/pwr/index.html
web/htdocs/tools/pwr/read_conf.pl [deleted file]

index 7aee7e758bca0bf794989de9ee5b144f7e90121e..ce04366bb6a793aa80436065916b5c1362a31aca 100644 (file)
@@ -9,7 +9,9 @@
          </head>
 
          <body>
+         
 <h2>Basic power supply control</h2>
+<h3>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.</h3>
 <p id="content">
 Platzhalter
 </p>
@@ -67,7 +69,7 @@ function write_field(data) {
   }
 
   
-getdata('read_conf.pl',write_field); 
+getdata('pwr.conf',write_field); 
 </script>
 
 </p>
diff --git a/web/htdocs/tools/pwr/read_conf.pl b/web/htdocs/tools/pwr/read_conf.pl
deleted file mode 100755 (executable)
index acf4909..0000000
+++ /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 = <LESEN>)) {
-
-print $i;
-
-       }
-
-
-
-return true;