|
243
|
1 #!/usr/bin/perl -w
|
|
|
2 #
|
|
|
3 # usage: conv_log_dates.pl historyfile.old > historyfile.new
|
|
|
4 # Convert the dates to the new logfile format (mcabber v. >= 0.6.1)
|
|
|
5 #
|
|
|
6 # See histolog.c for the mcabber format.
|
|
|
7 #
|
|
|
8 # MiKael, 2005/06/14
|
|
|
9
|
|
|
10 use strict;
|
|
|
11
|
|
|
12 my $line;
|
|
|
13 my $linesleft = 0;
|
|
|
14
|
|
|
15 while ($line = <>) {
|
|
|
16 if ($linesleft) {
|
|
|
17 print $line;
|
|
|
18 $linesleft--;
|
|
|
19 next;
|
|
|
20 }
|
|
|
21 my $type = substr($line, 0, 2);
|
|
|
22 my $off_format = 0;
|
|
|
23 my $date;
|
|
|
24
|
|
|
25 if (substr($line, 11, 1) eq "T") {
|
|
|
26 $off_format = 8; # Offset
|
|
|
27 }
|
|
|
28
|
|
|
29 if ($off_format) {
|
|
|
30 # Already using the new format, nothing to do
|
|
|
31 $date = substr($line, 3, 18);
|
|
|
32 } else {
|
|
|
33 # Date conversion to iso8601
|
|
|
34 my ($ss,$mm,$hh,$DD,$MM,$YYYY) = gmtime(substr($line, 3, 10));
|
|
|
35 $date = sprintf "%04d%02d%02dT%02d:%02d:%02dZ",
|
|
|
36 $YYYY+1900, $MM+1,$DD,$hh,$mm,$ss;
|
|
|
37 }
|
|
|
38 $linesleft = substr($line, 14 + $off_format, 3);
|
|
|
39 $line = substr($line, 14 + $off_format);
|
|
|
40
|
|
|
41 print $type." ".$date." ".$line;
|
|
|
42
|
|
|
43 # Is there something better to cast to integer?
|
|
|
44 $linesleft = 0 + $linesleft;
|
|
|
45 }
|
|
|
46
|
|
|
47 # vim:set sw=2 sts=2 et si cinoptions="":
|
