#! perl -wT

use CGI;
use CGI::Pretty;
use strict;
use File::Basename;  #so I can use dirname();
use DirHandle;       #so I can use opendir();
use strict;

# eventual the path will come from an env variable from a calling webpage
my $path=dirname('c:/pictemp/start.gif');

my @files;

opendir(DIR, $path);
@files = readdir(DIR);


# This ugly section drops the '.' and '..' from the directory array. 
# It looks juvenile, but it works.
my $junk;

if ($files[0] eq '.' ) {
  $junk = shift @files;
}

if ($files[0] eq '..' ) {
  $junk = shift @files;
}

my $query = CGI->new();

print $query->header( "text/html" ),
      $query->start_html(-title   => "Renaming Digital Photos",
                         -bgcolor => "#ffffcc" );

print "<form name=newNameForm method=post action=rename.cgi>\n";

print $query-> input( { -name=> "baseDir",
                        -type=> "hidden",
		        -value=> "$path"} );

print "\n<table border=1><tr valign=top>\n";

my $file;
my $counter=0;
my $tempFile;

foreach $file (@files) {
  $tempFile=$path."/".$file;
  print "<td>\n\t".$file."<br>\n\t";
  print $query->input ( { -type=>'hidden',
                          -name=>"'hidden'.$counter",
			  -value=>"$file" } );
  print "\n\t";
  print $query->input ( { -type=>'text',
                          -name=>"'newName'.$counter",
			  -size=>"30",
			  -value=>$file } );
  print "\n\t<img width=200 src=".$tempFile.">\n\t</td>\n";
  if ( ++$counter % 3 == 0) {
    print "</tr><tr valign=top>\n";
  }
}
print "</tr></table>";
print #query->end_html;

closedir(DIR);