[r2002-11-10 12:56:43 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-10 12:56:43+00:00

driver/webiface.ml

@@ -9,7 +9,9 @@ open Netcgi
 (* Configuration *)
 
 let session_dirs = [ "/home/frisch/sessions"; "/users/formel/cduce/sessions" ]
-let session_dir = List.find Sys.file_exists session_dirs
+let session_dir = 
+  try List.find Sys.file_exists session_dirs
+  with Not_found -> ""
 let timeout = 60 * 5  (* seconds *)
 let max_sess = 10