#! /usr/bin/perl5

foreach $f (</usr/WebFace/Source/30-Security/*/*.lbl>) {
	next unless $f =~ m#([^/]+)/\1.lbl$#;
	next unless open(IN, "<$f");
	@in = <IN>;
	chomp($in[0]);
	push(@products, "<LI>$in[0]\n");
}
if ($#products > 0) {
	$products = "<P>\nProducts in this category include:\n</P>\n<UL>\n" .
	    join("", @products) . "</UL>\n";
}

print <<EndOfFile;
Content-type: text/html

<H2>Security</H2>
<P>
The security category contains the tools you need to configure security
options on this system.  You should use these tools for setting up and
maintaining firewall software and security on this host.  The tools
included in this category are determined by the applications you
purchased to run on this server.
</P>
$products
EndOfFile