Allow the module to work in the proxy mode correctly (don't swallow authentication...
[mod_auth_kerb.cvs/.git] / src / mod_auth_kerb.c
index 809d9b0..9afa8cb 100644 (file)
@@ -46,7 +46,7 @@
 
 #include "config.h"
 
-#define MODAUTHKERB_VERSION "5.0-rc4"
+#define MODAUTHKERB_VERSION "5.0-rc5"
 
 #include <httpd.h>
 #include <http_config.h>
@@ -198,13 +198,13 @@ static const command_rec kerb_auth_cmds[] = {
 /* This is our replacement krb5_rc_store function */
 static krb5_error_code
 mod_auth_kerb_rc_store(krb5_context context, krb5_rcache rcache,
-                        krb5_donot_replay *donot_replay)
+                       krb5_donot_replay_internal *donot_replay)
 {
    return 0;
 }
 
 /* And this is the operations vector for our replay cache */
-const krb5_rc_ops mod_auth_kerb_rc_ops = {
+const krb5_rc_ops_internal mod_auth_kerb_rc_ops = {
   0,
   "dfl",
   krb5_rc_dfl_init,
@@ -453,6 +453,12 @@ end:
 /*************************************************************************** 
  Username/Password Validation for Krb5
  ***************************************************************************/
+
+/* MIT kerberos uses replay cache checks even during credential verification
+ * (i.e. in krb5_verify_init_creds()), which is obviosuly useless. In order to
+ * avoid problems with multiple apache processes accessing the same rcache file
+ * we had to use this call instead, which is only a bit modified version of
+ * krb5_verify_init_creds() */
 static krb5_error_code
 verify_krb5_init_creds(krb5_context context, krb5_creds *creds,
                        krb5_principal ap_req_server, krb5_keytab ap_req_keytab)
@@ -509,6 +515,7 @@ verify_krb5_init_creds(krb5_context context, krb5_creds *creds,
    ret = krb5_auth_con_init(context, &auth_context);
    if (ret)
       goto end;
+   /* use KRB5_AUTH_CONTEXT_DO_SEQUENCE to skip replay cache checks */
    krb5_auth_con_setflags(context, auth_context, KRB5_AUTH_CONTEXT_DO_SEQUENCE);
 
    ret = krb5_rd_req (context, &auth_context, &req, ap_req_server,
@@ -531,12 +538,13 @@ end:
 /* Inspired by krb5_verify_user from Heimdal */
 static krb5_error_code
 verify_krb5_user(request_rec *r, krb5_context context, krb5_principal principal,
-                krb5_ccache ccache, const char *password, const char *service,
-                krb5_keytab keytab, int krb_verify_kdc)
+                const char *password, const char *service, krb5_keytab keytab,
+                int krb_verify_kdc, krb5_ccache *ccache)
 {
    krb5_creds creds;
    krb5_principal server = NULL;
    krb5_error_code ret;
+   krb5_ccache ret_ccache = NULL;
 
    /* XXX error messages shouldn't be logged here (and in the while() loop in
     * authenticate_user_krb5pwd() as weell), in order to avoid confusing log
@@ -583,28 +591,38 @@ verify_krb5_user(request_rec *r, krb5_context context, krb5_principal principal,
        goto end;
    }
 
-   if (ccache) {
-      ret = krb5_cc_initialize(context, ccache, principal);
-      if (ret) {
-        log_rerror(APLOG_MARK, APLOG_ERR, 0, r,
-                   "krb5_cc_initialize() failed: %s",
-                   krb5_get_err_text(context, ret));
-        goto end;
-      }
+   ret = krb5_cc_resolve(context, "MEMORY:", &ret_ccache);
+   if (ret) {
+      log_rerror(APLOG_MARK, APLOG_ERR, 0, r, 
+                "generating new memory ccache failed: %s",
+                krb5_get_err_text(context, ret));
+      goto end;
+   }
 
-      ret = krb5_cc_store_cred(context, ccache, &creds);
-      if (ret) {
-        log_rerror(APLOG_MARK, APLOG_ERR, 0, r,
-                   "krb5_cc_store_cred() failed: %s",
-                   krb5_get_err_text(context, ret));
-        goto end;
-      }
+   ret = krb5_cc_initialize(context, ret_ccache, principal);
+   if (ret) {
+      log_rerror(APLOG_MARK, APLOG_ERR, 0, r,
+                "krb5_cc_initialize() failed: %s",
+                krb5_get_err_text(context, ret));
+      goto end;
    }
 
+   ret = krb5_cc_store_cred(context, ret_ccache, &creds);
+   if (ret) {
+      log_rerror(APLOG_MARK, APLOG_ERR, 0, r,
+                "krb5_cc_store_cred() failed: %s",
+                krb5_get_err_text(context, ret));
+      goto end;
+   }
+   *ccache = ret_ccache;
+   ret_ccache = NULL;
+
 end:
    krb5_free_cred_contents(context, &creds);
    if (server)
       krb5_free_principal(context, server);
+   if (ret_ccache)
+      krb5_cc_destroy(context, ret_ccache);
 
    return ret;
 }
@@ -752,8 +770,6 @@ int authenticate_user_krb5pwd(request_rec *r,
    int             ret;
    char            *name = NULL;
    int             all_principals_unkown;
-   char            *ccname = NULL;
-   int             fd;
 
    code = krb5_init_context(&kcontext);
    if (code) {
@@ -779,16 +795,6 @@ int authenticate_user_krb5pwd(request_rec *r,
       goto end;
    }
 
-   code = krb5_cc_resolve(kcontext, "MEMORY:", &ccache);
-   if (code) {
-      log_rerror(APLOG_MARK, APLOG_ERR, 0, r,
-                "generating new memory ccache failed: %s",
-                 krb5_get_err_text(kcontext, code));
-      ret = HTTP_INTERNAL_SERVER_ERROR;
-      unlink(ccname);
-      goto end;
-   }
-
    if (conf->krb_5_keytab)
       krb5_kt_resolve(kcontext, conf->krb_5_keytab, &keytab);
 
@@ -815,9 +821,9 @@ int authenticate_user_krb5pwd(request_rec *r,
         continue;
       }
 
-      code = verify_krb5_user(r, kcontext, client, ccache, sent_pw, 
+      code = verify_krb5_user(r, kcontext, client, sent_pw, 
                              conf->krb_service_name, 
-                             keytab, conf->krb_verify_kdc);
+                             keytab, conf->krb_verify_kdc, &ccache);
       if (!conf->krb_authoritative && code) {
         /* if we're not authoritative, we allow authentication to pass on
          * to another modules if (and only if) the user is not known to us */
@@ -882,7 +888,6 @@ get_gss_error(MK_POOL *p, OM_uint32 err_maj, OM_uint32 err_min, char *prefix)
    OM_uint32 msg_ctx = 0;
    gss_buffer_desc status_string;
    char *err_msg;
-   size_t len;
 
    err_msg = ap_pstrdup(p, prefix);
    do {
@@ -990,6 +995,8 @@ get_gss_creds(request_rec *r,
                 "gss_import_name() failed"));
       return HTTP_INTERNAL_SERVER_ERROR;
    }
+
+   log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, "Acquiring creds for %s", buf);
    
    major_status = gss_acquire_cred(&minor_status, server_name, GSS_C_INDEFINITE,
                                   GSS_C_NO_OID_SET, GSS_C_ACCEPT,
@@ -1012,14 +1019,15 @@ get_gss_creds(request_rec *r,
     * Note that this is a dirty hack to get things working and there may
     * well be unknown side-effects.
     */
-   if (memcmp(((krb5_gss_cred_id_t) *server_creds)->rcache->ops->type, "dfl", 3) == 0)
-      /* Override the rcache operations */
-      ((krb5_gss_cred_id_t) *server_creds)->rcache->ops = &mod_auth_kerb_rc_ops;
-#if 0
-   else
-      /* rcache did not point to default rcache structure, return error */
-      return HTTP_INTERNAL_SERVER_ERROR;
-#endif
+   {
+      krb5_gss_cred_id_t gss_creds = (krb5_gss_cred_id_t) *server_creds;
+
+      if (gss_creds && gss_creds->rcache && gss_creds->rcache->ops &&
+         gss_creds->rcache->ops->type &&  
+         memcmp(gss_creds->rcache->ops->type, "dfl", 3) == 0)
+          /* Override the rcache operations */
+        gss_creds->rcache->ops = &mod_auth_kerb_rc_ops;
+   }
 #endif
    
    return 0;
@@ -1233,7 +1241,8 @@ set_kerb_auth_headers(request_rec *r, const kerb_auth_config *conf,
    /* get the user realm specified in .htaccess */
    auth_name = ap_auth_name(r);
 
-   /* XXX should the WWW-Authenticate header be cleared first? */
+   /* XXX should the WWW-Authenticate header be cleared first?
+    * apache in the proxy mode should retain client's authN headers? */
 #ifdef KRB5
    if (negotiate_ret_value != NULL && conf->krb_method_gssapi) {
       negoauth_param = (*negotiate_ret_value == '\0') ? "Negotiate" :
@@ -1280,14 +1289,13 @@ int kerb_authenticate_user(request_rec *r)
       return DECLINED;
 
    /* get what the user sent us in the HTTP header */
-   auth_line = MK_TABLE_GET(r->headers_in, "Authorization");
+   auth_line = MK_TABLE_GET(r->headers_in, (r->proxyreq == PROXYREQ_PROXY)
+                                           ? "Proxy-Authorization"
+                                           : "Authorization");
    if (!auth_line) {
-       auth_line = MK_TABLE_GET(r->headers_in, "Proxy-Authorization");
-       if (!auth_line) {
-               set_kerb_auth_headers(r, conf, use_krb4, use_krb5,
-                                    (use_krb5) ? "\0" : NULL);
-               return HTTP_UNAUTHORIZED;
-       }
+      set_kerb_auth_headers(r, conf, use_krb4, use_krb5, 
+                           (use_krb5) ? "\0" : NULL);
+      return HTTP_UNAUTHORIZED;
    }
    auth_type = ap_getword_white(r->pool, &auth_line);
 
@@ -1346,6 +1354,12 @@ module MODULE_VAR_EXPORT auth_kerb_module = {
        NULL,                           /*      process initialization        */
        NULL,                           /*      process exit/cleanup          */
        NULL                            /* [ 1] post read_request handling    */
+#ifdef EAPI
+       ,NULL,                          /* EAPI: add_module                   */
+       NULL,                           /* EAPI: remove_module                */
+       NULL,                           /* EAPI: rewrite_command              */
+       NULL                            /* EAPI: new_connection               */
+#endif
 };
 #else
 static int