From 0a02ddd6c1c3e6db5c97f58b68bac450e2f442e1 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 6 Mar 2006 05:48:44 +0000
Subject: [PATCH] adding an ISO timestamp builder

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3263 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/src/perlmods/OpenSRF/Utils.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils.pm b/OpenSRF/src/perlmods/OpenSRF/Utils.pm
index a84d1304b6..55092e75ff 100644
--- a/OpenSRF/src/perlmods/OpenSRF/Utils.pm
+++ b/OpenSRF/src/perlmods/OpenSRF/Utils.pm
@@ -36,7 +36,7 @@ use Exporter;
 %EXPORT_TAGS = (
 	common		=> [qw(interval_to_seconds seconds_to_interval sendmail)],
 	daemon		=> [qw(safe_fork set_psname daemonize)],
-	datetime	=> [qw(clense_ISO8601 interval_to_seconds seconds_to_interval)],
+	datetime	=> [qw(clense_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
 );
 
 Exporter::export_ok_tags('common','daemon','datetime');  # add aa, cc and dd to @EXPORT_OK
@@ -338,6 +338,20 @@ sub set_psname {
 	$0 = $PS_NAME if ($PS_NAME);
 }
 
+sub gmtime_ISO8601 {
+	my $self = shift;
+	my @date = gmtime;
+
+	my $y = $date[5] + 1900;
+	my $M = $date[4] + 1;
+	my $d = $date[3];
+	my $h = $date[2];
+	my $m = $date[1];
+	my $s = $date[0];
+
+	return sprintf('%d-%0.2d-%0.2dT%0.2d:%0.2d:%0.2d+00:00', $y, $M, $d, $h, $m, $s);
+}
+
 sub clense_ISO8601 {
 	my $self = shift;
 	my $date = shift || $self;
-- 
2.43.2