From 4588ad3cd7c77ab3caaa9fc6692cf36682b1c932 Mon Sep 17 00:00:00 2001 From: Mantas Mikulėnas Date: Wed, 25 Feb 2015 09:18:10 +0200 Subject: q_username: remove, no longer needed with modern Irssi --- scripts/q_username.pl | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 scripts/q_username.pl (limited to 'scripts') diff --git a/scripts/q_username.pl b/scripts/q_username.pl deleted file mode 100644 index 6652ddf..0000000 --- a/scripts/q_username.pl +++ /dev/null @@ -1,26 +0,0 @@ -# Prints the Q username in right format - -use strict; -use Irssi; -use vars qw($VERSION %IRSSI); -$VERSION = "0.1"; -%IRSSI = ( - authors=> "Teemu \'jamov\' Koskinen", - contact=> "teemu.koskinen\@mbnet.fi", - name=> "q_username", - description=> "Prints the Q username in right format", - license=> "Public Domain", -); - -Irssi::theme_register([whois_auth => ' authnick : $1']); - -sub event_whois_auth { - my ($server, $data) = @_; - my ($num, $nick, $auth_nick) = split(/ +/, $_[1], 3); - $auth_nick =~ s/\:is authed as //; - - $server->printformat($nick, MSGLEVEL_CRAP, 'whois_auth', $nick, $auth_nick); - Irssi::signal_stop(); -} - -Irssi::signal_add('event 330', 'event_whois_auth'); -- cgit v1.2.3