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