Import scripts from scripts.irssi.org

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