use strict;
my $pfile = 'project.tt2';
my @files = glob('*');

foreach my $dir (@files) {

	next unless (-d $dir and -f "$dir/$pfile");
	
	print("Making project: $dir/$pfile...\n");
	
	chdir($dir);
	system("tpage --pre_chomp --post_chomp --trim ../Template/index.tt2 > index.html");
	chdir("..");
}