--- /dev/null
+/* -*- C -*-
+ * $Id: ocamlbotwrapper.c,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 ("/usr/bin/ocaml", "@OCAML@", "-init", "xavierbot/share/xavierbot/init", NULL, new_environ);
+
+ /* If it failed, die with an error message. */
+ perror ("/usr/bin/ocaml");
+ exit (1);
+}