#!/usr/local/bin/perl
#
# build a table of links from the stuff found here.
# the file "lectures" gives the name of the lecture directories in
# the right order


# cgi.cs.rpi.edu doesn't  seem to have the right application mime types,
# so we need to force links to go to www.cs.rpi.edu

$server="http://www.cs.rpi.edu/~hollingd/opsys-spring2005";

# start with the header
print `cat header`;

open(F,"lectures") || die $!;
@lecs = <F>;
close(F);


chomp(@lecs);

print"<center>
<table border=0 bgcolor=black cellspacing=0 cellpadding=0><tr><td>
  <table cellpadding=8 cellspacing=2 bgcolor=black valign=top>
<tr class=tabtop><TH>Topic</TH><TH>Adobe PDF</TH><TH>Links</TH>
</tr>\n";


for ($i=0;$i<=$#lecs;$i++) {
    mkrow($i,$lecs[$i]);
}

printf("</TABLE>\n");
printf("</TD></TR></TABLE>\n");
printf("</CENTER>\n");


sub mkrow {
    my($num,$dir) = @_;

    if ((! -f "$dir/$dir.pdf") && ( -f "$dir/$dir.PDF")) {
		system("mv $dir/$dir.PDF $dir/$dir.pdf");
    }

    if ($num%2) {
		printf("<TR VALIGN=TOP BGCOLOR=#E5CEA3>\n"); #F5DEB3
    } else {
		printf("<TR VALIGN=TOP BGCOLOR=wheat>\n");
    }
    $name = getname($dir);

    printf("  <TD>$name</TD>\n");

    if (-f "$dir/$dir.pdf") {
		printf("  <TD><A HREF=notes/$dir/$dir.pdf>$dir.pdf</A></TD>\n");
    }	else {
		printf("  <TD>&nbsp</TD>\n");
    }
    printf("  <TD>%s</TD>\n",getlinks($dir));
    printf("</TR>\n");

}



sub getlinks {
    my($dir) = $_[0];

    if (! -f "$dir/Links") {
	return "&nbsp";
    }

    my(@lines);
    my($l,$r);
    open(F,"$dir/Links") || die $!;
    @lines = <F>;
    close(F);

    chomp(@lines);
    my($i);
    for ($i=0;$i<=$#lines;$i++) {
		$l = $lines[$i];
		if (! ($l =~ /^ *$/)) {
			$r .= $l . "</br>\n";
		}
    }
    chomp($r);
    if ($r) {
	return($r); 
    } else {
	return("&nbsp");
    }
}

    

    

sub getname {
    my($dir) = $_[0];

    if (! -d $dir) {
	return "";
    } 

    if (! -f "$dir/Name") {
	return "";
    }

    my($line);

    $line = `cat $dir/Name`;
    chomp($line);
    return($line);
}