X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkindex.pl;h=cdce0480e0b0705ae96741f4fb65a1d4e6ca24b5;hp=99a90610b55cd2b2113aa6fdd67ca317be24c6b5;hb=HEAD;hpb=f04746d096a80eab7143900e50f02ab0660e1975;ds=sidebyside

diff --git a/mkindex.pl b/mkindex.pl
index 99a9061..cdce048 100755
--- a/mkindex.pl
+++ b/mkindex.pl
@@ -1,5 +1,29 @@
 #!/usr/bin/perl
 
+# $Id$
+
+# Create per-month index assuming that directory structure is ./YYYY/MM/...
+# non-four-numeric subtis are put on a separate list.
+# Output to stdout (redirect >index.html if you wish)
+
+# Copyright (c) 2006 Eugene G. Crosser
+
+#  This software is provided 'as-is', without any express or implied
+#  warranty.  In no event will the authors be held liable for any damages
+#  arising from the use of this software.
+#
+#  Permission is granted to anyone to use this software for any purpose,
+#  including commercial applications, and to alter it and redistribute it
+#  freely, subject to the following restrictions:
+#
+#  1. The origin of this software must not be misrepresented; you must not
+#     claim that you wrote the original software. If you use this software
+#     in a product, an acknowledgment in the product documentation would be
+#     appreciated but is not required.
+#  2. Altered source versions must be plainly marked as such, and must not be
+#     misrepresented as being the original software.
+#  3. This notice may not be removed or altered from any source distribution.
+
 use strict;
 use Carp;
 use CGI qw/:html *table *Tr *center/;
@@ -41,11 +65,13 @@ print h1("Gallery Index"),"\n";
 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]);
 		}
@@ -54,9 +80,11 @@ foreach my $yr(sort @years) {
 }
 print end_table,p,"\n";
 
+print start_table({-cellspacing=>3}),"\n";
 foreach my $sub(sort @subdirs) {
-	print td(a({-href=>$sub.'/'},$sub));
+	print Tr(td({-bgcolor=>"#ffffc0"},a({-href=>$sub.'/index.html'},$sub)));
 }
+print end_table,"\n";
 
 print end_center,"\n";
 print end_html,"\n";