#!/usr/bin/perl

my $taskid=82;
open(I,"test2.csv");
open(O1,">test2.task");
open(O2,">test2.id");
while($l=<I>) {
	chop($l);
	$l=~s/\"//g;
	$l=~s/\&/and/g;
	$l.=",,,";
	my ($T0,$T1,$job,$id)=split(/,/,$l);
	print O1 "        <task id=\"$taskid\" name=\"$job\" color=\"\#ff0000\" meeting=\"false\" start=\"2011-04-01\" duration=\"5\" complete=\"0\" priority=\"1\" expand=\"true\"\/>\n";
	$taskid++;
}
close(I);

`type t1 test2.task t2 test2.id t3 > test3.gan`;