Accidentally merged the configdb branch into master. Reverting.
[citadel.git] / citadel / modules / openid / serv_openid_rp.c
index da0b7b42e8b05466e0c2f721b8115b01caad8e19..d43448d8d1eb4fd7f80201475e994c3771d1406c 100644 (file)
@@ -1,7 +1,7 @@
 /*
  * This is an implementation of OpenID 2.0 relying party support in stateless mode.
  *
- * Copyright (c) 2007-2011 by the citadel.org team
+ * Copyright (c) 2007-2012 by the citadel.org team
  *
  * This program is open source software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -211,7 +211,14 @@ void cmd_oidl(char *argbuf) {
        struct cdbdata *cdboi;
        long usernum = 0L;
 
+       if (config.c_disable_newu)
+       {
+               cprintf("%d this system does not support openid.\n",
+                       ERROR + CMD_NOT_SUPPORTED);
+               return;
+       }
        if (CtdlAccessCheck(ac_logged_in)) return;
+
        cdb_rewind(CDB_OPENID);
        cprintf("%d Associated OpenIDs:\n", LISTING_FOLLOWS);
 
@@ -236,6 +243,12 @@ void cmd_oida(char *argbuf) {
        long usernum;
        struct ctdluser usbuf;
 
+       if (config.c_disable_newu)
+       {
+               cprintf("%d this system does not support openid.\n",
+                       ERROR + CMD_NOT_SUPPORTED);
+               return;
+       }
        if (CtdlAccessCheck(ac_aide)) return;
        cdb_rewind(CDB_OPENID);
        cprintf("%d List of all OpenIDs in the database:\n", LISTING_FOLLOWS);
@@ -258,88 +271,6 @@ void cmd_oida(char *argbuf) {
 }
 
 
-/*
- * Attempt to register (populate the vCard) the currently-logged-in user
- * using the data from Simple Registration Extension, if present.
- */
-void populate_vcard_from_sreg(HashList *sreg_keys) {
-
-       struct vCard *v;
-       int pop = 0;                    /* number of fields populated */
-       char *data = NULL;
-       char *postcode = NULL;
-       char *country = NULL;
-
-       if (!sreg_keys) return;
-       v = vcard_new();
-       if (!v) return;
-
-       if (GetHash(sreg_keys, "identity", 8, (void *) &data)) {
-               vcard_add_prop(v, "url;type=openid", data);
-               ++pop;
-       }
-
-       if (GetHash(sreg_keys, "sreg.email", 10, (void *) &data)) {
-               vcard_add_prop(v, "email;internet", data);
-               ++pop;
-       }
-
-       if (GetHash(sreg_keys, "sreg.nickname", 13, (void *) &data)) {
-               vcard_add_prop(v, "nickname", data);
-               ++pop;
-       }
-
-       if (GetHash(sreg_keys, "sreg.fullname", 13, (void *) &data)) {
-               char n[256];
-               vcard_add_prop(v, "fn", data);
-               vcard_fn_to_n(n, data, sizeof n);
-               vcard_add_prop(v, "n", n);
-               ++pop;
-       }
-
-       if (!GetHash(sreg_keys, "sreg.postcode", 13, (void *) &postcode)) {
-               postcode = NULL;
-       }
-
-       if (!GetHash(sreg_keys, "sreg.country", 12, (void *) &country)) {
-               country = NULL;
-       }
-
-       if (postcode || country) {
-               char adr[256];
-               snprintf(adr, sizeof adr, ";;;;;%s;%s",
-                       (postcode ? postcode : ""),
-                       (country ? country : "")
-               );
-               vcard_add_prop(v, "adr", adr);
-               ++pop;
-       }
-
-       if (GetHash(sreg_keys, "sreg.dob", 8, (void *) &data)) {
-               vcard_add_prop(v, "bday", data);
-               ++pop;
-       }
-
-       if (GetHash(sreg_keys, "sreg.gender", 11, (void *) &data)) {
-               vcard_add_prop(v, "x-funambol-gender", data);
-               ++pop;
-       }
-
-       /* Only save the vCard if there is some useful data in it */
-       if (pop > 0) {
-               char *ser;
-               ser = vcard_serialize(v);
-               if (ser) {
-                       CtdlWriteObject(USERCONFIGROOM, "text/x-vcard",
-                               ser, strlen(ser)+1, &CC->user, 0, 0, 0
-                       );
-                       free(ser);
-               }
-       }
-       vcard_free(v);
-}
-
-
 /*
  * Create a new user account, manually specifying the name, after successfully
  * verifying an OpenID (which will of course be attached to the account)
@@ -347,6 +278,12 @@ void populate_vcard_from_sreg(HashList *sreg_keys) {
 void cmd_oidc(char *argbuf) {
        ctdl_openid *oiddata = (ctdl_openid *) CC->openid_data;
 
+       if (config.c_disable_newu)
+       {
+               cprintf("%d this system does not support openid.\n",
+                       ERROR + CMD_NOT_SUPPORTED);
+               return;
+       }
        if ( (!oiddata) || (!oiddata->verified) ) {
                cprintf("%d You have not verified an OpenID yet.\n", ERROR);
                return;
@@ -360,9 +297,6 @@ void cmd_oidc(char *argbuf) {
        /* Now, if this logged us in, we have to attach the OpenID */
        if (CC->logged_in) {
                attach_openid(&CC->user, oiddata->claimed_id);
-               if (oiddata->sreg_keys != NULL) {
-                       populate_vcard_from_sreg(oiddata->sreg_keys);
-               }
        }
 
 }
@@ -377,6 +311,12 @@ void cmd_oidd(char *argbuf) {
        int this_is_mine = 0;
        long usernum = 0L;
 
+       if (config.c_disable_newu)
+       {
+               cprintf("%d this system does not support openid.\n",
+                       ERROR + CMD_NOT_SUPPORTED);
+               return;
+       }
        if (CtdlAccessCheck(ac_logged_in)) return;
        extract_token(id_to_detach, argbuf, 0, '|', sizeof id_to_detach);
        if (IsEmptyStr(id_to_detach)) {
@@ -406,35 +346,76 @@ void cmd_oidd(char *argbuf) {
 
 
 /*
- * Attempt to auto-create a new Citadel account using the nickname from Simple Registration Extension
+ * Attempt to auto-create a new Citadel account using the nickname from Attribute Exchange
  */
-int openid_create_user_via_sreg(StrBuf *claimed_id, HashList *sreg_keys)
+int openid_create_user_via_ax(StrBuf *claimed_id, HashList *sreg_keys)
 {
-       char *desired_name = NULL;
+       char *nickname = NULL;
+       char *firstname = NULL;
+       char *lastname = NULL;
        char new_password[32];
        long len;
+       const char *Key;
+       void *Value;
 
        if (config.c_auth_mode != AUTHMODE_NATIVE) return(1);
        if (config.c_disable_newu) return(2);
        if (CC->logged_in) return(3);
-       if (!GetHash(sreg_keys, "sreg.nickname", 13, (void *) &desired_name)) return(4);
 
-       syslog(LOG_DEBUG, "The desired account name is <%s>", desired_name);
+       HashPos *HashPos = GetNewHashPos(sreg_keys, 0);
+       while (GetNextHashPos(sreg_keys, HashPos, &len, &Key, &Value) != 0) {
+               syslog(LOG_DEBUG, "%s = %s", Key, (char *)Value);
+
+               if (cbmstrcasestr(Key, "value.nickname") != NULL) {
+                       nickname = (char *)Value;
+               }
+               else if ( (nickname == NULL) && (cbmstrcasestr(Key, "value.nickname") != NULL)) {
+                       nickname = (char *)Value;
+               }
+               else if (cbmstrcasestr(Key, "value.firstname") != NULL) {
+                       firstname = (char *)Value;
+               }
+               else if (cbmstrcasestr(Key, "value.lastname") != NULL) {
+                       lastname = (char *)Value;
+               }
+
+       }
+       DeleteHashPos(&HashPos);
+
+       if (nickname == NULL) {
+               if ((firstname != NULL) || (lastname != NULL)) {
+                       char fullname[1024] = "";
+                       if (firstname) strcpy(fullname, firstname);
+                       if (firstname && lastname) strcat(fullname, " ");
+                       if (lastname) strcat(fullname, lastname);
+                       nickname = fullname;
+               }
+       }
+
+       if (nickname == NULL) {
+               return(4);
+       }
+       syslog(LOG_DEBUG, "The desired account name is <%s>", nickname);
 
-       len = cutuserkey(desired_name);
-       if (!CtdlGetUser(&CC->user, desired_name)) {
-               syslog(LOG_DEBUG, "<%s> is already taken by another user.", desired_name);
+       len = cutuserkey(nickname);
+       if (!CtdlGetUser(&CC->user, nickname)) {
+               syslog(LOG_DEBUG, "<%s> is already taken by another user.", nickname);
                memset(&CC->user, 0, sizeof(struct ctdluser));
                return(5);
        }
 
        /* The desired account name is available.  Create the account and log it in! */
-       if (create_user(desired_name, len, 1)) return(6);
+       if (create_user(nickname, len, 1)) return(6);
 
+       /* Generate a random password.
+        * The user doesn't care what the password is since he is using OpenID.
+        */
        snprintf(new_password, sizeof new_password, "%08lx%08lx", random(), random());
        CtdlSetPassword(new_password);
+
+       /* Now attach the verified OpenID to this account. */
        attach_openid(&CC->user, claimed_id);
-       populate_vcard_from_sreg(sreg_keys);
+
        return(0);
 }
 
@@ -683,8 +664,6 @@ int parse_xrds_document(StrBuf *ReplyBuf) {
        struct xrds xrds;
        int return_value = 0;
 
-       /* syslog(LOG_DEBUG, "XRDS document:\n%s\n", ChrPtr(ReplyBuf)); */
-
        memset(&xrds, 0, sizeof (struct xrds));
        xrds.selected_service_priority = INT_MAX;
        xrds.CharData = NewStrBuf();
@@ -720,7 +699,6 @@ int parse_xrds_document(StrBuf *ReplyBuf) {
 }
 
 
-
 /*
  * Callback function for perform_openid2_discovery()
  * We're interested in the X-XRDS-Location: header.
@@ -854,6 +832,12 @@ void cmd_oids(char *argbuf) {
        ctdl_openid *oiddata;
        int discovery_succeeded = 0;
 
+       if (config.c_disable_newu)
+       {
+               cprintf("%d this system does not support openid.\n",
+                       ERROR + CMD_NOT_SUPPORTED);
+               return;
+       }
        Free_ctdl_openid ((ctdl_openid**)&CCC->openid_data);
 
        CCC->openid_data = oiddata = malloc(sizeof(ctdl_openid));
@@ -863,7 +847,6 @@ void cmd_oids(char *argbuf) {
                return;
        }
        memset(oiddata, 0, sizeof(ctdl_openid));
-       CCC->openid_data = (void *) oiddata;
 
        ArgBuf = NewStrBufPlain(argbuf, -1);
 
@@ -926,7 +909,7 @@ void cmd_oids(char *argbuf) {
                StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.identity="), 0);
                StrBufUrlescAppend(RedirectUrl, oiddata->claimed_id, NULL);
 
-               /* return_to completes the round trip */
+               /* return_to tells the provider how to complete the round trip back to our site */
                StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.return_to="), 0);
                StrBufUrlescAppend(RedirectUrl, return_to, NULL);
 
@@ -980,6 +963,12 @@ void cmd_oidf(char *argbuf) {
        void *Value;
        ctdl_openid *oiddata = (ctdl_openid *) CC->openid_data;
 
+       if (config.c_disable_newu)
+       {
+               cprintf("%d this system does not support openid.\n",
+                       ERROR + CMD_NOT_SUPPORTED);
+               return;
+       }
        if (oiddata == NULL) {
                cprintf("%d run OIDS first.\n", ERROR + INTERNAL_ERROR);
                return;
@@ -1049,7 +1038,6 @@ void cmd_oidf(char *argbuf) {
 
        HashPos *HashPos = GetNewHashPos(keys, 0);
        while (GetNextHashPos(keys, HashPos, &len, &Key, &Value) != 0) {
-               syslog(LOG_DEBUG, "%s = %s", Key, (char *)Value);
                if (strcasecmp(Key, "mode")) {
                        char k_o_keyname[1024];
                        snprintf(k_o_keyname, sizeof k_o_keyname, "openid.%s", (const char *)Key);
@@ -1060,6 +1048,7 @@ void cmd_oidf(char *argbuf) {
                        );
                }
        }
+       DeleteHashPos(&HashPos);
 
        curl = ctdl_openid_curl_easy_init(errmsg);
        curl_easy_setopt(curl, CURLOPT_URL, ChrPtr(oiddata->op_url));
@@ -1125,9 +1114,9 @@ void cmd_oidf(char *argbuf) {
                        }
 
                        /*
-                        * New user whose OpenID is verified and Simple Registration Extension is in use?
+                        * New user whose OpenID is verified and Attribute Exchange gave us a name?
                         */
-                       else if (openid_create_user_via_sreg(oiddata->claimed_id, keys) == 0) {
+                       else if (openid_create_user_via_ax(oiddata->claimed_id, keys) == 0) {
                                cprintf("authenticate\n%s\n%s\n", CC->user.fullname, CC->user.password);
                                logged_in_response();
                                syslog(LOG_DEBUG, "Successfully auto-created new user");
@@ -1177,7 +1166,7 @@ void cmd_oidf(char *argbuf) {
 CTDL_MODULE_INIT(openid_rp)
 {
        if (!threading) {
-               curl_global_init(CURL_GLOBAL_ALL);
+// evcurl call this for us. curl_global_init(CURL_GLOBAL_ALL);
 
                /* Only enable the OpenID command set when native mode authentication is in use. */
                if (config.c_auth_mode == AUTHMODE_NATIVE) {
@@ -1188,7 +1177,7 @@ CTDL_MODULE_INIT(openid_rp)
                        CtdlRegisterProtoHook(cmd_oidc, "OIDC", "Create new user after validating OpenID");
                        CtdlRegisterProtoHook(cmd_oida, "OIDA", "List all OpenIDs in the database");
                }
-               CtdlRegisterSessionHook(openid_cleanup_function, EVT_LOGOUT);
+               CtdlRegisterSessionHook(openid_cleanup_function, EVT_LOGOUT, PRIO_LOGOUT + 10);
                CtdlRegisterUserHook(openid_purge, EVT_PURGEUSER);
                openid_level_supported = 1;     /* This module supports OpenID 1.0 only */
        }