Commit 2a99a802 authored by Leigh B Stoller's avatar Leigh B Stoller

Change hardwired string to TBDB_EXPT_INFODIR variable.

parent 8fbf20f0
......@@ -70,7 +70,7 @@ use vars qw(@ISA @EXPORT);
TB_PROJECT_DELUSER TB_PROJECT_MAKEOSID
TB_PROJECT_DELOSID TB_PROJECT_MAKEIMAGEID TB_PROJECT_DELIMAGEID
TB_PROJECT_CREATEEXPT TB_PROJECT_CREATELEASE
TB_PROJECT_MIN TB_PROJECT_MAX
TB_PROJECT_MIN TB_PROJECT_MAX TB_PID_LEN
TB_OSID_READINFO TB_OSID_CREATE
TB_OSID_DESTROY TB_OSID_MIN TB_OSID_MAX
......@@ -170,7 +170,7 @@ use vars qw(@ISA @EXPORT);
TBDB_RSRVROLE_NODE TBDB_RSRVROLE_VIRTHOST TBDB_RSRVROLE_DELAYNODE
TBDB_RSRVROLE_SIMHOST TBDB_RSRVROLE_STORAGEHOST
TBDB_EXPT_WORKDIR
TBDB_EXPT_WORKDIR TBDB_EXPT_INFODIR
TB_OSID_MBKERNEL TB_OSID_PATH_NFS
TB_OSID_FREEBSD_MFS TB_OSID_FRISBEE_MFS
TBDB_TBCONTROL_PXERESET TBDB_TBCONTROL_RESET
......@@ -227,6 +227,7 @@ $OURDOMAIN = "@OURDOMAIN@";
# Needs to be configured.
#
sub TBDB_EXPT_WORKDIR() { "/usr/testbed/expwork"; }
sub TBDB_EXPT_INFODIR() { "/usr/testbed/expinfo"; }
#
# Define exported "constants". Basically, these are just perl subroutines
......
#!/usr/bin/perl -wT
#
# Copyright (c) 2005-2014 University of Utah and the Flux Group.
# Copyright (c) 2005-2015 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -1559,7 +1559,7 @@ sub InfoDir($$)
my $eid = $self->eid();
my $idx = $self->idx();
return "$TB/expinfo/$pid/$eid/$idx";
return TBDB_EXPT_INFODIR() . "/$pid/$eid/$idx";
}
# Event/Web key filenames.
......
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