#/usr/local/bin/perl -w

use File::Find;

{
    if ( $#ARGV != 0 ) { exit(-1) }
    $workdir = $ARGV[0]; shift @argv;
    @jpegarray = ();
    find( \&GetJpeg, $workdir );
    open ( OUT, ">" . $workdir . "/linkhtml.txt" ) || die "Cannot open linkhtml.txt"; 
    foreach my $jpegfile ( sort @jpegarray ) {
        printf( OUT "\n" );
        printf( OUT "<br>\n" );
        printf( OUT "<a href=\"/files/%s\" target=\"_blank\" >\n", $jpegfile );
        printf( OUT "    <img src=\"/files/%s\" width=320 title=\"TITLE\" />\n", $jpegfile );
        printf( OUT "</a><br>\n" );
    }
    close ( OUT );
}

sub GetJpeg
{
    if ( ( $_ =~ /\.JPG$/ ) || ( $_ =~ /\.jpg$/ ) ) {
         push ( @jpegarray, $_ );
    }
}