(** Apache connector.  This program must be compiled to .cma.

    You could of course copy the code of add.ml here but it is not
    done in order to reuse counter.ml with other connectors. *)

open Netcgi

(* Errors of the function [main] (for example if the arguments "x" and
   "y" are not numbers) are handled by the connector.  They will
   rollback the output (i.e. any uncomitted material will be deleted),
   log the error, and generate an error page instead of the current
   page.  If you do not like this behavior, you can define your own
   error handling function and set it via the [exn_handler] optional
   argument of the connector.  *)
let () =
  let buffered _ ch = new Netchannels.buffered_trans_channel ch in
  Netcgi_apache.run ~output_type:(`Transactional buffered)
    (fun cgi -> Add.main(cgi :> cgi))