*** empty log message ***

diff --git a/cts/CtsConfig.pm b/cts/CtsConfig.pm
index 5863cc4983fa0c98590185511ec504d9f4bc4603..69fb254474c7a32f651227d4892884ada3bc1de5 100644 (file)
--- a/cts/CtsConfig.pm
+++ b/cts/CtsConfig.pm
@@ -2,7 +2,7 @@ package CtsConfig;
 
 #default cts endpoint. can be overriden by a command line parameter
 sub getDefaultEndpoint {
-   return 0x8000; 
+   return 0xf3c0; 
 }
 
 1;

diff --git a/cts/cts b/cts/cts
index 36f1b907531f89383c2891db2b22fbe390100045..f859844d30bff54bc732d2ca4feb501411b1cbfc 100755 (executable)
--- a/cts/cts
+++ b/cts/cts
@@ -33,6 +33,7 @@ use lib "./include";
       }
    }
 
+
    use FileHandle;
    
    use CtsPlugins::CtsModStatic;

diff --git a/cts/htdocs/thresh/get.pl b/cts/htdocs/thresh/get.pl
index b28d11462c69a47973993732b0f6d201a7c8eeb9..aaa9a4d7d597e61cabbcdf253927252f4146eead 100755 (executable)
--- a/cts/htdocs/thresh/get.pl
+++ b/cts/htdocs/thresh/get.pl
@@ -30,8 +30,10 @@ if($amount != 1) {
       }
     }
   else {
+  
     my $chunk = int($amount/$split);
     if($amount%$split) {$chunk++;}
+
     my $i = 0;
     my @hits;
     do {

diff --git a/padiwa.pl b/padiwa.pl
index f6c1c7d2e5550ef093ca542bd8a1aa9050b9a276..8c4683c30cae302506a3b870b95341682b952362 100755 (executable)
--- a/padiwa.pl
+++ b/padiwa.pl
@@ -55,15 +55,17 @@ if (defined $ARGV[4]) {
   
 sub sendcmd {
   my ($cmd) = @_;
-  trb_register_write($board,0xd400,$cmd);
-  trb_register_write($board,0xd411,1);
+  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});
+#   trb_register_write($board,0xd410,1<<$chain) or die "trb_register_write: ", trb_strerror();   
+#   trb_register_write($board,0xd411,1);
   return trb_register_read($board,0xd412);
   }
   
   
 
 
-trb_register_write($board,0xd410,1<<$chain) or die "trb_register_write: ", trb_strerror(); 
+
   
 if($ARGV[2] eq "temp") {
   my $b = sendcmd(0x10040000);