Allow polling more often.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 663b2d56b44736db3e70adc6b5722efd4bb5641e..f7b0456cee7f0cd316315142cca1ab6e9115d5b3 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -142,7 +142,7 @@ sub fetch_pgn {
                };
                if ($@) {
                        warn "$url: $@";
-                       $http_timer = AnyEvent->timer(after => 1.0, cb => sub {
+                       $http_timer = AnyEvent->timer(after => $remoteglotconf::poll_frequency, cb => sub {
                                fetch_pgn($url);
                        });
                }
@@ -252,7 +252,7 @@ sub handle_pgn {
                }
        }
        
-       $http_timer = AnyEvent->timer(after => 1.0, cb => sub {
+       $http_timer = AnyEvent->timer(after => $remoteglotconf::poll_frequency, cb => sub {
                fetch_pgn($url);
        });
 }
@@ -268,6 +268,7 @@ sub handle_position {
                for my $key ('white_clock', 'black_clock', 'white_clock_target', 'black_clock_target') {
                        $pos_calculating->{$key} //= $pos->{$key};
                }
+               $pos_calculating->{'extra_moves'} = $pos->{'extra_moves'};
                return;
        }