use POSIX qw/floor ceil strftime/;
use Fcntl;
use Storable qw(lock_store lock_retrieve);
+no warnings 'uninitialized';
my $envstring = $ENV{'QUERY_STRING'};
$envstring =~ s/%20/ /g;
else {
if ($ser_speed != 0){
my $command = "stty -F $ser_dev speed $ser_speed -opost -onlcr -isig -icanon -iexten -echo -echoe -echok -echoctl -echoke";
- print stderr "$command\n";
+# print STDERR "$command\n";
$command .= " -ixoff " if $ser_type eq 'PSP';
my $res = qx($command);
}
else {
print HMP_serial() if (($ser_type eq "HMP" or $ser_type eq "HMC") && $isIP == 0) or $ser_type eq "PST";
print PWRSW_serial() if $ser_type eq "PWRSW";
+ print KA3000_serial() if $ser_type eq "KA3000";
print HMP_ethernet() if (($ser_type eq "HMP" or $ser_type eq "HMC") && $isIP == 1);
print PSP() if $ser_type eq 'PSP';
}
return;
}
+
+sub KA3000_serial {
+ print strftime("%H:%M:%S &", localtime());
+ my $fh;
+ if(-e $ser_dev && -w $ser_dev) {
+ sysopen($fh, $ser_dev, O_RDWR|O_NDELAY) or die $!;
+ }
+ else { print "Device not found"; return;}
+
+ while ( my $command = shift(@new_command) ) {
+ $command = uri_unescape($command);
+ my $x = getValue($fh,$command,$cnt++);
+ $x =~ s/\&//;
+ $x = ord($x) if $command eq "STATUS?";
+ print $x."&" if $command =~ /\?/;
+ usleep(40000);# if $ser_type eq "PST";
+ }
+ close $fh;
+ return;
+ }
sub HMP_ethernet {
sub serial_rw {
my ($fh, $command,$forceread) = @_;
my $x = "";
- if ($ser_type eq 'PSP') {$command .= "\r";} else {$command .= "\n";}
+ if ($ser_type eq 'PSP') {$command .= "\r";}
+ elsif ($ser_type ne 'KA3000') {$command .= "\n";}
+
print $fh "$command";
# print $command;
if($ser_type eq 'PWRSW' || $forceread || $command =~ /\?/) {
for my $i (0..500) {
- $x .= <$fh>;
+ $x .= <$fh>;
if($x && ($x =~ /\n/ || $x =~ /\r/) ) {
chomp $x;
last;
else {
usleep(10000);
my $val = serial_rw($fh,$cmd,$forceread);
- if($val eq "") {
+ if($val eq "" && $ser_type ne 'KA3000') {
return $db->{$cmd.$cnt}{val};
}
addDB($cmd.$cnt,$val);
--- /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;" >
+
+
+<!-- <h3 id="headline">Power Supply Access</h3> -->
+
+
+
+<form acion="">
+<table id="settings" class="smallboxes">
+<tr>
+ <th>
+ <th colspan="4" id="chan1">Output
+
+<tr class="sep">
+ <td align="right">Settings [V/A]
+ <td><input type="text" id="form_v1" name="voltage" value="">
+ <td><input type="button" onClick="set_v(1)" value="set">
+ <td><input type="text" id="form_c_lim1" name="current" value="">
+ <td><input type="button" onClick="set_c_lim(1)" value="set">
+
+<tr>
+ <td align="right">Actual[V/A]
+ <td> <input type="text" id="vol1" disabled style="color:black;">
+ <td>
+ <td> <input type="text" id="cur1" disabled style="color:black;">
+ <td>
+
+<tr class="sep">
+ <td>Output Relais
+ <td><input type="button" onClick="turn_on(1)" value="on">
+ <td><input type="button" onClick="turn_off(1)" value="off">
+ <td colspan="2">
+
+<tr class="sep">
+ <td colspan="2"> <input type="checkbox" value="1" id="showreadings" checked>Enable read-back
+ <td colspan="3" id="info">
+
+</table>
+</form>
+
+
+<script language="javascript">
+var updaterate = 5500;
+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 names = getParameterByName("names");
+var readSettingsRequest = 1;
+var forceShowReadings = 1;
+var notfirst = -1;
+var Vnames = names.split(':');
+
+
+function set_v(chan) {
+ if (chan > channels) return;
+ var value = parseFloat(document.getElementById("form_v"+chan).value);
+ var command;
+ command = "VSET"+chan+":"+("000"+value.toFixed(2)).slice (-5);
+
+ new_commands.push(command);
+ forceShowReadings = 1;
+ communication();
+}
+
+
+function set_c_lim(chan) {
+ if (chan > channels) return;
+ var value = parseFloat(document.getElementById("form_c_lim"+chan).value);
+ var command;
+ command = "ISET"+chan+":"+("000"+value.toFixed(3)).slice (-5);
+
+ new_commands.push(command);
+ forceShowReadings = 1;
+ communication();
+}
+
+function turn_on(chan) {
+ if (chan > channels) return;
+ new_commands.push("OUT1");
+ forceShowReadings = 1;
+ communication();
+}
+
+function turn_off(chan) {
+ if (chan > channels) return;
+ new_commands.push("OUT0");
+ forceShowReadings = 1;
+ communication();
+}
+
+
+
+function update(data) {
+ updateTask = setTimeout("communication()",(notfirst++>0)?updaterate:10);
+ }
+
+
+function updatereads(data) {
+ var e = data.split("&");
+ document.getElementById("info").innerHTML = e.shift();
+ var status = +e.shift();
+ document.getElementById("chan1").style.background=(status&0x40!=0)?"limegreen":"#C00";
+
+ document.getElementById("vol1").value=(+e[0]).toFixed(2);
+ document.getElementById("cur1").value=(+e[1]).toFixed(3);
+
+ updateTask = setTimeout("communication()",updaterate);
+ }
+
+function updatesettings(data) {
+ var e = data.split("&");
+ document.getElementById("info").innerHTML = e.shift() + e.shift();
+ var status = +e.shift();
+ document.getElementById("chan1").style.background=(status&0x40!=0)?"limegreen":"#C00";
+
+ document.getElementById("form_v1").value =(+e[0]).toFixed(2);
+ document.getElementById("form_c_lim1").value=(+e[1]).toFixed(3);
+
+ document.getElementById("vol1").value=(+e[2]).toFixed(2);
+ document.getElementById("cur1").value=(+e[3]).toFixed(3);
+
+ updateTask = setTimeout("communication()",(notfirst++>0)?updaterate:10);
+ }
+
+function communication() {
+ cmds = new_commands.join('&');
+ if (cmds != "") {
+ getdata('pwr.pl?'+ser_dev+'&'+type+"&"+speed+'&'+cmds,);
+ }
+ else if(readSettingsRequest == 1) {
+ readSettingsRequest = 0;
+ cmds = "%2AIDN%3F";
+ cmds += '&STATUS%3F';
+ cmds += '&VSET1%3F';
+ cmds += '&ISET1%3F';
+ cmds += '&VOUT1%3F';
+ cmds += '&IOUT1%3F';
+
+ getdata('pwr.pl?'+ser_dev+'&'+type+"&"+speed+'&'+cmds,updatesettings);
+ }
+ else if(document.getElementById("showreadings").checked || forceShowReadings) {
+ forceShowReadings = 0;
+ cmds = 'STATUS%3F';
+ cmds += '&VOUT1%3F';
+ cmds += '&IOUT1%3F';
+
+ getdata('pwr.pl?'+ser_dev+'&'+type+"&"+speed+'&'+cmds,updatereads);
+ }
+ else {
+ updateTask = setTimeout("communication()",updaterate);
+ }
+ new_commands = new Array();
+}
+
+
+
+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("update()",500);
+//document.getElementById("headline").innerHTML = "Power Supply "+'<b>'+dev_id+'</b>'+" [connected to "+'<b>'+ser_dev+'</b>'+"]" ;
+
+for(i=1;i<=channels;i++) {
+ if(typeof Vnames[i-1] !== 'undefined')
+ document.getElementById("chan"+i).innerHTML = 'Output - '+Vnames[i-1];
+ }
+
+</script>
+</body></html>
receive_answer() if $ser_type eq "PSP"; # always called
HMP_serial() if $ser_type eq 'HMP';
+KA3000_serial() if $ser_type eq "KA3000";
sub transmit_command {
}
+sub KA3000_serial {
+ print strftime("%H:%M:%S &", localtime());
+ my $fh;
+ if(-e $ser_dev && -w $ser_dev) {
+ sysopen($fh, $ser_dev, O_RDWR|O_NDELAY) or die $!;
+ }
+ else { print "Device not found"; return;}
+
+ while ( my $command = shift(@new_command) ) {
+ $command = uri_unescape($command);
+ my $x = getValue($fh,$command,$cnt++);
+ $x =~ s/\&//;
+ $x = ord($x) if $command eq "STATUS?";
+ print $x."&" if $command =~ /\?/;
+ usleep(40000);# if $ser_type eq "PST";
+ }
+ close $fh;
+ return;
+ }
+
+
sub receive_answer {
sub serial_rw {
my ($fh, $command,$forceread) = @_;
my $x = "";
- if ($ser_type eq 'PSP') {$command .= "\r";} else {$command .= "\n";}
+ if ($ser_type eq 'PSP') {$command .= "\r";}
+ elsif ($ser_type ne 'KA3000') {$command .= "\n";}
+
print $fh "$command";
# print $command;
if($ser_type eq 'PWRSW' || $forceread || $command =~ /\?/) {
else {
usleep(10000);
my $val = serial_rw($fh,$cmd,$forceread);
- if($val eq "") {
+ if($val eq "" && $ser_type ne 'KA3000') {
return $db->{$cmd.$cnt}{val};
}
addDB($cmd.$cnt,$val);
jspc29 / labtools.git / commitdiff