Version 0.1.4.

[guestfs-browser.git] / utils.ml

diff --git a/utils.ml b/utils.ml
index 95c1289..e0c2ff1 100644 (file)
--- a/utils.ml
+++ b/utils.ml
@@ -156,7 +156,7 @@ let tmpdir () =
   (* Note this is secure, because if the name already exists, even as a
    * symlink, mkdir(2) will fail.
    *)
-  let tmpdir = Filename.temp_dir_name // sprintf "febootstrap%s.tmp" data in
+  let tmpdir = Filename.temp_dir_name // sprintf "guestfsbrowser%s.tmp" data in
   Unix.mkdir tmpdir 0o700;
   at_exit
     (fun () ->
@@ -218,3 +218,7 @@ and reg_hex_of_string ?(split_long_lines=false) v =
         (int_of_char c)
   ) vs in
   String.concat "," vs
+
+let local_file_exists filename =
+  try Unix.access filename [Unix.F_OK]; true
+  with Unix.Unix_error _ -> false