From b4df3a419af2cc7f8e6a52aa64443d1955c4b614 Mon Sep 17 00:00:00 2001
From: Jari Matilainen
Date: Sun, 1 May 2016 21:05:08 +0200
Subject: Added command_runsub glue

---
 scripts/act.pl | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'scripts')

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); });
 
-- 
cgit v1.2.3