|
EndOfHTML
open(INF,"top.txt");
@ary = ;
close(INF);
foreach $line (@ary) {
chomp($line);
print "$line\n";
}
print < |
|
EndOfHTML
@values = split(/&/,$ENV{'QUERY_STRING'});
open(INF,"projects/$values[0]/nav.txt");
@ary = ;
close(INF);
foreach $line (@ary) {
chomp($line);
print "$line\n";
}
print " |
| ";
open(INF,"projects/$values[0]/$values[1].txt");
@ary = ;
close(INF);
foreach $line (@ary) {
chomp($line);
print "$line\n";
}
print <
|