./pics
./pics/0001-20021005-005-002-002-001013007-Me_in_some_snow_somewhere.jpg
./pics/0003-20021101-004-003-002-001-Me_ontop_of_flat_top_mountain.jpg
./pics/0000-20020918-001-005-003-013011005-Me_in_a_bush.jpg

##</code><code>##

./pics

##</code><code>##

sub showAllFiles{

    &printHeader("Displaying All Files");
    @files = ();
    find(sub{push @files, $File::Find::name}, $picPath);
    foreach $file (@files){
        print $cgi->p("$file");
    }

    &viewThumbnails(@files);

}





$numCols = 4;

sub viewThumbnails{

    @filesToDisplay = @_[0];
    foreach $file (@filesToDisplay){
        print $cgi->p("$file");
    }
    $count = 0;
    print "\n<table>\n";
    print "    <tr>\n";

    foreach $file (@filesToDisplay){

        if ($count = $numCols){
            $count = 0;
            print "    <\/tr>\n";
            print "    <tr>\n";
            print "        <td><img src=\"$file\"><\/td>\n";
	}else{
            $count++;
            print "        <td><img src=\"$file\"><\/td>\n";
	}
    }
    print "    <\/tr>\n";
    print "<\/table>\n";

}

##</code><code>##

use lib('.');
require 'viewThumbnails.pl';