# HG changeset patch
# User Mikael Berthe <mikael@lilotux.net>
# Date 1141991113 -3600
# Node ID 03db650f601508735a7fb13d56412d31d00285b0
# Parent  d34b280d8be34321f2f42309bbdfbd73175f031c
Remove the conv_log_dates.pl script
This script aimed at migrating from mcabber version <= 0.6.0


diff -r d34b280d8be3 -r 03db650f6015 mcabber/contrib/conv_log_dates.pl
--- a/mcabber/contrib/conv_log_dates.pl	Thu Mar 09 23:56:55 2006 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,47 +0,0 @@
-#!/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="":