#!/usr/bin/perl
use strict;
my $targetdir = 'bmd/production';
my @coders = qw(fleischer);
foreach my $c (@coders) {
	print "$c\n";
	open(IN,"$c-assignments.dat") or die "Can't open input: $!\n";
	my @coderfiles;
	while (<IN>) {
		chop;
		if ($_ =~ /\w/) {
			push(@coderfiles,$_);
		}
	}
	close IN;
	foreach my $f (@coderfiles) {
		print "$f\n";
		my ($countrydir) = split(/\-/,$f);
		my $ofn = "$countrydir/$f";
		print "$ofn\n";
		my $nfn = "/usr/local/brat/data/$targetdir/$c/$countrydir/$f";
		print "$nfn\n";
		open(IN,$ofn.'.txt') or die "Can't open input: $!\n";
		open(OUT,">$nfn".'.txt') or die "Can't open output: $!\n";
		while (<IN>) {
			print OUT $_;
		}
		close IN;
		close OUT;
		open(OUT,">$nfn\.ann") or die "Can't open output: $!";
		print OUT '';
		close OUT;
	}
}