From bb57392445762572730e1c683415b4e66db9e108 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Thu, 2 Nov 2017 18:04:12 +0100
Subject: [PATCH] add some stty settings, add delay to work on raspi

---
 powersupplies/web/htdocs/pwr.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/powersupplies/web/htdocs/pwr.pl b/powersupplies/web/htdocs/pwr.pl
index 561678d..06f2a6c 100755
--- a/powersupplies/web/htdocs/pwr.pl
+++ b/powersupplies/web/htdocs/pwr.pl
@@ -57,7 +57,8 @@ if($ser_dev =~ /^IP(.*)/) {
 #   }
 else {  
   if ($ser_speed != 0){
-    my $command = "stty -F $ser_dev speed $ser_speed";
+      my $command = "stty -F $ser_dev speed $ser_speed -opost -onlcr -isig -icanon -iexten -echo -echoe -echok -echoctl -echoke";
+      print stderr "$command\n";
     $command .= " -ixoff " if $ser_type eq 'PSP';
     my $res = qx($command);
     }
@@ -173,7 +174,7 @@ sub HMP_serial {
     my $x = getValue($fh,$command,$cnt++);
     $x =~ s/\&//;
     print $x."&" if $command =~ /\?/;
-    usleep(40000) if $ser_type eq "PST";
+    usleep(40000);# if $ser_type eq "PST";
     }
   close $fh;  
   return;
@@ -221,7 +222,7 @@ sub serial_rw {
 
 sub getValue {
   my ($fh,$cmd,$cnt,$forceread) = @_;
-  if (0 && defined $db->{$cmd.$cnt}{tim} && $db->{$cmd.$cnt}{tim} > time()-2) {
+  if (0 && defined $db->{$cmd.$cnt}{tim} && $db->{$cmd.$cnt}{tim} > time()-10) {
     return $db->{$cmd.$cnt}{val};
     }
   else {
-- 
2.43.0