Commit 77007260 authored by Leigh Stoller's avatar Leigh Stoller

Add TB_EVENTSERVER() and TB_BOSSEVENTPORT() for stuff that is not

run through configure.
parent c36f4e73
......@@ -13,7 +13,7 @@ use Exporter;
@EXPORT =
qw ( SENDMAIL OPENMAIL TBTimeStamp TBBackGround TBDateTimeFSSafe
TBMakeLogname TB_BOSSNODE TB_OPSEMAIL TBGenSecretKey TBDebugTimeStamp
TBDebugTimeStampsOn TBForkCmd);
TBDebugTimeStampsOn TBForkCmd TB_BOSSEVENTPORT TB_EVENTSERVER);
# After package decl.
use English;
......@@ -37,6 +37,10 @@ sub TB_BOSSNODE() { $BOSSNODE; }
# Testbed ops email address
sub TB_OPSEMAIL() { $TBOPSEMAIL; }
# This is for the swigged event library which includes this file.
sub TB_BOSSEVENTPORT() { "@BOSSEVENTPORT@"; }
sub TB_EVENTSERVER() { "@EVENTSERVER@"; }
# Untainted scriptname for email below.
if ($PROGRAM_NAME =~ /^([-\w\.\/]+)$/) {
$SCRIPTNAME = basename($1);
......
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