[hcoop-cvs] domtool2/src/plugins apache.sml,1.75,1.76

Update of /cvsroot/hcoop/domtool2/src/plugins
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25112/src/plugins

Modified Files:
	apache.sml 
Log Message:
Some more mod_autoindex directives

Index: apache.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/plugins/apache.sml,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -d -r1.75 -r1.76
*** apache.sml	18 Feb 2008 15:32:59 -0000	1.75
--- apache.sml	18 Feb 2008 15:52:40 -0000	1.76
***************
*** 915,918 ****
--- 915,929 ----
  		       write "\n"))
  
+ val () = Env.action_two "addIcon"
+ 	 ("icon", Env.string, "patterns", Env.list Env.string)
+ 	 (fn (icon, pats) =>
+ 	     case pats of
+ 		 [] => ()
+ 	       | _ => (write "\tAddIcon \"";
+ 		       write icon;
+ 		       write "\"";
+ 		       app (fn pat => (write " "; write pat)) pats;
+ 		       write "\n"))
+ 
  val () = Env.action_one "indexOptions"
  	 ("options", Env.list autoindex_option)
***************
*** 928,931 ****
--- 939,951 ----
  		       write "\n"))
  
+ val () = Env.action_one "indexIgnore"
+ 	 ("patterns", Env.list Env.string)
+ 	 (fn pats =>
+ 	     case pats of
+ 		 [] => ()
+ 	       | _ => (write "\tIndexIgnore";
+ 		       app (fn pat => (write " "; write pat)) pats;
+ 		       write "\n"))
+ 
  val () = Env.action_one "set_indexOptions"
  	 ("options", Env.list autoindex_option)