iraident.pl

#!/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');