Add debugging info for reply poll
authorDan Boger <zigdon@irc.peeron.com>
Tue, 11 Aug 2009 17:16:24 +0000 (10:16 -0700)
committerDan Boger <zigdon@irc.peeron.com>
Tue, 11 Aug 2009 17:16:24 +0000 (10:16 -0700)
twirssi.pl

index aca557c52b0f5c426f4030b9ae2991abc4e739bd..a52823fbfc00a468d24a122625214a47f436e211 100644 (file)
@@ -910,7 +910,9 @@ sub do_updates {
     printf $fh "id:%u account:%s type:last_id timeline\n",
       $new_poll_id, $username;
 
-    print scalar localtime, " - Polling for replies" if &debug;
+    print scalar localtime, " - Polling for replies since ",
+      $id_map{__last_id}{$username}{reply}
+      if &debug;
     $new_poll_id = 0;
     eval {
         if ( $id_map{__last_id}{$username}{reply} )