#!/usr/local/bin/perl
require "/home/todd/toddweb.env";
require "$PAGEHOMEDIR/weblib.lib";
&htmlopen("The Todd Rundgren Connection - Main Index|");
&printmainindex;
&htmlclose;
sub printmainindex{
open(INDEX,"$PAGEHOMEDIR/trconn.dat");
while(<INDEX>){
	chop;
	last if /^EOD$/;
	($tag,$articles)=split(/\t/);
	$articles{$tag}=$articles;
	$articlessave=$articles,$tagsave=$tag if "/$tag" eq $ENV{PATH_INFO};
}
while(<INDEX>){
	($tag,$desc)=split(/\t/);
	($tag,$title)=split(/#/,$tag);
	$title{$tag}="$title#$desc";
	push(@tags,$tag);
}
&makelinks;
print <<EOF;
<center>
<a href=/$CGIPATH/trframe target=_top>Main Page</a> |
<a href=/$CGIPATH/trindex2 target=trmain>Master Index</a><br>$titlelist
</center>
EOF
}
sub makelinks{
	foreach $tag (@tags){
		($title,$text)=split(/#/,$title{$tag});
		$title=~s/ /&nbsp;/g;
		$title="<a href=/todd/trsubindex/$tag target=trsubindex>$title</a> ";
		$titlelist="$titlelist$title | ";
	}
	chop($titlelist);
	chop($titlelist);
}