apache: update rewriteLogLevel for Apache 2.4

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

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 20bd7ed..451cd67 100644 (file)
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -762,15 +762,20 @@ val () = Env.action_one "rewriteBase"
              write prefix;
              write "\"\n"))
 
              write prefix;
              write "\"\n"))
 

+val _ = Env.type_one "mod_rewrite_trace_level"
+       Env.int
+       (fn n => n > 0 andalso n <= 8)
+

 val () = Env.action_one "rewriteLogLevel"
         ("level", Env.int)
 val () = Env.action_one "rewriteLogLevel"
         ("level", Env.int)

-        (fn level =>
+        (fn 0 =>

             (checkRewrite ();
             (checkRewrite ();

-             write "\tRewriteLog ";
-             write' (fn x => x);
-             write "/rewrite.log\n\tRewriteLogLevel ";
-             write (Int.toString level);
-             write "\n"))
+             write "\tLogLevel rewrite:warn\n")
+        | level =>
+          (checkRewrite ();
+           write "\tLogLevel rewrite:trace";
+           write (Int.toString level);
+           write "\n"))

 
 val () = Env.action_two "alias"
         ("from", Env.string, "to", Env.string)
 
 val () = Env.action_two "alias"
         ("from", Env.string, "to", Env.string)