$PFAD

#!/usr/bin/perl -w use strict; use CGI::Carp qw(fatalsToBrowser); use Image::Size; # Variablen definieren # # In der untersten Ebene der Bilddateien liegen folgende Dateien: # img.css: # Hier stehen die Stylesheet-Formatdefinitionen für das Bilder-Frame # thumbs.css: # Hier stehen die Stylesheet-Formatdefinitionen für das Thumbnail-Frame # basis_pfad: # Hier steht das Basisverzeichnis, in das der Pfeil Uebersicht # (Mitte) verzweigt. # # Es wird je ein Verzeichnis # "img" mit den durchnummerierten Bildern # "thumbs" mit den Vorschaubildern und # "html" für Kommentare über (_pre) oder unter (_post) den Bildern erwartet. # Hier wird in das cgi-bin Verzeichnis gewechselt, damit der korrekte Pfad zugrunde liegt my $AKTUELLES_CGI_VERZEICHNIS = $ENV{'SCRIPT_FILENAME'}; # Aktuellen Pfad aus der Position des Scriptes auslesen $AKTUELLES_CGI_VERZEICHNIS=~ s/bilder.pl//; # und um den Script-Dateinamen kürzen chdir $AKTUELLES_CGI_VERZEICHNIS; # Verzeichnis wechseln # Übergabestring des Webservers auslesen, Syntax checken und in seine Bestandteile auflösen my $Daten = $ENV{'QUERY_STRING'}; die "Good Bye\n" unless ($Daten =~ m/^[a-zA-Z0-9\/_-]+&[0-9]+$/); my ($PFAD, $AKTUELLES_BILD) = split(/&/, $Daten); # Die beiden Teile werden in die Variablen $PFAD und $AKTUELLES_BILD geschrieben # Pfad zu den Dokumenten der Homepage my $BASE_URL="../fotos/".$PFAD."/"; open(BASIS_PFAD,$BASE_URL."basis_pfad"); # Basisverzeichnis Pfeil Uebersicht lesen chomp (my $BASIS_PFAD = ); # und in den Skalar $BASIS_PFAD schreiben close(BASIS_PFAD); # Verzeichnis "img" mit den Bildern auslesen opendir (IMG,$BASE_URL."img"); my @IMG = grep !/^\./, readdir IMG; # Inhalt in das Array schreiben (ohne .*-Dateien) @IMG = sort(@IMG); # Alphabetisch sortieren closedir (IMG); # Original-Groesse des aktuellen Bildes bestimmen (my $imgW, my $imgH) = imgsize($BASE_URL."img/".$IMG[$AKTUELLES_BILD]); # Webseite print "Content-type: text/html \n\n"; print "\n"; print "\n\n"; print "$PFAD\n"; # Titel = Pfad print "\n\n"; # stylesheet einlesen print "\n"; print "\n\n"; # Testing #print "AKTUELLES_CGI_VERZEICHNIS: ".$AKTUELLES_CGI_VERZEICHNIS."
"; #print "BASE_URL: ".$BASE_URL."

"; #print "SCRIPT_NAME: ".$ENV{'SCRIPT_NAME'}."
"; #print "SCRIPT_FILENAME: ".$ENV{'SCRIPT_FILENAME'}."
"; #print "PATH_INFO: ".$ENV{'PATH_INFO'}."
"; #print "PATH_TRANSLATED: ".$ENV{'PATH_TRANSLATED'}."
"; #print "\$Daten: ".$Daten."
"; #print "QUERY_STRING: ".$ENV{'QUERY_STRING'}."
"; #print "REQUEST_URI: ".$ENV{'REQUEST_URI'}."
"; #print "DOCUMENT_ROOT: ".$ENV{'DOCUMENT_ROOT'}."
"; #print "HTTP_REFERER: ".$ENV{'HTTP_REFERER'}."
"; #print `dir /w`; #print "Aktuelles Bild: ".$AKTUELLES_BILD."
"; #print "\@IMG -> ";print join " ", (@IMG,"
"); # gibt alle Werte mit " " getrennt von @IMG aus #print "\$IMG[0] -> ".$IMG[0]."
"; #print "\$IMG[$#IMG] -> ".$IMG[$#IMG]; # # # End Testing print "\n

\n"; # Aktuelle Groesse des Browserfensters bestimmen print "\n"; # For Debugging # Reale-Groesse des aktuellen Bildes anzeigen # print "Aktuelles Bild: $IMG[$AKTUELLES_BILD]
"; # print "\n"; # print "Reale Bildbreite (\$imgW): $imgW
\n"; # print "Reale Bildhöhe (\$imgH): $imgH
\n"; # print "\n"; print "\n"; print "\n"; # Pfeil zurueck (Links) print "\n"; # Pfeil Uebersicht (Mitte) print "\n"; # Pfeil vor (Rechts) print "\n"; print "\n"; print "

"; if ($AKTUELLES_BILD > 0) { # Wenn die aktuelle Bildnummer groesser als die des ersten Bildes im Array ist, print ""; print " Zurück

Zurück

"; print ""; } print "

"; print ""; print " Home

Home

"; print ""; print "

"; if ($AKTUELLES_BILD < $#IMG) { # Wenn die aktuelle Bildnummer kleiner als die des letzten Bildes im Array ist, print ""; print " Weiter

Weiter

"; print ""; } print "

\n"; # Zusatztext vor dem Bild if ( -e $BASE_URL."html/".$IMG[$AKTUELLES_BILD]."_pre.html") { # Test, ob Datei existiert open(ZUSATZTEXT,$BASE_URL."html/".$IMG[$AKTUELLES_BILD]."_pre.html"); # Zusatztext aus der aktuellen xya.html-Datei lesen. my @Zeilen = ; close(ZUSATZTEXT); print "

\n"; print @Zeilen; print "

\n"; } # Bild entsprechen der Groesse des Browserfensters skalieren und einfuegen print "\n"; # Falls JAVASCRIPT aus ist, Bild trotzdem einfuegen print "

\n"; #Bildnamen einfuegen print "

\n$IMG[$AKTUELLES_BILD]\n

\n"; # Zusatztext nach dem Bild if ( -e $BASE_URL."html/".$IMG[$AKTUELLES_BILD]."_post.html") { # Test, ob Datei existiert open(ZUSATZTEXT,$BASE_URL."html/".$IMG[$AKTUELLES_BILD]."_post.html"); # Zusatztext aus der aktuellen xyb.html-Datei lesen. my @Zeilen = ; close(ZUSATZTEXT); print "

\n"; print @Zeilen; print "

\n"; } print "

\n"; # Abschluß

# Falls das naechste/vorige Bild existieren, laden wir sie schon mal in den # Cache des Browsers, in dem sie als 0 Pixel grosses Image eingefuegt werden # (-e findet auch '..' -> daher -f für normale Datei) if ( -f $BASE_URL."img/".$IMG[$AKTUELLES_BILD+1]) { print "

$IMG[$AKTUELLES_BILD+1]

\n"; } if ( -f $BASE_URL."img/".$IMG[$AKTUELLES_BILD-1]) { print "

$IMG[$AKTUELLES_BILD-1]

\n"; } print "\n\n"