#! /usr/bin/perl5

foreach $f (</usr/WebFace/Source/40-Webservers/*/*.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>Webservers</H2>
<P>
The webservers category contains tools to configure world wide web
server software on this system.  Use these tools to install and
maintain web servers and applications for this system.  The tools
included in this category depend on the applications installed on
this system.
</P>
$products
EndOfFile