added lokcing in getpadiwa

diff --git a/web/htdocs/commands/getpadiwa.pl b/web/htdocs/commands/getpadiwa.pl
index 6ebbcdc228162718b4bf638108c4a6a599f6cfeb..d4b7a5d30edb5017cff85ade46a8811b01fd9fdd 100755 (executable)
--- 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);
   }