#!/usr/bin/perl
no warnings;

my $pass = 'Enter Nickserv Password here';

Xchat::register('ns','v0.1','Auto-identify yourself');
Xchat::hook_server('NOTICE',notice);


sub notice {
    my $data = "@{$_[0]}";
    my $tmpnick = Xchat::get_info('nick');
    if ($data =~ /:(\S+)!(\S+)@(\S+) NOTICE $tmpnick :(.*)/i) {
        ($id,$ident,$host,$msg) = ($1,$2,$3,$4);
        if ($id eq 'NickServ') {
            if ($msg =~ /This nickname is registered and protected. If it is your/i) {
                Xchat::command("ns IDENTIFY $pass")
            }
        }
    }
    Xchat::EAT_NONE
}