(module rewrite-rules mzscheme
        (provide rewrite-rules
                 rewrite-rules-debug)

        (define (rewrite-rules)
          (list
	    (list "^mail.homeopathie[-]nederland.nl$"
		 "^[/]([^.]+[.]html)$" 
		 (lambda (mhost m host url)
		   (format "/servlets/hwiki.scm/~a?context=test" (cadr m))))

	    (list "^mail.homeopathie[-]nederland.nl$"
		 "^[/]$" 
		 (lambda (mhost m host url)
		   (format "/servlets/hwiki.scm/index.html?context=test")))

	    (list "^mail.homeopathie[-]nederland.nl$"
		 "^[/](.*)$" 
		 (lambda (mhost m host url)
		   (format "/test/~a" (cadr m))))

	    (list "localhost|homeopathie[-]nederland.nl" 
		 "^[/]([^.]+[.]html)$" 
		 (lambda (mhost m host url)
		   (format "/servlets/hwiki.scm/~a" (cadr m))))

           (list "localhost|homeopathie[-]nederland.nl" 
		 "^[/]$" 
		 (lambda (mhost m host url)
		   (format "/servlets/hwiki.scm/index.html")))
           ))
        
        (define (rewrite-rules-debug)
          #t)


        )
