X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=b66fd2c43acec6f6a9db5703e06e1f42a3fc9d90;hp=4428e26ad4e4401a0f11b300322d5e458ef8bc13;hb=2187ba0a0e12b8e751524491e25905d7ecc2e07b;hpb=42887f254e036b1c84fbf18cf7a78fa472f8d449

diff --git a/remoteglot.pl b/remoteglot.pl
index 4428e26..b66fd2c 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -177,6 +177,9 @@ sub handle_fics {
 			AnyEvent::HTTP::http_get($url, sub {
 				handle_pgn(@_, $url);
 			});
+		} elsif ($msg =~ /^stoppgn$/) {
+			$t->cmd("tell $who Stopping poll.");
+			$http_timer = undef;
 		} else {
 			$t->cmd("tell $who Couldn't understand '$msg', sorry.");
 		}