fix logout function of $cookie-login.

diff --git a/modules/ml-cookielogin.cc b/modules/ml-cookielogin.cc
index 77ef897..feae496 100644 (file)
--- a/modules/ml-cookielogin.cc
+++ b/modules/ml-cookielogin.cc
@@ -275,6 +275,15 @@ MNode*  ml_cookielogin_logout (MNode* cell, MlEnv* mlenv, MLFunc* mobj) {
     if (rc == 2) {
        obj->db.del (id);
     }
+    if (! isHTTPS ()) {
+       ustring  key2 (obj->sessionkey);
+       key2.append (CharConst ("N"));
+       key = mlenv->env->http.readCookie (key2);
+       if (obj->db.get (key, key2)) {
+           obj->db.del (key2);
+       }
+       obj->db.del (key);
+    }
     obj->closedb ();
 
     return NULL;