--- /dev/null
+Raspberry Pi slow control suite v0.1
+by Michael Wiebusch
+mwiebusch@stud.uni-frankfurt.de
+
+
+This package includes:
+
+"cooling" - a simple tool to control one or more Huber CC405 cooling devices that are connected via RS232 to the Raspberry Pi (e.g. via an RS232toUSB converter).
+
+"onewire" - a simple monitoring tool to display the output of several onewire temperature sensors that are read out by a MyAVR board with custom firmware by Jan Michel.
+
+"pwr" - a simple tool to monitor and control one or more laboratory power supplies of the type "GW Instek PSP-405"
+
+
+
+Installation:
+
+Step 1:
+
+Install an Apache2 webserver on your Raspberry Pi.
+
+Step 2:
+
+Configure the Apache thusly, that it executes perl scripts, especially outside of the "cgi-bin" directory.
+
+You can easily perform this task by adding the following lines to /etc/apache2/apache2.conf (/var/www/ be your default http root directory)
+
+<Directory /var/www/*>
+Options +ExecCGI
+AddHandler cgi-script .cgi .pl
+</Directory>
+
+Step 3:
+
+Install the perl module "libdevice-serialport-perl".
+It is necessary so perl can use serial devices in a comfortable way.
+You can perform that by using the Raspbian package manager:
+
+"sudo apt-get install libdevice-serialport-perl"
+
+Step 4:
+
+Copy the contents of the "www"-directory included in this archive into the http root directory on your raspberry pi (default: /var/www/).
+
+Step 5:
+
+Point your browser to http://[IP of the raspberry]/tools/
+and use the tools.
+
+You can configure the monitoring/control tools (especially what serial device to use) on each webinterface.
--- /dev/null
+#!/usr/bin/perl
+print "Content-type: text/html\n\n";
+use Cwd;
+
+my $pwd = &Cwd::cwd();
+
+
+open(LESEN,"cooling.conf")
+ or die "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+ if( $i =~ /^HUBERDEV:([^:]+):([^:]+)/g ) {
+ my $ser_dev=$1;
+ my $dev_id=$2;
+
+print <<EOF;
+<p>
+<iframe name="inlineframe" src="cooling.htm?device=$ser_dev&id=$dev_id" frameborder="0" scrolling="auto" width="800" height="340" ></iframe>
+</p>
+EOF
+ }
+}
+
+#print "CWD: ".$pwd."<br>(for debug)\n";
+
+
+return true;
--- /dev/null
+//HUBERDEV:/path/to/device:Device_ID
+HUBERDEV:/dev/ttyUSB3:HUBER_DUTY
--- /dev/null
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
+<link href="styles.css" rel="stylesheet" type="text/css"/>
+<script src="scripts.js" type="text/javascript"></script>
+<title>Power Supply Monitor and Access</title>
+</head>
+<body style="font-family: sans-serif;" >
+
+
+<p style="bold" id="headline">HUBER Cooling System Control</p>
+
+
+<table align=center id="layout" style="
+ border-width: 1px;
+ border-style: solid;
+ border-color: black;
+">
+
+<tr>
+<th align="left">Readings:</th><TD rowspan=2 style="border-left: 1px solid black; padding: 5px;"> <th align="left">Settings:</th>
+</tr>
+
+<tr>
+<td>
+
+<table id="readings" width="300" >
+</table>
+</td>
+
+
+
+
+<td>
+
+<form acion="">
+<table id="settings" >
+<tr>
+<td align="right">Temperature Setpoint<td><input type="text" id="form_v" name="voltage" value="">
+<td><input type="button" onClick="set_v()" value="set">
+<tr><td colspan=3><hr />
+<tr>
+<tr><td colspan=3><hr />
+
+<tr>
+</table>
+</form>
+
+</td>
+</tr>
+</table>
+
+
+
+
+<script language="javascript">
+var updaterate = 200;
+var updateTask;
+var new_commands = new Array();
+var ser_dev = getParameterByName("device");
+var dev_id = getParameterByName("id")
+
+
+function set_v() {
+ var value = parseFloat(document.getElementById("form_v").value);
+ if ( value > 0 ) {
+ var signum = "+";
+ } else {
+ var signum = "";
+ }
+ value = value * 100;
+ var command = "SP@ "+signum+padZeros(value.toFixed(0),5);
+ new_commands.push(command);
+}
+
+
+
+function update(data) {
+ if(!document.getElementById("readings").innerHTML) return;
+ document.getElementById("readings").innerHTML = data;
+updateTask = setInterval("communication()",updaterate);
+ }
+
+
+function communication() {
+ clearInterval(updateTask);
+// getdata('pwr.pl?/dev/ttyUSB0-KOD',update);
+ getdata('cooling.pl?'+ser_dev+'&'+new_commands.join('&'),update);
+ new_commands = new Array();
+}
+
+
+function padZeros(theNumber, max) {
+ var numStr = String(theNumber);
+
+ while ( numStr.length < max) {
+ numStr = '0' + numStr;
+ }
+
+ return numStr;
+}
+
+
+function getParameterByName(name)
+{
+ name = name.replace(/[\[]/, "\\\[").replace(/[\]]/, "\\\]");
+ var regexS = "[\\?&]" + name + "=([^&#]*)";
+ var regex = new RegExp(regexS);
+ var results = regex.exec(window.location.search);
+ if(results == null)
+ return "";
+ else
+ return decodeURIComponent(results[1].replace(/\+/g, " "));
+}
+
+
+
+
+updateTask = setInterval("communication()",updaterate);
+document.getElementById("headline").innerHTML = "Huber Cooling System "+'<b>'+dev_id+'</b>'+" [connected to "+'<b>'+ser_dev+'</b>'+"]" ;
+
+
+</script>
+</body></html>
--- /dev/null
+#!/usr/bin/perl
+print "Content-type: text/html\n\n";
+
+use strict;
+use warnings;
+use Device::SerialPort;
+use Time::HiRes;
+use feature 'state';
+
+my $envstring = $ENV{'QUERY_STRING'};
+$envstring =~ s/%20/ /g;
+
+
+my @new_command = split('&',$envstring);
+my $ser_dev = shift(@new_command);
+
+
+
+my $port = new Device::SerialPort($ser_dev);
+unless ($port)
+{
+ print "can't open serial interface $ser_dev\n";
+ exit;
+}
+
+$port->user_msg('ON');
+$port->baudrate(9600);
+$port->parity("none");
+$port->databits(8);
+$port->stopbits(1);
+$port->handshake("xoff");
+$port->write_settings;
+
+# debug output
+#print "attempting to communicate with power supply connected to interface:\n$ser_dev\n\n";
+
+
+transmit_command(); #if new command, send it!
+receive_answer(); # always called
+Time::HiRes::sleep(1);
+#transmit_command(); # send relais off in case current maximum is reached!
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+sub transmit_command {
+
+$port->lookclear;
+
+while ( my $command = shift(@new_command) ) {
+
+ $port->write("$command\r\n");
+ print "i sent the command: $command<br>";
+ print "\n\nokay.\n<br>";
+ Time::HiRes::sleep(.1);
+ }
+}
+
+
+
+
+sub receive_answer {
+
+
+
+
+ my %state_lookup = (
+ 0 => 'off',
+ 1 => 'on' );
+
+ my $found = 0;
+
+
+
+ # clear buffers, then send the "list"-command to the power supply
+ #$port->lookclear;
+ $port->write("IN_SP_00\r\n");
+ $port->write("TI?\r\n");
+ # sleep a second to give the supply time to react
+ #sleep 1;
+ Time::HiRes::sleep(.1);
+
+ # read what has accumulated in the serial buffer
+ for (my $i = 0; ($i<200) && ($found < 2);$i++) {
+ while(my $a = $port->lookfor) {
+ #print $a."<br>\n"; # debug output
+ if ( $a =~ m/^TI (.+)/ ) {
+ my $value = $1/100;
+ print "Internal Sensor: $value °C<br>\n";
+ $found++;
+ }
+ if ( $a =~ m/^(.[\d]+\.[\d]+)/) {
+ print "Set Point: $1 °C<br>\n";
+ $found++;
+ }
+ Time::HiRes::sleep(.01);
+ }
+
+ }
+
+
+
+
+ if($found) {
+
+ print "connection ok <br>";
+ } else {
+ print "!!! cooling device not responding !!!<br>";
+ }
+
+ print " \n";
+
+
+
+
+
+
+
+}
+
+exit 1;
--- /dev/null
+
+
+ <html>
+ <head>
+<script src="scripts.js" type="text/javascript"></script>
+ <title>Huber Remote</title>
+
+ </head>
+
+ <body>
+
+<p id="content">
+Platzhalter
+</p>
+
+<script language="javascript">
+
+function update(data) {
+ if(!document.getElementById("content").innerHTML) return;
+ document.getElementById("content").innerHTML = data;
+ }
+ getdata('build_index.pl',update);
+</script>
+
+<p id="conf_area">
+Feel free to alter the config file to accommodate your needs!<br>
+Please don't use the # character to comment out lines<br>
+<TEXTAREA NAME="Address" id="config_field" ROWS=10 COLS=50 >
+[Platzhalter]
+</TEXTAREA>
+<br>
+<input type="button" onClick="save_conf()" value="save">
+<input type="button" onClick="reload_page()" value="reload page">
+
+<script language="javascript">
+
+function save_conf() {
+ var field_content = document.getElementById("config_field").value;
+ field_content = field_content.replace(/\n\r?/g, '&');
+ //alert(field_content);
+ getdata('save_conf.pl?'+field_content,alert);
+
+ //debug//document.getElementById("content").innerHTML = field_content;
+ }
+
+function reload_page() {
+ window.location.reload();
+}
+
+function write_field(data) {
+ if(!document.getElementById("config_field").value) return;
+ document.getElementById("config_field").value = data;
+ }
+
+ getdata('read_conf.pl',write_field);
+</script>
+
+</p>
+
+
+ </body>
+
+ </html>
+
+
+
+
+
+
+
+
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+use Cwd;
+
+my $pwd = &Cwd::cwd();
+
+
+open(LESEN,"cooling.conf")
+ or print "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+print $i;
+
+ }
+
+
+
+return true;
--- /dev/null
+#!/usr/bin/perl
+print "Content-type: text/html\n\n";
+
+my $envstring = $ENV{'QUERY_STRING'};
+$envstring =~ s/%20/ /g;
+$envstring =~ s/&/\n/g;
+##$envstring =~ s/&/\n/g;
+
+
+open(SCHREIBEN,">cooling.conf")
+ or print "Fehler beim oeffnen von : $!\n";
+
+print SCHREIBEN $envstring;
+close(SCHREIBEN);
+
+print "saved!";
+
+
+return true;
--- /dev/null
+
+
+function getdata(command,callback) {
+ var xmlhttp = null;
+ var cb = null;
+ xmlhttp=new XMLHttpRequest();
+ cb = callback;
+
+ xmlhttp.onreadystatechange = function() {
+ if(xmlhttp.readyState == 4) {
+ if(cb)
+ cb(xmlhttp.responseText);
+ }
+ }
+ xmlhttp.open("GET",command,true);
+ xmlhttp.send(null);
+ }
+
+
+
+// function reload() {
+// xmlhttp=new XMLHttpRequest();
+// xmlhttp.onreadystatechange = function() {
+// if(xmlhttp.readyState == 4) {
+// document.getElementById("content").innerHTML=xmlhttp.responseText;
+// if(document.getElementById('logbox')) {
+// if(saveScrollTop) {
+// document.getElementById('logbox').scrollTop = saveScrollTop;
+// }
+// }
+//
+// document.getElementById("stop").style.background="#444";
+// reloadevery = setTimeout('reload()',$.($delay*1000).qq$);
+// }
+// };
+// if(document.getElementById('logbox')) {
+// saveScrollTop = document.getElementById('logbox').scrollTop;
+// if (saveScrollTop == 0) {saveScrollTop = 0.1;}
+// }
+// xmlhttp.open("GET","get.cgi?$.$ENV{'QUERY_STRING'}.qq$",true);
+// xmlhttp.send(null);
+// document.getElementById("stop").style.background="#111";
+// }
\ No newline at end of file
--- /dev/null
+body {
+ background:#def;
+}
+
+
+table#content, table#contentregs {
+ border:1px solid #aaa;
+ border-collapse:collapse;
+}
+
+
+table#content td, table#content th, table#contentregs td, table#contentregs th{
+ border:1px solid #aaa;
+ width:100px;
+ text-align:right;
+ padding-right:15px;
+}
+
+table#content, table#contentregs {
+ border:1px solid #aaa;
+}
+
+
+div#bar1 {
+ width:900px;
+ overflow-x:scroll;
+ }
+
+div#bar1 div {
+ width:66500px;
+ height:0px;
+}
+
+div#bar2 {
+ width:900px;
+ overflow-x:scroll;
+ }
+
+div#bar2 div {
+ width:65536px;
+ height:0px;
+}
+
+
+#total {
+ text-align:center;
+ font-weight:bold;
+ }
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl
+print "Content-type: text/html\n\n";
+print "Hello, World.";
--- /dev/null
+#!/usr/bin/perl -w
+
+my $envstring = $ENV{'QUERY_STRING'};
+$envstring =~ s/%20/ /g;
+
+my @argum = split('-',$envstring);
+
+for (@argum) {
+print "$_\n";
+}
+sleep 1;
+#print "fertig!!!\n";
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use Device::SerialPort;
+use feature 'state';
+
+
+
+
+
+
+
+
+sub adc2mV {
+ my $adc = $_[0];
+ my $voltage = ($adc -(-0.904714))/0.936225;
+ return $voltage;
+}
+
+
+
+#default device
+my $ser_dev = "/dev/ttyUSB0";
+
+
+
+# read config file
+
+open(LESEN,"htdocs/chiptemp/config.conf")
+ or die "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+ if( $i =~ /^SER_DEV=([^=]+)/g ) {
+ $ser_dev=$1;
+ $ser_dev =~ s/\n//g;
+ $ser_dev =~ s/\r//g;
+ }
+
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+my $port = new Device::SerialPort($ser_dev);
+unless ($port)
+{
+ print "can't open serial interface $ser_dev\n";
+ exit;
+}
+
+$port->user_msg('ON');
+$port->baudrate(19200);
+$port->parity("none");
+$port->databits(8);
+$port->stopbits(1);
+$port->handshake("xoff");
+$port->write_settings;
+
+
+
+my $nmax = 10;
+my $n = 0;
+my @data;
+
+
+
+
+
+ # clear buffers, then send the "list"-command to the power supply
+ $port->lookclear;
+
+ # read what has accumulated in the serial buffer
+
+while ($n < $nmax) {
+ sleep 1;
+ while(my $a = $port->lookfor) {
+ #print $a."\n"; # debug output
+ if ($a =~ m/(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t(\d\d\d\d)\t/) {
+ push(@data,[$1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16]);
+ $n++;
+ #print $data[0]->[0]."\n";
+ if($n == $nmax) {
+ last;
+ }
+
+ }
+ }
+}
+
+#print $data[9]->[15]."\n";
+
+my @mean;
+for (my $j=0; $j<$nmax;$j++){
+ for (my $i=0; $i<16;$i++) {
+ $mean[$i] += $data[$j]->[$i];
+ }
+}
+
+for my $j (0..15) {
+ $mean[$j] = sprintf("%6.1f mV",adc2mV($mean[$j]/$nmax));
+}
+
+
+#$mean = $mean/$nmax;
+#my $voltage=adc2mV($mean);
+#print $mean."\n";
+#printf("this corresponds to %6.1f mV\n",$voltage);
+
+print join("\n",@mean);
+
+
+#open(SCHREIBEN,">> calib_data.dat")
+# or die "Fehler beim oeffnen von file: $!\n";
+#
+#print SCHREIBEN $ARGV[0]."\t".$mean."\n";
+
+
+
+
--- /dev/null
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
+<link href="styles.css" rel="stylesheet" type="text/css"/>
+<script src="scripts.js" type="text/javascript"></script>
+<title>One Wire Temperature Sensors</title>
+</head>
+<body style="font-family: sans-serif;" >
+
+
+<p style="bold" id="headline">One Wire Temperature Sensors</p>
+
+
+<table align=center id="layout" style="
+ border-width: 1px;
+ border-style: solid;
+ border-color: black;
+">
+
+
+
+
+<tr>
+<th align="left">Readings:</th></tr>
+<tr><td>
+<table id="readings" width="500" >
+</table>
+</td>
+</tr>
+
+
+
+</table>
+
+
+
+
+<script language="javascript">
+var updaterate = 200;
+var updateTask;
+var new_commands = new Array();
+var ser_dev = getParameterByName("device");
+var dev_id = getParameterByName("id")
+
+
+function set_v() {
+ var value = parseFloat(document.getElementById("form_v").value);
+ var command = "SV "+padZeros(value.toFixed(2),5);
+ new_commands.push(command);
+}
+
+function set_v_lim() {
+ var value = parseInt(document.getElementById("form_v_lim").value);
+ var command = "SU "+padZeros(value,2);
+ new_commands.push(command);
+}
+
+function set_c_lim() {
+ var value = parseFloat(document.getElementById("form_c_lim").value);
+ var command = "SI "+padZeros(value.toFixed(2),4);
+ new_commands.push(command);
+}
+
+function set_p_lim() {
+ var value = parseInt(document.getElementById("form_p_lim").value);
+ var command = "SP "+padZeros(value,3);
+ new_commands.push(command);
+}
+
+function turn_on() {
+ new_commands.push("KOE");
+}
+
+function turn_off() {
+ new_commands.push("KOD");
+}
+
+function save_to_eep() {
+ new_commands.push("EEP");
+}
+
+function update(data) {
+ if(!document.getElementById("readings").innerHTML) return;
+ //field_content = field_content.replace(/\n\r?/g, '&');
+ document.getElementById("readings").innerHTML = data.replace(/\n/g, '<br>');
+updateTask = setInterval("communication()",updaterate);
+ }
+
+
+function communication() {
+ clearInterval(updateTask);
+// getdata('pwr.pl?/dev/ttyUSB0-KOD',update);
+ getdata('voltage_readout.pl',update);
+ new_commands = new Array();
+}
+
+
+function padZeros(theNumber, max) {
+ var numStr = String(theNumber);
+
+ while ( numStr.length < max) {
+ numStr = '0' + numStr;
+ }
+
+ return numStr;
+}
+
+
+function getParameterByName(name)
+{
+ name = name.replace(/[\[]/, "\\\[").replace(/[\]]/, "\\\]");
+ var regexS = "[\\?&]" + name + "=([^&#]*)";
+ var regex = new RegExp(regexS);
+ var results = regex.exec(window.location.search);
+ if(results == null)
+ return "";
+ else
+ return decodeURIComponent(results[1].replace(/\+/g, " "));
+}
+
+
+
+
+updateTask = setInterval("communication()",updaterate);
+//document.getElementById("headline").innerHTML = "Power Supply "+'<b>'+dev_id+'</b>'+" [connected to "+'<b>'+ser_dev+'</b>'+"]" ;
+
+
+</script>
+</body></html>
--- /dev/null
+//define serial interface here
+//example:
+//SER_DEV=/dev/ttyUSB0
+
+SER_DEV=/dev/ttyUSB2
+
+//you can define sensor renaming rules here
+//example:
+//ID:284CFD41030000D7=Lieblingssensor
+//ID:284CFD41030000D7=kleiner Tobi
+ID:284EFC4103000074=Prototyp_heat_sink
+ID:281B28E20200007A=Cleanroom_air
+ID:28CF43E202000003=Plane_f
+ID:284037E2020000BF=Plane_e
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl
+
+print "content-type: text/html \n\n"; #The header
+$file = "shm/onewirelog.txt";
+if (unlink($file) == 1) {
+ print "File deleted successfully.";
+} else {
+ print "File was not deleted.";
+}
+
+
+
+
+return true;
--- /dev/null
+
+
+ <html>
+ <head>
+<script src="scripts.js" type="text/javascript"></script>
+ <title>One Wire Temperature Sensors</title>
+
+ </head>
+
+ <body>
+
+<p id="content">
+<iframe name="inlineframe" src="chiptemp.htm" frameborder="0" scrolling="auto" width="600" height="500" ></iframe>
+</p>
+
+
+
+<p id="conf_area">
+Feel free to alter the config file to accommodate your needs!<br>
+Please don't use the # character to comment out lines<br>
+<TEXTAREA NAME="Address" id="config_field" ROWS=10 COLS=50 >
+[Platzhalter]
+</TEXTAREA>
+<br>
+<input type="button" onClick="save_conf()" value="save">
+<input type="button" onClick="reload_page()" value="reload page">
+<br><br>
+<a href="shm/onewirelog.txt" target="new">Download Logfile</a><br>
+<input type="button" onClick="delete_log()" value="clear log">
+
+<script language="javascript">
+
+function save_conf() {
+ var field_content = document.getElementById("config_field").value;
+ field_content = field_content.replace(/\n\r?/g, '&');
+ //alert(field_content);
+ getdata('save_conf.pl?'+field_content,alert);
+
+ //debug//document.getElementById("content").innerHTML = field_content;
+ }
+
+function delete_log() {
+ getdata('delete_log.pl',alert);
+}
+
+function reload_page() {
+ window.location.reload();
+}
+
+function write_field(data) {
+ if(!document.getElementById("config_field").value) return;
+ document.getElementById("config_field").value = data;
+ }
+
+ getdata('read_conf.pl',write_field);
+</script>
+
+</p>
+
+
+ </body>
+
+ </html>
+
+
+
+
+
+
+
+
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+use Cwd;
+
+my $pwd = &Cwd::cwd();
+
+
+open(LESEN,"config.conf")
+ or print "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+print $i;
+
+ }
+
+
+
+return true;
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+my $envstring = $ENV{'QUERY_STRING'};
+$envstring =~ s/%20/ /g;
+$envstring =~ s/&/\n/g;
+##$envstring =~ s/&/\n/g;
+
+
+open(SCHREIBEN,">config.conf")
+ or print "Fehler beim oeffnen von : $!\n";
+
+print SCHREIBEN $envstring;
+close(SCHREIBEN);
+
+print "saved!";
+
+
+return true;
--- /dev/null
+
+
+function getdata(command,callback) {
+ var xmlhttp = null;
+ var cb = null;
+ xmlhttp=new XMLHttpRequest();
+ cb = callback;
+
+ xmlhttp.onreadystatechange = function() {
+ if(xmlhttp.readyState == 4) {
+ if(cb)
+ cb(xmlhttp.responseText);
+ }
+ }
+ xmlhttp.open("GET",command,true);
+ xmlhttp.send(null);
+ }
+
+
+
+// function reload() {
+// xmlhttp=new XMLHttpRequest();
+// xmlhttp.onreadystatechange = function() {
+// if(xmlhttp.readyState == 4) {
+// document.getElementById("content").innerHTML=xmlhttp.responseText;
+// if(document.getElementById('logbox')) {
+// if(saveScrollTop) {
+// document.getElementById('logbox').scrollTop = saveScrollTop;
+// }
+// }
+//
+// document.getElementById("stop").style.background="#444";
+// reloadevery = setTimeout('reload()',$.($delay*1000).qq$);
+// }
+// };
+// if(document.getElementById('logbox')) {
+// saveScrollTop = document.getElementById('logbox').scrollTop;
+// if (saveScrollTop == 0) {saveScrollTop = 0.1;}
+// }
+// xmlhttp.open("GET","get.cgi?$.$ENV{'QUERY_STRING'}.qq$",true);
+// xmlhttp.send(null);
+// document.getElementById("stop").style.background="#111";
+// }
\ No newline at end of file
--- /dev/null
+/dev/shm
\ No newline at end of file
--- /dev/null
+body {
+ background:#def;
+}
+
+
+table#content, table#contentregs {
+ border:1px solid #aaa;
+ border-collapse:collapse;
+}
+
+
+table#content td, table#content th, table#contentregs td, table#contentregs th{
+ border:1px solid #aaa;
+ width:100px;
+ text-align:right;
+ padding-right:15px;
+}
+
+table#content, table#contentregs {
+ border:1px solid #aaa;
+}
+
+
+div#bar1 {
+ width:900px;
+ overflow-x:scroll;
+ }
+
+div#bar1 div {
+ width:66500px;
+ height:0px;
+}
+
+div#bar2 {
+ width:900px;
+ overflow-x:scroll;
+ }
+
+div#bar2 div {
+ width:65536px;
+ height:0px;
+}
+
+
+#total {
+ text-align:center;
+ font-weight:bold;
+ }
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+use strict;
+use warnings;
+use Device::SerialPort;
+use feature 'state';
+
+
+
+
+
+
+
+my %idhash;
+
+
+#default device
+my $ser_dev = "/dev/ttyUSB0";
+my $logfile = "onewirelog.txt";
+
+
+# read config file
+
+open(LESEN,"config.conf")
+ or die "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+ if( $i =~ /^SER_DEV=([^=]+)/g ) {
+ $ser_dev=$1;
+ $ser_dev =~ s/\n//g;
+ $ser_dev =~ s/\r//g;
+ }
+
+ if( $i =~ /^(ID:[^=]+)=([^=]+)/g ) {
+ my $id = $1;
+ my $designator = $2;
+ $id =~ s/[\n\r\s]//g;
+ $designator =~ s/[\n\r\s]//g;
+ $idhash{$id} = $designator;
+ }
+
+}
+
+
+
+#### date and time
+
+my $seconds = (localtime)[0];
+my $date = sprintf "%02d.%02d.%02d",(localtime)[3],((localtime)[4] +1),((localtime)[5] -100);
+my $hour = sprintf "%02d",(localtime)[2];
+my $now = sprintf "%02d.%02d.%02d %02d:%02d:%02d",(localtime)[3],((localtime)[4] +1),((localtime)[5] -100),(localtime)[2],(localtime)[1],(localtime)[0];
+
+
+
+
+
+print "now: $now<br>\n";
+
+
+
+my $port = new Device::SerialPort($ser_dev);
+unless ($port)
+{
+ print "can't open serial interface $ser_dev\n";
+ exit;
+}
+
+$port->user_msg('ON');
+$port->baudrate(19200);
+$port->parity("none");
+$port->databits(8);
+$port->stopbits(1);
+$port->handshake("xoff");
+$port->write_settings;
+
+
+
+my $nmax = 20;
+my $n = 0;
+my @data;
+my $found = 0;
+
+my %reporthash;
+
+
+ # clear buffers, then send the "list"-command to the power supply
+ $port->lookclear;
+
+ # read what has accumulated in the serial buffer
+
+while ($n < $nmax) {
+ sleep 1;
+ $n++;
+ while(my $a = $port->lookfor) {
+ $found = 1;
+ #print $a."\n"; # debug output
+ if ($a =~ /^(ID:[^T]+)T:\s+\S+\s+=\s+([-+\d.]+)/ ) {
+
+ my $rawid = $1;
+ my $temp = $2;
+ my $id = $rawid;
+ $id =~ s/[\s\r\n]//g;
+ $temp =~ s/[\s\r\n]//g;
+
+
+ # print $id."\n".$temp."\n";
+
+ if(defined($idhash{$id})) {
+ # print "match!\n";
+ $reporthash{$idhash{$id}} = $temp;
+ } else {
+ $reporthash{$rawid} = $temp;
+ }
+
+ }
+ }
+}
+
+
+unless($found){
+ print "!!! no data / no sensors ? !!!<br>\n";
+}
+
+open(SCHREIBEN,">> shm/$logfile")
+ or die "Fehler beim oeffnen von $ARGV[0].c: $!\n";
+ while( my ($k, $v) = each %reporthash ) {
+ print "Sensor $k => $v °C\n";
+ print SCHREIBEN "$now:\t$k\t$v Deg.C\n";
+ }
+close(SCHREIBEN);
+
+
+
+print "\n";
+
+
+
+
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+use strict;
+use warnings;
+use Device::SerialPort;
+use feature 'state';
+
+
+
+
+
+
+
+my %idhash;
+
+
+#default device
+my $ser_dev = "/dev/ttyUSB0";
+
+
+
+# read config file
+
+open(LESEN,"config.conf")
+ or die "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+ if( $i =~ /^SER_DEV=([^=]+)/g ) {
+ $ser_dev=$1;
+ $ser_dev =~ s/\n//g;
+ $ser_dev =~ s/\r//g;
+ }
+
+ if( $i =~ /^(ID:[^=]+)=([^=]+)/g ) {
+ my $id = $1;
+ my $designator = $2;
+ $id =~ s/[\n\r\s]//g;
+ $designator =~ s/[\n\r\s]//g;
+ $idhash{$id} = $designator;
+ }
+
+}
+
+
+
+
+
+
+
+
+
+
+
+my $port = new Device::SerialPort($ser_dev);
+unless ($port)
+{
+ print "can't open serial interface $ser_dev\n";
+ exit;
+}
+
+$port->user_msg('ON');
+$port->baudrate(19200);
+$port->parity("none");
+$port->databits(8);
+$port->stopbits(1);
+$port->handshake("xoff");
+$port->write_settings;
+
+
+
+my $nmax = 2;
+my $n = 0;
+my @data;
+my $found = 0;
+
+my %reporthash;
+
+
+ # clear buffers, then send the "list"-command to the power supply
+ $port->lookclear;
+
+ # read what has accumulated in the serial buffer
+
+while ($n < $nmax) {
+ sleep 1;
+ $n++;
+ while(my $a = $port->lookfor) {
+ $found = 1;
+ #print $a."\n"; # debug output
+ if ($a =~ /^(ID:[^T]+)T:\s+\S+\s+=\s+([\d.]+)/ ) {
+
+ my $rawid = $1;
+ my $temp = $2;
+ my $id = $rawid;
+ $id =~ s/[\s\r\n]//g;
+ $temp =~ s/[\s\r\n]//g;
+
+
+ # print $id."\n".$temp."\n";
+
+ if(defined($idhash{$id})) {
+ # print "match!\n";
+ $reporthash{$idhash{$id}} = $temp;
+ } else {
+ $reporthash{$rawid} = $temp;
+ }
+
+ }
+ }
+}
+
+
+unless($found){
+ print "!!! no data / no sensors ? !!!<br>\n";
+}
+
+ while( my ($k, $v) = each %reporthash ) {
+ print "Sensor $k => $v °C\n";
+ }
+
+print "\n";
+
+
+
+
--- /dev/null
+#!/usr/bin/perl -w
+use Cwd;
+print "Content-type: text/html\n\n";
+
+my $pwd = &Cwd::cwd();
+
+
+open(LESEN,"pwr.conf")
+ or die "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+ if( $i =~ /^PWRSPLY:([^:]+):([^:]+)/g ) {
+ my $ser_dev=$1;
+ my $dev_id=$2;
+
+print <<EOF;
+<p>
+<iframe name="inlineframe" src="pwr.htm?device=$ser_dev&id=$dev_id" frameborder="0" scrolling="auto" width="800" height="340" ></iframe>
+</p>
+EOF
+ }
+}
+
+#print "CWD: ".$pwd."<br>(for debug)\n";
+
+
+return true;
--- /dev/null
+
+
+ <html>
+ <head>
+<script src="scripts.js" type="text/javascript"></script>
+ <title>Access all POWER!</title>
+
+ </head>
+
+ <body>
+
+<p id="content">
+Platzhalter
+</p>
+
+<script language="javascript">
+
+function update(data) {
+ if(!document.getElementById("content").innerHTML) return;
+ document.getElementById("content").innerHTML = data;
+ }
+ getdata('build_index.pl',update);
+</script>
+
+<p id="conf_area">
+Feel free to alter the config file to accommodate your needs!<br>
+Please don't use the # character to comment out lines<br>
+<TEXTAREA NAME="Address" id="config_field" ROWS=10 COLS=50 >
+[Platzhalter]
+</TEXTAREA>
+<br>
+<input type="button" onClick="save_conf()" value="save">
+<input type="button" onClick="reload_page()" value="reload page">
+
+<script language="javascript">
+
+function save_conf() {
+ var field_content = document.getElementById("config_field").value;
+ field_content = field_content.replace(/\n\r?/g, '&');
+ //alert(field_content);
+ getdata('save_conf.pl?'+field_content,alert);
+
+ //debug//document.getElementById("content").innerHTML = field_content;
+ }
+
+function reload_page() {
+ window.location.reload();
+}
+
+function write_field(data) {
+ if(!document.getElementById("config_field").value) return;
+ document.getElementById("config_field").value = data;
+ }
+
+ getdata('read_conf.pl',write_field);
+</script>
+
+</p>
+
+
+ </body>
+
+ </html>
+
+
+
+
+
+
+
+
--- /dev/null
+//PWRSPLY:/path/to/device:Device_ID
+PWRSPLY:/dev/ttyUSB1:PWR_DUT
+PWRSPLY:/dev/ttyUSB0:PWR_REF
\ No newline at end of file
--- /dev/null
+PWRSPLY:/dev/ttyUSB0:Device_1
+PWRSPLY:/dev/ttyUSB1:Device_2
+PWRSPLY:/dev/ttyUSB2:Device_3
--- /dev/null
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
+<link href="styles.css" rel="stylesheet" type="text/css"/>
+<script src="scripts.js" type="text/javascript"></script>
+<title>Power Supply Monitor and Access</title>
+</head>
+<body style="font-family: sans-serif;" >
+
+
+<p style="bold" id="headline">MIMOSA26 Prototype Power Supply Access</p>
+
+
+<table align=center id="layout" style="
+ border-width: 1px;
+ border-style: solid;
+ border-color: black;
+">
+
+<tr>
+<th align="left">Readings:</th><TD rowspan=2 style="border-left: 1px solid black; padding: 5px;"> <th align="left">Settings:</th>
+</tr>
+
+<tr>
+<td>
+
+<table id="readings" width="300" >
+</table>
+</td>
+
+
+
+
+<td>
+
+<form acion="">
+<table id="settings" >
+<tr>
+<td align="right">Voltage [V]<td><input type="text" id="form_v" name="voltage" value="">
+<td><input type="button" onClick="set_v()" value="set">
+<tr><td colspan=3><hr />
+<tr>
+<td align="right">Voltage limit [V]<td><input type="text" id="form_v_lim" name="voltage_limit" value="">
+<td><input type="button" onClick="set_v_lim()" value="set">
+<tr><td align="right">Current limit [A]<td><input type="text" id="form_c_lim" name="current_limit" value="">
+<td><input type="button" onClick="set_c_lim()" value="set">
+<tr><td align="right">Power limit [W]<td><input type="text" id="form_p_lim" name="power_limit" value="">
+<td><input type="button" onClick="set_p_lim()" value="set">
+<tr><td colspan=2>Save settings to EEPROM<td><input type="button" onClick="save_to_eep()" value="save">
+<tr><td colspan=3><hr />
+
+<tr>
+<tr><td colspan=2>Output Relais<td><input type="button" onClick="turn_on()" value="on"><input type="button" onClick="turn_off()" value="off">
+</table>
+</form>
+
+</td>
+</tr>
+</table>
+
+
+
+
+<script language="javascript">
+var updaterate = 200;
+var updateTask;
+var new_commands = new Array();
+var ser_dev = getParameterByName("device");
+var dev_id = getParameterByName("id")
+
+
+function set_v() {
+ var value = parseFloat(document.getElementById("form_v").value);
+ var command = "SV "+padZeros(value.toFixed(2),5);
+ new_commands.push(command);
+}
+
+function set_v_lim() {
+ var value = parseInt(document.getElementById("form_v_lim").value);
+ var command = "SU "+padZeros(value,2);
+ new_commands.push(command);
+}
+
+function set_c_lim() {
+ var value = parseFloat(document.getElementById("form_c_lim").value);
+ var command = "SI "+padZeros(value.toFixed(2),4);
+ new_commands.push(command);
+}
+
+function set_p_lim() {
+ var value = parseInt(document.getElementById("form_p_lim").value);
+ var command = "SP "+padZeros(value,3);
+ new_commands.push(command);
+}
+
+function turn_on() {
+ new_commands.push("KOE");
+}
+
+function turn_off() {
+ new_commands.push("KOD");
+}
+
+function save_to_eep() {
+ new_commands.push("EEP");
+}
+
+function update(data) {
+ if(!document.getElementById("readings").innerHTML) return;
+ document.getElementById("readings").innerHTML = data;
+updateTask = setInterval("communication()",updaterate);
+ }
+
+
+function communication() {
+ clearInterval(updateTask);
+// getdata('pwr.pl?/dev/ttyUSB0-KOD',update);
+ getdata('pwr.pl?'+ser_dev+'&'+new_commands.join('&'),update);
+ new_commands = new Array();
+}
+
+
+function padZeros(theNumber, max) {
+ var numStr = String(theNumber);
+
+ while ( numStr.length < max) {
+ numStr = '0' + numStr;
+ }
+
+ return numStr;
+}
+
+
+function getParameterByName(name)
+{
+ name = name.replace(/[\[]/, "\\\[").replace(/[\]]/, "\\\]");
+ var regexS = "[\\?&]" + name + "=([^&#]*)";
+ var regex = new RegExp(regexS);
+ var results = regex.exec(window.location.search);
+ if(results == null)
+ return "";
+ else
+ return decodeURIComponent(results[1].replace(/\+/g, " "));
+}
+
+
+
+
+updateTask = setInterval("communication()",updaterate);
+document.getElementById("headline").innerHTML = "Power Supply "+'<b>'+dev_id+'</b>'+" [connected to "+'<b>'+ser_dev+'</b>'+"]" ;
+
+
+</script>
+</body></html>
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+
+use strict;
+use warnings;
+use Device::SerialPort;
+use feature 'state';
+
+my $envstring = $ENV{'QUERY_STRING'};
+$envstring =~ s/%20/ /g;
+
+
+my @new_command = split('&',$envstring);
+my $ser_dev = shift(@new_command);
+$ser_dev = "/dev/ttyUSB0" unless defined $ser_dev;
+
+
+
+my $port = new Device::SerialPort($ser_dev);
+unless ($port)
+{
+ print "can't open serial interface $ser_dev\n";
+ exit;
+}
+
+$port->user_msg('ON');
+$port->baudrate(2400);
+$port->parity("none");
+$port->databits(8);
+$port->stopbits(1);
+$port->handshake("xoff");
+$port->write_settings;
+
+# debug output
+#print "attempting to communicate with power supply connected to interface:\n$ser_dev\n\n";
+
+
+transmit_command(); #if new command, send it!
+receive_answer(); # always called
+transmit_command(); # send relais off in case current maximum is reached!
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+sub transmit_command {
+
+$port->lookclear;
+
+while ( my $command = shift(@new_command) ) {
+
+ $port->write("$command\r");
+ #print "i sent the command: $command";
+ #print "\n\nokay.\n";
+ sleep 1;
+ }
+}
+
+
+
+
+sub receive_answer {
+
+
+
+
+ my %state_lookup = (
+ 0 => 'off',
+ 1 => 'on' );
+
+ my $found = 0;
+
+
+
+ # clear buffers, then send the "list"-command to the power supply
+ $port->lookclear;
+ $port->write("L\r");
+ # sleep a second to give the supply time to react
+ sleep 1;
+
+ # read what has accumulated in the serial buffer
+ while(my $a = $port->lookfor) {
+ #print $a."\n"; # debug output
+ if ($a =~ m/V(\d\d\.\d\d)A(\d\.\d\d\d)W(\d\d\d\.\d)U(\d\d)I(\d\.\d\d)P(\d\d\d)F(\d\d\d\d\d\d)/) {
+ $found = 1;
+ my $c_volt = $1;
+ my $c_cur = $2;
+ my $c_pwr = $3;
+ my $l_volt = $4;
+ my $l_cur = $5;
+ my $l_pwr = $6;
+ my $state_string = $7;
+ my $relais_state = $state_lookup{substr $state_string, 0,1};
+ printf("
+ <table>
+ <tr>
+ <td align=right>%2.2f<td align=left> V
+ <tr>
+ <td align=right>%1.3f<td align=left> A
+ <tr>
+ <td align=right>%3.1f<td align=left> W
+ <tr>
+ <tr>
+ <td align=right>voltage limit: %d<td align=left> V
+ <tr>
+ <td align=right>current limit: %1.2f<td align=left> A
+ <tr>
+ <td align=right>power limit: %d<td align=left> W
+ <tr>
+ <tr>
+ <td align=right>output relais:<td align=left> $relais_state </td>
+ </table>"
+ ,$c_volt,$c_cur,$c_pwr,$l_volt,$l_cur,$l_pwr);
+
+ if( $c_cur > 0) {
+ if($c_cur > ($l_cur * 0.9) ) { # check if current limit reached, if so, turn power off!
+ print "!!! current limit reached, power off !!!<br>";
+ push(@new_command,"KOD");
+ }
+ }
+
+ last;
+
+ }
+ }
+
+
+
+
+ if($found) {
+
+ print "connection ok <br>";
+ } else {
+ print "!!! power supply not responding !!!<br>";
+ }
+
+ print " \n";
+
+
+
+
+
+
+
+}
+exit 1;
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+use Cwd;
+
+my $pwd = &Cwd::cwd();
+
+
+open(LESEN,"pwr.conf")
+ or print "Fehler beim oeffnen von : $!\n";
+
+while(defined(my $i = <LESEN>)) {
+
+print $i;
+
+ }
+
+
+
+return true;
--- /dev/null
+#!/usr/bin/perl -w
+print "Content-type: text/html\n\n";
+
+
+my $envstring = $ENV{'QUERY_STRING'};
+$envstring =~ s/%20/ /g;
+$envstring =~ s/&/\n/g;
+##$envstring =~ s/&/\n/g;
+
+
+open(SCHREIBEN,">pwr.conf")
+ or print "Fehler beim oeffnen von : $!\n";
+
+print SCHREIBEN $envstring;
+close(SCHREIBEN);
+
+print "saved!";
+
+
+return true;
--- /dev/null
+
+
+function getdata(command,callback) {
+ var xmlhttp = null;
+ var cb = null;
+ xmlhttp=new XMLHttpRequest();
+ cb = callback;
+
+ xmlhttp.onreadystatechange = function() {
+ if(xmlhttp.readyState == 4) {
+ if(cb)
+ cb(xmlhttp.responseText);
+ }
+ }
+ xmlhttp.open("GET",command,true);
+ xmlhttp.send(null);
+ }
+
+
+
+// function reload() {
+// xmlhttp=new XMLHttpRequest();
+// xmlhttp.onreadystatechange = function() {
+// if(xmlhttp.readyState == 4) {
+// document.getElementById("content").innerHTML=xmlhttp.responseText;
+// if(document.getElementById('logbox')) {
+// if(saveScrollTop) {
+// document.getElementById('logbox').scrollTop = saveScrollTop;
+// }
+// }
+//
+// document.getElementById("stop").style.background="#444";
+// reloadevery = setTimeout('reload()',$.($delay*1000).qq$);
+// }
+// };
+// if(document.getElementById('logbox')) {
+// saveScrollTop = document.getElementById('logbox').scrollTop;
+// if (saveScrollTop == 0) {saveScrollTop = 0.1;}
+// }
+// xmlhttp.open("GET","get.cgi?$.$ENV{'QUERY_STRING'}.qq$",true);
+// xmlhttp.send(null);
+// document.getElementById("stop").style.background="#111";
+// }
\ No newline at end of file
--- /dev/null
+body {
+ background:#def;
+}
+
+
+table#content, table#contentregs {
+ border:1px solid #aaa;
+ border-collapse:collapse;
+}
+
+
+table#content td, table#content th, table#contentregs td, table#contentregs th{
+ border:1px solid #aaa;
+ width:100px;
+ text-align:right;
+ padding-right:15px;
+}
+
+table#content, table#contentregs {
+ border:1px solid #aaa;
+}
+
+
+div#bar1 {
+ width:900px;
+ overflow-x:scroll;
+ }
+
+div#bar1 div {
+ width:66500px;
+ height:0px;
+}
+
+div#bar2 {
+ width:900px;
+ overflow-x:scroll;
+ }
+
+div#bar2 div {
+ width:65536px;
+ height:0px;
+}
+
+
+#total {
+ text-align:center;
+ font-weight:bold;
+ }
\ No newline at end of file
jspc29 / labtools.git / commitdiff