#!/usr/bin/perl -w

use strict;
use CGI;
use HTML::Template;

my $cgi = new CGI;
my $picname = $cgi->param('url');
$picname = substr($picname,19);
my $gallery = HTML::Template->new(filename => $ENV{DOCUMENT_ROOT}.'/z_testdir/files/juergen.tpl');

my $dirPath = "/roadster/20040228/";

print $cgi->header(-charset => 'utf-8');

opendir DIR, $ENV{DOCUMENT_ROOT}.$dirPath  or die "Verzeichnis konnte nicht geöffnet werden, weil: $^E.";
my @pics = grep(/\.jpg$/i, readdir DIR);
closedir DIR;

@pics = map { $_->[0] }                           
        sort { $a->[1] <=> $b->[1] }              
        map { [ $_, ( /(\d+)/ )[0] ] } @pics;

my $start_pic = substr($pics[0],4,-4);            
              
my @test;
foreach my $pic (@pics) {
  my $picnumb = substr($pic,4,-4);
  my $tnpart = substr($pic,0,-4);
  my %line;
  $line{SCRIPT} = "/z_testdir/scripts/perl/gallery.pl?url=".$dirPath.$pic;
  $line{'THPATH'} = $dirPath."th/".$tnpart."-t.jpg";
  $line{'BREAK'} = "\n";
  $line{'PICNAME'} = $pic;
  push (@test, \%line);
}
  
$gallery->param(THUMBS => \@test);
$gallery->param(PICNAME => $picname);
print $gallery->output;