#!/usr/bin/perl -wT
# photo_display2.pl
# display images within a directory
# receives directory information from photo_display.pl

use CGI qw( :standard );

print( header() );
print( start_html( -title => "USGS Photos",
        -dtd => '-//W3C//DTD HTML 4.01 Transitional//EN',
        -meta=>{'description'=>'Photo Gallery',
        -created=>'20020926'},
        -style =>{'src'=>'http:/photos/css/photos.css'},
        -background =>'http:/images/flatwhit.gif' ) );

print '<h1>Image Gallery</h1>';
print '<hr />';
print '<p>Click on an image to view a larger version.</p>';

my $dir = param( "pic" );
opendir(DIR,$dir) || die ("Error opening : $!" );
#directory contains text files that should not be used
@piclist = grep { !/^\.\.?$/ and /\.jpg$|\.gif$|\.png$|\.JPG$|\.bmp$/ } readdir(DIR);
@sortpiclist = sort @piclist;  #images will display in alphanumeric ordeR
closedir(DIR);

print "<table cellpadding=10 cellspacing=0 width=100%>";

while (@sortpiclist)
{
        my @row_entries= splice (@sortpiclist, 0, 4);
        print "<tr>";
        for (@row_entries)
                {
                print "<td>";
                $dir =~ s/\/www\/htdocs//;
                print qq|
                <a href=$dir/$_>
                <img src=$dir/$_ border="0" width="180"></a><br>$_<p>
        |;
        print "</td>";
        }
print "</tr>";
}

print ( end_html() );