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