Changeset 311

Timestamp:

11/16/07 12:52:46 (17 years ago)

Author:

smasson

Message:

bugfix for unix system whitout whoami

File:

• trunk/SRC/Utilities/def_myuniquetmpdir.pro (modified) (1 diff)

trunk/SRC/Utilities/def_myuniquetmpdir.pro

@@ -29 +29 @@
 @cm_general
 ;
- IF n_elements(myuniquetmpdir) EQ 0 THEN BEGIN
+  IF n_elements(myuniquetmpdir) EQ 0 THEN BEGIN
 ; define a new and unique directory in getenv('IDL_TMPDIR') by using systime(1)
-; look for the login if we use "unix" system
-    IF !d.name EQ 'X' THEN spawn, 'whoami', login, /noshell ELSE login = 'idl'
+; if possible, look for the login to make a more explicite name
+    IF file_which(getenv('PATH'), 'whoami') ne '' THEN spawn, 'whoami', login, /noshell ELSE login = 'unknown'
     myuniquetmpdir = file_search(getenv('IDL_TMPDIR'), /mark_directory)
-    myuniquetmpdir = myuniquetmpdir[0] + login[0] + '.' $
-                  + strtrim(long(systime(1)), 1) + '/'
+    myuniquetmpdir = myuniquetmpdir[0] + 'saxo_' + login[0] + '.' $
+                     + strtrim(long(systime(1)), 1) + '/'
 ; create it
     file_mkdir, myuniquetmpdir