--- /dev/null
+{{Set internal environment variables using regexeps. <a href="https://httpd.apache.org/docs/2.4/mod/mod_setenvif.html">mod_setenvif</a>.}}
+
+extern val setEnvIf : regexp -> regexp -> [no_spaces] -> [^Vhost];
+{{<a href="https://httpd.apache.org/docs/2.4/mod/mod_setenvif.html#setenvif">Apache documentation for <tt>SetEnvIf</tt></a>}}
+extern val setEnvIfNoCase : regexp -> regexp -> [no_spaces] -> [^Vhost];
+{{<a href="https://httpd.apache.org/docs/2.4/mod/mod_setenvifnocase.html#setenvif">Apache documentation for <tt>SetEnvIfNoCase</tt></a>}}
\ No newline at end of file
| ch => str ch) value);
write "\"\n"))
+val () = Env.action_three "setEnvIf"
+ ("attribute", Env.string, "match", Env.string, "env_variables", Env.list Env.string)
+ (fn (attribute, match, envs) =>
+ case envs of
+ [] => (print "WARNING: Skipped setEnvIf, no environment variables provided.\n")
+ | envs =>
+ (write "\tSetEnvIf\t\"";
+ write attribute;
+ write "\"\t\"";
+ write match;
+ write "\"";
+ app (fn env => (write "\t"; write env)) envs;
+ write "\n"))
+
+val () = Env.action_three "setEnvIfNoCase"
+ ("attribute", Env.string, "match", Env.string, "env_variables", Env.list Env.string)
+ (fn (attribute, match, envs) =>
+ case envs of
+ [] => (print "WARNING: Skipped setEnvIfNoCase, no environment variables provided.\n")
+ | envs =>
+ (write "\tSetEnvIf\t\"";
+ write attribute;
+ write "\"\t\"";
+ write match;
+ write "\"";
+ app (fn env => (write "\t"; write env)) envs;
+ write "\n"))
+
val () = Env.action_one "diskCache"
("path", Env.string)
(fn path => (write "\tCacheEnable disk \"";