</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>
}
-getdata('read_conf.pl',write_field);
+getdata('pwr.conf',write_field);
</script>
</p>
+++ /dev/null
-#!/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;