Kerberos authType

diff --git a/lib/apache_auth.dtl b/lib/apache_auth.dtl
index 42eb389..b8ee03a 100644 (file)
--- a/lib/apache_auth.dtl
+++ b/lib/apache_auth.dtl
@@ -3,6 +3,8 @@
 extern type authType;
 extern val basic : authType;
 extern val digest : authType;
+extern val kerberos : authType;
+{{The kerberos auth type is hardwired for HCOOP.NET Kerberos only!}}
 extern val authType : authType -> [Location];
 {{See <a href="http://httpd.apache.org/docs/2.0/mod/core.html#authtype">the
   Apache documentation</a>.}}

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index c69b3d3..4c60d7a 100644 (file)
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -676,6 +676,7 @@ val () = Env.action_none "serverAliasDefault"
 
 val authType = fn (EVar "basic", _) => SOME "basic"
                | (EVar "digest", _) => SOME "digest"
+               | (EVar "kerberos", _) => SOME "kerberos"
                | _ => NONE
 
 val () = Env.action_one "authType"
@@ -683,7 +684,11 @@ val () = Env.action_one "authType"
         (fn ty =>
             (write "\tAuthType ";
              write ty;
-             write "\n"))
+             write "\n";
+             case ty of
+                 "kerberos" => 
+                 write "\tKrbMethodNegotiate off\n\tKrbMethodK5Passwd on\n\tKrbVerifyKDC off\n\tKrbAuthRealms HCOOP.NET\n\tKrbSaveCredentials on\n"
+               | _ => ()))
 
 val () = Env.action_one "authName"
         ("name", Env.string)