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

Modified Files:
        apache.sml 
Log Message:
Fix regeneration of multi-file dependencies

Index: apache.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/plugins/apache.sml,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -d -r1.78 -r1.79
*** apache.sml  24 Feb 2008 20:53:04 -0000      1.78
--- apache.sml  25 Feb 2008 01:40:18 -0000      1.79
***************
*** 598,604 ****
         (fn (from, to, port) =>
             (checkRewrite ();
!             write "\tRewriteRule\t";
              write from;
!             write "\thttp://localhost:";;
              write (Int.toString port);
              write "/";
--- 598,604 ----
         (fn (from, to, port) =>
             (checkRewrite ();
!             write "\tRewriteRule\t\"";
              write from;
!             write "\"\thttp://localhost:";;
              write (Int.toString port);
              write "/";
***************
*** 628,635 ****
         (fn (from, to, flags) =>
             (checkRewrite ();
!             write "\tRewriteRule\t";
              write from;
!             write "\t";
              write to;
              case flags of
                  [] => ()
--- 628,636 ----
         (fn (from, to, flags) =>
             (checkRewrite ();
!             write "\tRewriteRule\t\"";
              write from;
!             write "\"\t\"";
              write to;
+             write "\"";
              case flags of
                  [] => ()
***************
*** 645,652 ****
         (fn (from, to, flags) =>
             (checkRewrite ();
!             write "\tRewriteCond\t";
              write from;
!             write "\t";
              write to;
              case flags of
                  [] => ()
--- 646,654 ----
         (fn (from, to, flags) =>
             (checkRewrite ();
!             write "\tRewriteCond\t\"";
              write from;
!             write "\"\t\"";
              write to;
+             write "\"";
              case flags of
                  [] => ()
***************
*** 662,668 ****
         (fn prefix =>
             (checkRewrite ();
!             write "\tRewriteBase\t";
              write prefix;
!             write "\n"))
  
  val () = Env.action_one "rewriteLogLevel"
--- 664,670 ----
         (fn prefix =>
             (checkRewrite ();
!             write "\tRewriteBase\t\"";
              write prefix;
!             write "\"\n"))
  
  val () = Env.action_one "rewriteLogLevel"


-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs

Reply via email to