Commit 40e00b9e authored by Leigh Stoller's avatar Leigh Stoller

Also rename expinfo directory.

parent 60b76cca
......@@ -165,6 +165,28 @@ if (-d $workdir) {
}
}
#
# Ditto for the experiment info directory.
#
my $infodir = TBDB_EXPT_INFODIR() . "/$pid";
if (-d $infodir) {
my $newname = TBDB_EXPT_INFODIR() . "/$savename";
if (rename($infodir, $newname)) {
#
# Chown the owner/group to root. There is no need to modify
# the permissions since its on boss.
#
if (! chown(0, 0, $newname)) {
fatal("Could not chown directory $newname to 0/0: $!");
}
}
else {
fatal("Could not rename proj info directory to $newname: $!");
}
}
#
# Grab the group list. We need to delete all of the unix groups for the
# project. We do this with a subscript, so need to flip UID for perl.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment