#!/usr/bin/perl open(FH, "indexfile") || die "Content-Type: text/html\n\n<h1>NOOOOOOO! +!!!!</h1>Error: $!"; print "Content-Type: text/html\n\n"; print "<html>\n<head>\n<title>Index</title>\n<body>\n<ul>\n"; foreach $page (<FH>) { ($id, $file, $title) = split /:/, $page; print "<li><a href=\"ipage.cgi?page=".$id."\" target=\"mframe\">".$ +title."</a></li>\n" } print "</ul>\n</body>\n</html>";
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |