X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkindex.pl;fp=mkindex.pl;h=99a90610b55cd2b2113aa6fdd67ca317be24c6b5;hp=0000000000000000000000000000000000000000;hb=f04746d096a80eab7143900e50f02ab0660e1975;hpb=1046cc292f2dd1f3108a05006764b33b55229706

diff --git a/mkindex.pl b/mkindex.pl
new file mode 100755
index 0000000..99a9061
--- /dev/null
+++ b/mkindex.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+use strict;
+use Carp;
+use CGI qw/:html *table *Tr *center/;
+
+my @years=();
+my @subdirs=();
+
+opendir(D,'.') || die "cannot open current directory: $!";
+while (my $de=readdir(D)) {
+	next if ($de =~/^\./);
+	next unless (-d $de);
+	if ($de =~ /^\d\d\d\d$/) {
+		push(@years,$de);
+	} else {
+		push(@subdirs,$de);
+	}
+}
+closedir(D);
+
+my @mn=(
+	'',
+	'Jan',
+	'Feb',
+	'Mar',
+	'Apr',
+	'May',
+	'Jun',
+	'Jul',
+	'Aug',
+	'Sep',
+	'Oct',
+	'Nov',
+	'Dec',
+);
+
+print start_html(-title=>'Gallery'),"\n";
+print start_center,"\n";
+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);
+	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]));
+		} else {
+			print td({-bgcolor=>"#c0c0c0"},$mn[$mo]);
+		}
+	}
+	print end_Tr,"\n";
+}
+print end_table,p,"\n";
+
+foreach my $sub(sort @subdirs) {
+	print td(a({-href=>$sub.'/'},$sub));
+}
+
+print end_center,"\n";
+print end_html,"\n";