Changeset 683 for trunk/gui

Timestamp:

Apr 27, 2007, 6:13:32 AM (17 years ago)

Author:

mmc

Message:

Fixed filexfer so that it tries to find the exportfile/importfile
commands if they're not on the user's path. Also, it creates the
spool directory automatically if it doesn't exist.

File:

• trunk/gui/scripts/filexfer.tcl (modified) (2 diffs)

trunk/gui/scripts/filexfer.tcl

@@ -42 +42 @@
         set path [auto_execok $prog]
         if {"" == $path} {
-            foreach dir {/apps/filexfer /apps/bin} {
+            foreach dir {/apps/filexfer/bin /apps/bin} {
                 set p [file join $dir $prog]
-                if {[file executable $path]} {
+                if {[file executable $p]} {
                     set path $p
                     break
@@ -100 +100 @@
 
         set dir ~/data/sessions/$env(SESSION)/spool
+        if {![file exists $dir]} {
+            catch {file mkdir $dir}
+        }
+
         set i 0
         foreach {path label desc} $controlList {