#!/usr/bin/perl

use strict;
use CGI;

my $dir = "/public_html/tmp";
my $max = 20;

my @files;
my $page = CGI->new->param('p');
my $i = 0;

opendir(DIR, $dir);
@files = grep { /jpg$|gif$|png$/ } readdir DIR;
closedir(DIR); 

print "Content-type: text/html\n\n";

foreach my $file (sort { $b <=> $a || $b cmp $a } @files) {
	$i++;

	if ($i > $page * $max && $i <= ($page + 1) * $max) {
		print "<img src=\"/tmp/$file\"><br>\n";
	}
}

if ($page > 0) {
	printf "<a href=\"%s?p=%d\">前のページ</a> ", $ENV{'SCRIPT_NAME'}, $page - 1;
}

if ($page + 1 > 0 && ($page + 1) * $max <= $i) {
	printf "<a href=\"%s?p=%d\">次のページ</a> ", $ENV{'SCRIPT_NAME'}, $page + 1;
}

exit;