user name added to tmp file name

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
index 4d5488c00de0766a2382d9489548c7e70b94a1ee..7d57c0b575ef3669ac260a707311defb257f2156 100644 (file)
--- a/helm/ocaml/getter/clientHTTP.ml
+++ b/helm/ocaml/getter/clientHTTP.ml
@@ -54,7 +54,9 @@ let get_and_save_to_tmp uri =
    done ;
    cs
  in
-  let tmp_file = Configuration.tmp_dir ^ "/" ^ (flat_string uri ".-=:;!?/&" '_') in
+  let user = try Sys.getenv "USER" ^ "_" with Not_found -> "" in 
+     (* FG: Unix.getlogin () should be used instead of the above *)
+  let tmp_file = Configuration.tmp_dir ^ "/" ^ user ^ (flat_string uri ".-=:;!?/&" '_') in
   get_and_save uri tmp_file ;
   tmp_file
 ;;