#!/usr/bin/perl -w

use strict;
use CGI;

my $cgi = new CGI;

my $dirPath = "/roadster/20040228/";             # Das Verzeichnis mit den _großen_ Bildern

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

@pics = map { $_->[0] }                           # Kleine Schwartz'sche Transformation
        sort { $a->[1] <=> $b->[1] }              # um eine numerische Sortierung zu
        map { [ $_, ( /(\d+)/ )[0] ] } @pics;     # erzwingen (wäre ansonsten ASCIIbetisch)

my $start_pic = substr($pics[0],4,-4);               # Erstes Bild: Nur die Zahl im Dateinamen wird gebraucht: aus DSCN993.jpg wird 993
#my $last_pic = substr($pics[$#pics],4,-4);           # Letztes Bild: Nur die Zahl im Dateinamen wird gebraucht: aus DSCN1016.jpg wird 1016
my $npart = substr($pics[0],0,4);                    # Alphabetischer Namensteil

print $cgi->header;

if ($cgi->param('js')) {
  print qq~      var npart = "$npart";\n~;
  print "      var start_pic = $start_pic;\n";
}
else {
  foreach my $pic (@pics) {
    my $tnpart = substr($pic,0,-4);
    print '     <a class="thumbs" href="/z_testdir/scripts/perl/gallery.pl?url='.$dirPath.$pic.'"><img src="'.$dirPath.'th/'.$tnpart.'-t.jpg" width="105" height="79" alt="Bild: '.$pic.'" title="" /></a>', "\n";  
  }
}