#!/usr/bin/perl
$DIR = '.';
opendir(D,$DIR);
my @files = grep(/\d+\.jpg$/,readdir(D));
closedir(D);
#@files = sort { $a <=> $b } @files;
@files = sort @files;
my $head = '
Dignity Village';
if (-e "$DIR/head" && open(F,"$DIR/head")) {
$head = join('',);
close(F);
}
my $show = $ENV{QUERY_STRING};
$show = $files[0] unless $show;
my $links = '[HOME]';
for (my $i = 0 ; $i <= $#files ; $i++) {
next if ($files[$i] eq $show);
$links .= sprintf(' [page %d]',
$files[$i],$i+1);
}
print qq#Content-type: text/html\n\n$head$links
$links
#;