X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=quotesite.git;a=blobdiff_plain;f=quotesite.pl;h=a6414a999315be6e723a39fdd34daa8f99593a55;hp=53850558a75c97ec6e57ad942b133895680b302e;hb=134915427cbf80a82868b173766a9c0da84b0fba;hpb=7a2a97ead43f07fbeb25bca43f40c7f994cc77ab diff --git a/quotesite.pl b/quotesite.pl index 5385055..a6414a9 100644 --- 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; @@ -20,7 +20,7 @@ my $PARAMS = { # activate debug here -my $debug = 1; +my $debug = 0; # "message public", SERVER_REC, char *msg, char *nick, char *address, char *target signal_add_last("message public" => sub {check_for_link(\@_,1,4,2,0);}); @@ -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'); } }