webtist::dirindex.pm
Modulbeschreibung webtist::dirindex.pm
Version 1.05
Das Modul generiert dynamisch Bildgalerien aus einer Direktory
sowie ein Dateiindex ber eine Direktory
Marc Hanschur Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
das Modul webtist wird benoetigt
Aufruf
use webtist::dirindex;
$webtist::dirindex = new webtist::dirindex();
Konstruktor
Genneriert aus einem angegebenen Verzeichnis einen Bildindex in dem
Links auf das grosse Bild gemacht wird
Weiter definitionen in der web.cfg
PICGALOK => Picture Gallery Anzeigen 0 oder nix = nein 1 = ja
PICGALID => bei welchee NavigationsID Gaestebuch Anzeigen id1,id2,id3 die ID muss gb heissen (Keysensitiv)
PICGALIDINAKTIV => bei welchee NavigationsID Gaestebuch nicht mehr Anzeigen id1,id2,id3 die ID muss gb heissen (Keysensitiv)
PICGALDIR => in welchem Verzeichnis sind die Gallerien und die PICGALDAT zu finden ohen siehe Beispiel ./bgal;;
PICGALDAT => wie heisst die Indizierungs Datei fuer die Gallerie ordnerdaten.txt
PICGALTMPL => das Picgal Template mit Path
PICGALLANG => Language erlaubt fr Bildgalerie 1 = J 0 / nix = nein
Anlage = PICGALDIR + / LANG
Aufruf
&picgallery($template,$directory,$indexfile)
Beispiel
my $picgallery = $webtist::dirindex->picgallery($template,$directory,$indexfile);
Parameter
$template => das bereits ge�fnete Template ansonsten wird das template PICGALTMPL aus der web.cfg gezogen
$directory => siehe web.cfg Wert PICGALDIR
$indexfile => siehe web.cfg Wert PICGALDAT
$indelang => siehe PICGALLANG
Rueckgabewert
ist ein Skalar mit dem Galerieinhalt (Anzeige oder Bilder als IMG Tags)
ich kann im Moment keine Warnungen erkennen
Transparent wird durch eine Remotedelegationkerbe vollendet, die unter bestimmten Umstaeden brechen
konnte. Wenn dieses Ihnen geschieht, informieren Sie mich bitte.
Informieren Sie mich, wenn Sie einiges finden.
Thanks to Susanne Herz, Hans Herz for inspiration, laughs and all 'round good times;
and Linus Torvalds for all the great software.
Dieser Code ist freie Software; Sie koenen ihn neuverteilen und/oder ihn unter den gleichen
Bezeichnungen wie Perl selbst aedern.
Dieses ist freie Software. Wenn es bricht, besitzen Sie beide Teile.
Hey! The above document had some coding errors, which are explained below:
Non-ASCII character seen before =encoding in 'ge�fnete'. Assuming UTF-8