Log ICS stuff to a separate log.
authorSteinar H. Gunderson <sesse@debian.org>
Wed, 27 Jun 2007 15:57:14 +0000 (17:57 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Wed, 27 Jun 2007 15:57:14 +0000 (17:57 +0200)
remoteglot.pl

index e3169a5..ea1e13d 100755 (executable)
@@ -21,10 +21,16 @@ $SIG{ALRM} = sub { output_screen(); };
 $| = 1;
 
 my $server = "freechess.org";
-my $target = "Sesse";
+my $target = "GMCarlsen";
 # my $engine = "/usr/games/toga2";
 my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
 
+open(FICSLOG, ">ficslog.txt")
+       or die "ficslog.txt: $!";
+print FICSLOG "Log starting.\n";
+select(FICSLOG);
+$| = 1;
+
 open(UCILOG, ">ucilog.txt")
        or die "ucilog.txt: $!";
 print UCILOG "Log starting.\n";
@@ -47,7 +53,7 @@ while (<UCIREAD>) {
 uciprint("setoption name UCI_AnalyseMode value true");
 uciprint("setoption name NalimovPath value c:\\nalimov");
 uciprint("setoption name NalimovUsage value Normally");
-uciprint("setoption name MultiPV value 3");
+uciprint("setoption name MultiPV value 3");
 # uciprint("setoption name Contempt value 1000");
 # uciprint("setoption name Outlook value Ultra Optimistic");
 uciprint("ucinewgame");
@@ -56,7 +62,7 @@ print "Chess engine ready.\n";
 
 # now talk to FICS
 my $t = Net::Telnet->new(Timeout => 10, Prompt => '/fics% /');
-#$t->input_log(\*STDOUT);
+$t->input_log(\*FICSLOG);
 $t->open($server);
 $t->print("guest");
 $t->waitfor('/Press return to enter the server/');