"; $bei123_OPTIONDIR="

"; ################################ bei123_FOLDER Ende #----------------------------------------------------- Aktuelle Unterverzeichnisse als Links untereinander ## @bei123_SUBDIR=@{$bei123_DATA{"[Page]$bei123_PAGE"}{Subdir}}; my @bei123_SubDir=map{"$_"}@bei123_SUBDIR unless($bei123_UNSHOW{$_}); @bei123_SubDir=join("
",@bei123_SubDir); $bei123_SUBDIR="@bei123_SubDir"; ############################### von o.g. abgeleitete Variablen #################################### @bei123_ARRAY=(split ",",$bei123); # übergebenene Id-Reihung my @bei123_BackDir=@bei123_ARRAY; pop(@bei123_BackDir); #Id-Kette des übergeordneten verzeichnisses $bei123_BACKLINK=$bei123_BACKPAGE=$bei123_BACKSHOW=$bei123_FROMDIR=$bei123_SAMEDIR=""; ###--------------------------------------------------------------- if(@bei123_BackDir>0) {#################### ------------------------------------------ diverse Subdir-Links bei aktueller Page ### @bei123_BackShow=join(",",@bei123_BackDir); $bei123_BACKSHOW="@bei123_BackShow"; $bei123_BACKPAGE=$bei123_show_name{$bei123_BACKSHOW}; $bei123_BACKLINK="« back/zurück"; @bei123_FromDir=map{"${$data{Data_name}}[$bei123_for->{Id}{$_}] » "}@bei123_BackDir; @bei123_SAMEDIR=@{$bei123_DATA{"[Page]$bei123_BACKPAGE"}{Subdir}}; my @bei123_SameDir=map{($_ eq $bei123_PAGE ? "$_" : "$_")}@bei123_SAMEDIR; @bei123_SameDir=join("
",@bei123_SameDir); $bei123_SAMEDIR="$bei123_BACKPAGE «
@bei123_SameDir"; $bei123_FROMDIR="@bei123_FromDir $bei123_PAGE"; }######################################### $_session{page} = serial %{$bei123_DATA{"[Page]$bei123_PAGE"}}; my %PAGE = eval $_session{page}; ###---------------------------------------------------------------------------------------- Subroutinen ### sub bei123 { &bei123_CONTENT(@_); } sub bei123_BUTTON {#################### Anzeigeeines JS-ausführenden Buttons ($B_text,$B_style,$B_textstyle,$B_script)=@_; my $but_show=""; return($but_show); } sub bei123_ALERTBUTTON {##################### Anzeige eines JS-Alert ($b_text,$b_alert,$b__B,$b__H)=@_; my $w=48; my $h=48; $w=($b__B ne "" ? ($w+$b__B) : $w); $h=($b__H ne "" ? ($h+$b__H) : $h); my $w_=$w."px"; my $h_=$h."px"; $butalert=""; return($butalert); } sub bei123_DIVBUTTON {##################### Anzeige eines Div-Windows ($la_page,$la_cnt,$la_text,$b__B,$b__H)=@_; my $la_show=$bei123_DATA{"[Page]$la_page"}{Id}.".".$la_cnt; my $w=48; my $h=48; $w=($b__B ne "" ? ($w+$b__B) : $w); $h=($b__H ne "" ? ($h+$b__H) : $h); my $w_=$w."px"; my $h_=$h."px"; #$l_show=$l_no if($l_no ne ""); $div_butshow=""; return($div_butshow); } sub bei123_LAYBUTTON {##################### Anzeige eines Div-Windows ($l_no,$la_text,$l_show,$b__B,$b__H)=@_; my $w=48; my $h=48; $w=($b__B ne "" ? ($w+$b__B) : $w); $h=($b__H ne "" ? ($h+$b__H) : $h); my $w_=$w."px"; my $h_=$h."px"; $l_show=$l_no if($l_no ne ""); $butshow=""; return($butshow); } sub bei123_LAYER {###############----------------- Layer-Popup ein-/ausblenden my $wpos=($_get{bei123_contentview} eq "on" ? "position:relative;width:100%;top:0px;left:0px;":""); my $layno=$_[0]; my $layname=$_[1]; my $laypage=$_[2]; my $laycont=$_[3]; my $laypos=$_[4]; my $laytype=$_[5]; my $laybutton=$_[6]; my $__pageno=$bei123_DATA{"[Page]$laypage"}{Id}.".".$laycont; my $L="=" x 60; my $layview=($laypage ne $bei123_PAGE ? " ($bei123_PAGE)":"/$layname"); my $laytext="Systeninformation:".'\n'."$L".'\n'."Es werden Informationen des CMS-Datensatzes $laypage angezeigt. ".'\n\n'."Die Daten sind gespeichert in Container $laycont des Feldes Data_content".'\n'." ".'\n'." ".'\n\n\n\n'."Webmaster H.FEHDE"; #$_layno=$layno||$__pageno; $_layno=$__pageno; if(!$laybutton) { out "" if($layname ne ""); } #$_layno=$layno if($layno ne ""); out ""; }############### sub bei123_mapping {###################### my $map=""; my $no=$mID; foreach my $pagename(@_) {###################### my $pageid=$bei123_DATA{"[Page]$pagename"}{Id}; if($pageid ne "") {################ falls Seite im Zugriff my @pagesubdir=@{$bei123_DATA{"[Page]$pagename"}{Subdir}}; my $r=" "; my $ok=""; #---------------------------------------------------------#and $bei123_RIGHTPAGE{$pagename} eq "" if($bei123_RIGHTPAGE{$pagename} eq "") { $ok="ja"; } else { if($bei123_USERRIGHT{$pagename} eq $pagename and $bei123_USER{Id} ne "") { $r=$bei123_right; $ok="ja"; } } if($bei123_UNPAGE{$pagename} ne "") { $ok=0; } if($ok) {#----------------------------------------------------- if($pagename ne "" and $bei123_UNSHOW{$pagename} eq "") {#---------------------------------------------------- push(@bei123_LISTDIR,$pagename); $mID=$no; $bei123_name_show{$pagename}="$mID,$pageid"; $bei123_Id_show{$pageid}="$mID,$pageid"; $bei123_show_Id{"$mID,$pageid"}=$pageid; $bei123_show_name{"$mID,$pageid"}=$pagename; $map.="

$pagename$r

"; }#-------------------------------------------------- } } }########## ende foreach delete $bei123_Id_show{''}; delete $bei123_name_show{''}; return($map); }############ ENDE mapping sub no_null_begin {################ Leerzeichen am Anfang entfernen my $field=$_[0]; $field =~ s/\A\s*//; return($field); }################ sub no_null_end {############### Leerzeichen am Ende entfernen my $field=$_[0]; $field =~ s/\s*\Z//; return($field); }############### sub no_image_tags {################ evtl. Bilder ausklammern $text_tag=$_[0]; $text_tag=~s//$_[1]<\/a>/gi; $text_tag=~s//$_[1]<\/a>/gi; return $text_tag; }################ sub check_filesize {################ Dateigröße auslesen my $file=$_[0]; my $size=length($file)/1000; my $filesize=sprintf('%.3f',$size); # KB auf 3 nachkommastellen return($filesize); }################ sub html2text {############ entfernt html-tags und gibt nur Text ohne HTML zurück my $html=$_[0]; ($text = $html) =~ s/<(\/|!)?[-.a-zA-Z0-9]*.*?>//g; return($text); }############# sub no_link_tags {################ evtl. Links einklammern my $link_tag=$_[0]; my $link_repl=($_[1] eq "" ? "(siehe Link)" : $_[1]); $link_tag=~s//$link_repl<\/a>/gi; $link_tag=~s//$link_repl<\/a>/gi; return $link_tag; }################ sub bei123_CONTENT {###################################### $x=$_[0]; # Name der Page $y=$_[1]; # Nr. des Containers $div_style=$_[2]; # Style Parameter $_session{view_content}=$_get{bei123_contentview}; ####################################### if($y>0) { $div_on="

"; $div_out="

"; $div_color =""; } if($y>0 and $_session{view_content} eq "on") {####### falls nicht [0]-Container - Anzeige für ADMIN $div_color=($bei123_PAGE eq $x ? "green":"red"); $div_on="

"; $div_out="

"; }##################################################### $xId=&bei123_check_page_name_id($x); if($xId) {#--------------------------------------- gültige Id $Out=${$bei123_DATA{"[Page]$x"}{Container}}[$y]; ##### if( index($Out,"[code]")>=0 and index($Out,"[/code]")>=0) {#--------------------------------------------- wenn [code] @TEXT=split(/\[code\]/,$Out); $OUT=$TEXT[0]; #new shift(@TEXT); foreach(@TEXT) {###### @text=split(/\[\/code\]/,$_); $OUT.="

".convert_br(convert_html($text[0]))."

"; #new $OUT.= "$text[1]"; #new }###### eval "out< CMS-Fehler melden { outl "CMS-Error: keine gültige [Page] Ihre Eingabe: \&bei123_CONTENT($_[0])"; } }################# sub bei123_check_page_name_id {############################ immer Id zurückgeben #### $bei123_PageId=""; $xId=$_[0]; $bei123_PageId=$bei123_DATA{"[Page]$xId"}{Id}; #------------------------------------------------------ if($bei123_PageId eq "") {#------- wurde eine gültige Page_Id direkt übergeben ? my $mType=${$data{Data_type}}[$bei123_for->{Id}{$xId}]; $bei123_PageId=($mType eq "Page" ? $xId : "" ); }#----------------------------------------------------- return($bei123_PageId); }####################################################### sub bei123_MODUL {##################################################### if($_[0] ne "" and $bei123_MODUL{$_[0]} ne "") {#----------- falls Modul existiert my $subdef=$bei123_DATA{"[Modul]$_[0]"}{Data_subdef}; ## da hier sowieso nur Code reinkommt, eval direkt eval $subdef; my $mtext =$bei123_DATA{"[Modul]$_[0]"}{Data_content} ; if(index($mtext,"[code]")>=0 and index($mtext,"[/code]")>=0) {#--------------------------------------------- wenn [code] @mTEXT=split(/\[code\]/,$mtext); eval $mTEXT[0]; shift(@mTEXT); foreach(@mTEXT) {##################### @mtext=split(/\[\/code\]/,$_); out "

".convert_br(convert_html($mtext[0]))."

"; eval $mtext[1]; }##################### } #---------------------------------------- wenn kein [code] else { eval $mtext; } #----------------------------------------------------- } else #----------- falls Modul existiert { outl "Modul $_[0] noch nicht definiert !"; } }##################################################### sub bei123_SITEMAP {#################### $page_name=$_[0]; # Sudir für eine bestimte Seite $mID=$bei123_DATA{"[Page]$page_name"}{Id}; $bei123_sitemap="$page_name

"; $bei123_sitemap.=&bei123_mapping(@{$bei123_DATA{"[Page]$page_name"}{Subdir}}); $bei123_sitemap.=""; out $bei123_sitemap; }################### ######## Ende OfficeCode.txt ###### out<