1# Prints the Q username in right format
2
3use strict;
4use Irssi;
5use vars qw($VERSION %IRSSI);
6$VERSION = "0.1";
7%IRSSI = (
8    authors=> "Teemu \'jamov\' Koskinen",
9    contact=> "teemu.koskinen\@mbnet.fi",
10    name=> "q_username",
11    description=> "Prints the Q username in right format",
12    license=> "Public Domain",
13);
14
15Irssi::theme_register([whois_auth => ' authnick : $1']);
16
17sub event_whois_auth {
18	my ($server, $data) = @_;
19	my ($num, $nick, $auth_nick) = split(/ +/, $_[1], 3);
20        $auth_nick =~ s/\:is authed as //;
21
22	$server->printformat($nick, MSGLEVEL_CRAP, 'whois_auth', $nick, $auth_nick);
23	Irssi::signal_stop();
24}
25
26Irssi::signal_add('event 330', 'event_whois_auth');
27