diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/act.pl | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/scripts/act.pl b/scripts/act.pl index f7a7528..21cbbbb 100644 --- a/scripts/act.pl +++ b/scripts/act.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # resets window activity status # by c0ffee # - http://www.penguin-breeder.org/irssi/ @@ -8,7 +8,7 @@ use strict; use vars qw($VERSION %IRSSI); use Irssi 20020120; -$VERSION = "0.14"; +$VERSION = "0.15"; %IRSSI = ( authors => "c0ffee", contact => "c0ffee\@penguin-breeder.org", @@ -30,7 +30,17 @@ $VERSION = "0.14"; # # /ACT ALL sets all windows as non-active -Irssi::command_bind('act', sub { _act(1); }); +Irssi::command_bind 'act' => sub { + my ( $data, $server, $item ) = @_; + $data =~ s/\s+$//g; + if ($data) { + Irssi::command_runsub('act', $data, $server, $item); + } + else { + _act(1); + } +}; + Irssi::command_bind('act public', sub { _act(2); }); Irssi::command_bind('act all', sub { _act(3); }); |