(use hart)
(use riaxpander)
(use spiffy)
(use caketext)

; I don't know what this is supposed to do in its original form in
; http-server.scm, but right now it just breaks our tests
(http:content-parser 'application/x-www-form-urlencoded (lambda (a b c) (values #f #f)))

(spiffy-debug-mode #t)
(spiffy-tcp-port 7623)

(http:add-resource
  "/redir1.scm"
  (lambda (request get-args)
    (current-request request)
    (current-urlencoded-arguments get-args)
    (set-header! "Content-length: 0")
    (redirect "/data.scm")
    (write-response-header)))

(http:add-resource
  "/redir2.scm"
  (lambda (request get-args)
    (current-request request)
    (current-urlencoded-arguments get-args)
    (set-header! "Content-length: 0")
    (redirect "/data.scm")
    (write-response-header)
    (current-response-headers '())))

(http:add-resource
  "/data.scm"
  (lambda (request get-args)
    (current-request request)
    (current-urlencoded-arguments get-args)
    (set-header! "Content-length: 5")
    (write-response-header)
    (display "data\n")))

(start-server location: (get-host-name) init: noop)