From 11806811d39f5d9703df4900e00838cc71af67c6 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Thu, 20 Jan 2011 22:47:01 -0700
Subject: [PATCH] Added server:nspass to config. Will be replaced in the future
 by idstr.

---
 doc/CHANGELOG     | 2 ++
 src/Parser/IRC.pm | 6 ++++++
 2 files changed, 8 insertions(+)

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index dc73149..bd6774b 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Added server:nspass to config options. Will be replaced in
+      the future by idstr.
     * Parse NICK.
     * Added usrc() to API::IRC for formatting a source.
     * Added awarn() to API::Std for warnings.
diff --git a/src/Parser/IRC.pm b/src/Parser/IRC.pm
index 0b60821..0c1dbca 100644
--- a/src/Parser/IRC.pm
+++ b/src/Parser/IRC.pm
@@ -56,6 +56,12 @@ sub num001
 	
 	$got_001{$svr} = 1;
 	
+	# Identify string.
+	unless (!conf_get("server:$svr:nspass")) {
+		my $nspass = (conf_get("server:$svr:nspass"))[0][0];
+		Auto::socksnd($svr, "PRIVMSG NickServ :IDENTIFY $nspass");
+	}
+	
 	# Get the auto-join from the config.
 	my @cajoin = @{ (conf_get("server:$svr:ajoin"))[0] };