X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=inline;f=daemon%2Fwhenjobsd.ml;h=1efde6c1faa7c328d82f065e2da00c28590839c6;hb=ff2670fcc7fe0b62a44dce15272b7cb362256e05;hp=3f9fe89912e6d5734d353b319727cd2e13188de4;hpb=ae04f3d8ec2b315f603dc266eab5a4ea73877931;p=whenjobs.git

diff --git a/daemon/whenjobsd.ml b/daemon/whenjobsd.ml
index 3f9fe89..1efde6c 100644
--- a/daemon/whenjobsd.ml
+++ b/daemon/whenjobsd.ml
@@ -19,6 +19,9 @@
 open Unix
 open Printf
 
+(* Ensures that Whentools module is linked to the daemon. *)
+let _ = Whentools.set_variable
+
 let () =
   (* Running the daemon as root is a mistake.  It must be run as a
    * non-root user.
@@ -101,10 +104,13 @@ Options:
     (* chdir / so we don't prevent filesystems from being unmounted. *)
     chdir "/";
 
-    (* Close file descriptors. *)
+    (* Close file descriptors, replace with /dev/null. *)
     close stdin;
     close stdout;
     close stderr;
+    ignore (openfile "/dev/null" [O_RDONLY] 0);
+    ignore (openfile "/dev/null" [O_WRONLY] 0);
+    ignore (openfile "/dev/null" [O_WRONLY] 0);
 
     (* Create a new session. *)
     ignore (setsid ());