#!/bin/sh
#|
exec awful "$0" "$@"
|#
(import scheme (chicken base) (chicken format) (chicken io) awful condition-utils intarweb spiffy)

(page-exception-message
 (let ((old-handler (page-exception-message)))
   (lambda (exn) (write-condition exn (current-error-port))
	   (old-handler exn))))

;; Let's not serve static files, shall we?
(handle-file (lambda (path) ((handle-not-found) path)))
(handle-directory (lambda (path) ((handle-not-found) path)))

(define-page (main-page-path)
  (lambda ()
    (let* (
           (content-length (or (header-value 'content-length (request-headers (current-request))) 0))
	   (bytes (read-string content-length (request-port (current-request)))))
      "ok"))
  method: 'post)