#lang scheme/base
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; JSMGR: Javascript Manager
;;
;; a Javascript Manager/builder for managing your complex ajax scripts 
;;
;; Bonzai Lab, LLC.  All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; servlet-util.ss
;; yc 8/20/2009 - first version 
(require web-server/http/request-structs
         web-server/http/response-structs
         net/url
         mzlib/etc
         scheme/contract
         (planet bzlib/shp:1:1/request)         
         (planet bzlib/shp:1:1/proxy)         
         (planet bzlib/http/client)
         "main.ss"
         )

(define (request-helper request)
  (parameterize (($request request))
    ($query* "s")))

;; we want to take the request's query object (which are quite available through our definitions...)
;; and then map it to
(define (make-start base) 
  (lambda (request)
    (let ((scripts (request-helper request)))
      (http-client-response->response 
       (make-http-client-response "1.1" 
                                  200 
                                  "OK" 
                                  '(("Content-Type" . "text/javascript"))
                                  (open-js/css-files/base scripts base))
       (lambda (x) x)))))

(provide/contract 
 (make-start (-> path-string? (-> request? response/c)))
 )