#! /usr/bin/perl5

foreach $f (</usr/WebFace/Source/20-NetworkServices/*/*.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>Network Services</H2>
<P>
The network services category contains the tools that you need to
configure network management services for this system.  Use the tools
in this category to set up or change the routing, automatic host
address allocation, name serving, and file transfer services on
your system.
<P>
$products
EndOfFile