#!/usr/bin/perl
use lib '.';
require "pagelib.pl";
header();
head();

$dir = "images/greenburg20030330";
if(!opendir(DIR,$dir)) {
    print "Internal error locating images!<br>\n";
}
@files = readdir(DIR);
foreach(@files) { push @images,$1 if(/(DSC\d+)\.jpg/i); }
%used = ();

print qq`
<br><br>
<B><font size=+1>Greenburg Train Show March 29 & 30, 2003</font></B><br>
<br>
`;

if($params{page} == 2) {
    print qq`<a href="$ENV{SCRIPT_NAME}?page=1">Page 1</a> &nbsp;&nbsp&nbsp; <b>Page 2</b><br>\n`;
} else {
    print qq`<b>Page 1</b> &nbsp;&nbsp;&nbsp;<a href="$ENV{SCRIPT_NAME}?page=2">Page 2</a><br>\n`;
}
foreach(sort @images) {
    if(/DSC(\d+)/) {
	my($num) = $1;
	push @pageimgs,$_ if(($num > 880 && $params{page} == 2) ||
			  ($num <= 880 && $params{page} != 2));
    }
}

#show_images(@images);
show_images(@pageimgs);

foot();

sub show_images {
    my(@pics) = @_;
    my($i) = 0;
    print "<table width=100\%><tr>\n";
    foreach(@pics) {
	next if($used{$_});
	$used{$_} = 1;
	if(!($i++%4)) {
	    print "</tr>\n<tr>\n";
	}
	print "<td align=center><a href=\"$dir/$_.JPG\"><img src=\"$dir/$_\_th.JPG\" border=0></a></td>\n";
    }
    print "</tr></table>\n";
}