#! /usr/local/bin/perl

# 6.837
# Created by Justin Legakis for Fall 1996, from directory.doit script
# Modified by Jon Levene for Fall 1997


chdir "/u2/graphics/WWW/classes/6.837/F97/";

if (!-e "thumbnails/classlist.html" ||
	-M "./data" < -M "thumbnails/classlist.html" ||
	-M "./thumbnails" < -M "thumbnails/classlist.html" || 1)
{

if (-e "thumbnails/classlist.html") {
 system 'rm thumbnails/classlist.html';
}

opendir(THISDIR, "./data");
@allfiles = grep(!/^\.\.?|(.*)\.html.?|(.*)~/, readdir(THISDIR));
closedir(THISDIR);

$count = 0;
foreach $file (@allfiles) {
    open(FILE, "data/@allfiles[$count]") || die "can't open file data/@allfiles[$count]";
    @lines = <FILE>;
    (@fullname[$count]) = @lines[0] =~ /^full name: (.*)$/;
    (@name[$count]) = @lines[1] =~ /^prefered name: (.*)$/;
    (@email[$count]) = @lines[4] =~ /^email: (.*)$/;
    (@url[$count]) = @lines[5] =~ /^url: (.*)$/;
    (@picture[$count]) = @lines[26] =~ /^picture: (.*)$/;
    (@incpic[$count]) = @lines[27] =~ /^incpic: (.*)$/;

    (@thumb[$count], $domain) = split(/\@/, @email[$count]);

    $count++;
}
$count--;

sub namesub { @name[$a] gt @name[$b] }
@sorted = sort(namesub (0..$count));

$count++;

open(DIRECTORY, ">./thumbnails/classlist.html") || die "Can't open thumbnails/classlist.html: $!\n";

print DIRECTORY <<EOF;
Content-type: text/html

<title>6.837 - Computer Graphics Class List (Public Version)</title>

<center><h1>6.837 - Computer Graphics Class Directory</h1></center><p>

EOF

open(DIRECTORY, ">>./thumbnails/classlist.html") || die "Can't open thumbnails/classlist.html: $!\n";


print DIRECTORY "<table>\n";
print DIRECTORY "<tr>\n";


$column = 0;

#foreach $index (@sorted) {

for ($index = 0; $index < $count; $index++) {

 if ($column eq 0) {
     print DIRECTORY "<tr>\n";
 }

 print DIRECTORY "<td>\n";


 if (@incpic[$index] eq 'yes') {
	print DIRECTORY "<center><img src=\"http://graphics.lcs.mit.edu/classes/6.837/F97/thumbnails/@thumb[$index]_small.gif\"></center>\n";
 }
 else {
	print DIRECTORY "<center><img src=\"http://graphics.lcs.mit.edu/classes/6.837/F97/thumbnails/white.gif\"></center>\n";
 }


 if (@name[$index]) {
	print DIRECTORY "<center>@name[$index]</center>\n";
 }
 else {
	print DIRECTORY "<center>@fullname[$index]</center>\n";
 }

 print DIRECTORY "<center>@email[$index]</center>\n";


 print DIRECTORY "</td>";

 $column++;
 if ($column eq 5) {
     print DIRECTORY "</tr>\n";
     $column = 0;
 }
}

if ($column gt 0) {
     print DIRECTORY "</tr>\n";
}
print DIRECTORY "</table>\n";

print DIRECTORY <<EOF;

<br>
<hr>
<br>

If you experience difficulty with this page, please contact jslevene\@graphics.lcs.mit.edu.

EOF
}

open(DIRECTORY, "<./thumbnails/classlist.html") || die "Can't open thumbnails/classlist.html: $!\n";

while (<DIRECTORY>) {
 print;
}

close(DIRECTORY);