From 35dc774669875006bc804bd082852506d87c1244 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 17 May 2007 18:44:06 +0000 Subject: [PATCH] Kerberos authType --- lib/apache_auth.dtl | 2 ++ src/plugins/apache.sml | 7 ++++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/apache_auth.dtl b/lib/apache_auth.dtl index 42eb389..b8ee03a 100644 --- 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 the Apache documentation.}} diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml index c69b3d3..4c60d7a 100644 --- 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) -- 2.20.1