X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=62bb4b1051a1cd94c31838ab3b80ca19b0723a77;hp=9d88db75727817d0324f7c315e301e2f5b95fa22;hb=ce34dc5b190a1d4d0fa9f9a9b7d40909847d5db8;hpb=195648946e62e7841af4af86601bde2ab281c5df

diff --git a/remoteglot.pl b/remoteglot.pl
index 9d88db7..62bb4b1 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -60,7 +60,7 @@ while (<UCIREAD>) {
 }
 
 uciprint("setoption name UCI_AnalyseMode value true");
-uciprint("setoption name Preserve Analysis value true");
+# uciprint("setoption name Preserve Analysis value true");
 uciprint("setoption name NalimovPath value c:\\nalimov");
 uciprint("setoption name NalimovUsage value Rarely");
 uciprint("setoption name Hash value 1024");
@@ -116,7 +116,9 @@ while (1) {
 			# if we're already thinking on something, stop and wait for the engine
 			# to approve
 			if (defined($pos_calculating)) {
-				uciprint("stop");
+				if (!defined($pos_waiting)) {
+					uciprint("stop");
+				}
 				$pos_waiting = $pos;
 			} else {
 				# it's wrong just to give the FEN (the move history is useful,
@@ -161,7 +163,7 @@ sub handle_uci {
 
 	chomp $line;
 	$line =~ tr/\r//d;
-	print UCILOG "<= $line\n";
+	print UCILOG localtime() . " <= $line\n";
 	if ($line =~ /^info/) {
 		my (@infos) = split / /, $line;
 		shift @infos;
@@ -838,7 +840,7 @@ sub can_reach {
 sub uciprint {
 	my $msg = shift;
 	print UCIWRITE "$msg\n";
-	print UCILOG "=> $msg\n";
+	print UCILOG localtime() . " => $msg\n";
 }
 
 sub short_score {