#! /usr/bin/perl5

foreach $f (</usr/WebFace/Source/50-CommHardware/*/*.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>Communications Hardware</H2>
<P>
The communications hardware category contains the tools that you need
to configure the networking interfaces for communicating with the local
area network and the Internet connection.  The tools you will use in
this category are determined by the hardware media types installed
(such as Ethernet or a T1 line) and what base protocols will be sent
over the wire (such as TCP/IP or PPP).
</P>
$products
EndOfFile