summaryrefslogtreecommitdiffstats
path: root/scripts/q_username.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/q_username.pl')
-rw-r--r--scripts/q_username.pl26
1 files changed, 0 insertions, 26 deletions
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');