Commit 7bb30be1 authored by Leigh Stoller's avatar Leigh Stoller

Add TBDebugTimeStampsOn() function to turn stamps on within a single

script. This might better be done as an environ variable to pass along
so that you could turn stamps on/off locally or globally for a short
time.
parent 6fb8398f
......@@ -8,7 +8,8 @@ use Exporter;
@ISA = "Exporter";
@EXPORT =
qw ( SENDMAIL OPENMAIL TBTimeStamp TBBackGround TBDateTimeFSSafe
TBMakeLogname TB_BOSSNODE TBGenSecretKey TBDebugTimeStamp );
TBMakeLogname TB_BOSSNODE TBGenSecretKey TBDebugTimeStamp
TBDebugTimeStampsOn );
my $MAILTAG = "@OURDOMAIN@";
my $BOSSNODE = "@BOSSNODE@";
......@@ -139,7 +140,14 @@ sub TBDebugTimeStamp(@)
}
}
#
# Turn on timestamps locally. We could do this globally by using an
# env variable to pass it along, but lets see if we need that.
#
sub TBDebugTimeStampsOn()
{
$TIMESTAMPS = 1;
}
#
# Put ourselves into the background, directing output to the log file.
......
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