;; file: umethod.sss
   ;; author: Tim Hickey
   ;; date: 9/15/2001
   ;; modified 9/6/2002 by TJH
   ;; This servlet redirects all hits on files specified in web.xml
   ;; to the servlet call
   ;;    umethod.servlet?upload=FILEPATHNAME
   ;; The umethod.servlet file handles rest of the logic

(lambda (httpservlet)

  (define (doGet request response)
    (let* ((requestURI (.getRequestURI request))
           (filename  ;; strip off the trailing U from the request URI
              (.substring requestURI 0 (+ -1 (.length requestURI)))))
      (.sendRedirect response 
         (string-append
             (.getContextPath request)
             "/umethod.servlet?"
             "ufile=" 
             filename))))

             

  (define (doPost request response) (.doGet httpservlet request response))

  ;; store scheme procedures into the httpservlet
  (.do_get$ httpservlet doGet)
  (.do_post$ httpservlet doPost)
)