#! /opt/bin/perl
#	________________________________________________________________
#	  /\ /\		CyberWeb SoftWare: Internet Information Systems
#	-{-<*>-}-	World-Wide Web	   <URL:http://WWW.Stars.com/>
#	__\/_\/_________________________________________________________
#	Author	:	Alan Richmond
#	File	:	index.pl
#	Purpose	:	Process Index into encyclopedia.
#	________________________________________________________________
require         "/www2/wdvl/wdvl/Software/Perl/ht_subs.pl";

	open	(In,"<Index")||&die	("Can't open Index");
	$count	= 1;
	$v{'Next'}	= "A";
	$v{'Prev'}	= "Z";
	$v{'Class'}	= "Plain";

	while	(<In>)	{

		if	(/^[A-Z]/)	{	# Letter
			chop	;
			if	($count > 1)	{
				print	OUT	"</td></tr></table>\n";
				$x	= $_;
				&Foot	;
				undef	%v;
				$_	= $x;
				close	(OUT);
				$v{'Prev'}	= $L;
				$ix	.= "</tr>\n";
				}
			$L	=	$_;
			$v{'file'}	= $L;
			$v{'url'}	= "/WebRef/Index/$L.html";
			$v{'Next'}	= pack	("c", $count++ + 65);
			$v{'Next'}	= "A"	if $count == 26;
			$ix .= "<tr><th valign=top><a href=\"$L.html\">$L</a></th><td>\n";
			open	(OUT,">$L.html")||die$!;
			$v{'Title'}	= "The Webmaster's Illustrated Encyclopedia: $L";
			select	OUT	;
			$v{'Class'}	= "Plain";
			&Head	(1);
			print	OUT	"<table>\n";
			next	;
			}
		elsif	(/^    (.*)/)	{	# Term
			chop	;
			$terms++;
			($term, $url) = split(/\t+/, $1)	;
			$term	=~ s/ /_/g;
			print	OUT	<<EOT;
	<tr><th valign=top align=right><a name="$term" href="$url"> $term</a>
EOT
			$ix	.="<a href=\"$L.html#$term\">$term</a>&nbsp;&nbsp;\n";
			$_	= <In>;
			if	(/^#	(\S+)	(\d+),(\d+)/)	{

				print	OUT	"<p><Img src=\"../../Icons/$1\"
	alt=\" \" width=$2 height=$3 hspace=10 vspace=2 >\n";
				print	OUT	"</th><td>\n";
				next	;
				}
			print	OUT	"</th><td>\n";
			}
		&Defn	;
		}
	&Foot	;
	undef	%v;
#	print	"	$terms terms.\n";
	$v{'url'}	= '/WebRef/Index/';
	$v{'file'}	= "index";
	$v{'Class'}	= "Plain";
	$v{'Next'}	= "A";
	$v{'Prev'}	= "Z";
	$v{'Title'}	= "The Webmaster's Encyclopedia";
	open	(OUT,">index.html")||die;
	select	OUT	;
	&Head	(1);
	print	OUT	"<table>$ix</table>";
	&Foot	;
	undef	%v;

sub	Defn	{
	s/^$/<br clear=all>/;
	s/\{/<i>/g;
	s/\}/<\/i>/g;
	while	(/\[(\w)([^\]]*)\]/)	{

		$_	= $`;
		$l = $u = $1;
		$m = $v = $2;
		$x	= $';
		$u =~ tr/a-z/A-Z/;
		$v =~ s/ /_/g;
		$_ .= "<a href=\"$u.html#$u$v\">$l$m</a>";
		$_ .= $x;
		}
	print	OUT	;
	}