open A, "changepr";
while (<A>){
	chop();
	if ($_ ne ""){
		$changepr{$_}++;
	}
}
				 
while (<STDIN>){
	chop();
	($pr, $mod, $folderline, $stat, $login, $date, $comment)=split(/\;/);
	@x=split(/:/,$login);
	if ($x[0] eq ""){
		$x[0]=$x[1];
	}
	$login=$x[0];
	
	$pr="$pr";
	if ($date eq ""){
		next;
	}
	$prstat{$pr}.="|$stat=$date";
	if ($date ne "" && ($prfrom{$pr} eq "" || $prfrom{$pr} > $date)){
		$prfrom{$pr}= $date;
		$pra{$pr}="$mod\;$stat\;$login\;$comment";
	}
	if ($date ne "" && ($prto{$pr} eq "" || $prto{$pr} < $date)){
		$prto{$pr}= $date;
		$prb{$pr}="$mod\;$stat\;$login\;$comment";
	}
}

foreach $pr (sort keys %prfrom){
	$prstat{$pr}=substr($prstat{$pr}, 1, length($prstat{$pr}));
	$isChange="did not cause change";
	if ($changepr{$pr} > 0){ $isChange="did cause change";}
	print "$pr\;$isChange\;$prfrom{$pr}\;$prto{$pr}\;$pra{$pr}\;$prb{$pr}\;$prstat{$pr}\n";
}