diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 02:02:13 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-09-21 02:02:13 -0700 |
commit | 376794a00e837317e35fefd61a29ab58c0303b35 (patch) | |
tree | c85d5f2c8adb715064e655cee092696889324782 /FS/FS/Misc | |
parent | 94ab54acc7f6941d9ed02f2ad5d7b63f1d2f6b60 (diff) |
billing event to call web services, RT#35167
Diffstat (limited to 'FS/FS/Misc')
-rw-r--r-- | FS/FS/Misc/DateTime.pm | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/FS/FS/Misc/DateTime.pm b/FS/FS/Misc/DateTime.pm index 2fff90647..56baec3ed 100644 --- a/FS/FS/Misc/DateTime.pm +++ b/FS/FS/Misc/DateTime.pm @@ -6,9 +6,10 @@ use Carp; use Time::Local; use Date::Parse; use DateTime::Format::Natural; +use Date::Format; use FS::Conf; -@EXPORT_OK = qw( parse_datetime day_end ); +@EXPORT_OK = qw( parse_datetime day_end iso8601 ); =head1 NAME @@ -65,11 +66,22 @@ same date but 23:59:59 for the time. =cut sub day_end { - my $time = shift; + my $time = shift; - my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = - localtime($time); - timelocal(59,59,23,$mday,$mon,$year); + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = + localtime($time); + timelocal(59,59,23,$mday,$mon,$year); +} + +=item iso8601 TIME + +Parses time as an integer UNIX timestamp and returns the ISO 8601 formatted +date and time. + +=cut + +sub iso8601 { + time2str('%Y-%m-%dT%T', @_); } =back |