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

$time=60*24*60*75;
$addtime=0;
@matches=();

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