[Rt-commit] r18874 - rt/3.999/branches/datetime/lib/RT

[sartak at bestpractical.com]

Author: sartak
Date: Thu Mar 19 17:34:43 2009
New Revision: 18874

Modified:
   rt/3.999/branches/datetime/lib/RT/DateTime.pm

Log:
RT::DateTime->iCal

Modified: rt/3.999/branches/datetime/lib/RT/DateTime.pm
==============================================================================
--- rt/3.999/branches/datetime/lib/RT/DateTime.pm	(original)
+++ rt/3.999/branches/datetime/lib/RT/DateTime.pm	Thu Mar 19 17:34:43 2009
@@ -122,6 +122,16 @@
     return $self->strftime('%Y-%m-%d %H:%M:%S');
 }
 
+sub iCal {
+    my $self = _canonicalize_self(@_);
+
+    # Always in UTC!
+    my $in_utc = $self->clone;
+    $in_utc->set_time_zone('UTC');
+
+    return $in_utc->strftime('%Y%m%dT%H%M%SZ');
+}
+
 sub config_format {
     my $self = _canonicalize_self(@_);