#!/usr/bin/perl
# Extremely simple script for converting old format
# URLLog databases into new format. Usage:
#
# perl urllog_upgrade.pl < old_database_file > new_database_file
#

$i = 0;
while (<STDIN>) {
  chomp;
  ($murl, $mtime, $mnick, $mhost, $mfoo) = split(/ /);
  print "$murl $mtime $mnick $mhost $i\n";
  $i++;
}