(*
OCaml HTTP - do it yourself (fully OCaml) HTTP daemon
- Copyright (C) <2002> Stefano Zacchiroli <zack@cs.unibo.it>
+ Copyright (C) <2002-2004> 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
let i = int_of_string (req#param "x") in
prerr_endline (string_of_int i);
match i with
- | 0 -> output_string outchan "0"
+ | 0 -> output_string outchan "1"
| x when x>0 ->
let data =
wget "127.0.0.1" 9999 (sprintf "/foo?x=%d" (x-1))