Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
65 lines (50 sloc) 2.9 KB
#!/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');