print start_table({-cellspacing=>3}),"\n";
foreach my $yr(sort @years) {
print start_Tr,"\n";
- print td({-bgcolor=>"#ffc0ff"},$yr);
+ print td({-bgcolor=>"#ffc0ff"},
+ a({-href=>$yr.'/index.html'},$yr));
for (my $mo=1;$mo<=12;$mo++) {
my $dir=sprintf "%04d/%02d",$yr,$mo;
if (-d $dir) {
- print td({-bgcolor=>"#ffffc0"},a({-href=>$dir.'/'},$mn[$mo]));
+ print td({-bgcolor=>"#ffffc0"},
+ a({-href=>$dir.'/index.html'},$mn[$mo]));
} else {
print td({-bgcolor=>"#c0c0c0"},$mn[$mo]);
}
print start_table({-cellspacing=>3}),"\n";
foreach my $sub(sort @subdirs) {
- print Tr(td({-bgcolor=>"#ffffc0"},a({-href=>$sub.'/'},$sub)));
+ print Tr(td({-bgcolor=>"#ffffc0"},a({-href=>$sub.'/index.html'},$sub)));
}
print end_table,"\n";