From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Thu, 20 Nov 2014 20:33:18 +0000 (+0100)
Subject: Minor pruning of some unused JSON fields.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=1c3cd7877f58e65919bc870f1945be115b5ec2d1

Minor pruning of some unused JSON fields.
---

diff --git a/Position.pm b/Position.pm
index b847d10..9333bcd 100644
--- a/Position.pm
+++ b/Position.pm
@@ -112,7 +112,14 @@ sub fen {
 
 sub to_json_hash {
 	my $pos = shift;
-	my $json = { %$pos, board => undef, prettyprint_cache => undef, fen => $pos->fen() };
+	my $json = { %$pos, fen => $pos->fen() };
+	delete $json->{'board'};
+	delete $json->{'prettyprint_cache'};
+	delete $json->{'black_castle_k'};
+	delete $json->{'black_castle_q'};
+	delete $json->{'white_castle_k'};
+	delete $json->{'white_castle_q'};
+	delete $json->{'time_since_100move_rule_reset'};
 	if ($json->{'player_w'} =~ /^base64:(.*)$/) {
 		$json->{'player_w'} = MIME::Base64::decode_base64($1);
 	}