attempt to support utf8 better
[mkgallery.git] / mkindex.pl
index cc4e66f206ff244df4ca89c1286a964fbc0e8b43..cdce0480e0b0705ae96741f4fb65a1d4e6ca24b5 100755 (executable)
@@ -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]);
                }
@@ -56,7 +82,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";