X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=c8beaa463d5c58f3ae21f7b884c44257cb4d8d83;hp=b466d4dc2721c48126f0253ec3f6838e318c40f1;hb=5736a183e629bedf79f56962a57bf90dd493d967;hpb=77b0976da398bcb6cd8e8df77133ce16a1dfdc2f diff --git a/remoteglot.pl b/remoteglot.pl index b466d4d..c8beaa4 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -291,7 +291,11 @@ sub handle_pgn { } $pgn->parse_game({ save_comments => 'yes' }); - my $pos = Position->start_pos($pgn->white, $pgn->black); + my $white = $pgn->white; + my $black = $pgn->black; + $white =~ s/,.*//; # Remove first name. + $black =~ s/,.*//; # Remove first name. + my $pos = Position->start_pos($white, $black); my $moves = $pgn->moves; my @uci_moves = (); my @repretty_moves = (); @@ -931,6 +935,7 @@ sub output_json { name => "$white–$black", url => $ref->{'url'}, hashurl => $ref->{'hash_url'}, + score => $other_game_json->{'score'} }; }; if ($@) {