Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
34 lines (30 sloc) 890 Bytes
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "1.0";
%IRSSI = (
authors => 'dwfreed',
contact => 'dwfreed@mtu.edu',
name => 'cap',
description => 'Prints caps; derived from cap_sasl.pl by Michael Tharp (gxti), Jilles Tjoelker (jilles), and Mantas Mikulėnas (grawity)',
license => 'GPLv2',
url => 'none yet',
);
sub event_cap {
my ($server, $args, $nick, $address) = @_;
my ($subcmd, $caps);
if ($args =~ /^\S+ (\S+) :(.*)$/) {
$subcmd = uc $1;
$caps = ' '.$2.' ';
if ($subcmd eq 'LS') {
$server->print('', "CLICAP: supported by server:$caps");
} elsif ($subcmd eq 'ACK') {
$server->print('', "CLICAP: now enabled:$caps");
} elsif ($subcmd eq 'NAK') {
$server->print('', "CLICAP: refused:$caps");
} elsif ($subcmd eq 'LIST') {
$server->print('', "CLICAP: currently enabled:$caps");
}
}
}
Irssi::signal_add('event cap', \&event_cap);