File: vulnerability_tutorials.pl

package info (click to toggle)
satan 1.1.1-18
  • links: PTS
  • area: non-free
  • in suites: potato, woody
  • size: 1,440 kB
  • ctags: 1,425
  • sloc: ansic: 6,183; perl: 4,867; makefile: 328; sh: 221
file content (28 lines) | stat: -rw-r--r-- 692 bytes parent folder | download
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