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

diff --git a/remoteglot.pl b/remoteglot.pl
index 9d88db7..7a68339 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -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 {