(define (authenticate:pass-request)
  (list
   "<input type = \"hidden\" name = \"original-url\" value = \""
   (ui:form-datum "original URL")
   "\">
<input type = \"hidden\" name = \"original-method\" value = \""
   (ui:form-datum "original method")
   "\">
<input type = \"hidden\" name = \"original-values\" value = \""
   (form-garble (ui:form-datum "original values"))
   "\">"
   ))

(define (form-garble data)
  "") ; for now, we just lose the data in the original request.
