# 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;
$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));
# 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'});
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');
}
}