Timestamp the UCI log.

diff --git a/remoteglot.pl b/remoteglot.pl
index ed3071284ce5fc47cdc938b6f2ca70fa7393b4fc..7a68339a7a224f60db8806dfa9f413b3e49a2db7 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -163,7 +163,7 @@ sub handle_uci {
 
        chomp $line;
        $line =~ tr/\r//d;
 
        chomp $line;
        $line =~ tr/\r//d;

-       print UCILOG "<= $line\n";
+       print UCILOG localtime() . " <= $line\n";

        if ($line =~ /^info/) {
                my (@infos) = split / /, $line;
                shift @infos;
        if ($line =~ /^info/) {
                my (@infos) = split / /, $line;
                shift @infos;


@@ -840,7 +840,7 @@ sub can_reach {
 sub uciprint {
        my $msg = shift;
        print UCIWRITE "$msg\n";
 sub uciprint {
        my $msg = shift;
        print UCIWRITE "$msg\n";

-       print UCILOG "=> $msg\n";
+       print UCILOG localtime() . " => $msg\n";

 }
 
 sub short_score {
 }
 
 sub short_score {