#!/xhbin/perl
system("rm -f *-sm.png");
open(CL, '<classlist');
while (<CL>) {
	my @ln,@name,$sid;
	@ln = split(':');
	@name = split(', ',$ln[2]);
	$idtoname{$ln[1]} = "$name[1] $name[0]";
	$sid = substr($ln[1],0,8);
	$sidtoname{$sid} = "$name[1] $name[0]";
	print "$ln[1], $idtoname{$ln[1]};  $sid, $sidtoname{$sid}\n";
}
close(CL);

$count =0;

open(HTML, '>table.html');
printf HTML "	<tr ALIGN=center VALIGN=bottom>\n";
for my $f (@ARGV) {
    $count++;
    if ( $count == 3 ) {
	$count = 0;
	printf HTML "	</tr>\n";
	printf HTML "	<tr ALIGN=center VALIGN=bottom>\n";
    }
	$fn = $f;
	$sfn = $f;
	$sfn =~ s/\.[a-z][a-z][a-z]$/\-sm.png/;
	printf "$fn\n";
	@sida = split('[_\-\.]',$fn);
	$sid = $sida[0];
printf "sid $sid, name $sidtoname{$sid}\n";
	#system("display $fn &\n");
	system("cp $fn $sfn\n");
	system("mogrify -geometry 120x120 $sfn &\n");
	printf HTML "	<TD>\n";
	print HTML "		<A TARGET=view HREF=\"Contrib/f09/a3/$fn\">";
        printf HTML "		<img BORDER=6 HSPACE=18 VSPACE=10\n";
        printf HTML "			SRC=\"Contrib/w06/a4/$sfn\">\n";
        printf HTML "			<br>\n";
        printf HTML "			<i> </i><br>\n";
        printf HTML "			$sidtoname{$sid}<BR>\n";
        printf HTML "			Fall 2009\n";
        printf HTML "	</td>\n";

}
printf HTML "	</tr>\n";
close(HTML);