diff options
| -rw-r--r-- | _data/scripts.yaml | 9 | ||||
| -rwxr-xr-x | scripts/qchallengeauth.pl | 55 |
2 files changed, 64 insertions, 0 deletions
diff --git a/_data/scripts.yaml b/_data/scripts.yaml index 3303db7..646014b 100644 --- a/_data/scripts.yaml +++ b/_data/scripts.yaml @@ -4238,3 +4238,12 @@ license: "WTFPL" name: "oopsie" version: "1.0" + +- authors: "Doug Freed" + contact: "dwfreed!#irssi@freenode" + description: "Authenticates with QuakeNet's Q service upon connection, using their CHALLENGEAUTH protocol" + filename: "qchallengeauth.pl" + modified: "2014-08-23" + license: "GPLv3+" + name: "qchallengeauth" + version: "1.0" diff --git a/scripts/qchallengeauth.pl b/scripts/qchallengeauth.pl new file mode 100755 index 0000000..5eae4c2 --- /dev/null +++ b/scripts/qchallengeauth.pl @@ -0,0 +1,55 @@ +use strict; +use warnings; +use Irssi; +use Digest::SHA qw(sha256_hex hmac_sha256_hex); +use vars qw($VERSION %IRSSI); +# $Id$ + +$VERSION = "1.0"; + +%IRSSI = ( + authors => 'Doug Freed', + contact => 'dwfreed!#irssi@freenode', + name => 'qchallengeauth.pl', + description => 'Authenticates you to QuakeNet\'s Q immediately on connect using CHALLENGEAUTH', + license => 'GPLv3+', +); + +Irssi::settings_add_str('misc', 'quakenet_server_tag', 'QuakeNet'); +Irssi::settings_add_str('misc', 'quakenet_username', ''); +Irssi::settings_add_str('misc', 'quakenet_password', ''); + +Irssi::signal_add('server connected', 'server_connected'); + +sub server_connected() { + my ($server) = @_; + return unless ($server->{tag} eq Irssi::settings_get_str('quakenet_server_tag')); + Irssi::signal_add_first('event connected', 'event_connected'); +} + +sub event_connected() { + my ($server) = @_; + return unless ($server->{tag} eq Irssi::settings_get_str('quakenet_server_tag')); + Irssi::signal_add_first('message irc notice', 'message_irc_notice'); + Irssi::signal_remove('event connected', 'event_connected'); + $server->send_raw('PRIVMSG Q@cserve.quakenet.org :CHALLENGE'); + Irssi::signal_stop(); +} + +sub message_irc_notice() { + my ($server, $message, $nick, $address, $target) = @_; + return unless ($server->{tag} eq Irssi::settings_get_str('quakenet_server_tag')); + return unless ($target eq $server->{nick}); + return unless ($nick eq 'Q'); + if ($message =~ /^CHALLENGE ([[:xdigit:]]+)/){ + Irssi::signal_stop(); + my $username = Irssi::settings_get_str('quakenet_username'); + my $hashed_password = sha256_hex(substr(Irssi::settings_get_str('quakenet_password'), 0, 10)); + my $key = sha256_hex("$username:$hashed_password"); + my $response = hmac_sha256_hex($1, $key); + $server->send_raw("PRIVMSG Q\@cserve.quakenet.org :CHALLENGEAUTH $username $response HMAC-SHA-256"); + } else { + Irssi::signal_remove('message irc notice', 'message_irc_notice'); + Irssi::signal_emit('event connected', $server); + } +} |