#! /usr/bin/perl5

foreach $f (</usr/WebFace/Source/10-InfoSystems/*/*.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>Information Services</H2>
<P>
The information services category contains forms to configure network
data service and delivery software such as news and mail.  The tools
ing this category are determined by the applications you purchased
to run on the server.  The configurations that you specify with these
tools affect how an application appears, how a service distributes
data on the network, and what precautions the servers take when
handling Internet traffic.
</P>
$products
EndOfFile