2 * $Id: ocamlbotwrapper.c,v 1.1 2007/06/28 19:47:26 rjones Exp $
3 * SUID wrapper around ocaml program.
11 const char *new_environ[] = {
19 /* Run the ocaml program with the correct args. */
20 execle ("/usr/bin/ocaml", "@OCAML@", "-init", "xavierbot/share/xavierbot/init", NULL, new_environ);
22 /* If it failed, die with an error message. */
23 perror ("/usr/bin/ocaml");