webtist::content.pm
Modulbeschreibung webtist::content.pm
Version 1.33
Das Modul generiert einen Content fr DHTML
Marc Hanschur, Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
das Modul webtist wird benoetigt
das Modul webtist::dirindex wird benoetigt
das Modul webtist::gb wird benoetigt
das Modul webtist::lebenslauf wird benoetigt
das Modul webtist::ticker wird benoetigt
das Modul webtist::tools wird benoetigt
das Modul CGI wird benoetigt
Aufruf
use webtist::content;
$webtist::content = new webtist::content();
Konstruktor
Conten Ausgeben (der Inhalt der Webseite)
hier wird der Content je nach dem ob ein Template in der Navi definiert worden ist oder nicht
ausgewaehlt oder dynamisch zusammengestellt und in den Content ausgegeben. Wird ein
Template dynamisch ausgewaehlt kann dies mit einem Ablaufdadum versehen werden im
Verzeichnis der definition MAINTMPLDIR was wie folgt zu definieren ist
templatename-YYYYMMDD.tmpl ab diesem Tag (Systemdatum) wird das Template nicht mehr angezeigt
und ein anderes ausgewaehlt.
Weiter definitionen in der web.cfg
MAINTMPLDIR => Verzeichnis Dynamische Templates wenn keines ausgewaehlt ist
TMPLDIR => Verzeichnis wo die Template Dateien zu den jeweiligen Menuepunkten liegen
Beispielaufruf
my $content = $webtist::content->contentprt('','',$template,'main.tmpl');
Aufruf
&contentprt($maintmpldir,$tmpldir,$template01,$template02)
Parameter
$maintmpldir => wo liegen die MainTemplates ohne endeden /
$tmpldir => wo liegen die Templates ohne endeden /
$template01 => das template das ge�fnet werden soll
$template02 => das template das ge�fnet werden soll und an ein maintemplate angeh�gt weden soll
z.B. ein Counterfile dieses muss im TemplateDir liegen
Rueckgabe
ein Skalar mir dem Inhalt des nicht dynamischen Content wird an der Fileendung .tmpl
erkannt.
Der Rest wir in die Globale Variable zurueckgeschrieben
FileMTIME
%%FILEMTIME%% => aenderungsdatum im des Files zur anzeige
nachfolgend ein kleines Beispiel fr das einbinden der Templates
# Das Module fr die eigentliche Webseite
use webtist::content;
$webtist::content = new webtist::content;
$content = $webtist::content->contentprt('','',$template,'main.tmpl');
my ($dyntemplates,$dyntemplate,$dyncontent,$buffer);
my (@dyntemplates);
$dyntemplates = $webtist->param('TEMPLATES');
my @werte = ();
$werte[0] = $query;
$werte[1] = $webtist;
$werte[2] = $webtist->hiddenquerystrg('');
if ($dyntemplates ne '') {
#$Response->Include($webtist->webtistcfg('TMPLDIR','1').'/'.$dyntemplate,@werte);
$dyncontent = '';
$buffer = '';
if ($dyntemplates =~ /\:/) {
@dyntemplates = split (/\:/,$dyntemplates);
foreach $dyntemplate (@dyntemplates) {
$buffer = $Response->TrapInclude($webtist->webtistcfg('TMPLDIR','1').'/'.$dyntemplate,@werte);
$dyncontent = $$buffer;
$content .= $webtist->uml2html($webtist->weblang($webtist->bodyhacking($dyncontent),$dyntemplate));
}
} else {
$dyntemplate = $webtist->param('TEMPLATES');
$buffer = $Response->TrapInclude($webtist->webtistcfg('TMPLDIR','1').'/'.$dyntemplate,@werte);
$dyncontent = $$buffer;
$content .= $webtist->uml2html($webtist->weblang($webtist->bodyhacking($dyncontent),$dyntemplate));
}
$content =~ s/%%HIDDEN%%/$werte[2]/g;
$content =~ s/%%pathfile%%/$ENV{'SCRIPT_NAME'}/g;
}
wichtig ist damit vor beginn dieser Operation die Navigation vollstaendig geladen ist. Da sonst
die Templatefiles nicht initialisiert sind
Desweiteren muss beachtet werden das wenn keine Templates angegeben werden wird ein Dynamische Template
aus dem STandarttemplate Verzeichnis geholt.
Den Content einer Webseite editieren
Beispielaufruf
Aufruf
&contentedit($template)
Parameter
$template => der Pfad und das Template
Rueckgabe
das ge�fnete Template mit Formularfelder
Den Content einer Webseite in PDF wandeln
Beispielaufruf
Aufruf
&content2pdf($template)
Parameter
$template => das geöffnente Template (Content)
$templateform => das Formular für das versenden von der Seite
Rueckgabe
das gesamte als PDF Dokument
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 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 '�fnen'. Assuming UTF-8