Allow polling more often.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 08e03ea876748cf8a7dd9c6b16d9a840f711536b..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);
        });
 }