From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 1 Feb 2001 14:06:22 +0000 (+0000)
Subject: now use pass auth for 'identify'.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5d11520e48da367aec87b2ee6621ff6e33c9236b;p=infobot.git

now use pass auth for 'identify'.


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@291 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Process.pl b/src/Process.pl
index 4d2423c..d699c23 100644
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -129,6 +129,17 @@ sub process {
 	    return;
 	}
 
+	my $crypt = $users{$do_nick}{PASS};
+	if (!defined $crypt) {
+	    &pSReply("user $do_nick has no passwd set.");
+	    return;
+	}
+
+	if (!&ckpass($array[0], $crypt)) {
+	    &pSReply("invalid passwd for $do_nick.");
+	    return;
+	}
+
 	my $mask = "*!$user@".&makeHostMask($host);
 	### TODO: prevent adding multiple dupe masks?
 	### TODO: make &addHostMask() CMD?