refer to index.html in subdirs
authorEugene Crosser <crosser@average.org>
Mon, 27 Feb 2006 21:39:39 +0000 (21:39 +0000)
committerEugene Crosser <crosser@average.org>
Mon, 27 Feb 2006 21:39:39 +0000 (21:39 +0000)
mkindex.pl

index 5600ca30f498006e116b6ea32e9a610b8b07c0f1..bbdaca21b3e9c494a7bbbb6420802b9a854c3fd2 100755 (executable)
@@ -69,7 +69,8 @@ foreach my $yr(sort @years) {
        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]);
                }
@@ -80,7 +81,7 @@ print end_table,p,"\n";
 
 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";