CMS4free - www.bei123.de - Alles aus baseportal herausholen

Forum Sitemap Impressum CMS4free Nutzungsbedingungen

© bei123.de

CMS4free > Der Content

Weitere Informationen

Allgemeine Grundlagen
Das Layout
Die Datenbank
Der Content
• einfacher Text
• HTML-Code
• PERL-Code
• Funktionen
• Datenbank einbinden

Der Content

Der Content oder Inhalt dieser Webpräsentation wird durch die Einträge im Datenbankfeld Text definiert. Man kann dort reinen Text, HTLM-Code oder PERL-Code eingeben.
Was Sie an inhaltlichen Themen darstellen wollen, müssen Sie also durch Ihren Datenbankeintrag selber bestimmen.

Bei der Gestaltung und Umsetzung unterstützt Sie CMC4free mit vordefinierten Funktionen und Routinen sowie Variablen, wie z.B. Forum, Sitemap oder der Volltextsuche - in der free-Version sind ein paar weitere Funktion&Variablen integriert, die Sie bei der Entwicklung eigener Funktionen unterstützen - sie spielen eine ähnliche Rolle wie die Platzhalter.

Was soll auf Ihrer Webpräsentation passieren?
einfacher Text Nur einfach Text anzeigen. gebn Sie also Text in das Eingabeformular sein	Hier nur mal reiner Text als TEST - ein "Beispiel" für eine einfache Texteingabe.
HTML-Code Hier also mal ein Beispiel dazu	<b>Hier</b> nur mal etwas <i>HTML</i><br> ein Beispiel für eine simple HTML-Eingabe.
PERL-Code PERL-Code, so wie er in baseportal zum Einsatz kommt:	Hier mal ein spezielles <i>Themenforum</i> zur Erläuterung und Diskussion der Funktionsweise des Programmes. <br>Bevor Sie eine neues Thema aufgreifen sollten Sie erst mal SUCHEN, ob dies nicht schon behandelt wurde. - Danke! $bei123_LINE EOF sub forum_antwort {################ einfache Antwortanzeige ################### my $date=datum("$Datum","kurz"); my $Name=$Name\|\|"anonym"; my $Text=convert_links($Text); $Text=convert_br($Text); my $beit_=""; #--- einzelne Antwort $beit_.="<table width=100%><tr><td valign=top><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag</a><br><b>$Name, $date</b><br>$Text</td></tr></table><br>"; return($beit_); }################################################# if($cmd ne "do_mod" and $cmd ne "mod" and $cmd ne "del") {############## Ändern und Löschen nicht erlaubt ###### my $listfields="-Id,Aktion,Text,Beitrag,Liste,Nr"; my $allfields="-Id,Aktion"; $db="CMSForum"; #################### die verwendete Datenbank out "<table><tr><td>"; # Buttons my $list_button=&$bei123_CMD("Themenübersicht","- Themenübersicht -","")."</td><td>" if($cmd ne "" or ($_fullsearch)); #--------------- my $add_button=&$bei123_CMD("Neues Thema","- Neues Thema -","cmd=do_add")."</td><td>" if($cmd ne "do_add" and $cmd ne "all"); #--------------- my $search_button=&$bei123_CMD("Suchen im Forum","- Volltextsuche -","cmd=do_search")."</td><td>" if($cmd ne "do_search" ); #--------------- out $list_button; out $add_button; out $search_button; out "</td></tr></table>"; ############# Ende der Buttonreihe if($cmd eq "search") # Volltext Suchmodus {$tsearch=convert_url($_sel[$#_sel]); #- @_sel auswerten $url="$_link&bei123=$_get{bei123}&_fullsearch~~$tsearch&_fullsearch_range=14,500000&db=$db"; $_header="Location: $url\n"; #- direkt zum Ergebnis }# if($_fullsearch) {# out "<table width=100%><tr><td><li><b>Such-Ergebnisse</b></li></td></tr></table>"; get "fullsearch_match=10&fullsearch_sort=Datum", "$db"; while(get_next($db)) {#-------------- die gefundenen Einträge my $seek_found=&forum_antwort; out $seek_found; } my $newrange=$_fullsearch_range+$_fullsearch_range_length; my $txt; out "<table width=100%>"; if($_fullsearch_match_pos<$newrange) { $txt="Suche nach weiteren Treffern"; $newrange=$_fullsearch_match_pos; } else { out "<tr><td><b>Kein Treffer.</b></td></tr>" if $_fullsearch_amount<1; $txt="Suche in weiteren Datensätzen"; } if($newrange<$_amount_all) { out "<tr><td><b>Es wurde noch nicht in allen Datensätzen gesucht:</b></td></tr>"; out "<tr><td><b><a href=\"baseportal.pl?htx=$htx&show=$_get{show}&_fullsearch~~".convert_url($_fullsearch)."&fullsearch_range=$newrange,$_fullsearch_range_length&db=$db\">$txt</a></b></td></tr>"; } else { out "<tr><td><b>Die Datenbank wurde komplett durchsucht.</b></td></tr>"; } out "</table>"; }# if(%_put)# falls Eingabe { $_put{Name}=&html2text($_put{Name}); $_put{Eintrag}=convert_html($_put{Eintrag}); $_put{Name}="anonym" if($_put{Name} eq ""); if($_put{Text} eq "") {out "<font color=red><b>Nicht gespeichert, da NICHTS eingegeben!</b></font>"; undef %_put; } else {#### falls Text in Neubeitrag my $ti =time(); # Zeit merken if($nr eq "") {my $_bt=$ti.$_REMOTE_ADDR;# Beitrag-Feld eindeutig belegen $_put{Beitrag}=$_bt; put; $_header="Location: $_link&bei123=$_get{bei123}\n\n"; } else { # falls Antwort get "Id==$nr","$db"; $_put{Beitrag}=$Beitrag; $_put{Nr} =$Id; $_put{Liste} =($Liste eq "" ? $Id.".".$ti : $Liste.".".$ti); if($_put{Eintrag} eq "")# { if($Eintrag !~ /^Re: /) { $_put{Eintrag}="Re: ".$Eintrag; } else {$_put{Eintrag}=$Eintrag; } }#falls leer else { $_put{Eintrag}="Re: ".$_put{Eintrag}; } put; $_header="Location: $_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id\n\n"; }######################## Ende falls Antwort } } if($_get{cmd} eq "" or $_get{cmd} eq "list" or $_get{cmd} eq "do_add" or $cmd eq "do_search") { #--------------------- falls antworten if($_get{cmd} eq "do_add" and $bt ne "" and $nr ne "") {get "Id==!$nr", "$db"; {##################### my $date=datum("$Datum","kurz"); my $Name=$Name\|\|"anonym"; $Text=convert_links($Text); $Text=convert_br($Text); $beit.="<table width=100% bgcolor=$headback><tr><td valign=top><b>$Name, $date</b><br><b><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag</a></b><br>$Text</td></tr></table>"; out $beit; } } if(!$_fullsearch)## -falls Nicht Suchergebnis anzeigen {$rr=$range\|\|"0,20"; do_all "db=$db listfields=$listfields allfields=$allfields databack=$databack headback=$headback headcolor=$headcolor headface=Verdana tdparam=valign=top gridcolor=$gridcolor spacing=1 selectbrowse=no buttonbrowse=top searchfields=-Id,Datum,Name,Beitrag,Liste,Nr formfields=-Beitrag,Liste,Nr,EMail tdparam=valign=top listtype=- detail=no range^=$rr sort=-Beitrag Nr<0" , "bt=$bt", "nr=$nr", "bei123=$bei123" ; # Beitrag und Nr durchschleifen ! out "Geben Sie Ihren Suchbegriff für die Volltextsuche ein" if ($cmd eq "do_search"); #------------------------------------------------------------- if($cmd ne "do_add" and $cmd ne "do_search") {# Themenübersicht ######################### get "Id==*&sort=-Beitrag&Nr<0&range=$rr", "$db"; while (get_next($db)) {my $date=datum("$Datum","kurz"); out "<p><b><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag<a></b><br>$Name am $date </p>"; }# ende While } } } ############################# Einträge ######################## if($cmd eq "all") { my $disk=""; # Diskussionsverlauf my $beit=""; # Beitrag my @beit=""; # Folgebeiträge my $bid=$_get{nr}; # Id des Beitrages my $mmm=""; get "Beitrag==!$bt&sort=Liste", "$db"; #------------------------------------ while(get_next($db)) # Beitrage sortiert nach Liste {if($Id eq $bid) {# der gewählte Beitrag zum Thema my $date=datum("$Datum","kurz"); my $Name=$Name\|\|"anonym"; my $Text=convert_links($Text); $Text=convert_br($Text); my $answer_box=&$bei123_CMD("hierzu antworten","- Beitrag beantworten-","cmd=do_add&bt=$Beitrag&nr=$Id")."</td><td>" if($cmd eq "all"); # Buton für "antworten" # der aktuelle Beitrag $beit.="<table width=100% bgcolor=$headback><tr><td valign=top><b>$Name, $date</b><h2><b>$Eintrag</b></h2>$Text</td></tr></table><table><tr><td>$answer_box</td></tr></table>$bei123_LINE"; } if($Nr eq $bid) {# Folgebeiträge my $follow_found=&forum_antwort; push(@beit,$follow_found); # werden gesammelt }############################################################## # Diskussionpfad generieren $Name=$Name\|\|"anonym"; my $date=datum("$Datum","kurz"); my @ein=split(/\./,$Liste); my $ez=@ein; my $zz=($ez>0 ? "...." x ($ez-1):">"); # Abtstandspunkte my $Beitrag=convert_html($Beitrag); my $entry="<b><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag<a></b>"; # alles zusammenbauen $disk.="<table cellpadding=2 cellspacing=0><tr><td valign=top>"; my $bg=($_get{nr} eq $Nr ? $headback:$databack ); # Folgebeitrag my $bgcolor=($Id eq $bid ? $headback:$bg ); # Aktueller Beitrag $disk.="$zz</td><td bgcolor=$bgcolor>$re$entry</td></tr>"; $disk.="<tr><td></td><td>$Name am $date</td></tr></table>"; } out $beit; my $anzbeit=@beit-1; #------------------------------------------------------- ##@beit=reverse(@beit); #-- ggf. Reihenfolge umdrehen #------------------------------------------------------- out "<b>Aktuelle Antworten zum o.g. Beitrag: $anzbeit</b><br>"; out "<table width=100% bgcolor=$headback><tr><td>@beit</td></tr></table>" if($anzbeit>0); out "<p>$bei123_LINE<b>Nachfolgend der Diskussionsverlauf</b>:</p>$disk" if($_amount_query>1); out $bei123_LINE; } } else {out "...Ändern/Löschen nicht erlaubt!</b><p><h2>Starten Sie $bei123_LINK{$bei123_PAGE} neu</h2></p>"; } out <<EOF;
Funktionen Für diese free-Version vordefinierte Funktionen, wie z.B.:	Hier der <i>interne<i> Link zur Seite <b>$bei123_LINK{'CMS4free'}</b>

CMS4free - © 2004 www.bei123.de
Content-Management-System von H.Fehde
powered in 0.01s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!