Commit 224de230 authored by Leigh B Stoller's avatar Leigh B Stoller

Add TBDateStringGMT() and TBDateStringLocal() to parse dates and return

appropriate strings in the desired format. We have variants of these
scattered around in too many places.
parent 47a3e1ba
......@@ -37,13 +37,15 @@ use Exporter;
TBValidUserDir TBValidUserDirList TBMakeTempFile NewUUID System
SendProjAdminMail ReOpenLog
SendProjAdminMail ReOpenLog TBDateStringGMT TBDateStringLocal
CheckDaemonRunning MarkDaemonRunning MarkDaemonStopped);
# After package decl.
use English;
use POSIX qw(strftime);
use POSIX qw(setsid);
use Date::Parse;
use Time::Local;
use Fcntl;
use Fcntl ':flock';
use File::Basename;
......@@ -331,6 +333,33 @@ sub TBDateTimeFSSafe()
return POSIX::strftime("20%y%m%d-%H.%M.%S", localtime());
# Convert date to GMT
sub TBDateStringGMT($)
my ($date) = @_;
return ""
if (!defined($date) || "$date" eq "");
if ($date !~ /^\d$/) {
$date = str2time($date);
return POSIX::strftime("20%y-%m-%dT%H:%M:%SZ", gmtime($date));
# Convert date to Local
sub TBDateStringLocal($)
my ($date) = @_;
return ""
if (!defined($date) || "$date" eq "");
if ($date !~ /^\d*$/) {
$date = timelocal(strptime($date));
return POSIX::strftime("20%y-%m-%d %H:%M:%S", localtime($date));
# Print out a timestamp if the TIMESTAMPS configure variable was set.
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