#!/usr/bin/perl use CGI qw(param); use CGI qw(fatalstoBrowser); print "Content-type: text/html\n\n"; $action=param('action'); print qq~ Dolzianers Gruselkabinett ~; my $path = "../galerie/"; my $jpgpath = "/galerie/"; my $images = "/images/"; my $thumbs = "/thumbnails/"; if($action ne "create") { print qq~

Da isse nu, die Galerie...

Hier werden zukünftig alle Schandtaten veröffentlicht. Wer unsere Veranstaltungen besucht, hat die besten Chancen auch mal ein Bild von sich selbst im Web bewundern zu dürfen. Die Darstellungen unterliegen natürlich einer strengen Qualitätskontrolle - wie man ja unschwer erkennen kann.

Einfach die entsprechende Veranstaltung anklicken, und schon geht's los...

~; opendir(JPGDIR, $path) || die "Verzeichnis konnte nicht geöffnet werden: $!\n"; my @dirs = readdir(JPGDIR); close(JPGDIR); my @sorteddirs = sort({$b cmp $a} @dirs); print qq~ ~; for($i=0;$i ~; } } print "
  •

$dirsplit[1] $dirsplit[2]

  
"; } if($action eq "create") { my $jpgdir = param('jpgdir'); my @title = split(/_/, $jpgdir); print qq~

$title[1] $title[2]

~; my $imgpath = $path.$jpgdir.$images; opendir(IMGDIR, $imgpath) || die "Verzeichnis konnte nicht geöffnet werden: $!\n"; while(defined ($jpgfile = readdir(IMGDIR))) { next if($jpgfile!~/\.jpg/i); push(@images, $jpgfile); } close(IMGDIR); my $tbnpath = $jpgpath.$jpgdir.$thumbs; print qq~

~; my $anz = 1; print qq~~; for($i=0;$i $images[$i]
~; $anz++; if($anz == 6) { $anz = 1; print qq~~; } } for(; $anz <= 5; $anz++) { print qq~~; } print ""; } print "
"; print "";