#!/usr/local/bin/perl
require "/home/todd/toddweb.env";
require "$PAGEHOMEDIR/weblib.lib";
&htmlopen("The Todd Rundgren Connection - Sub Index|");
if($ENV{PATH_INFO}){
	&printsubindex;
}
else{
	$PAGETAIL=~s/<hr>//;
	print $PAGETAIL;
}
&htmlclose;
sub printsubindex{
($sec,$min,$hour,$day,$month,$year)=localtime(time);
$checkexpire=sprintf("%4d%02d%02d%02d%02d%02d",$year+1900,$month+1,$day,$hour,$min,$sec);
($sec,$min,$hour,$day,$month,$year)=localtime(time-86400*14);
$checknew=sprintf("%4d%02d%02d%02d%02d%02d",$year+1900,$month+1,$day,$hour,$min,$sec);
($sec,$min,$hour,$day,$month,$year)=localtime(time-86400);
$checkhot=sprintf("%4d%02d%02d%02d%02d%02d",$year+1900,$month+1,$day,$hour,$min,$sec);
$artpath="$PAGEHOMEDIR/articles";
open(INDEX,"$artpath/index");
while(<INDEX>){
	chop;
	if(tr/:/:/ >= 3){
		($artname,$interest,$expire,$header)=split(/:/,$_,4);
		$expire="99999999999999" if $expire eq "";
	}
	else{
		$expire="99999999999999";
		($artname,$header)=split(/:/,$_,2);
	}
	next if $expire<$checkexpire;
	@stat=stat("$artpath/$artname");
	$INDEX{$artname}="$stat[9]:$header";
}
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);
}
if($articlessave){
	($title,$desc)=split(/#/,$title{$tagsave});
	print "$desc<br>\n";
	foreach $artname(split(/,/,$articlessave)){
		($time,$header)=split(/:/,$INDEX{$artname},2);
		($sec,$min,$hour,$day,$mon,$year)=localtime($time);
		$artdate=sprintf("%4d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$day,$hour,$min,$sec);
		$new="";
		$new="<img src=/$HTMLPATH/pictures/new.gif alt=\"New! \">" if $artdate>$checknew;
		$new="<img src=/$HTMLPATH/pictures/hot.gif alt=\"Hot! \">" if $artdate>$checkhot;
		($time,$header)=split(/:/,$INDEX{$artname},2);
		($sec,$min,$hour,$day,$mon,$year)=localtime($time);
		$lm=sprintf("%s %d, %s",(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon],$day,$year+1900);
		print "$new<a href=/$CGIPATH/trmain/$artname target=trmain>$header</a><br>($lm)<br>\n";
		push(@articles,$artname);
	}
}
}