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
;;