/* -*- C -*-
 * $Id: ocamlbotwrapper.c.in,v 1.1 2007/06/28 19:47:26 rjones Exp $
 * SUID wrapper around ocaml program.
 */

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <errno.h>

const char *new_environ[] = {
  "PATH=/usr/bin",
  NULL
};

int
main ()
{
  /* Run the ocaml program with the correct args. */
  execle ("@OCAML@", "@OCAML@", "-init", "@INITSCRIPT@", NULL, new_environ);

  /* If it failed, die with an error message. */
  perror ("@OCAML@");
  exit (1);
}