X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=remoteglot.pl;h=9b1635c3ebc8955642fb68bff08abf46921dd3a1;hb=e3abe43333d1f536f34f746889ba46428989f50e;hp=fb74e6eab5c0d04c454b532ae047ed509fe2141c;hpb=a8b50dfb8117c5495784ae330ccefa8db2355e83;p=remoteglot

diff --git a/remoteglot.pl b/remoteglot.pl
index fb74e6e..9b1635c 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -744,6 +744,16 @@ sub output_json {
 
 	my $encoded = JSON::XS::encode_json($json);
 	atomic_set_contents($remoteglotconf::json_output, $encoded);
+
+	if (exists($pos_calculating->{'history'}) &&
+	    defined($remoteglotconf::json_history_dir)) {
+		my $halfmove_num = scalar @{$pos_calculating->{'history'}};
+		(my $fen = $pos_calculating->fen()) =~ tr,/ ,-_,;
+		my $filename = $remoteglotconf::json_history_dir . "/move$halfmove_num-$fen.json";
+
+		# TODO: Avoid overwriting earlier analysis if it's better.
+		atomic_set_contents($filename, $encoded);
+	}
 }
 
 sub atomic_set_contents {