Commit 143c78bb authored by Leigh Stoller's avatar Leigh Stoller

Add a totally stupid routine to gen up a secret key ...

parent 39cd8716
......@@ -8,7 +8,7 @@ use Exporter;
@ISA = "Exporter";
@EXPORT =
qw ( SENDMAIL OPENMAIL TBTimeStamp TBBackGround TBDateTimeFSSafe
TBMakeLogname TB_BOSSNODE );
TBMakeLogname TB_BOSSNODE TBGenSecretKey);
my $MAILTAG = "@OURDOMAIN@";
my $BOSSNODE = "@BOSSNODE@";
......@@ -183,4 +183,13 @@ sub TBMakeLogname($)
return $logname;
}
#
# Get me a secret key!
#
sub TBGenSecretKey()
{
my $key = `/bin/dd if=/dev/urandom count=128 bs=1 2> /dev/null | /sbin/md5`;
return $key;
}
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