Timestamp the UCI log.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 9d88db75727817d0324f7c315e301e2f5b95fa22..7a68339a7a224f60db8806dfa9f413b3e49a2db7 100755 (executable)
--- 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 {