From: Jan Michel <j.michel@gsi.de>
Date: Thu, 26 Jun 2014 14:34:42 +0000 (+0200)
Subject: added lokcing in getpadiwa
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=da49ffe4d186ee06c8ec48931de81175431bba14;p=daqtools.git

added lokcing in getpadiwa
---

diff --git a/web/htdocs/commands/getpadiwa.pl b/web/htdocs/commands/getpadiwa.pl
index 6ebbcdc..d4b7a5d 100755
--- a/web/htdocs/commands/getpadiwa.pl
+++ b/web/htdocs/commands/getpadiwa.pl
@@ -35,8 +35,10 @@ $board = hex($board);
  
 sub sendcmd {
   my ($cmd,$chain) = @_;
-  my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,1];
-  trb_register_write_mem($board,0xd400,0,$c,scalar @{$c});
+  my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,0x10001];
+  do{
+    trb_register_write_mem($board,0xd400,0,$c,scalar @{$c});
+    } while(trb_strerror() ne "No Error");
   return trb_register_read($board,0xd412);
   }