(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload '(#:drakma #:hunchentoot)))

(defpackage #:drakma-bug
  (:use #:cl))

(in-package #:drakma-bug)

(defvar *acceptor* (make-instance 'hunchentoot:easy-acceptor
				  :port 8181))

(hunchentoot:start *acceptor*)

(hunchentoot:define-easy-handler (login :uri "/login.php")
    (thepassword
     theusername)
  (declare (ignore thepassword theusername))
  (hunchentoot:redirect "/cookie-check.php"
			:code hunchentoot:+http-moved-temporarily+))

(hunchentoot:define-easy-handler (cookie-check :uri "/cookie-check.php")
    ()
  "Success")

(defun post-request ()
  (let* ((cookie-jar (make-instance 'drakma:cookie-jar))
	 (reply (drakma:http-request "http://localhost:8181/login.php"
				     :cookie-jar cookie-jar
				     :method :post
				     :form-data t
				     :parameters '(("theusername" . "dummy")
						   ("thepassword" . "dummy")))))
    (format t "reply is ~a~%" reply)))

(post-request)