(*
  OCaml HTTP - do it yourself (fully OCaml) HTTP daemon

  Copyright (C) <2002> Stefano Zacchiroli <zack@cs.unibo.it>

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*)

open Printf;;

let dump_args path args =
  Printf.sprintf
    "PATH: %s\nARGS:\n%s"
    path
    (String.concat
      ""
      (List.map
        (fun (name, value) -> sprintf "\tNAME: '%s', VALUE: '%s'\n" name value)
        args))
in
let callback path args outchan =
  match path with
  | "/gone" ->
      Http_daemon.respond_redirect
        ~location:"/foo" ~body:"REDIRECT" ~code:302 outchan
  | "/error" ->
      Http_daemon.respond_error ~body:"ERROR" ~code:500 outchan
  | _ ->
      begin
        Http_daemon.send_basic_headers ~code:200 outchan;
        Http_daemon.send_CRLF outchan;
        output_string outchan (dump_args path args)
      end
in
print_endline "Starting custom Http_daemon ...";
flush stdout;
Http_daemon.start ~port:9999 callback