#######################################################################
# identify.pl
# - Auto-Identas -
# Author: Saulius <saulius@tornado.ktu.lt>
#######################################################################

use Irssi;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '1.01';
%IRSSI   = (
    author      => 'Saulius',
    contact     => 'saulius@tornado.ktu.lt',
    name        => 'identify',
    description => 'Auto identifikacija LT',
    license     => 'Free',
    changed     => '2003-11-07',
);

my %passai = (
    lc('nickas')  => 'passwordas',
    lc('nickas2') => 'passwordas2'
);

sub event_notice {
    my ( $server, $text, $nick, $addr ) = @_;

    # tik lietuvos servams
    return unless $server->{'real_address'} =~ /\.lt$/;
    if ( $nick eq 'NickServ' ) {
        if ( $text =~ /\/msg NickServ IDENTIFY/ ) {
            my $password = $passai{ lc( $server->{'nick'} ) };
            if ($password) {
                $server->command("QUOTE NickServ identify $password");
                Irssi::command("AUTOAWAY 30m");
            }
            else {
                Irssi::print(
                    "I do not know the password for $server->{'nick'}.");
            }

            # Suppress the notice from NickServ
            Irssi::signal_stop();
        }
    }
}

Irssi::signal_add( 'message irc notice', 'event_notice' );