;; file: upload.sss
   ;; author: Tim Hickey
   ;; date: 9/15/2001
   ;; modified 9/6/2002 by TJH

(lambda (httpservlet)

  (define (doGet request response)
      (.sendRedirect response 
         (string-append
             (.getContextPath request)
             "/uploadhandler.servlet?"
             "upload=" 
             (.getRequestURI request))))
             

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

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