Fix some paths after git rewriting.

[remoteglot-book] / www / opening-stats.pl

diff --git a/www/opening-stats.pl b/www/opening-stats.pl
index 3b2b2ff78c8f66b34a00336430e3482eec4eda0e..06f67b26931905884642f75c9210b03f7e56f842 100755 (executable)
--- a/www/opening-stats.pl
+++ b/www/opening-stats.pl
@@ -7,28 +7,29 @@ use lib '..';
 use Position;
 use ECO;
 
-ECO::unpersist("../book/openings.txt");
+ECO::unpersist("../openings.txt");
 
 my $cgi = CGI->new;
 my $fen = $cgi->param('fen');
 my $pos = Position->from_fen($fen);
 my $hex = unpack('H*', $pos->bitpacked_fen);
-open my $fh, "-|", "../book/binlookup", "../book/open.mtbl", $hex
-       or die "../book/binlookup: $!";
+open my $fh, "-|", "../binlookup", "../open.mtbl", $hex
+       or die "../binlookup: $!";
 
 my $opening;
 
 my @moves = ();
 while (<$fh>) {
        chomp;
-       my ($move, $white, $draw, $black, $opening_num, $white_avg_elo, $black_avg_elo) = split;
+       my ($move, $white, $draw, $black, $opening_num, $white_avg_elo, $black_avg_elo, $num_elo) = split;
        push @moves, {
                move => $move,
                white => $white * 1,
                draw => $draw * 1,
                black => $black * 1,
                white_avg_elo => $white_avg_elo * 1,
-               black_avg_elo => $black_avg_elo * 1
+               black_avg_elo => $black_avg_elo * 1,
+               num_elo => $num_elo * 1
        };
        $opening = $ECO::openings[$opening_num];
 }