Check for the exact string resonses from vpopmaild rather than using …

…regexes
baudehlo · May 13, 2010 · 0d2b724 · 0d2b724
1 parent e139521
commit 0d2b724
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/plugins/auth/auth_vpopmaild b/plugins/auth/auth_vpopmaild
@@ -37,9 +37,7 @@ sub auth_vpopmaild {
 
     # Get server greeting (+OK)
     my $connect_response = <$vpopmaild_socket>;
-    if (!$connect_response =~ /\+OK.*/) {
-        return DECLINED;
-    }
+    return DECLINED unless $connect_response eq '+OK \r\n';
 
     # send login details
     print $vpopmaild_socket "login $user $passClear\n\r";
@@ -50,7 +48,7 @@ sub auth_vpopmaild {
     close($vpopmaild_socket);
 
     # check for successful login
-    if ($login_response =~ /\+OK.*/) {
+    if ($login_response eq '+OK+\r\n') {
         return (OK, 'authcheckpassword');
     }
     else {