From fb5a2ed853b138f516e2bd1c79894c25b50980cb Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Tue, 29 Nov 2016 18:27:34 +0100 Subject: [PATCH] Update website power supply control with our 5V switch boards --- web/htdocs/tools/pwr/build_index.pl | 7 ++ web/htdocs/tools/pwr/index.html | 4 +- web/htdocs/tools/pwr/pwr_switch.htm | 149 ++++++++++++++++++++++++++++ web/htdocs/tools/pwr/pwr_switch.pl | 126 +++++++++++++++++++++++ web/htdocs/tools/styles.css | 14 +++ 5 files changed, 298 insertions(+), 2 deletions(-) create mode 100644 web/htdocs/tools/pwr/pwr_switch.htm create mode 100755 web/htdocs/tools/pwr/pwr_switch.pl diff --git a/web/htdocs/tools/pwr/build_index.pl b/web/htdocs/tools/pwr/build_index.pl index 6b40300..8c6fa8f 100755 --- a/web/htdocs/tools/pwr/build_index.pl +++ b/web/htdocs/tools/pwr/build_index.pl @@ -44,6 +44,13 @@ print < + +

+EOF +} } diff --git a/web/htdocs/tools/pwr/index.html b/web/htdocs/tools/pwr/index.html index 7295956..7aee7e7 100644 --- a/web/htdocs/tools/pwr/index.html +++ b/web/htdocs/tools/pwr/index.html @@ -29,7 +29,7 @@ Note that you need to have libdevice-serialport-perl or perl-Device-SerialPort Feel free to alter the config file to accommodate your needs!
Please don't use the # character to comment out lines
-Tested with HMC8043, HMP4040, HMP4030, PSP405, PSP2010, PST3202 +Tested with HMC8043, HMP4040, HMP4030, PSP405, PSP2010, PST3202, PWRSW
//PWRSPLY:/path/to/device:Speed:Name:Type:Channels //PWRSPLY:IP0.0.0.0:Port:Name:Type:Channels @@ -37,7 +37,7 @@ PWRSPLY:/dev/ttyUSB0:9600:PST3202:PST:3 PWRSPLY:/dev/ttyUSB0:115200:HMP4030:HMP:3 PWRSPLY:IP192.168.0.56:5050:HMP4040:HMP:4 PWRSPLY:/dev/FTDI_FT232R_USB_UART_AH02HFZW:2400:PSP2010:PSP:1 -PWRSPLY:/dev/FTDI_FT232R_USB_UART_A702HE33:2400:PSP405:PSP:1
+PWRSPLY:/dev/FTDI_FT232R_USB_UART_A900LJXB:0:Desk:PWRSW:4
Platzhalter diff --git a/web/htdocs/tools/pwr/pwr_switch.htm b/web/htdocs/tools/pwr/pwr_switch.htm new file mode 100644 index 0000000..9ff228d --- /dev/null +++ b/web/htdocs/tools/pwr/pwr_switch.htm @@ -0,0 +1,149 @@ +<!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;" class="powerswitch"> + + +<h3 id="headline"></h3> + + + +<form acion=""> +<table id="settings" class="smallboxes"> +<tr><th>Channel<th colspan='2'>Status<th>Current<th>Average<th>Limit + +<tfoot> +<tr class="sep"><td colspan=5><input type="checkbox" checked="1" id="showreadings">Enable read-back of values<td colspan=4 id="date"> + +<tr><td colspan=9 id="info"> +</tfoot> +<tbody id="display"></tbody> +</table> +</form> + + +<script language="javascript"> +var updaterate = 2000; +var updateTask; +var new_commands = new Array(); +var ser_dev = getParameterByName("device"); +var dev_id = getParameterByName("id"); +var type = getParameterByName("type"); +var channels = getParameterByName("channels"); +var speed = getParameterByName("speed"); +var readSettingsRequest = 1; +var forceUpdate = 1; + +var Vstatus = new Array(); +var Vcurrent = new Array(); +var Vaverage = new Array(); +var Vlimit = new Array(); +var Vdate = "x"; + +function maketable() { + out = ""; + for(i=0;i<channels;i++) { + out += "<tr><td>"+i; + if (Vstatus[i] == 1) { + out += '<td class="status" style="background:limegreen"> '; + } + else { + out += '<td class="status" style="background:#C00"> '; + } + out += '<td><input type="button" onClick="turn_on('+i+')" value="on">\ + <input type="button" onClick="turn_off('+i+')" value="off"> '; + out += '<td>'+Vcurrent[i]+'<td>'+Vaverage[i]+ + '<td><input type="text" id="limit'+i+'" name="limit'+i+'" onChange="set_lim('+i+')" value="'+Vlimit[i]+'">'+"\n"; + } + document.getElementById("display").innerHTML = out; + document.getElementById("date").innerHTML = Vdate; + } + + +function set_lim(chan) { + if (chan > channels) return; + myi = chan.toString(16); + if (chan<16) {myi = '0'+myi;} + myv = (document.getElementById('limit'+chan).value*1.).toString(16); + if (myv<16) {myv = '00'+myv;} + if (myv<256) {myv = '0'+myv;} + new_commands.push('L'+myi+myv); +} + +function turn_on(chan) { + if (chan > channels) return; + myi = chan.toString(16); + if (chan<10) {myi = '0'+myi;} + new_commands.push('S'+myi+'1'); +} + +function turn_off(chan) { + if (chan > channels) return; + myi = chan.toString(16); + if (chan<10) {myi = '0'+myi;} + new_commands.push('S'+myi+'0'); +} + +function communication() { + if (document.getElementById("showreadings").checked == 1 || new_commands.length != 0) { + for(i=0;i<channels;i++) { + myi = i.toString(16); + if (i<10) {myi = '0'+myi;} + new_commands.push('S'+myi+'Q'); + new_commands.push('C'+myi+'Q'); + new_commands.push('D'+myi+'Q'); + new_commands.push('L'+myi+'Q'); + } + } + + cmds = new_commands.join('&'); + if (cmds != "") { + getdata('pwr_switch.pl?'+ser_dev+'&'+cmds,update); + } + else { + updateTask = setTimeout("communication()",updaterate); + } + new_commands = new Array(); +} + +function update(data) { + var e = data.split("&"); + Vdate = e.shift(); + for(i=0;i<channels;i++) { + Vstatus[i] = e.shift(); + Vcurrent[i] = e.shift(); + Vaverage[i] = e.shift(); + Vlimit[i] = e.shift(); + } + maketable(); + updateTask = setTimeout("communication()",updaterate); + } + +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, " ")); +} + + +function readSettings() { + readSettingsRequest = 1; + } + +updateTask = setTimeout("communication()",updaterate); +document.getElementById("headline").innerHTML = "Power Switch "+'<b>'+dev_id+'</b>'+" [connected to "+'<b>'+ser_dev+'</b>'+"]" ; + +maketable(); +</script> +</body></html> diff --git a/web/htdocs/tools/pwr/pwr_switch.pl b/web/htdocs/tools/pwr/pwr_switch.pl new file mode 100755 index 0000000..9296361 --- /dev/null +++ b/web/htdocs/tools/pwr/pwr_switch.pl @@ -0,0 +1,126 @@ +#!/usr/bin/perl -w +if ($ENV{'SERVER_SOFTWARE'} =~ /HTTP-?i/i) { + &htsponse(200, "OK"); + } +print "Content-type: text/html\n\n"; + + +use strict; +use warnings; +use Device::SerialPort; +use IO::Socket; +use feature 'state'; +use URI::Escape; +use Time::HiRes qw( usleep); +use POSIX qw/floor ceil strftime/; + +my $envstring = $ENV{'QUERY_STRING'}; +$envstring =~ s/%20/ /g; +$envstring =~ s/Q/\?/g; + + +my @new_command = split('&',$envstring); +my $ser_dev = shift(@new_command); +$ser_dev = "/dev/ttyUSB0" unless defined $ser_dev; + +# my $ser_type = shift(@new_command); +# $ser_type = "PSP" unless defined $ser_type; +# +# my $ser_speed = shift(@new_command); #speed or port number +# $ser_speed = "2400" unless defined $ser_speed; + + +my $port; +# my $isIP = 0; +# my $isRemote = undef; +# +# if($ser_dev =~ /^IP(.*)/) { +# $ser_dev = $1; +# $isIP = 1; +# $port = IO::Socket::INET->new(PeerAddr => $ser_dev, PeerPort => $ser_speed, Proto => "tcp", Type => SOCK_STREAM) +# or die "ERROR: Cannot connect: $@"; +# } +# elsif($ser_dev =~ /^SER(.*)/) { +# my $str = $1; +# ($isRemote,$ser_dev) = split('/',$str,2); +# $ser_dev = '/'.$ser_dev; +# } +# else { + $port = new Device::SerialPort($ser_dev); + unless ($port) + { + print "can't open serial interface $ser_dev\n"; + exit; + } + + $port->user_msg('ON'); + $port->baudrate(57600); + $port->parity("none"); + $port->databits(8); + $port->stopbits(1); + $port->handshake("none"); + $port->read_char_time(0); + $port->read_const_time(50); + $port->write_settings; + + +# debug output +#print "attempting to communicate with power supply connected to interface:\n$ser_dev\n\n"; + + +# if(defined $isRemote) { +# my $env = $ENV{'QUERY_STRING'}; +# # $env =~ s/%20/ /g; +# $env =~ s/&/!/g; +# my $cmd = "bash -c \"ssh $isRemote 'QUERY_STRING=".$env." perl'\" <htdocs/tools/pwr/pwr_remote.pl"; +# # system("ssh $isRemote 'QUERY_STRING=".$env." perl -v' "); +# # print $cmd."\n"; +# print qx($cmd); +# } +# else { + print receive_answer(); +# } + + + +sub Cmd { + my ($c) = @_; + for my $i (0..2) { + $port->write($c."\n"); + my $a = ""; + for my $j (0..8) { + my ($l,$s) = $port->read(5); + $a .= $l; + if ($l < 5) {next;} + if ($s =~ /^\w[a-f0-9]{3}/) {return hex(substr($s,1,3)).'&';} + if ($s =~ /^\w[a-f0-9]{2}/) {return hex(substr($s,1,2)).'&';} + usleep(10000); + } + usleep(50000); + #print '.'; + } + } + + + + +sub receive_answer { + print strftime("%H:%M:%S &", localtime()); + my $ret =""; +# print strftime("%H:%M:%S &", localtime()); + while ( my $command = shift(@new_command) ) { + my $r = Cmd($command); + print $r if($command =~ /\?/); + } + return $ret; + } + + + +print "\n"; + +exit 1; + + + + diff --git a/web/htdocs/tools/styles.css b/web/htdocs/tools/styles.css index e40f786..7d6a735 100644 --- a/web/htdocs/tools/styles.css +++ b/web/htdocs/tools/styles.css @@ -40,4 +40,18 @@ td.state { #info { font-size:70%; text-align:right; +} + +.powerswitch .status { + min-width:20px; + width:20px; +} + +tfoot>tr:first-child { + border-top:1px solid black; +} + +.powerswitch td { + border-left:1px solid black; + text-align:center; } \ No newline at end of file -- 2.43.0