diff options
| -rw-r--r-- | _testing/config.yml | 1 | ||||
| -rw-r--r-- | scripts/page-c0ffee.pl | 8 |
2 files changed, 4 insertions, 5 deletions
diff --git a/_testing/config.yml b/_testing/config.yml index 8764417..b6a8f12 100644 --- a/_testing/config.yml +++ b/_testing/config.yml @@ -60,7 +60,6 @@ whitelist: - oidenty - 'on' - osd - - page-c0ffee - query - quizgr - quizmaster-fr diff --git a/scripts/page-c0ffee.pl b/scripts/page-c0ffee.pl index e5ae7da..aa6fe0c 100644 --- a/scripts/page-c0ffee.pl +++ b/scripts/page-c0ffee.pl @@ -2,7 +2,7 @@ use strict; use vars qw($VERSION %IRSSI); use Irssi 20020120; -$VERSION = "0.02"; +$VERSION = "0.03"; %IRSSI = ( authors => "c0ffee", contact => "c0ffee\@penguin-breeder.org", @@ -10,7 +10,7 @@ $VERSION = "0.02"; description => "Adds the /PAGE command to page a nick (use /page nick <text>)... to ignore pages /set pager_mode off", license => "Public Domain", url => "http://www.penguin-breeder.org/?page=irssi", - changed => "Sun Feb 16 11:32 CET 2003", + changed => "2017-03-12", ); use Irssi::Irc; @@ -45,7 +45,7 @@ sub signal_ctcpmsg { my ($server, $data, $nick, $addr, $target) = @_; my $pm = Irssi::settings_get_bool('pager_mode'); my $cmd = Irssi::settings_get_str('pager_cmd'); - my $answer = 0, $pid; + my $answer = 0; my $rnd = int(rand(65535)); if ($pm) { @@ -98,7 +98,7 @@ sub cmd_page { Irssi::signal_add('ctcp msg page', 'signal_ctcpmsg'); Irssi::signal_add('ctcp reply page', 'signal_ctcpmsg_reply'); Irssi::command_bind('page','cmd_page'); -Irssi::settings_add_bool('misc','pager_mode',true); +Irssi::settings_add_bool('misc','pager_mode',1); Irssi::settings_add_str('misc', 'pager_cmd', ""); # ok, here for the pager_cmd syntax: # "command [parameters]+" |