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::meta.pm
Version 1.07
Generiert MetaTags fuer DHTML Seiten
AUTOR
Marc Hanschur, Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
SYNOPSIS
das Modul webtist wird benoetigt
Aufruf
use webtist::meta;
$webtist::meta = new webtist::meta();
METHODS
new
Konstruktor
metatags
Meta angaben im HTML Header werden dynamisch erzeugt
in der web.cfg kann mit dem Index METATMPL eine Metadatei mit
Verzeichnisangabe angeben werden. Wenn in der Webconfig kein Eintrag
in dieser Form existiert wird das Standart Meta File geöffnet (mein.cfg)
mit der Angabe STDMETATMPL.
Weiter definitionen in der web.cfg
METATMPL => Verzeichnis/Datei für das Meta Template
METAKEYW => Verzeichnis/Datei wo die Keywörter untereinander erfasst werden
METADESC => Verzeichnis/Datei in der ein Text hinterlegt werden kann wo die Seite beschreibt
METATYPE => Verzeichnis/Datei in der der Homepage Type hinterlegt wird
METAAUDI => Verzeichnsi/Datei in der die Besuchergrupper der Hompage hinterlegt wird
wenn die Dateien nicht/falsch/gar nicht angeben werden wird dies durch eine Fehlerausgabe
in der Rückgabe ersichtlich
die Werte sind in Form von eine CSV Liste in der web.cfg zu erfassen
Die Beschreibung der web.cfg Dateien erfolgt im Modul webtist
Aufruf
&metatags($domain,$robot,$language)
Beispiel
my $meta = $webtist::meta->metatags($ENV{'HTTP_HOST'},'index, follow','de');
Parameter
$domain => z.B. www.xy.de diese wird wie folgt erweitert (http://www.xy.de/robots.txt)
$robot => angabe was ein Suchroboter tun soll :-) index, follow / nofollow .....
$language => angabe der sprache (de,gb,....)
Rueckgabewert
ist ein Skalar mit den Metatags als Inhalt
WARNING
ich kann im Moment keine Warnungen erkennen
BUGS
Transparent wird durch eine Remotedelegationkerbe vollendet, die unter bestimmten Umständen brechen
konnte. Wenn dieses Ihnen geschieht, informieren Sie mich bitte.
Informieren Sie mich, wenn Sie einiges finden.
ACKNOWLEDGEMENTS
Thanks to Herz Susanne for inspiration, laughs and all 'round good times;
and Linus Torvalds for all the great software.
LICENSE
Dieser Code ist freie Software; Sie können ihn neuverteilen und/oder ihn unter den gleichen
Bezeichnungen wie Perl selbst ändern.
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 26:
Non-ASCII character seen before =encoding in 'eingefügt'. Assuming ISO8859-1