Commit 8c523a43 authored by Leigh B Stoller's avatar Leigh B Stoller

Minor change to use InfoDir and WorkDir() instead of locally hardwired

paths.
parent d4c68c70
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# Copyright (c) 2000-2014 University of Utah and the Flux Group. # Copyright (c) 2000-2015 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -92,8 +92,8 @@ my $piddir = (($pid eq $gid) ? "$projroot/$pid" : "$grouproot/$pid/$gid"); ...@@ -92,8 +92,8 @@ my $piddir = (($pid eq $gid) ? "$projroot/$pid" : "$grouproot/$pid/$gid");
my $expdir = "$piddir/exp"; my $expdir = "$piddir/exp";
my $eiddir = "$expdir/$eid"; my $eiddir = "$expdir/$eid";
my $eidlink = "$projroot/$pid/exp/$eid"; my $eidlink = "$projroot/$pid/exp/$eid";
my $workdir = TBExptWorkDir($pid, $eid); my $workdir = $experiment->WorkDir();
my $INFODIR = "$TB/expinfo"; my $expinfo = $experiment->InfoDir();
# #
# Unix info for the group # Unix info for the group
...@@ -175,11 +175,9 @@ if (! -e $workdir) { ...@@ -175,11 +175,9 @@ if (! -e $workdir) {
# #
# Create the expinfo directory. # Create the expinfo directory.
# #
my $expinfo = "$INFODIR/$pid/$eid";
if (! -e $expinfo) { if (! -e $expinfo) {
if (! mkdir($expinfo, 0777)) { if (system("mkdir -p -m 777 $expinfo")) {
fatal("Could not create $expinfo: $!"); fatal("Could not create $expinfo");
} }
# #
# expinfo dir should have the group ID of the primary project group. # expinfo dir should have the group ID of the primary project group.
......
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