Mercurial > hg
diff mcabber/contrib/conv_log_dates.pl @ 243:c07fa9baca3f
[/trunk] Changeset 256 by mikael
* Add script to convert logfiles to new logfile format (mcabber >= 0.6.1)
Dates are converted to iso8601.
author | mikael |
---|---|
date | Tue, 14 Jun 2005 18:01:23 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/mcabber/contrib/conv_log_dates.pl Tue Jun 14 18:01:23 2005 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/perl -w +# +# usage: conv_log_dates.pl historyfile.old > historyfile.new +# Convert the dates to the new logfile format (mcabber v. >= 0.6.1) +# +# See histolog.c for the mcabber format. +# +# MiKael, 2005/06/14 + +use strict; + +my $line; +my $linesleft = 0; + +while ($line = <>) { + if ($linesleft) { + print $line; + $linesleft--; + next; + } + my $type = substr($line, 0, 2); + my $off_format = 0; + my $date; + + if (substr($line, 11, 1) eq "T") { + $off_format = 8; # Offset + } + + if ($off_format) { + # Already using the new format, nothing to do + $date = substr($line, 3, 18); + } else { + # Date conversion to iso8601 + my ($ss,$mm,$hh,$DD,$MM,$YYYY) = gmtime(substr($line, 3, 10)); + $date = sprintf "%04d%02d%02dT%02d:%02d:%02dZ", + $YYYY+1900, $MM+1,$DD,$hh,$mm,$ss; + } + $linesleft = substr($line, 14 + $off_format, 3); + $line = substr($line, 14 + $off_format); + + print $type." ".$date." ".$line; + + # Is there something better to cast to integer? + $linesleft = 0 + $linesleft; +} + +# vim:set sw=2 sts=2 et si cinoptions="":