Support MultiViews

Closes https://bugzilla.hcoop.net/show_bug.cgi?id=845

diff --git a/lib/apache_options.dtl b/lib/apache_options.dtl
index 7becc15..300a482 100644 (file)
--- a/lib/apache_options.dtl
+++ b/lib/apache_options.dtl
@@ -8,6 +8,7 @@ extern val execCGI : apache_option;
 extern val followSymLinks : apache_option;
 extern val includesNOEXEC : apache_option;
 extern val indexes : apache_option;
 extern val followSymLinks : apache_option;
 extern val includesNOEXEC : apache_option;
 extern val indexes : apache_option;

+extern val multiViews : apache_option;

 
 extern val options : [apache_option] -> [^Vhost];
 {{Declare exactly the set of options in effect for the current scope.}}
 
 extern val options : [apache_option] -> [^Vhost];
 {{Declare exactly the set of options in effect for the current scope.}}

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 3b535c3..b5edd64 100644 (file)
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -1,5 +1,6 @@
 (* HCoop Domtool (http://hcoop.sourceforge.net/)
  * Copyright (c) 2006-2009, Adam Chlipala
 (* HCoop Domtool (http://hcoop.sourceforge.net/)
  * Copyright (c) 2006-2009, Adam Chlipala

+ * Copyright (c) 2013 Clinton Ebadi

  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License
  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License


@@ -206,6 +207,7 @@ val apache_option = fn (EVar "execCGI", _) => SOME "ExecCGI"
                     | (EVar "includesNOEXEC", _) => SOME "IncludesNOEXEC"
                     | (EVar "indexes", _) => SOME "Indexes"
                     | (EVar "followSymLinks", _) => SOME "FollowSymLinks"
                     | (EVar "includesNOEXEC", _) => SOME "IncludesNOEXEC"
                     | (EVar "indexes", _) => SOME "Indexes"
                     | (EVar "followSymLinks", _) => SOME "FollowSymLinks"

+                    | (EVar "multiViews", _) => SOME "MultiViews"

                     | _ => NONE
 
 val autoindex_width = fn (EVar "autofit", _) => SOME "*"
                     | _ => NONE
 
 val autoindex_width = fn (EVar "autofit", _) => SOME "*"