# whocount.pl
#
# This program is free software, you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PERTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# ----------------------------------------------------------------------
# Changelog:
# v0.0.1 - Svarre - 2004-06-09
# Initial release
# v0.0.2 - Svarre - 2015-03-24
# Updated %IRSSI. Removed the "Scriptinfo: Loaded whocount [...]". Let's
# keep it simple.
# ----------------------------------------------------------------------
use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '0.0.2';
%IRSSI = (
authors => 'Svante Kvarnström',
contact => '[email protected]',
name => 'whocount.pl',
description => 'Counts the number of matches in /who lists',
license => 'GPL',
url => 'http://sjk.ankeborg.nu',
);
# ----------------------------------------------------------------------
our $whocount;
sub count {
$whocount++;
}
sub end_who {
if ( $whocount == 1 ) {
Irssi::printformat( MSGLEVEL_CLIENTCRAP, 'whocount', $whocount, 'user' );
}
else {
Irssi::printformat( MSGLEVEL_CLIENTCRAP, 'whocount', $whocount, 'users' );
}
$whocount = '0';
}
# ----------------------------------------------------------------------
Irssi::signal_add( 'event 352', 'count' );
Irssi::signal_add( 'event 315', 'end_who' );
# ----------------------------------------------------------------------
Irssi::theme_register(
[
'whocount', '%R>> %CWho:%n $0 $1'
]
);
# ----------------------------------------------------------------------