#------------------------------------------------------------------------------------ allgemeine Variablen # 
$CMS_URL=(split("baseportal.pl",$_HTTP_REFERER))[0];
$CMS_HTX="$CMS_URL"."baseportal.pl?"."htx=$htx";
$datum=datum("jetzt","Wochentag, Tag.Monat.Jahr");#
$bei123_right="	®";
$pic_bp_ico="<img src=\"http://www.bei123.de/images/bp2.gif\" border=0 alt=\"\" title=\"baseportal\" width=\"15\">";
$pic_tobp="<img src=\"http://www.bei123.de/images/bp2.gif\" border=0 alt='Link nach baseportal' title='Geh direkt nach baseportal'>";
$pic_gotop="<img src=\"http://www.bei123.de/images/gotop.gif\" alt=\"nach oben\" title=\"nach oben\" border=0 align=left>";
$pic_date="<img src=\"http://www.bei123.de/images/date30.png\" alt=\"Datum|Kalendar\" title=\"Datum|Kalendar\" border=0 align=left>";
$baseportal="<a href='http://baseportal.de' target='_blank'>$pic_tobp</a> <b><font color='#d80000'>base</font><font color='black'>portal</font></b>";
$pic_godown="<img src=\"http://www.bei123.de/images/godown.gif\" alt=\"nach unten\" title=\"nach unten\" border=0 align=left>";
$pic_on_work="<img src='http://www.bei123.de/images/on_work.gif' align=left alt='' title='Die Sache ist noch in Bearbeitung !'>";
$pic_help2="<img src='http://www.bei123.de/images/help30.png' alt='Hilfe' title='Die Hilfe aufrufen' border=0>";
$pic_calendar="<img src='http://bei123.de/images/calendar.png' alt='Kalendar' title='Kalendar' border=0>";
$pic_pdf="<img src=\"http://bei123.de/images/pdf.gif\" alt=\"pdf-File\" border=0 title=\"pdf-Datei\">";
$pic_pdf30="<img src=\"http://bei123.de/images/pdf30.png\" alt=\"pdf-File\" border=0 title=\"pdf-Datei\">";
$pic_home="<img src=\"http://bei123.de/images/home30.png\" alt=\"Home\" border=0 title=\"Home\">";
$pic_sitemap="<img src=\"http://bei123.de/images/site30.png\" alt=\"Sitemap\" border=0 title=\"Sitemap\">";
$pic_impressum="<img src=\"http://bei123.de/images/info30.png\" alt=\"Impressum\" border=0 title=\"Das Impressum\">";
$pic_office="<img src=\"http://bei123.de/images/office30.png\" alt=\"Office bei123.de\" border=0 title=\"Office bei123.de\">";
$pic_layout="<img src=\"http://bei123.de/images/illustrator-file.gif\" alt=\"Layout\" border=0 title=\"Layout\">";
$pic_user_login="<img src=\"http://bei123.de/images/login30.png\" alt=\"Login\" border=0 title=\"Login\">";
$pic_login="<img src=\"http://bei123.de/images/user_login.gif\" alt=\"Login\" border=0 title=\"Login\">";
$pic_usergroup2="<img src=\"http://bei123.de/images/user-group2.gif\" alt=\"UserGroup\" border=0 title=\"UserGroup\">";
$pic_user_logout="<img src=\"http://bei123.de/images/logout30.png\" alt=\"Logout|User\" border=0 title=\"Logout bzw. Userdaten von | $bei123_USER{Kennung} |\">";
$pic_logout="<img src=\"http://bei123.de/images/user_logout.gif\" alt=\"Logout|User\" border=0 title=\"Logout bzw. Userdaten von | $bei123_USER{Kennung} |\">";
$pic_tasten="<img src=\"http://www.bei123.de/files/tastatur_eingabe.jpg\" alt=\"\" border=0 title=\"\">";
$bei123_folderoff="<b style=\"font-size:16px\">&raquo;</b>";
$bei123_folderon ="<b style=\"font-size:16px\">&laquo;</b>";#&#8711;
$bei123_folderno ="&#8736;";
$bei123_param="";# Parameter übergeben über Variable
##------------------------------------------------------------------------------------------ Host merken ##
$bei123_REFBASE="";
@bei123_refbase=split("\\?",$_HTTP_REFERER);
 if($out ne "pdf")
 {#----------------
  $bei123_REFBASE=$bei123_refbase[0];
  $_link="baseportal.pl?sid=$_session&htx=$htx";
 }
##------------------------------------------------------------------------------- notwendige Datenbanken ###
#$CMS_DATA=$CMS_DATA;
#$CMS_USER=$CMS_USER;
##---------------------------------------------------------------------------------------------- login ? ###

#if($_get{namerein} ne "" and $_get{pwrein} ne "")
#{#-----------------------------------------------
#get ["Kennung", "==!", $_get{namerein}, "&", "Passwort", "==!", $_get{pwrein}], $CMS_USER;
#    if($Kennung eq $_get{namerein} and $Passwort eq $_get{pwrein})
#      {#
#       $bei123_usertime=time();
#       $_raw{User_time}=$bei123_usertime;
#       $_session{user} = serial %_raw;
#
#      }#
#}#------------------------------------------------------------------------------------------- User-Session #
#%bei123_USER = eval $_session{user};

#$bei123_LOGIN=($bei123_USER{Kennung} eq "" ? &bei123_loginform() : &bei123_logoutform());
#--------------------------------------------------------------------------------------- Userrechte merken #
#if($bei123_USER{Kennung} ne "")############## falls angemeldet
# {%bei123_USERRIGHT=map{$_ => $_ } (split "\n",$bei123_USER{User_right});

#get "Id==!*",$CMS_DATA,"data"; #alle Datensätze holen
#}#-----------------------------------------------------------------------------------------------------------
#else ######################################## falls NICHT angemeldet
#{
#get ["Data_no", "==", "", "|", "Data_no", ">=",0 ], $CMS_DATA,"data";
################################################## nur 
#}
#Data_hidden
#Data_hidden => ${$data{Data_hidden}}[$_],
#############################------------------------------------------------------ $CMS_DATA einlesen #####
%bei123_DATA=map{"[".${$data{Data_type}}[$_]."]".${$data{Data_name}}[$_] => {Id => ${$data{Id}}[$_], Data_no => ${$data{Data_no}}[$_],Data_out => ${$data{Data_out}}[$_],Data_subdef => ${$data{Data_subdef}}[$_],Data_content => "${$data{Data_content}}[$_]" ,Data_date => ${$data{Data_date}}[$_],Data_name => ${$data{Data_name}}[$_],Data_hidden => ${$data{Data_hidden}}[$_],Data_type => ${$data{Data_type}}[$_], Subdir => (${$data{Data_type}}[$_] eq "Page" ? [(split "\n","${$data{Data_subdef}}[$_]")] : ""),Container => (${$data{Data_type}}[$_] eq "Page" ? [(split "<!bei123\>","${$data{Data_content}}[$_]")] : "") }}(0..$data{_amount});
delete $bei123_DATA{"[]"};
#------------------------------------------------------------------------------------------- Referenz-Hash #
@data_type{@{$data{Id}}}=@{$data{Data_type}};
%bei123_cms = (Id =>\%{$data{_fnr}},type =>\%{$data{type}});
$bei123_for=\%bei123_cms;
#----------------------------------------------------------------------------------------------------------
# ${$data{_fnr}}{$Id};                                                    # Id -> _fnr
# ${$data{Id}}[$bei123_for->{Id}{$Id}];                                   # Id -> Id
# ${$data{Data_type}}[$bei123_for->{Id}{$Id}];                            # Id -> Data_type
# ${$data{Data_name}}[$bei123_for->{Id}{$Id}];                            # Id -> Data_name
# ${$data{Data_no}}[$bei123_for->{Id}{$Id}];                              # Id -> Data_no
# ${$data{Data_out}}[$bei123_for->{Id}{$Id}];                             # Id -> Data_out
# $bei123_DATA{"[Layout]${$data{Data_out}}[$bei123_for->{Id}{$Id}]"}{Id}; # Id -> Id(Data_out)
# ${$data{Data_subdef}}[$bei123_for->{Id}{$Id}];                          # Id -> Data_subdef
# ${$data{Data_content}}[$bei123_for->{Id}{$Id}];                         # Id -> Data_content
# ${$data{Data_date}}[$bei123_for->{Id}{$Id}];                            # Id -> Data_date
#--------------------------------------------------------------------------------- Die Hauptverzeichnisse ##
# Module namentlich feststellen
%bei123_MODUL=map{($data_type{$_} eq "Modul" ? ${$data{Data_name}}[$bei123_for->{Id}{$_}] : "") => $_}keys(%data_type);
delete $bei123_MODUL{''};
#outl dump(%bei123_MODUL);
#--------------------------------------------------------------------------------
%bei123_main_page=map{($bei123_DATA{$_}{Data_type} eq "Page" and $bei123_DATA{$_}{Data_no}>0 ? $bei123_DATA{$_}{Data_no} : "" ) => "$bei123_DATA{$_}{Id}" } keys(%bei123_DATA);
delete $bei123_main_page{''};
#-----------------------------------------------------------------------------------------------------------
$bei123=$_get{bei123}||$bei123_main_page{1};
$bei123=$_get{bei123}||$bei123_DATA{"[Page]UserRechte"}{Id} if($sid and $bei123_USER{Id} eq "");

######################################
@bei123_MAINDIR=map{${$data{Data_name}}[$bei123_for->{Id}{$bei123_main_page{$_}}]}keys(%bei123_main_page);
$bei123pdf=$bei123;
@bei123_LISTDIR="";        # Seitenname in der Reihenfolge der Unterverzeichnisse
$bei123_SITEMAP="";        # Sitemap generieren
$bei123_PAGEMAP="";        #   
$bei123_FOLDER="";         # Foldertree generieren
#-------------------------------------------------------------------------------------- PAGE_no auswerten ##
######### _type extrahieren, um Data_no unterschiedlich je nach _type auszuwählen
@bei123_page_ =(grep{$bei123_DATA{$_}{Data_type} eq "Page" and $bei123_DATA{$_}{Data_no} eq ''}keys(%bei123_DATA));
@bei123_loginpage =(grep{$bei123_DATA{$_}{Data_type} eq "Page" and $bei123_DATA{$_}{Data_no} eq "-1"}keys(%bei123_DATA));### Zugriff nach Login
@bei123_rightpage =(grep{$bei123_DATA{$_}{Data_type} eq "Page" and $bei123_DATA{$_}{Data_no} eq "-2"}keys(%bei123_DATA));### Zugriff, wenn recht vorhanden
#@bei123_unpage =(grep{$bei123_DATA{$_}{Data_type} eq "Page" and $bei123_DATA{$_}{Data_no} eq "-3"}keys(%bei123_DATA));### Zugriff, wenn recht vorhanden
@bei123_systempage =(grep{$bei123_DATA{$_}{Data_type} eq "Page" and $bei123_DATA{$_}{Data_no} eq "0"}keys(%bei123_DATA));### Immer im Zugriff, nicht eingebunden
#----------------------------------------------------------------------------------------- Spezial-Seiten ##
%bei123_LOGINPAGE=map{$bei123_DATA{$_}{Data_name} => $bei123_DATA{$_}{Id}}@bei123_loginpage;
#-------------- Name->Id
#outl dump(%bei123_LOGINPAGE);
%bei123_RIGHTPAGE=map{$bei123_DATA{$_}{Data_name} => $bei123_DATA{$_}{Id}}@bei123_rightpage;
#-------------- Name->Id
#outl dump(%bei123_RIGHTPAGE);
%bei123_SYSTEMPAGE=map{$bei123_DATA{$_}{Data_name} => $bei123_DATA{$_}{Id}}@bei123_systempage;
#-------------- Name->Id
#outl dump(%bei123_SYSTEMPAGE);
#%bei123_UNPAGE=map{$bei123_DATA{$_}{Data_name} => $bei123_DATA{$_}{Id}}@bei123_unpage;
#-------------- Name->Id
#outl dump(%bei123_UNPAGE);
#-------------------------------------------------------------------------------------- Pages nach Login ###
#%bei123_UNSHOW = %bei123_LOGINPAGE if($bei123_USER{Kennung} eq ""); # falls nicht angemeldet
#%bei123_NORIGHT= %bei123_RIGHTPAGE if($bei123_USER{Kennung} eq ""); # falls nicht angemeldet
#----------------------------------------------------------------------------------------------- Sitemap ###

$bei123_SITEMAP="<span id=\"sitemap\"><ol>";
foreach my $pagename(@bei123_MAINDIR)
{#----------------------------------
$ok="";
my $r="";
if($bei123_RIGHTPAGE{$pagename} eq "")
{
$ok="ja";
}
else
{
  if($bei123_RIGHTPAGE{$pagename} eq $pagename and $bei123_USERRIGHT{$pagename} ne "")
  {$r=$bei123_right;
   $ok ="ja";
  }
}
if($ok)
{
push(@bei123_LISTDIR,$pagename); # Listing und Reihenfolge merken
#--------------------------------------------------------------------------- Id-Ketten
my $pageid    = $bei123_DATA{"[Page]$pagename"}{Id};
my @pagesubdir= @{$bei123_DATA{"[Page]$pagename"}{Subdir}};
#----------------------------------------------------------
$bei123_name_show{$pagename}=$pageid;
$bei123_Id_show{$pageid}=$pageid;
$bei123_show_Id{$pageid}=$pageid;
$bei123_show_name{$pageid}=$pagename;
#------------------------------------------------------------------------------
$bei123_SITEMAP.="<li><a href=\"$_link&bei123=$pageid\"><b>$pagename</b></a> $r";
if(@pagesubdir > 0)
{#-----------------
$mID=$pageid;
$bei123_SITEMAP.="<span id=\"sitemap\">".&bei123_mapping(@pagesubdir)."</span>"; #####unless($bei123_UNSHOW{$pagename} or $bei123_NORIGHT{$pagename});
}#----------------
$bei123_SITEMAP.="</li>";
}#------------------------
}
$bei123_SITEMAP.="</ol></span>";
shift(@bei123_LISTDIR);
#---------------------------------------------------------------------------------------------- Ende SITEMAP
foreach(keys(%bei123_SYSTEMPAGE))            # sind "Stand-alone"
{#################################################################
 my $pageid=$bei123_SYSTEMPAGE{$_};
 $bei123_show_name{$pageid}=$_; 
 $bei123_Id_show{$pageid}=$pageid;   
 $bei123_name_show{$_}=$pageid ; 
 $bei123_show_Id{$pageid}=$pageid;
}##################################################################

foreach(keys(%bei123_RIGHTPAGE))            # falls "Stand-alone"
{#################################################################
if($bei123_USERRIGHT{$_} ne "" and  $bei123_name_show{$_} eq "")
{
 my $pageid=$bei123_RIGHTPAGE{$_};
 $bei123_show_name{$pageid}=$_; 
 $bei123_Id_show{$pageid}=$pageid;   
 $bei123_name_show{$_}=$pageid ; 
 $bei123_show_Id{$pageid}=$pageid;
}
}##################################################################

#foreach(keys(%bei123_UNPAGE))            # falls "Stand-alone -3"
#{#################################################################
#if($bei123_USERRIGHT{$_} ne "" and  $bei123_name_show{$_} eq "")
#{
# my $pageid=$bei123_UNPAGE{$_};
# $bei123_show_name{$pageid}=$_; 
# $bei123_Id_show{$pageid}=$pageid;   
# $bei123_name_show{$_}=$pageid ; 
# $bei123_show_Id{$pageid}=$pageid;
#}
#}##################################################################


%bei123_SHOW=(%bei123_Id_show,%bei123_name_show);#----------------------------------- Id-Kette je Page ###
### ---------------------------------------------------------------------------------- Pfad mit Links ###
$bei123_FROMDIR="<span id=\"fromdir\">@bei123_FromDir<b>$bei123_PAGE</b></span>";
###--------------------------------------------------------------------------------- Links für Pages ####
%bei123_LINK=map{$_ => "<a href=\"$_link&bei123=$bei123_SHOW{$_}\">$_</a>"}keys(%bei123_name_show);
### ----------------------------------------------------------- Array der aktuellen Unterverzeichnisse ###
##---------------------------------------------------------------------  Login/TIMEOUT oder unknown #####
$bei123_PAGE=$bei123_show_name{$bei123}; 
#$bei123_PAGE="" if($bei123_UNPAGE{$bei123_PAGE} ne "" and $bei123_USERRIGHT{$bei123_PAGE} eq "");
$bei123_PAGE=$bei123_PAGE||$bei123_MAINDIR[0];

##------------------------------------------------------------------------------------ $bei123_FOLDER ###
$bei123f=$_get{bei123f}||$bei123;

$bei123_FOLDER="<div class=\"folder\">";
$bei123_OPTIONDIR="<form action='$_link&bei123=$bei123' method='post' enctype='multipart/form-data'><select name='bei123=' style='font-size:12px;width:195px' onchange='JavaScript:submit()'>";
$bei123_OPTIONDIR.="<option value='' selected style='font-weight:bold;color:black;font-size:13px'>Wählen Sie aus</option>";

foreach(@bei123_LISTDIR)
{#######################
$bei123_mPAGE=$bei123_PAGE;
#--------------------------------------------------
my $pageid=$bei123_DATA{"[Page]$_"}{Id};
my @pagesubdir=@{$bei123_DATA{"[Page]$_"}{Subdir}};
my $pageno=$bei123_DATA{"[Page]$_"}{Data_no};
#--------------------------------------------------
if($bei123_SYSTEMPAGE{$bei123_PAGE} ne "")
{
$bei123_mPAGE=$bei123_show_name{$_get{bei123f}};
}
my @bei123_count_komma=split(/\,/,$bei123_SHOW{$_});
my $bei123_count_komma=@bei123_count_komma-1;
my $bei123_mark=(@pagesubdir > 0 ? $bei123_folderoff : $bei123_folderno);
my $bei123_dots="&middot;&middot;&middot;" x $bei123_count_komma;
my $mPAGE=($_ eq $bei123_mPAGE ? "<span class='mark'>$_</span>" : $_);
my $bei123_selected=($_ eq $bei123_PAGE ? "selected":"");
my $bei123_selcolor=($_ eq $bei123_PAGE ? "red":"black");

 if($pageno > 0)
 {#------------------------------------------ Hauptseiten immer anzeigen
 $bei123_mark=$bei123_folderoff if(index($bei123_name_show{$_},$bei123f) == 0);
 $bei123_mark=$bei123_folderno if(index($bei123_name_show{$_},$bei123f) >= 0 and @pagesubdir < 1);
 $bei123_mark=$bei123_folderon if(index($bei123f,$bei123_SHOW{$_}.",") == 0 and @pagesubdir > 0);
 $bei123_mark=$bei123_folderon if($bei123_SHOW{$_} eq $_get{bei123} and @pagesubdir > 0);
 $bei123_mark="<a href=\"$_link&bei123=$bei123&bei123f=$bei123_SHOW{$_}\">$bei123_mark</a>";
 $bei123_FOLDER.="<span class=\"noline\">$bei123_dots$bei123_mark<a href=\"$_link&bei123=$bei123_SHOW{$_}\">$mPAGE</a></span><br>"  ;
 #-------------------------------------------
 $bei123_OPTIONDIR.="<option value='$bei123_SHOW{$_}' $bei123_selected style='font-weight:normal;font-size:12px;color:$bei123_selcolor;'>&raquo; $_</option>";
 #-------------------------------------------
 }
 else
 {#------------------------------------# keine Hauptseite
 $bei123_OPTIONDIR.="<option value='$bei123_SHOW{$_}' $bei123_selected style='font-weight:normal;font-size:12px;color:$bei123_selcolor;'>$bei123_dots$_</option>";
 my @member=split(/\,/,$bei123_SHOW{$_});
 pop (@member);
 @member=join(",",@member);
 $mindex="@member,";
 #------------------------------------
 if(index($bei123f.",",$mindex) == 0 )
 {#-----------------------------------
 $bei123_mark=$bei123_folderoff if(index($bei123_name_show{$_},$bei123f) == 0);
 $bei123_mark=$bei123_folderno if(index($bei123_name_show{$_},$bei123f) >= 0 and @pagesubdir < 1);
 $bei123_mark=$bei123_folderon if(index($bei123f,$bei123_SHOW{$_}.",") == 0 and @pagesubdir > 0);
 $bei123_mark=$bei123_folderon if($bei123_SHOW{$_} eq $_get{bei123} and @pagesubdir > 0);
 $bei123_mark="<a href=\"$_link&bei123=$bei123&bei123f=$bei123_SHOW{$_}\">$bei123_mark</a>";
 $bei123_FOLDER.="<span class=\"noline\">$bei123_dots$bei123_mark<a href=\"$_link&bei123=$bei123_SHOW{$_}\">$mPAGE</a></span><br>"   ;
 }
}
}#--- Ende foreach
$bei123_FOLDER.="</div>";
$bei123_OPTIONDIR.="</select></form>";
################################ bei123_FOLDER Ende

#----------------------------------------------------- Aktuelle Unterverzeichnisse als Links untereinander ##
@bei123_SUBDIR=@{$bei123_DATA{"[Page]$bei123_PAGE"}{Subdir}};
my @bei123_SubDir=map{"<a href=\"$_link&bei123=$bei123_name_show{$_}\">$_</a>"}@bei123_SUBDIR unless($bei123_UNSHOW{$_});
@bei123_SubDir=join("<br>",@bei123_SubDir);
$bei123_SUBDIR="@bei123_SubDir";

$bei123_SEARCHRESULT =&bei123_searchresult;
###########################################
$bei123_pic_editpage="<img src=\"http://bei123.de/images/edit-page-grey.gif\" alt=\"Seite $bei123_PAGE bearbeiten\" border=0 title=\"Seite $bei123_PAGE bearbeiten\">";
$bei123_pic_restrictpage="<img src=\"http://bei123.de/images/restrict-page-grey.gif\" alt=\"CMS-Datenbank anzeigen\" border=0 title=\"CMS-Datenbank anzeigen\">";
$bei123_pic_pdf="<img src=\"http://bei123.de/images/pdf30.png\" alt=\"pdf-File\" border=0 title=\"Die aktuelle Seite als pdf-File erstellen !\">";

############################### 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="<a href=\"$_link&bei123=$bei123_BACKSHOW\">&laquo; back/zur&uuml;ck</a>";
@bei123_FromDir=map{"<a href=\"$_link&bei123=$bei123_SHOW{$_}\" >${$data{Data_name}}[$bei123_for->{Id}{$_}]</a> &raquo; "}@bei123_BackDir;
@bei123_SAMEDIR=@{$bei123_DATA{"[Page]$bei123_BACKPAGE"}{Subdir}};
my @bei123_SameDir=map{($_ eq $bei123_PAGE ? "<b>$_</b>" : "<a href=\"$_link&bei123=$bei123_name_show{$_}\">$_</a>")}@bei123_SAMEDIR;
@bei123_SameDir=join("<br>",@bei123_SameDir);
$bei123_SAMEDIR="<b><a href=\"$_link&bei123=$bei123_BACKSHOW\">$bei123_BACKPAGE &laquo;</a> </b><br>@bei123_SameDir";
$bei123_FROMDIR="<span id=\"fromdir\">@bei123_FromDir<b> $bei123_PAGE</b></span>";
}#########################################

#ANZEIGE vorbereiten, Werte bereitstellen
#--------------------------------------------------------------------------------------------- AUSGABE ######
#-------------------------------------------------------------------------------------- das verwendete Layout 
$L_name=${$data{Data_out}}[$bei123_for->{Id}{$bei123_DATA{"[Page]$bei123_PAGE"}{Id}}];# der Page
$L_id=$bei123_DATA{"[Layout]$L_name"}{Id};                     # Id dieses Layouts
$L_out=$bei123_DATA{"[Layout]$L_name"}{Data_out};              # Data_out dieses Layouts
$L_no=$bei123_DATA{"[Layout]$L_name"}{Data_no};                # Data_no dieses Layouts
$L_subdef=$bei123_DATA{"[Layout]$L_name"}{Data_subdef};        # Data_subdef dieses Layouts
$L_content=$bei123_DATA{"[Layout]$L_name"}{Data_content};      # Data_content dieses Layouts
$L_date=$bei123_DATA{"[Layout]$L_name"}{Data_date};            # Data_date dieses Layouts
#--------------------------------------------------------------------------------------------

if($_get{out} ne "")
{################### ------------------------------------------------------------------- Ausgabe pdf-File ###
my $lout=$_get{out};
$L_subdef=$bei123_DATA{"[Layout]$lout"}{Data_subdef};
$L_content=$bei123_DATA{"[Layout]$lout"}{Data_content};
$bei123_CMSDEF=$L_subdef ;
$bei123_CMSRUN="out<<EOF;\n$L_content\nEOF\n\n";
}
else
{
 if($bei123_USERLAYOUT ne "" & $bei123_SET_LAY{$bei123_PAGE_OUT{$bei123_PAGE}} ne "2" )#----Zwangslayout ###
   {#                                                                                    noch zu machen !!
   #--------------------------------------------------------------- Layout nach Auswahl des Users verwenden !
   $bei123_CMSDEF=$bei123_LAY_SUBDEF{$bei123_USERLAYOUT};
   $bei123_CMSRUN="out<<EOF;\n$bei123_LAY_CONTENT{$bei123_USERLAYOUT}\nEOF\n\n";
   }
   else
   {#--------------------------------------------------------------------------------- Standard-Layout #####
   $bei123_CMSDEF="out<<EOF;\n$L_subdef\nEOF\n\n";
   $bei123_CMSRUN="out<<EOF;\n$L_content\nEOF\n\n";
   }
   #-----------------------------------------------
}
#-------------------------------------------------------------------------------------------- run CMS ######
$_session{page} = serial %{$bei123_DATA{"[Page]$bei123_PAGE"}};
my %PAGE = eval $_session{page};

eval $bei123_CMSDEF;
eval $bei123_CMSRUN;

###---------------------------------------------------------------------------------------- Subroutinen ###
sub bei123
{
&bei123_CONTENT(@_);
}

sub bei123_BUTTON
{#################### Anzeigeeines JS-ausführenden Buttons
($B_text,$B_style,$B_textstyle,$B_script)=@_;
my $but_show="<button style=\"$B_style\" onclick=\"$B_script;return false\"><span style=\"$B_textstyle\">$B_text</span></button>";
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="<button style=\"width:$w_;height:$h_;background-color:#e0e0e0;background-image:url(http://bei123.de/images/bgbutt.gif);padding:0px;margin:0px\" type=\"button\" onclick=\"alert('$b_alert');\"><span style=\"font-size:11px;padding:0px;width:100%;height:100%;\">$b_text</span></button>";
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="<button style=\"width:$w_;height:$h_;background-color:#e0e0e0;background-image:url(http://bei123.de/images/bgbutt.gif);padding:0px;margin:0px\" type=\"button\" onclick=\"showquote('$la_show');\"><span style=\"font-size:11px;padding:0px;width:100%;height:100%;\">$la_text</span></button>";
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="<button style=\"width:$w_;height:$h_;background-color:#e0e0e0;background-image:url(http://bei123.de/images/bgbutt.gif);padding:0px;margin:0px\" type=\"button\" onclick=\"showquote('$l_show');\"><span style=\"font-size:11px;padding:0px;width:100%;height:100%;\">$la_text</span></button>";
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 "<input style='font-size:12px;' type=button value=\"$layname\" onclick=showquote($_layno)>" if($layname ne "");
}
#$_layno=$layno if($layno ne "");
out "<blockquote id=\"$_layno\" style=\"position:absolute;width:100%;top:0px;left:0px;padding:0px;background-color:#e0e0e0;z-index:5000;visibility:hidden;display:none;margin:0px;$laypos$wpos\">";
$tab= "<table width='100%' cellspacing=0 cellpadding=0><tr><td width='1%'><button style=\"width:18px;height:20px;font-size:10px;background-color:#e0e0e0;padding:0px;margin:0px\" name=\"Klick1\" type=\"button\" title=\"Anzeige beenden\" onclick=\"showquote('1000000')\"><span style=\"font-size:12px;font-weight:bold\">X</span></button></td>
<td width='99%'><button style=\"font-size:10px;background-color:#e0e0e0;padding:0px;margin:0px;width:100%;height:20px\" name=\"Klick12\" type=\"button\" title=\"Anzeige Informationen\" value=\"Info\" onclick=\"alert('$laytext');\"><span style=\"font-size:12px;\">$laypage$layno</span></button></td></tr></table>";
out "$tab<div style='overflow:hidden;background-color:#ffffff;padding:0px;padding-left:5px;padding-top:5px;z-index:5000;$laytype'>";
&bei123_CONTENT($laypage,$laycont);
out "<br></div>$tab";
out "</blockquote>";
}###############


sub bei123_CHECKMAIL
{###################------------- Gültigkeitspürfung EMail
$email = $_[0];

if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
$email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) 
{
return 0;
}

else
{
return 1;
}
}#----- 
###############

#############
sub bei123_SENDMAIL
{#----------- Information an User mailen
($Empfaenger,$Thema,$Text,$Sender,$Empfaenger_Name,$Sender_Name,$Kopien,$Blinde_Kopien,$Header_Angaben)=@_;
mail "$Empfaenger", "$Thema", "$Text", "$Sender", "$Empfaenger_Name", "$Sender_Name", "$Kopien", "$Blinde_Kopien", "$Header_Angaben";
return("send");
}
############


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.="<ul><li><a href=\"$_link&bei123=$bei123_name_show{$pagename}\">$pagename</a>$r</font></li>";
  if(@pagesubdir > 0)
    {###########################################
    $no=$mID;
    $mID= "$mID,$pageid";
    $map.=&bei123_mapping(@pagesubdir);
    }############################################
$map.="</ul>";
}#--------------------------------------------------
}
}
}########## 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/<IMG\s+SRC='(.+?)'.*?>/<a href='$1' target=_blank>$_[1]<\/a>/gi;
$text_tag=~s/<IMG\s+SRC="(.+?)".*?>/<a href='$1' target=_blank>$_[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/<A\s+HREF='(.+?)'.*?<\/a>/<a href='$1' target=_BLANK>$link_repl<\/a>/gi;
$link_tag=~s/<A\s+HREF="(.+?)".*?<\/a>/<a href='$1' target=_BLANK>$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 style=\"$div_style;\">";
$div_out="</div>";
$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 style=\"$div_style;position:relative;top:0px;left:0px;margin:0px;padding:0px;border:1px dotted $div_color;background-color:#ffffff\">";
$div_out="<div style=\"position:absolute;top:0px;left:0px;margin:0px;padding:0px;background-color:$div_color;font-size:10px;color:#ffffff\"><button style=\"background-color:$div_color;margin:0px;padding:0px;color:#ffffff;height:12px;width:12px; outline-width:0px\"></button></div></div>";
}#####################################################

$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);
     #eval "out<<EOF;\n$TEXT[0]\nEOF\n\n";

     $OUT=$TEXT[0]; #new

     shift(@TEXT);
     foreach(@TEXT)
     {######
     @text=split(/\[\/code\]/,$_);
     #out "<pre class='code'>".convert_br(convert_html($text[0]))."</pre>";   
     $OUT.="<pre class='code'>".convert_br(convert_html($text[0]))."</pre>"; #new

     #eval "out<<EOF;\n$text[1]\nEOF\n\n";
     $OUT.= "$text[1]"; #new

     }######

     eval "out<<EOF;\n$div_on$OUT$div_out\nEOF\n\n"; #new    
    }#---------------------------------------- wenn kein [code]
    else
     {
      eval "out<<EOF;\n$div_on$Out$div_out\nEOF\n\n";
     }
  eval $z if($z ne "");
  #####
 }
 else # keine gültige Id => CMS-Fehler melden
 {
outl "<span style='background:white;color:red'><b>CMS-Error</b>: keine gültige [Page] Ihre Eingabe: <b>\&bei123_CONTENT($_[0])</b></span>";
 }

}#################

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 "<pre class='code'>".convert_br(convert_html($mtext[0]))."</pre>";
   eval $mtext[1];
   }#####################
  }
 #---------------------------------------- wenn kein [code]
 else
 {
 eval $mtext;
 }
#-----------------------------------------------------
}
else #----------- falls Modul existiert
{
outl "<span style='background:white;color:red'>Modul <b>$_[0]</b> noch nicht definiert !</span>";
}
}#####################################################

sub bei123_SITEMAP
{####################
$page_name=$_[0]; # Sudir für eine bestimte Seite
$mID=$bei123_DATA{"[Page]$page_name"}{Id};
$bei123_sitemap="<span id=\"sitemap\"><b><a href=\"$_link&bei123=$bei123_name_show{$page_name}\">$page_name</b></a><ul>";
$bei123_sitemap.=&bei123_mapping(@{$bei123_DATA{"[Page]$page_name"}{Subdir}});
$bei123_sitemap.="</ul></span>";
out $bei123_sitemap;
}###################

sub bei123_LOGIN
{###############
if($_[0] eq "")
{
out $bei123_LOGIN;
}
else
{
 if($bei123_USER{Id} eq "")
 {#############################
  $url="$_link&bei123=$bei123_SHOW{$_[0]}";
  out $bei123_LOGIN if($bei123_PAGE eq $_[0]); 
  $_header="Location: $url\n\n " if($bei123_PAGE ne $_[0]) ; 
 }
 else
 {
 out $bei123_LOGIN;
 }
}
}################

sub bei123_loginform
{########################
#$bei123=$bei123_name_show{"Anmeldung"};
my $bei123_logform="<form action='$CMS_HTX' method='post' enctype='multipart/form-data'><table cellpadding=1 cellspacing=0><tr><td><table><tr><td><font style='font-size:11px; color:black'><b>Kennung</b></font></td><td><input type='text' name='namerein=' size=10 style='font-size:11px'></td></tr><tr><td><font style='font-size:11px; color:black'><b>Passwort</b></font></td><td><input type='password' name='pwrein=' size=10 style='font-size:11px'></td></tr><tr><td></td><td><input type=submit value='L o g i n' style='font-size:11px'></td></tr></table></td></tr></table></form>";
return($bei123_logform);
}######################

sub bei123_logoutform
{########################
my $bei123_logform="<form action=\"$CMS_HTX\" method='post' enctype='multipart/form-data'><input type=hidden name='cmd=' value='logout'><input type=submit value='L o g o u t' style='font-size:11px'></form>";
return($bei123_logform);
}######################

sub bei123_SEARCHFORM
{#################### generiert Suchformular und zeigt Ergebnise auf der festgelegten Seite an
my $bei123_resultpage=$_[0]; # Seite, wo die Ergebnise angezeigt werden sollen.
#----------------------------------------------------------------------------------------------------------
my $sf="<form action='$_link&bei123=$bei123_SHOW{$bei123_resultpage}' method='post' enctype='multipart/form-data'><input type='hidden' name='htx=' value='$htx'><input type='hidden' name='db=' value='$CMS_DATA'><input type='text' size=22 name='_fullsearch~~' value='$_fullsearch' style='font-size:11px' ><input type='submit' value='Suche' title='Volltextsuche ausführen' style='font-size:11px'></form>";
#-----------------------------------------------------------------------------------------------------------
$sf="..es wurde noch keine Ergebnis-Seite &bei123_SEARCHFORM('<font color=red>Ergebnis-Seite</font>') angegeben !" if($bei123_resultpage eq "");
out $sf;
}###########

sub bei123_searchresult 
{#################### generiert die Ausgabe der Suchergebnisse, Datei $bei123_DBC 
$cnd=0;
if($cmd eq "")
{
$px="$_[0]px";
my $sr="";

if($_fullsearch eq "")
{
 $sr="<b>Es wurde noch kein Suchbegriff eingegeben !</b>";
 return($sr);
}
else
{
#-------------------------------------------------------------------------------
get "fullsearch_range^=0,2500 fullsearch_match=100", "$CMS_DATA";
#---------------------------------------
my $newrange="";
my $txt;

while(get_next($CMS_DATA))
{#---- nur anzeigen, wenn Typ Page und bei123=Id-kette definiert, keine Systempage bzw keine LoginPage
 #---- oder RightPage, es sei denn Login oder User_Right vorhanden 

if($Data_type eq "Page" and $bei123_SHOW{$Data_name} ne "" and $bei123_SYSTEMPAGE{$Data_name} eq "" and $bei123_UNSHOW{$Data_name} eq "" and $bei123_RIGHTPAGE{$Data_name} eq "" or $bei123_USERRIGHT{$Data_name} ne "")
 {
 $sr.="<p>";
 $sText=${$bei123_DATA{"[Page]$Data_name"}{Container}}[1];
 $sText=&html2text($sText);
 $sText=&no_image_tags($sText,"");
 $Data_name=~ s#$_fullsearch_regex#<b><font color='red'>$1</font></b>#g;
 $sText=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
 $sText=eval("<<EOF;\n$sText\nEOF\n\n");
 if($sText eq "")
 {
 $sText=${$bei123_DATA{"[Page]$Data_name"}{Container}}[1];
 $sText=&html2text($sText);
 $sText=eval("<<EOF;\n$sText\nEOF\n\n");
 $sText=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
 }
 #-----------------------------------------------------------
 $sr.="<b>&int;</b> $sText<br><b>&raquo;</b> <a href=\"$_link&bei123=$bei123_SHOW{$Id}\">[<B>$Data_name</B>]</a> <br>";
 $cnt++;
 #-----------------------------------------------------------
 $sr.="</p>";
 }
}

$newrange=$_fullsearch_range+$_fullsearch_range_length;
if($_fullsearch_match_pos<$newrange)
  {
   $txt="Suche nach weiteren Treffern";
   $newrange=$_fullsearch_match_pos;
  } else
  {
   $txt="<b>Suche in weiteren Datensätzen</b>";
  }
if($newrange < $_amount_all)
{
$sr.="<font color=red>Es wurde noch nicht in allen Datensätzen gesucht:</font> ";
$sr.="<a href='$_link&bei123=$bei123_SHOW{$bei123_PAGE}&_fullsearch~~".convert_url($_fullsearch)."&fullsearch_range=$newrange,$_fullsearch_range_length&weiterer=weiterer'>$txt</a>";
}
else
{
$sr.="<b> ! Die Datenbank wurde komplett durchsucht - Treffer: ".$cnt."</b>";
$sr.=" <b>Kein $weiterer Treffer.</b>" if $_fullsearch_amount<1;
}
return($sr);
}
}
}#########