# HG changeset patch
# User mikael
# Date 1118692738 0
# Node ID cb2f18e20e6a4c71f9cb5e8f33c3ab9d9989ecbd
# Parent  8584f919d9b9025ffcb9c80c727d08bc65e37385
[/trunk] Changeset 255 by mikael

* cicq2mcabber.pl: convert date to iso8601 when importing centericq logfiles


diff -r 8584f919d9b9 -r cb2f18e20e6a mcabber/contrib/cicq2mcabber.pl
--- a/mcabber/contrib/cicq2mcabber.pl	Mon Jun 13 19:29:09 2005 +0000
+++ b/mcabber/contrib/cicq2mcabber.pl	Mon Jun 13 19:58:58 2005 +0000
@@ -38,7 +38,12 @@
   $len  = $bdata{"nb"};
   $data = $bdata{"msg"};
 
-  printf("%s%s %10u %03d %s", $type, $info, $date, $len, $data);
+  # Date conversion to iso8601
+  my ($ss,$mm,$hh,$DD,$MM,$YYYY) = gmtime($date);
+  $date = sprintf "%04d%02d%02dT%02d:%02d:%02dZ",
+                  $YYYY+1900, $MM+1,$DD,$hh,$mm,$ss;
+
+  printf("%s%s %18.18s %03d %s", $type, $info, $date, $len, $data);
 }
 
 while ($line = <>) {