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::gb.pm
Version 1.06
Generiert eine Ausgabe fr ein G�tebuch fuer DHTML Seiten
AUTOR
Marc Hanschur, Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
SYNOPSIS
das Modul webtist wird benoetigt
das Modul DBI wird benoetigt
Aufruf
use webtist::gb;
$webtist::gb = new webtist::gb();
Mehrsprachigkeit Name "GB"
new
Konstruktor
gbanzeigen
Anzeige des Gaestebuchs aus einer DB
die Anzeige erfolgt nicht mit dem Modul Content daher muss noch ein wenig in der
Initialisierung der Webseite gemacht werden in form einer if Anweisung siehe nachfolgendes Beispiel
if ($query->param('id1') eq 'gbanz') {
# Das Modul Gaestebuch einbinden
use webtist::gb;
$webtist::gb = new webtist::gb;
$content = $webtist::gb->gbanzeigen();
} else {
hier koennte das Beispiel von Modul content stehen
}
Weiter definitionen in der web.cfg
GBOK => Gaestebuch Anzeigen 0 oder nix = nein 1 = ja
GBID => bei welchee NavigationsID Gaestebuch Anzeigen id1,id2,id3 die ID muss gb heissen (Keysensitiv)
GBDB => welche Datenbank wird verwendet (dbi:mysql:space4data:localhost)
GBDBSID => bei Oracle wird dieser ben�igt (wert GBDB dbi:oracle:host=xx wert GBDBSID sid=db) bitte nur
definieren wenn eine Oracle als DB diensne soll
GBDBUSR => welcher User hat select rechte auf die DB (Username)
GBDBPASS => wie lautet das Passwort des Users (Passwort)
GBTMPL => das GB Template
GBOKID => nur eintraege Anzeigen die erlaubt sind (gesichtet) 0 nein / 1 ja
Die Tabelle sollte wie folgt dargestellt aussehen
CREATE TABLE gbuch (
gbuch_id int(3) NOT NULL auto_increment,
gbuch_name varchar(30) NOT NULL default 'Webtist',
gbuch_email varchar(40) NOT NULL default 'info@webtist.de',
gbuch_url varchar(50) NOT NULL default 'www.webtist.de',
gbuch_ort varchar(50) NOT NULL default 'Meckenbeuren',
gbuch_land varchar(50) NOT NULL default 'Deutschland',
gbuch_region varchar(50) NOT NULL default 'Baden Wuerttemberg',
gbuch_time timestamp(14) NOT NULL,
gbuch_txt blob,
gbuch_comment blob,
PRIMARY KEY (gbuch_id)
) TYPE=MyISAM;
wenn man Eintrage erst nach vorherigem �erpruefen anzeigen moechte muss
zusaetzlich noch das feld gbuch_okid enum('0','1','2') default '0' eingebaut werden
der der GBOKID zieht nur bei angabe in der web.cfg
Aufruf
&gbanzeigen($template,$pagesize,$qpage,$art)
Beispiel
my $gb = $webtist::gb->gbanzeigen($template,$pagesize,$qpage,$art);
Parameter
$template => das bereits ge�fnete Template ansonsten wird das template GBTMPL aus der web.cfg gezogen
oder sonst das aus der main.cfg
$pagesize => die Ausgabemenge oder Webconfig eintrag GBPAGESIZE
$qpage => welche Seite
$art => Besondere funktionen
1 = eintrage die nicht aktiv sind angezeigen funktioniert nur in verbindung mit GBOKID = 1
Rueckgabewert
ist ein Skalar mit dem Gaestebuch als Inhalt
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, Dirk Hanschur, Hardy Gerster 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 15:
Non-ASCII character seen before =encoding in 'G�tebuch'. Assuming UTF-8