Anbei ein kleiner Auszug aus unserer Moduldokumentation
die Basis unseres Webtist CMS Systems
Das System setzen wir erfolgreich seit Jahren
bei unseren Geschäftspartnern ein, es wird stets weiterentwickelt
und der Technik entsprechend angepasst.
Modulbeschreibung webtist::dirindex.pm
Version 1.05
Das Modul generiert dynamisch Bildgalerien aus einer Direktory
sowie ein Dateiindex ber eine Direktory
AUTOR
Marc Hanschur Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
SYNOPSIS
das Modul webtist wird benoetigt
Aufruf
use webtist::dirindex;
$webtist::dirindex = new webtist::dirindex();
METHODS
new
Konstruktor
picgallery
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)
WARNING
ich kann im Moment keine Warnungen erkennen
BUGS
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.
ACKNOWLEDGEMENTS
Thanks to Susanne Herz, Hans Herz for inspiration, laughs and all 'round good times;
and Linus Torvalds for all the great software.
LICENSE
Dieser Code ist freie Software; Sie koenen ihn neuverteilen und/oder ihn unter den gleichen
Bezeichnungen wie Perl selbst aedern.
DISCLAIMER
Dieses ist freie Software. Wenn es bricht, besitzen Sie beide Teile.
POD ERRORS
Hey! The above document had some coding errors, which are explained below:
Around line 92:
Non-ASCII character seen before =encoding in 'ge�fnete'. Assuming UTF-8