#!/usr/local/bin/perl
require "weblib.lib";
require "timelocal.pl";
dbmopen(%DB,"/home/todd/db/arogerscd-r",undef);
&htmlopen("Anthony Rogers' CD-R List|");
chop($title=<FILE>);
&getparams;
print "<center><h1>$DB{Title}</h1></center>\n";
print $DB{Intro};
$oldyear="";
@keys=grep(s/^Date%%//,sort keys %DB);
if($param{newest}){
	foreach $key(@keys){
		next unless $date=$DB{"Date Added%%$key"};
		($month,$day,$year)=split(m#/#,$date);
		$time=timelocal(0,0,12,$day,$month-1,$year-1900);
		next if time-(86400*30) > $time;
		push(@newest,$key);
	}
	@keys=@newest;
}
foreach $key(@keys){
	$year=substr($key,0,4);
	if($year !~ /\d\d\d\d/){($year)=$key=~/^(\D+)/;}
	push(@year,$year) if $year ne $oldyear;
	$oldyear=$year;
}
print "<hr>";
print "<a href=$weblib::URL/newest>List only items added in last 30 days</a><br>" unless $param{newest};
$olddecade="";
foreach $year(@year){
	$decade=substr($year,0,3);
	if($decade ne $olddecade){
		print "<br>";# if $olddecade;
		if($decade =~ /\d\d\d/){print "<b>${decade}0s:</b> ";}
		else{print "<b>$decade:</b> ";}
	}
	$olddecade=$decade;
	print "<a href=#",substr($year,0,4),">$year</a> ";
}
print "<hr>";
$oldyear="";
foreach $key(@keys){
	$year=substr($key,0,4);
	if($year ne $oldyear){
		print "</table>\n"if $oldyear;
		&printheader;
	}
	&printrow;
	$oldyear=$year;
}
print "</table>\n";
&htmlclose;
sub printheader{
	print "<p><A name=$year></a><table border>\n";
	print "<tr>\n";
	foreach $type("Date","Title","Source","Time"){
		print "<th>$type</th>\n";
	}
	print "</tr>\n";
}
sub printrow{
	print "<tr>\n";
	foreach $type("Date","Title","Source","Time"){
		print "<td bgcolor=cyan>\n";
		if($param{edit} && $type eq "Date"){
			print "<A href=$weblib::URL/edit=$key><img src=/trc/icons/edit.gif border=0 alt=Edit></a>\n";
		}
		if($DB{"$type%%$key"}){
			print $DB{"$type%%$key"},"\n";
		}
		else{
			print "<br>\n";
		}
		print "</td>\n";
	}
	print "</tr>\n";
	print "<tr><td colspan=4>";
	print "<b>Date Added:</b>",$DB{"Date Added%%$key"},"<br>\n" if $DB{"Date Added%%$key"};
	print "<b>Track List:</b> ",$DB{"Track List%%$key"},"\n";
	print "<br><b>Note:</b> ",$DB{"Note%%$key"},"\n" if $DB{"Note%%$key"};
	print "</td>\n</tr>\n";
}