Unbreak history storing again.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index e3433aa12414037ff86ba81c5d92e0449514d253..39a0f4ba805f4312f6a12afe69be7757a6ed0384 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -209,7 +209,6 @@ sub handle_fics {
                for my $pos ($pos_waiting, $pos_calculating) {
                        next if (!defined($pos));
                        if ($pos->fen() eq $pos_for_movelist->fen()) {
-                               $pos->{'history'} = \@uci_movelist;
                                $pos->{'pretty_history'} = \@pretty_movelist;
                        }
                }
@@ -279,7 +278,6 @@ sub handle_pgn {
                                ($pos, $uci_move) = $pos->make_pretty_move($move);
                                push @uci_moves, $uci_move;
                        }
-                       $pos->{'history'} = \@uci_moves;
                        $pos->{'pretty_history'} = $moves;
 
                        # Sometimes, PGNs lose a move or two for a short while,
@@ -711,8 +709,7 @@ sub output_json {
        $json->{'seldepth'} = $info->{'seldepth'};
        $json->{'tablebase'} = $info->{'tablebase'};
 
-       # single-PV only for now
-       $json->{'pv_uci'} = $info->{'pv'};
+       $json->{'pv_uci'} = $info->{'pv'};  # Still needs to be there for the JS to calculate arrows; only for the primary PV, though!
        $json->{'pv_pretty'} = [ prettyprint_pv($pos_calculating, @{$info->{'pv'}}) ];
 
        my %refutation_lines = ();
@@ -736,7 +733,6 @@ sub output_json {
                                        pretty_move => $pretty_move,
                                        pv_pretty => \@pretty_pv,
                                };
-                               $refutation_lines{$pv->[0]}->{'pv_uci'} = $pv;
                        };
                }
        }
@@ -745,9 +741,9 @@ sub output_json {
        my $encoded = JSON::XS::encode_json($json);
        atomic_set_contents($remoteglotconf::json_output, $encoded);
 
-       if (exists($pos_calculating->{'history'}) &&
+       if (exists($pos_calculating->{'pretty_history'}) &&
            defined($remoteglotconf::json_history_dir)) {
-               my $halfmove_num = scalar @{$pos_calculating->{'history'}};
+               my $halfmove_num = scalar @{$pos_calculating->{'pretty_history'}};
                (my $fen = $pos_calculating->fen()) =~ tr,/ ,-_,;
                my $filename = $remoteglotconf::json_history_dir . "/move$halfmove_num-$fen.json";