#!/usr/bin/perl
open(OUT, ">documentation.content") or die "Can't open documentation.content: $!";
print OUT "Installation and Configuration of...<BR>\n<UL>\n";
while ($line = <DATA>) {
	($name, $title) = split(/\t+/, $line);
	$dir = "documentation-$name";
	mkdir($dir, 0775);
	open(INDEX, ">$dir/index.shtml") or die "Can't open index.shtml: $!";
	open(TEMPLATE, "<template.shtml") or die "Can't open template.shtml: $!";
	while (<TEMPLATE>) {
		s/TITLE-HERE/Installing and Configuring $title/g;
		print INDEX;
	}
	close INDEX;
	close TEMPLATE;
	open(CONTENT, ">$dir/index.content") or die "Can't open index.content: $!";
	print CONTENT "Under Construction.  Please check back later.\n";
	close CONTENT;
	print OUT "<LI><A HREF=\"$dir\">$title</A></LI>\n";
}
__END__
imap-and-pop	IMAP/SSL, POP/SSL, APOP and KPOP
imho	IMHO Web Mail (w/Roxen web server)
smtp-auth	Authenticated SMTP using Sendmail
netatalk	Netatalk
openafs	OpenAFS
samba	Samba
ssh	SSH
kerberos	Kerberos
tcpd	TCP-Wrappers