- Add iBashGrabber

[quotesite.git] / quotesite.pl

diff --git a/quotesite.pl b/quotesite.pl
index cfbc3aa..a6414a9 100644 (file)
--- a/quotesite.pl
+++ b/quotesite.pl
@@ -4,7 +4,7 @@
 # licensed under GNU GPL v2
 
 use strict;
-use Irssi 20020324 qw (command_bind command_runsub signal_add_first signal_add_last);
+use Irssi 20020324 qw (command_bind command_runsub signal_add_first signal_add_last window_find_refnum);
 use vars qw($VERSION %IRSSI);
 use XML::Simple;
 use Data::Dumper;
@@ -43,7 +43,7 @@ sub write_irssi {
 
     $text[0] = 'quotesite: ' . $text[0];
 
-    if (defined $witem) {
+    if (defined($witem) && ref($witem)) {
         $witem->print(sprintf(shift(@text), @text), MSGLEVEL_CLIENTCRAP);
     } else {
         Irssi::print(sprintf(shift(@text), @text));
@@ -83,7 +83,9 @@ sub check_for_link {
 
     # Offer the message to all Grabbers in turn
     foreach $g (@grabbers) {
+        # $g->pushio(sub{ write_irssi($witem, @_); });
         ($m, $p) = $g->get($message);
+        # $g->popio();
         while (defined($m)) {
             write_irssi($witem, '%%R>>> %%Y%s%%N %%G%s', $m->{'SOURCE'}, $m->{'ID'});
 
@@ -346,13 +348,13 @@ sub cmdhandler {
         foreach (@grabbers) {
             $_->setdebug(1);
         }
-        write_irssi(undef, 'Enabled debugging');
+        write_irssi($item, 'Enabled debugging');
     } elsif ($params[0] eq 'nodebug') {
         $debug = 0;
         foreach (@grabbers) {
             $_->setdebug(0);
         }
-        write_irssi(undef, 'Disabled debugging');
+        write_irssi($item, 'Disabled debugging');
     }
 }