#!/usr/bin/perl
use lib "..";
use Match;

$time=65*24*60*60;
$addtime=0;

$m=new Match;
while ($l=<>){
   $l=~s/\r*\n*//gis;
   if($l eq ""){exit;}
   $id=$m->NewMatch($l,$time,$addtime,2,1,"","Net-Chess 2011 Open: round 3");
   print "$id:$l\n";
}