#!/bin/sh
if [ -n "$1" ]; then cd "$1"; fi
export title=`basename $PWD`
find . -name '*.png' -or -name '*.jpg' -or -name '*.jpeg' -or -name '*.gif' |
LC_ALL=C sort |
perl -ne '
BEGIN {
print "$ENV{title}\n$ENV{title}
\n";
$number = 1;
}
chomp;
s{^\./}{};
$image = $_;
($html = $_) =~ s/\.[^.]*$/.html/;
print qq{$number
\n};
if (defined $last_html) {
make_html_page($number-1, $last_html, $last_image, $html);
}
++$number;
$last_html = $html;
$last_image = $image;
END {
print "\n";
if (defined $last_html) {
make_html_page($number-1, $last_html, $last_image);
}
}
sub make_html_page {
my ($number, $html, $image, $next_html) = @_;
open HTML, ">$html" or die "cannot create file: $html\n";
print HTML "$ENV{title} $number\n";
print HTML qq{
\n};
print HTML "\n";
close HTML;
}
' >index.html