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 4d2423c998500019cdb616df378b542c53d799fb..d699c234d06e387062a110a508ae09f226d024e4 100644 (file)
--- 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?