Show material imbalances.

[remoteglot] / config.pm

diff --git a/config.pm b/config.pm
index e036a4d9fce5251ec20fdb140f7b280345d78cb9..b169e07621df5d2415e2c7241be0a7c899bfd8e9 100644 (file)
--- a/config.pm
+++ b/config.pm
@@ -16,6 +16,25 @@ our $pgn_filter = undef;
 #      return $pgn->round() eq '7' && $pgn->white eq 'Carlsen,M';
 #};
 
+# Set to non-undef to override the clock information with our own calculations.
+# The example implements a simple 60+60 (with bonus added before the move).
+# FIXME(sesse): We might not see all moves in a PGN individually, so this might
+# skip some moves for bonus.
+our $adjust_clocks_before_move = undef;
+#our $adjust_clocks_before_move = sub {
+#        my ($white_clock_left, $black_clock_left, $move, $toplay) = @_;
+#
+#        if (!defined($$white_clock_left) || !defined($$black_clock_left)) {
+#                $$white_clock_left = 3600;
+#                $$black_clock_left = 3600;
+#        }
+#        if ($toplay eq 'W') {
+#                $$white_clock_left += 60;
+#        } else {
+#                $$black_clock_left += 60;
+#        }
+#};
+
 our $json_output = "/srv/analysis.sesse.net/www/analysis.json";
 our $json_history_dir = "/srv/analysis.sesse.net/www/history/";  # undef for none.