diff options
Diffstat (limited to 'scripts/iraident.pl')
| -rw-r--r-- | scripts/iraident.pl | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/scripts/iraident.pl b/scripts/iraident.pl new file mode 100644 index 0000000..a22d4be --- /dev/null +++ b/scripts/iraident.pl @@ -0,0 +1,65 @@ +#!/usr/bin/perl + +# This is for NickServ Russian Ircnet services +# just edit $ident_name and $password +# +# tested on irc.nov.ru +# todo: +# - before quote codepage will be great to check current +# - notify from nickserv may has a different text + + +use strict; +use Irssi; + +use vars qw($VERSION %IRSSI); + +$VERSION = "0.6.1"; +%IRSSI = ( + authors => "DonRumata", + contact => "rumata\@dragons.ru", + name => "iraident", + description => "IrcNet.ru Auto Identify - changes nick and send identify command, then sets codepage", + license => "GPLv2", + url => "http://rumata.dragons.ru", + changed => "$VERSION", + commands => "none" +); + + +my $ident_name = "DonRumata_for_example"; +my $password = "some_identify_string"; +#my $fmt = MSGLEVEL_CLIENTNOTICES; + +sub server_event_catch { + # $server = server record where the message came + # $data = the raw data received from server, with PRIVMSGs it is: + # "target :text" where target is either your nick or #channel + # $nick = the nick who sent the message + # $host = host of the nick who sent the message + + my ($server, $text, $nick, $user) = @_; + + if (($nick == 'NickServ') and ($user == 'Services@ircnet.ru')){ + # events: + # Nick is registered or protected or not registered + + if ( $text =~ /your nick will be changed/){ + + if ($server->{'nick'} ne $ident_name){ + $server->command("NICK $ident_name"); +# Irssi::print("ident string sent...",$fmt); + return; + } + + return if ($server->{'usermode'} =~ /(r)/); + $server->command("MSG NickServ identify $password"); +# Irssi::print("password sent",$fmt); + + $server->command("QUOTE codepage koi8"); +# Irssi::print("codepage sent",$fmt); + } + } +} + +Irssi::signal_add('server event', 'server_event_catch');
\ No newline at end of file |