--- 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 = <>) {