Kerberos authType

[hcoop/domtool2.git] / src / plugins / apache.sml

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)