-sub handle_fics {
- my $line = shift;
- if ($line =~ /^<12> /) {
- handle_position(Position->new($line));
- $t->cmd("moves");
- }
- if ($line =~ /^Movelist for game /) {
- my $pos = $pos_calculating;
- if (defined($pos)) {
- @uci_movelist = ();
- @pretty_movelist = ();
- $pos_for_movelist = Position->start_pos($pos->{'player_w'}, $pos->{'player_b'});
- $getting_movelist = 1;
- }
- }
- if ($getting_movelist &&
- $line =~ /^\s* \d+\. \s+ # move number
- (\S+) \s+ \( [\d:.]+ \) \s* # first move, then time
- (?: (\S+) \s+ \( [\d:.]+ \) )? # second move, then time
- /x) {
- eval {
- my $uci_move;
- ($pos_for_movelist, $uci_move) = $pos_for_movelist->make_pretty_move($1);
- push @uci_movelist, $uci_move;
- push @pretty_movelist, $1;
-
- if (defined($2)) {
- ($pos_for_movelist, $uci_move) = $pos_for_movelist->make_pretty_move($2);
- push @uci_movelist, $uci_move;
- push @pretty_movelist, $2;
- }
- };
- if ($@) {
- warn "Error when getting FICS move history: $@";
- $getting_movelist = 0;
- }
- }
- if ($getting_movelist &&
- $line =~ /^\s+ \{.*\} \s+ (?: \* | 1\/2-1\/2 | 0-1 | 1-0 )/x) {
- # End of movelist.
- if (defined($pos_calculating)) {
- if ($pos_calculating->fen() eq $pos_for_movelist->fen()) {
- $pos_calculating->{'history'} = \@pretty_movelist;
- }
- }
- $getting_movelist = 0;
- }
- if ($line =~ /^([A-Za-z]+)(?:\([A-Z]+\))* tells you: (.*)$/) {
- my ($who, $msg) = ($1, $2);
-
- next if (grep { $_ eq $who } (@remoteglotconf::masters) == 0);
-
- if ($msg =~ /^fics (.*?)$/) {
- $t->cmd("tell $who Executing '$1' on FICS.");
- $t->cmd($1);
- } elsif ($msg =~ /^uci (.*?)$/) {
- $t->cmd("tell $who Sending '$1' to the engine.");
- print { $engine->{'write'} } "$1\n";
- } elsif ($msg =~ /^pgn (.*?)$/) {
- my $url = $1;
- $t->cmd("tell $who Starting to poll '$url'.");
- fetch_pgn($url);
- } elsif ($msg =~ /^stoppgn$/) {
- $t->cmd("tell $who Stopping poll.");
- $stop_pgn_fetch = 1;
- $http_timer = undef;
- } elsif ($msg =~ /^quit$/) {
- $t->cmd("tell $who Bye bye.");
- exit;
- } else {
- $t->cmd("tell $who Couldn't understand '$msg', sorry.");
- }
- }
- #print "FICS: [$line]\n";
-}
-