Change hardwired string to TBDB_EXPT_INFODIR variable.

db/EmulabConstants.pm.in

@@ -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

db/Experiment.pm.in

 #!/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.