Changeset 3529a90 for fedkit

Timestamp:

Sep 17, 2007 3:25:52 PM (17 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-1.30, version-2.00, version-3.01, version-3.02

Children:

cd3eceb

Parents:

838fb6a

Message:

permissions don_t work when different users instantiate in the same experiment (can_t overwrite config files). Fixed

File:

• fedkit/splitter.pl (modified) (2 diffs)

fedkit/splitter.pl

@@ -100 +100 @@
     $d = IO::Dir->new($src_dir) || return 0;
 
-    &ssh_cmd($user, $host, "mkdir -p $dest_dir");
+    # All directories under $tmpdir are 770 so we can delete them later.
+    &ssh_cmd($user, $host, "mkdir -p $dest_dir") || return 0;
+    &ssh_cmd($user, $host, "chmod 770 $dest_dir") || return 0;
     while ( $f = $d->read()) {
         next if $f =~ /^\./;
         if ( -d "$src_dir/$f" ) {
-            &ship_configs($host, $user, "$src_dir/$f", "$dest_dir/$f") || 0;
+            &ship_configs($host, $user, "$src_dir/$f", "$dest_dir/$f") || 
+                return 0;
         }
         else {
@@ -148 +151 @@
     print "$tb: $state\n";
 
-    # Copy the experiment definition data over (unless the host is local)
+    # Copy the experiment definition data over 
     &scp_file("$tmpdir/$tb/$tclfile", "$user\@$host") || return 0;
+    # Clear out any old experiment data; if not deleted, copies over it by
+    # different users will fail.
+    &ssh_cmd($user, $host, "/bin/rm -rf $proj_dir/*") || return 0;
     # Remote experiment is active.  Modify it.
     if ($state eq "active") {