Snippets

Doug Freed cap.pl

Created by Doug Freed
cap.pl
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "1.0";
%IRSSI = (
	authors => 'dwfreed',
	contact => 'dwfreed@mtu.edu',
	name => 'cap',
	description => 'Prints caps',
	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);
# vim: ts=4:sw=4

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.