From 67e319c397d8971f5596ae47edc6befff5224161 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 27 Mar 2006 15:38:39 +0000
Subject: [PATCH] improving datetime parsing in clense_ISO8601()

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@671 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils.pm | 38 ++++++++++++++++++++++++++++++-----
 1 file changed, 33 insertions(+), 5 deletions(-)

diff --git a/src/perlmods/OpenSRF/Utils.pm b/src/perlmods/OpenSRF/Utils.pm
index 55092e7..845c3aa 100644
--- a/src/perlmods/OpenSRF/Utils.pm
+++ b/src/perlmods/OpenSRF/Utils.pm
@@ -29,6 +29,11 @@ use FileHandle;
 #use Storable qw(dclone);
 use Digest::MD5 qw(md5 md5_hex md5_base64);
 use Exporter;
+use DateTime;
+use DateTime::Format::ISO8601;
+use DateTime::TimeZone;
+
+our $date_parser = DateTime::Format::ISO8601->new;
 
 # This turns errors into warnings, so daemons don't die.
 #$Storable::forgive_me = 1;
@@ -355,12 +360,35 @@ sub gmtime_ISO8601 {
 sub clense_ISO8601 {
 	my $self = shift;
 	my $date = shift || $self;
-	if ($date =~ /^\s*(\d{4})-?(\d{2})-?(\d{2}).?(\d{2}):(\d{2}):(\d{2})\.?\d*((?:-|\+)[0-9:]{2,5})?\s*$/o) {
-		my $z = $7 || '+00:00';
-		if (length($z) > 3 && $z !~ /:/o) {
-			substr($z,3,0,':');
+	if ($date =~ /^\s*(\d{4})-?(\d{2})-?(\d{2})/o) {
+		my $new_date = "$1-$2-$3";
+
+		if ($date =~/(?:$new_date).(\d{2}):(\d{2}):(\d{2})/o) {
+			$new_date .= "T$1:$2:$3";
+		} else {
+			$new_date .= "T00:00:00";
+		}
+
+		my $z;
+		if ($date =~ /([-+]{1})([0-9]{1,2})(?::?([0-9]{1,2}))*\s*$/o) {
+			$z = sprintf('%s%0.2d%0.2d',$1,$2,$3)
+		} else {
+			$z =  DateTime::TimeZone::offset_as_string(
+				DateTime::TimeZone
+					->new( name => 'local' )
+					->offset_for_datetime(
+						$date_parser->parse_datetime($new_date)
+					)
+			);
+		}
+
+		if (length($z) > 3 && index($z, ':') == -1) {
+			substr($z,3,0) = ':';
+			substr($z,6,0) = ':' if (length($z) > 6);
 		}
-		$date = "$1-$2-$3T$4:$5:$6$z";
+		
+		$new_date .= $z;
+		return $new_date;
 	}
 	return $date;
 }
-- 
2.43.2