Changeset 3529a90


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • fedkit/splitter.pl

    r838fb6a r3529a90  
    100100    $d = IO::Dir->new($src_dir) || return 0;
    101101
    102     &ssh_cmd($user, $host, "mkdir -p $dest_dir");
     102    # All directories under $tmpdir are 770 so we can delete them later.
     103    &ssh_cmd($user, $host, "mkdir -p $dest_dir") || return 0;
     104    &ssh_cmd($user, $host, "chmod 770 $dest_dir") || return 0;
    103105    while ( $f = $d->read()) {
    104106        next if $f =~ /^\./;
    105107        if ( -d "$src_dir/$f" ) {
    106             &ship_configs($host, $user, "$src_dir/$f", "$dest_dir/$f") || 0;
     108            &ship_configs($host, $user, "$src_dir/$f", "$dest_dir/$f") ||
     109                return 0;
    107110        }
    108111        else {
     
    148151    print "$tb: $state\n";
    149152
    150     # Copy the experiment definition data over (unless the host is local)
     153    # Copy the experiment definition data over
    151154    &scp_file("$tmpdir/$tb/$tclfile", "$user\@$host") || return 0;
     155    # Clear out any old experiment data; if not deleted, copies over it by
     156    # different users will fail.
     157    &ssh_cmd($user, $host, "/bin/rm -rf $proj_dir/*") || return 0;
    152158    # Remote experiment is active.  Modify it.
    153159    if ($state eq "active") {
Note: See TracChangeset for help on using the changeset viewer.