1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
print CLIENT <<EOF;
<HTML>
<HEAD>
<title> Tutorials - Security Problems </title>
<LINK REV="made" HREF="mailto:satan\@fish.com">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1><IMG SRC=$HTML_ROOT/images/satan.gif> Tutorials - Security problems </h1>
<hr>
<h2>Table of contents</h2>
<ul>
EOF
foreach (<$HTML_ROOT/tutorials/vulnerability/*.html>) {
s;.*/([^\/]+);\1;;
($_tutorial = $_) =~ s;([^\/]+).html;\1;;
$_tutorial =~ tr /_/ /;
print CLIENT <<EOF;
<p><dt> <IMG SRC=$HTML_ROOT/dots/blackdot.gif>
<a href=$HTML_ROOT/tutorials/vulnerability/$_> <strong>$_tutorial </strong></a>
EOF
}
print CLIENT <<EOF;
</ul>
<hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a>
</BODY>
</HTML>
EOF
|
