######## allg. Variablen für js-Routinen
$cline=qq(=)x65;
########

&cms_data();


sub cms_data
{
#-------------------------------------------------------------
$sel=qq(Datei==!bp-Office);
#-------------------------------------------------------------
$db="/bei123/Demo/CMS_AJAX_Kopie";
#-------------------------------------------------------------
@_FIELDS=("Data_name","Data_out","Data_content","Data_author");
%_DB=&bei123_DataHasher("$db","$sel","Inhalt","","");
#------------------------------------------
}

sub un_esc
{##
my $un_e=$_[0];
$un_e =~ s#\$#\\\$#g;
$un_e =~ s#\@#\\\@#g;
return($un_e);
}##





#-------------------------------------------------------------- %ENTITIES
sub entities
{##
#----------------
my $ent=$_[0];
$usp="  " x 50;
#----------------
map{$ent =~ sÞ&bei123_$_;Þ$Entities{$_}Þgime}keys(%Entities);
return("$ent");
}##


$Entities{bp}=qq(<span style="color:#d80000;">base</span><span style="color:#000000;">portal</span>);

$Entities{bp18}=qq(<span ccite="Das Template ist:\n$htx" onClick=(alert(getAttribute("ccite"))) style="cursor:pointer;border-bottom:1px dashed #191970 ;font-size:18px"><font color="#d80000">base</font><font color="#000000">portal</font></span>);

$Entities{datum}=${$_DB{Data_date}}[$_FID{$_ID}];

$Entities{heute}=datum("jetzt","Wochentag, Tag.Monatname.Jahr");

$Entities{page}=un_esc(${$_DB{Data_name}}[$_FID{$_ID}]);

$Entities{author}="Author: <b><i>".convert_html(${$_DB{Data_author}}[$_FID{$_ID}])."</i></b>(".${$_DB{Data_date}}[$_FID{$_ID}].")";

$Entities{url}=qq(<span ccite="URL der Seite [$_PAGE{$_ID}]\n$usp\n\n$_link&_ID=$_ID\n\n$usp" onClick=(alert(this.getAttribute("ccite"))) style="cursor:pointer" title="Click: URL der Seite [$_PAGE{$_ID}] anzeigen" >$pic_url</span>);

$Entities{code}=qq(<span ccite="" onClick=(RUN("CMD=CODE&_ID=$_ID&_UID=$_UID&_SID=$_SID")) style="cursor:pointer" title="Click: CODE der Seite [$_PAGE{$_ID}] anzeigen" >$pic_code</span>);

$Entities{home}=qq(<span ccite="" onClick=(RUN("CMD=START&_UID=$_UID&_SID=$_SID")) style="cursor:pointer" title="Click: gehe zu [Home/Start]" >$pic_home</span>);

$Entities{sitemap4}=qq(<span ccite="" onClick=(location.reload(true),RUN("CMD=SITEMAP&_ID=$_ID&_UID=$_UID&_SID=$_SID&DATA=TEST")) style="cursor:pointer" title="Click: gehe zu [Sitemap/Übersicht]" >$pic_sitemap RELAOD</span>);

$Entities{search}=qq(<span ccite="" onClick=(RUN("CMD=SEARCH&_ID=$_ID&_UID=$_UID&_SID=$_SID&search=$search")) style="cursor:pointer" title="Click: gehe zu [Suchen]" >$pic_search</span>);

$Entities{chronik}=qq(<span ccite="" onClick=(RUN("CMD=CHRONIK&_ID=$_ID&_UID=$_UID&_SID=$_SID&CHR="+document.getElementById("CHRONIK").value+"")) style="cursor:pointer" title="Click: gehe zu [Verlauf/Chronik/Pfad]" >$pic_chronik</span>);


$Entities{navig}=qq(<ins style="cursor:pointer" title="Path/Directories/Chronik" onMouseOver=(RUN("MODUS=NAVIG&CHR="+document.getElementById("CHRONIK").value+"&_ID=$_ID&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+"")) onClick=(document.getElementById("INFO").style.display="block") >$pic_chronik</ins>); 

$Entities{admin}=qq(<ins style="cursor:pointer" title="Administration/Verwaltung" onMouseOver=(RUN("MODUS=ADMIN&CHR="+document.getElementById("CHRONIK").value+"&_ID=$_ID&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+"")) onClick=(document.getElementById("INFO").style.display="block") >$pic_admin</ins>); 

$Entities{sitemap}=qq(<ins style="cursor:pointer" title="Übersicht/SiteMap" onMouseOver=(RUN("MODUS=SITEMAP&CHR="+document.getElementById("CHRONIK").value+"&_ID=$_ID&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+"")) onClick=(document.getElementById("INFO").style.display="block") >$pic_sitemap</ins>); 



$Entities{search4}=qq(<ins style="width:100%" title="Search Data"><input type="text" id="bei123_SEARCH4" style="font-size:0.8em;max-width:100%" value="$search"><span style="cursor:pointer" onclick=(RUN("_ID=$_ID&search="+encodeURIComponent(document.getElementById("bei123_SEARCH4").value)+"&CMD=SEARCH&_SID=$_SID&_UID=$_UID"))>$pic_search4 Search</span></ins>);

$Entities{ATT}=qq( title="DEMO Eintitie(Attribut) von bei123/onwork !" onClick=(alert(tagName)) );

$Entities{script}=qq( style="cursor:pointer;border-bottom:1px dashed #191970" onMouseOver=(RUN("MODUS=SRC&"+encodeURI(this.getAttribute("scr"))+"&"+encodeURI(document.getElementById(this.getAttribute("for")).getAttribute("var"))+"")) onClick=(eval(document.getElementById(this.getAttribute("for")).innerHTML)));

#--------------------------------------------------------- ENDE %ENTITIES


##################################### zulässige CMD's /// NOCH verarbeiten
%bei123_RUN_CMD_HASH=(
SITEMAP    => ["SiteMap/Übersicht",""],
START      => ["Willkommem/Start",""],
SEARCH     => ["Suchen/Search",""],
CHRONIK    => ["Verlauf/Chronik",""],
CMS        => ["",""],
ADD        => ["",""],
DEL        => ["",""],
MOD        => ["",""],
DO_ADD     => ["",""],
DO_DEL     => ["",""],
DO_MOD     => ["",""],
DO_CMS     => ["",""],
CODE       => ["Code-Informationen",""]
);
######################################################### SYSTEM ORDNEN !!


#------------------------------------------------------------------------------- REGEX
@bei123_regex=("link","dir","content","menu");
@bei123_regex_attribute=("value","title","param","page","type","class","style","item","size");
$bei123_regex=\@bei123_regex;
$bei123_regex_attribute=\@bei123_regex_attribute;

sub regex
{## Auswertung eigener einfacher Tags
$R_error="";
#-------------------------------------------------------------------
$Regex_Return ="";
#-------------------------------------------------------------------
my $rtype   = $_[0];
my $reg     = $_[1];
#---------------------------------
$reg        = &entities($reg);
#---------------------------------
%reg        = ();
#-------------------------------------------------------
$Reg_A      = join("|",(map{$_."::"}@$bei123_regex_attribute)) ;
$reg        =~ s/($Reg_A)/&#8362;$1&#8362;/gim;
$reg        =~ s/::\&#8362;/\&#8362;/gim;
my @reg     = split(/\&#8362;/,$reg);
shift(@reg);
%reg        = map{lc(shift(@reg)) => "".&no_null_end(&no_null_begin(shift(@reg)))."" }@reg;
#-----------------------------------------------------------------------------------------------
#$reg{param}=~ s/ //gm; # Leerzeichen bei Parameter z.B.:(CMD =DO& _ID =15) entfernen 
$reg{class} =~ s/ //gm; # Leerzeichen bei Parameter z.B.:(CMD =DO& _ID =15) entfernen 
#-----------------------------------------------------------------------------------------------
$reg{page} =~ s#\\\$#\$#g;
$reg{page} =~ s#\\\@#\@#g;
#-------------------------
$pID        = $_PAGE{"$reg{page}"};
$pPage      = $reg{page};
$pType      = lc($reg{type});
$pClass     = $reg{class};
$pTitle     = $reg{title};
$pParam     = $reg{param};
$pStyle     = $reg{style};
$pItem      = lc($reg{item});
$pSize      = $reg{size};
#-------------------------------------------------------------------------------------------# eigene tags 

#------------------------------------------------ link,content,dir,menu
if($rtype eq "link") 
{&bei123_regex_link();
return($Regex_Return);
}
elsif($rtype eq "content")
{$ct_value = $reg{value};$ct_value =~ s/ //gm;$ct_value="" if($ct_value =~ /\D/ );
#--------------------------------------
   if($ct_value eq "")
   {my $ct_item=qq($reg{value});my $value_item="\$ct_value=$ct_item";eval($value_item);
   $ct_value="" if($ct_value =~ /\D/ );}
#--------------------------------------	
&bei123_regex_content();
#return($Regex_Return);
}
elsif($rtype eq "dir")
{$mdir="";&bei123_regex_dir();$Regex_Return=$mdir;
#return($Regex_Return);
}
elsif($rtype eq "menu")
{$Regex_Return=&bei123_regex_menu($pItem);
}
else
{#-------------------------------------# rtype existiert nicht
$Regex_Return=qq(<h2>Error</h2>);
return($Regex_Return);
}
######################

######################
}##----------------------------------------------------------------------------- END REGEX

sub bei123_regex_menu
{##
$pItem=$_[0];
$Regex_Return="";
#--------------------
if($pItem eq "sitemap")
{###################### SITEMAP

if(keys(%{$_DB{SiteMap}})>0)
{#-------------------------- falls SiteMap definiert
 if($pType eq "link") #-------- falls dir type link 
 {###############
  $sitemap_dis=$sitemap_dis_link;
  #------------------------------------------------
  if($pID eq "")   # falls keine page:: angegeben
   {
    %SM=%{$_DB{SiteMap}};
    @MDIR=&DirLinkArray(\%SM);
    $Regex_Return = join("<br>",@MDIR);
   }
  else
   {%SM=%SiteMap=();
    $PID[0]=$pID;
    map{&bei123_mapping($_,$sm)}@PID;
    my %SM=%SiteMap;
    @MDIR=&DirLinkArray(\%SM);
    shift(@MDIR);
    @MDIR=map{$_ = substr($_,length($sitemap_dis))}@MDIR;
    $Regex_Return = join("<br>",@MDIR);
   }
 }###############
 if($pType eq "option") #--------------------------------------- falls dir type link 
 {###############
    $dirPage=""; 
  if($pID eq "")   # falls keine page:: angegeben
   {
    $dirPage="";
    %SM=%{$_DB{SiteMap}};
    @MDIR=&DirOptionArray(\%SM);
   }
  else
   {%SM=%SiteMap=();
    $PID[0]=$pID;
    $dirPage=$reg{page};  
    map{&bei123_mapping($_,$sm)}@PID;
    my %SM=%SiteMap;
    @MDIR=&DirOptionArray(\%SM);
    shift(@MDIR);
   }
#------------------------------ ID's unterscheidbar machen, falls mehrfach vorhanden
 @zfz1=&random3value(0,9,10);
 @zfz2=&random3value(0,9,10);
 my $zfz="@zfz1@zfz2";
#------------------------------

my $opt1_name=$reg{value}||"Menü-Auswahl";
#------------------------------------------------------------------------------------------
$pSize=($pSize ne "" ? qq(size="$pSize"):"");

$Regex_Return=qq(<select $pSize name="DOA$zfz" ID="DOA$zfz" class="$reg{class}" style="$reg{style}" size="$reg{value}" onChange=(RUN("_UID=$_UID&_SID=$_SID&$reg{param}&_ID="+document.getElementById("DOA$zfz").value+""))><option style="font-weight:bold">$opt1_name @MDIR</select>);
#------------------------------
}###############
}
}#ENDE pItem=sitemap

if($pItem eq "subdir")
{###################### SUBDIR
my @SUBDIR=();
$xID=$pID||$_ID;
#--------------------------------------------------------------
@SUBDIR=@{$_DB{SubDir}{$xID}}if(@{$_DB{SubDir}{$xID}}>0);
#--------------------------------------------------------------
if(@SUBDIR>0)
{
 if($pType eq "option") #--------------------------------------- falls dir type link 
  {###############
  }
 else
  {
my @_SUBDIR=map{qq(<span title="$_PAGE{$xID}/$_PAGE{$_} aufrufen"  class="LinkOut" style="cursor:pointer" onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut") onclick=(RUN("_UID=$_UID=$_UID&_SID=$_SID&_ID=$_")) >$_PAGE{$_}</span> )}@SUBDIR; 
  $Regex_Return=qq(@_SUBDIR);
  }
}
}###################### ENDE SUBDIR

if($pItem eq "samedir")
{###################### SAMEDIR
my @SAMEDIR=();
$Regex_Return="";
$xID=$pID||$_ID;
#--------------------------------------------------------------
if($_PAGE{$UpDir{$xID}} ne "")
{
 @SAMEDIR=grep($_ ne $xID,@{$_DB{SubDir}{$UpDir{$xID}}}) if(@{$_DB{SubDir}{$UpDir{$xID}}}>1);
}
#--------------------------------------------------------------
if(@SAMEDIR>0)
{
 if($pType eq "option") #--------------------------------------- falls dir type link 
  {###############
  }
 else
  {
my @_SAMEDIR=map{qq(<span title="$_PAGE{$UpDir{$xID}}/$_PAGE{$_} aufrufen"   style="cursor:pointer" class="LinkOut" onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut") onclick=(RUN("_UID=$_UID&_SID=$_SID&_ID=$_")) >$_PAGE{$_}</span> )}@SAMEDIR; 

  $Regex_Return=qq(@_SAMEDIR);
  }
}
}###################### ENDE SAMEDIR

if($pItem eq "updir")
{###################### UPDIR
$xID=$pID||$_ID;
$Regex_Return="";

if($UpDir{$xID} ne "")
{
$Regex_Return=qq(<span title="$_PAGE{$UpDir{$xID}} &laquo; $_PAGE{$xID} aufrufen" style="cursor:pointer" class="LinkOut" onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut") onclick=(RUN("_UID=$_UID&_SID=$_SID&_ID=$UpDir{$xID}")) >$_PAGE{$UpDir{$_ID}}</span>);
}

}###################### ENDE UPDIR

if($pItem eq "path")
{###################### PATH
$xID=$pID||$_ID;
$Regex_Return="";
#------------------------------------
@bei123_path=&bei123_path($xID);
$npp=@bei123_path;
if(@bei123_path>0)
{#-----------------------------------
my @PATH=map{qq(<span title="Seite $_PAGE{$_} aufrufen"   style="cursor:pointer;" class="LinkOut" onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut") onClick=(RUN("_UID=$_UID&_SID=$_SID&_ID=$_"))>$_PAGE{$_}</span>)}@bei123_path;
#-----------------------------------------------------
push(@PATH,qq(<span style="font-weight:bold;$reg{style}">$_PAGE{$xID}</span>));
$Regex_Return=join(" &raquo; ",@PATH);
#$Regex_Return="@PATH";
}#----------------------------------
}

if($pItem eq "chronik")
{###################### CHRONIK
@CHRO=&text2split("$CHR",",");
my @_CHRO=map{qq(<span title="Seite $_PAGE{$_} aufrufen"   style="cursor:pointer;" class="LinkOut" onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut") onClick=(RUN("_UID=$_UID&_SID=$_SID&_ID=$_&CHR=$CHR"))>$_PAGE{$_}</span>)} reverse(@CHRO);
$Regex_Return=join(" &laquo; ",@_CHRO);
}##

if($pItem eq "search")
{####################### SEARCH
my $opt1_name=$reg{value}||"";
#-----------------------------------
$Regex_Return=qq(<input type="text" id="bei123_SEARCH4" style="font-size:12px;max-width:100%;$reg{style}" value="$search"><span style="cursor:pointer" onclick=(RUN("_ID=$_ID&search="+encodeURIComponent(document.getElementById("bei123_SEARCH4").value)+"&CMD=SEARCH&_SID=$_SID&_UID=$_UID"))>$pic_search4 $opt1_name</span>);
}####################### Ende SEARCH

return($Regex_Return);
}##

sub DirLinkArray
{
%SM=%{$_[0]};
#-------------
$OMO=qq(onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut"));
#-------------------------------------------------------------------------------------------------
@D_L_A=map{"$sitemap_dis" x ${$SM{$_}}[1].qq(<span ).($_ID eq ${$SM{$_}}[0] ? "":"$OMO").qq( onclick=(RUN("_UID=$_UID&_SID=$_SID&$reg{param}&_ID=${$SM{$_}}[0]")) class=").($_ID eq ${$SM{$_}}[0] ? "LinkOver":"LinkOut").qq(" style="cursor:pointer;$reg{style}" >${\un_esc($_PAGE{${$SM{$_}}[0]})}</span>)}(sort{$a <=> $b}(keys(%SM)));
#----------------------------
return(@D_L_A);
}

sub DirOptionArray
{##
%SM=%{$_[0]};
$sitemap_dis="&middot;" x 4;
#---------------------------
$OMO1=qq( onMouseOver=(this.style.backgroundColor="#b0c0e0") onMouseOut=(this.style.backgroundColor="#ffffff") );
@D_O_A=map{qq(<option $OMO1 class="$reg{class}" style="background:#ffffff;color:).($_ID eq ${$SM{$_}}[0] ? "#d80000":"#191970").qq(" ).($_ID eq ${$SM{$_}}[0] ? "":"").qq( value=${$SM{$_}}[0]>)."$sitemap_dis" x ${$SM{$_}}[1].qq(${\un_esc($_PAGE{${$SM{$_}}[0]})})}(sort{$a <=> $b}(keys(%SM)));
#-------------------------
return(@D_O_A);
}##

sub bei123_path
{##
  if(exists $UpDir{$_[0]})
   {push(@bei123_Updir,$UpDir{$_[0]});
   &bei123_path($UpDir{$_[0]});
   }
  else
   {return(reverse(@bei123_Updir));
   }
}##

sub bei123_NAVIG
{##
$n_path=$n_updir=$n_subdir=$n_samedir=$n_chronik="";
#------------------------------------------
$OMO=qq(onMouseOver=(document.getElementById("INFO_MSG").innerHTML=this.getAttribute("ccite")) onMouseOut=(document.getElementById("INFO_MSG").innerHTML=""));
#-------------------------------------------------
$n_path=&bei123_regex_menu("path");
#-----------------------------------------
$n_path=qq(<ins ccite="<b>Path</b>: Es wird der Pfad zur Seite [$_PAGE{$_ID}] angezeigt" style="cursor:help" $OMO ><font size=1 style="color:#ffffff">Path/Pfad:<br></font>$pic_path $n_path</ins><br><br>)if($n_path ne "");
#--------------------------------------------------------------
$n_subdir=&bei123_regex_menu("subdir");
#--------------------------------------
$n_subdir=qq(<ins ccite="<b>SubDir</b>: Es werden die Unterverzeichnisse der Seite [$_PAGE{$_ID}] angezeigt" style="cursor:help" $OMO ><font size=1 style="color:#ffffff">SubDir/Unterverzeichnisse:<br></font>$pic_subdir $n_subdir</ins><br><br>) if($n_subdir ne "");
#--------------------------------------------------------------
$n_updir=&bei123_regex_menu("updir");
#------------------------------------
$n_updir=qq(<ins ccite="<b>UpDir</b>: Es wird das Verzeichnis oberhalb der Seite [$_PAGE{$_ID}] angezeigt" style="cursor:help" $OMO ><font size=1 style="color:#ffffff">UpDir/Oberverzeichnis:<br></font>$pic_updir $n_updir</ins><br><br>)if($n_updir ne "");
#-------------------------------------------------------------
$n_samedir=&bei123_regex_menu("samedir");
#----------------------------------------
$n_samedir=qq(<ins ccite="<b>SameDir</b>: Es werden Seiten im gleichen Verzeichnis der Seite [$_PAGE{$_ID}] angezeigt" $OMO style="cursor:help"><font size=1 style="color:#ffffff">SameDir/Verzeichnisebene:<br></font>$pic_samedir $n_samedir</ins><br><br>)if($n_samedir ne "");
#---------------------------------------
$n_chronik=&bei123_regex_menu("chronik");
#----------------------------------------
$n_chronik=qq(<ins ccite="<b>Chronik</b>: Anzeige von Chronik/History bzw. Verlauf Ihrer Seitenaufrufe"  style="cursor:help" $OMO ><font size=1 style="color:#ffffff">Chronik/Verlauf:<br></font>$pic_check $n_chronik</ins><br><br>)if($n_chronik ne "");
#--------------------------------------------------------------
$NAVIGATION=qq($n_path$n_subdir$n_updir$n_samedir$n_chronik);
#----------------------
return($NAVIGATION);
}##

sub bei123_SITEMAP
{##
my $return4=qq(<p><ul><menu item::sitemap type::link style::font-size:12px /></ul></p>);
#---------------------------------
$return4=&bei123_ENTYTAGUM($return4);
#$html =~ s#"#'#g;
#------------------------------
return($return4)
}##

sub bei123_regex_dir
{##
if(keys(%{$_DB{SiteMap}})>0)
{#-------------------------- falls SiteMap definiert
 if($pType eq "link") #-------- falls dir type link 
 {###############
  $sitemap_dis=$sitemap_dis_link;
  #------------------------------------------------
  if($pID eq "")   # falls keine page:: angegeben
   {
    %SM=%{$_DB{SiteMap}};
    @MDIR=&DirLinkArray(\%SM);
    $mdir = join("<br>",@MDIR);
   }
  else
   {%SM=%SiteMap=();
    $PID[0]=$pID;
    map{&bei123_mapping($_,$sm)}@PID;
    my %SM=%SiteMap;
    @MDIR=&DirLinkArray(\%SM);
    shift(@MDIR);
    @MDIR=map{$_ = substr($_,length($sitemap_dis))}@MDIR;
    $mdir = join("<br>",@MDIR);
   }
 }###############
 if($pType eq "option") #--------------------------------------- falls dir type link 
 {###############
    $dirPage=""; 
  if($pID eq "")   # falls keine page:: angegeben
   {
    $dirPage="";
    %SM=%{$_DB{SiteMap}};
    @MDIR=&DirOptionArray(\%SM);
   }
  else
   {%SM=%SiteMap=();
    $PID[0]=$pID;
    $dirPage=$reg{page};  
    map{&bei123_mapping($_,$sm)}@PID;
    my %SM=%SiteMap;
    @MDIR=&DirOptionArray(\%SM);
    shift(@MDIR);
   }
#------------------------------ ID's unterscheidbar machen, falls mehrfach vorhanden
@zfz1=&random3value(0,9,10);
@zfz2=&random3value(0,9,10);
my $zfz="@zfz1@zfz2";
#------------------------------
$mdir=qq(<select name="DOA$zfz" ID="DOA$zfz" class="$reg{class}" style="$reg{style}" size="$reg{value}" onChange=(RUN("_UID=$_UID&_SID=$_SID&$reg{param}&_ID="+document.getElementById("DOA$zfz").value+""))><option style="font-weight:bold">Menü-Auswahl @MDIR</select>);
#------------------------------
}###############
}
}##


sub bei123_regex_content
{##
if($pID ne "" && $ct_value ne "") #falls kein Error
{#-----------------------------------------------------
 $cms_ct=${$_DB{"Data_content"}}[$_FID{$pID}];
 my @CT=split(/<!bei123\>/,$cms_ct);
 #$ct=$CT[$reg{value}];
 $ct=$CT[$ct_value];
 #------------------------------
 if($pType eq "code")
 {
 $ct=convert_html($ct);
 $ct=convert_br($ct);
 $ct =~ s#\$#\\\$#g;
 $ct =~ s#\@#\\\@#g;
 $ct="<code>$ct</code>";
 }
 else
 {
 map{$ct =~ s/\<$_(.+?) \/>/&regex("$_",$1)/gime;}@$bei123_regex;
 $ct=&entities($ct);
 }
$Regex_Return=$ct;
}

else # falls Fehler
{#--------------------
$p_error=($pID ne "" ? $reg{page}:"<font color=red><b>$reg{page} ?</b></font>");
$v_error=($ct_value ne "" ? $reg{value}:"<font color=red><b>$reg{value} ?</b></font>");
$R_error.=qq(<div style="border:1px solid red;padding:3px;background:#ffffff">Fehlende/falsche Angaben von <b>page::</b>[Seite?] oder <b>value::</b>[Zahl?]<hr><b>Error im Tag</b> <span style="color:green">&lt;$rtype page::$p_error value::$v_error /&gt;</span> </div>);
#----------------------
$Regex_Return=$R_error;
}
}##


sub bei123_regex_link
{##
if($pID ne "") #falls kein Error
{#-----------------------------------------------------
$reg{title}=$reg{title}||"Seite [$pPage] aufrufen";
#------------------------------------------------
$Script_On=qq(onclick=(RUN("_ID=$pID&"+encodeURIComponent(this.getAttribute("cparam"))+"&_UID=$_UID&_SID=$_SID")));
#--------------------------- Anzeige als Button oder normaler Link
 if($reg{type} eq "button")
   {
$Regex_Return=qq|<button cparam="$reg{param}" title="$reg{title}" $Script_On class="LinkButton" style="cursor:pointer;$pStyle" >|.($reg{value}||$pPage)."</button>"; 
   }
 else
   {
$Regex_Return=qq|<span cparam="$reg{param}" title="$reg{title}" $Script_On class="LinkOut" style="cursor:pointer;$pStyle" onMouseOver=(this.className="LinkOver") onMouseOut=(this.className="LinkOut") >|.($reg{value}||$pPage)."</span>"; 
   }
}
else # falls Fehler
{#-----------------
$p_error=($pID ne "" ? $reg{page}:"<font color=red><b>$reg{page} ?</b></font>");
$R_error.=qq(<div style="border:1px solid red;padding:3px;background:#ffffff">Fehlende/falsche Angaben von <b>page::</b>[Seite?]<hr><b>Error im Tag</b> <span style="color:green">&lt;$rtype page::$p_error /&gt;</span> </div>);
#----------------------
$Regex_Return=$R_error;
}
}##


sub RUN_INIT
{##

}##


sub RUN
{##
$__time=time();
$time_value = datum($__time,"$clock_time");


if($ref ne "")
{
@bei123_BP_REF=(split("baseportal.pl",$ref));#-------- Referer-Array
$bp{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$bei123_BP_REF[1]);
#-------------------------------------------------------------------- _SID & _UID merken
out(qq|document.getElementById("UID").value="$bp{uid}";|); 
out(qq|document.getElementById("SID").value="$bp{sid}";|);
#-------------------------------------------------------------------- CMD(START) aufrufen



out(qq|RUN("CMD=START&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+""),RUN("MODUS=Clock&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+"");|);
}
#------------------------------------------

if($MODUS ne "")
{
&RUN_MODUS();
}
#------------------------------------------
else # KEIN MODUS
{
$HEADER=qq(<div id='HEAD_LEFT' style='position:absolute;top:0;left:0;width:80px;float:left;height:61px;'><ins id='bei123_Clock' class='Clock'>$time_value</ins><br><ins id='bei123_Activity'>$pic_activity</ins></div><div id='HEAD_RIGHT' style='margin-left:80px;height:60px'><div id='HEAD_R_TOP' class='HEAD_R_TOP'></div><div id='HEAD_R_BOT' class='HEAD_R_BOT'></div></div><div style='clear:left'></div>);
#---------------------------------------------------------------
$HEADER =~ s#"#'#g;
out(qq|document.getElementById("HEAD1").innerHTML="$HEADER";|);
out(qq|document.getElementById("HEAD_R_TOP").innerHTML="";|); 
out(qq|document.getElementById("HEAD_R_BOT").innerHTML="";|);
out(qq|document.getElementById("HEAD2").innerHTML="";|);
out(qq|document.getElementById("HEAD3").innerHTML="";|);
out(qq|document.getElementById("HEAD4").innerHTML="";|);
out(qq|document.getElementById("HEAD5").innerHTML="";|);
#----------------------- free Variablen definieren param:: !!
 %_run=%_cgi;
 delete $_run{_script_nr};
 delete $_run{htx};
 @__CGI=map{"$_=$_run{$_}"}keys(%_run);
 $__CGI = join("&",@__CGI);
 $__CGI=&um_laut4ajax("$__CGI");
 #------------------ free Variablen definieren param:: !! ENDE

 if($_UID eq "" || $_SID eq "" || $_uid ne $_UID)
 {################################################
     %bei123_RUN_CMD_HASH=(
     SITEMAP    => ["SiteMap/Übersicht",""],
     START      => ["Willkommem/Start",""],
     SEARCH     => ["Suchen/Search",""],
     CHRONIK    => ["Verlauf/Chronik",""],
     CODE       => ["Code",""]
     );
 }#-----------------------------------------------------------  

if(exists $bei123_RUN_CMD_HASH{$CMD})
 {
  &bei123_RUN_CMD();

  $run_cmd =~ s#"#'#g;
  $my_out_cmd="<div class='DataContent'>$run_cmd</div>";


  $myROUTINE=&um_laut4ajax($bei123_RUN_CMD_HASH{$CMD}[0]); # %bei123_RUN_CMD_HASH
  $DataName="<span class='DataName'>$myROUTINE</span>";
  out(qq|document.getElementById("HEAD_R_TOP").innerHTML="$DataName";|); # ????????

  ########### Ausgabe der fest definierten Routinen
  out(qq|document.getElementById("CMD_OUT").innerHTML="$my_out_cmd";|); ###INTERNE Routinen
}


else ###### if(exists $bei123_RUN_CMD_HASH{$CMD})
{
####### falls _ID übergeben
if($_cgi{_ID} ne "")
{#--------------------------------------------------------------------------------- BANNER AUS WENN ?
#out(qq|document.getElementById("BANNER").innerHTML="";|); 
$DataName=convert_html(${$_DB{Data_name}}[$_FID{$_ID}]);
$DataName="<span class='DataName'>$DataName</span>";
#---------------------------------------------------------- Menü
$if_admin=qq(&bei123_admin;)if($_uid eq $_UID && $_SID ne "");

#$menu_cmd=qq(<div style="padding:1px"><div style="float:left;width:200px"><font size=4><b>&bei123_bp;</b> <i>Office</i></font></div><div style="float:left;"> $if_admin &bei123_home; &bei123_sitemap; &bei123_search; &bei123_navig;</div><div style="clear:left"></div></div>);

$menu_cmd=qq(<Div style="padding:1px"><div style="float:left;width:200px" ><menu item::sitemap type::option style::font-size:12px;width:100% value::Verzeichnisse/Seiten /></div><div style="float:left;padding:4px" >$if_admin &bei123_home; &bei123_sitemap; &bei123_search; &bei123_navig;<div style="clear:left"></div></div></Div>);
#-----------------------------------------------------------
$menu_cmd=&bei123_ENTYTAGUM($menu_cmd);
$menu_cmd =~ s#"#'#g;
#----------------------------------------------------------- Verlauf/Chronik 
@CHRID=&text2split($CHR,",");
$last_ID=$CHRID[-1];
if($_ID ne $last_ID)
{
out(qq|document.getElementById("CHRONIK").value=document.getElementById("CHRONIK").value.concat("$_ID,");|);
}
#--------------------------------------------------------------------------------------------
out(qq|document.getElementById("HEAD_R_TOP").innerHTML="$DataName";|); 
#out(qq|document.getElementById("HEAD_R_BOT").innerHTML="$menu_cmd";|);
#----------------------------------------------------------------------- DatenAusgabe
out(qq|CMD("_ID=$_ID&"+encodeURI("$__CGI")+"&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+"&CHR="+document.getElementById("CHRONIK").value+"");|); 
#-----------------------------------------------------------------------------------------
}
else ######### _ID ist "" 
{########### Browser aktualisiert ?
out(qq|RUN("CMD=START&_SID="+document.getElementById("SID").value+"&_UID="+document.getElementById("UID").value+"");|);
#------------------------------------------------------------------------------------------
$DataName="<span class='DataName' style='font-size:0.8em'>Loading...$_HTTP_REFERER</span>";
out(qq|document.getElementById("HEAD_R_TOP").innerHTML="$DataName";|); ########## ????? 
}

}# ENDE else ###### if(exists $bei123_RUN_CMD_HASH{$CMD})
#------------------------------------------------------------------- HEAD_MENU NOCH NICHT DEFINIERT
$menu_cmd =~ s#"#'#g;

$head_r_bot=qq(<div style='-webkit-border-top-left-radius: 8px;-webkit-border-top-right-radius:8px;-khtml-border-top-left-radius:8px;-khtml-border-top-right-radius:8px;-moz-border-radius-topleft:8px;-moz-border-radius-topright:8px;border-top-left-radius:8px;border-top-right-radius:8px;background:#e0e0e0;background-image:url(http://baseportal.de/bp-pics/back2x.gif);background-repeat:repeat-x;height:30px;width:320px'><div style='margin-left:4px;padding-top:2px;color:#191970'>$menu_cmd</div></div>); 

########## HEAD_R_BOT befüllen
 out(qq|document.getElementById("HEAD_R_BOT").innerHTML="$head_r_bot";|);
 #$HEAD_MENU=&HEAD_MENU();
 #out(qq|document.getElementById("Menu").innerHTML="$HEAD_MENU";|);
 #------------------------------------------------------------------- LEFT_MENU 
 #$LEFT_MENU=&LEFT_MENU();
 #out(qq|document.getElementById("LEFT").innerHTML="";|);
}# ENDE KEIN MODUS
}#################################################### ENDE sub RUN



sub bei123_RUN_CMD
{##
########### MenüreiterMeldung
$if_admin=qq(&bei123_admin;) if($_uid eq $_UID && $_SID ne ""); 
$menu_cmd=qq(<div style="padding:1px"><div style="float:left;width:200px"><font size=4 class="Shadow" ><b>&bei123_bp;</b> <i>Office</i></font></div><div style="float:left;padding:4px"> $if_admin &bei123_home; &bei123_sitemap; &bei123_search; &bei123_navig;</div><div style="clear:left"></div></div>);

$menu_cmd=&bei123_ENTYTAGUM($menu_cmd);
$menu_cmd =~ s#"#'#g;

$run_cmd=qq(Routine ($CMD) $_UID|$_SID);
#------------------------------------------------------------------------------------------------------
#$info=qq(<div id='INFO' style='position:absolute;top:56px;left:76px;right:20px;padding:8px;z-index:3;color:#191970;display:none' onMouseOver=(this.style.display='block') onMouseOut=(this.style.display='none')><div style='width:100%;padding:4px' class='bei123_Menu'>Click to close/exit</div></div>);
#----------------------------------------------------------------
#out(qq|document.getElementById("HEAD2").innerHTML="$info";|);
#----------------------------------------------------------------

$menu_cmd=qq(<button style='cursor:pointer;padding:0px;background:transparent;border:0;float:left' title='Close/Exit Function' onclick=(RUN('_ID=$_ID&CHR='+document.getElementById('CHRONIK').value+'&_SID='+document.getElementById('SID').value+'&_UID='+document.getElementById('UID').value+''))>$pic_close1</button>) if($CMD ne "START");

#------------------------------------------------------------------------------------------------------
$RCMD = join("&",(map{"$_='+encodeURIComponent(document.getElementById('$_').value)+'"}@_FIELDS)) ;
#------------------------------------------------------------------------------------------------------

if($_cgi{CMD} eq "MOD" || $_cgi{CMD} eq "ADD" || $_cgi{CMD} eq "DEL" || $_cgi{CMD} eq "CMS")
{#------------------------------------------------------------------------------------------
  $_msg{MOD}="Datensatz geändert";
  $_msg{ADD}="Datensatz hinzugefügt";
  $_msg{DEL}="Datensatz gelöscht";
  $_msg{CMS}=$DIR."Dir gespeichert";
  #------------------------------------------------------------------
  %_VAL=%_cgi;
  $time=time();
  %_VAL=map{$_ => convert_utf8($_VAL{$_})}keys(%_VAL);#----- Konvertieren wegen javascript
  #-------------------------------------------------- Dateifelder
  $Data__out = $_VAL{Data_out};
  #------------------------------------------------------------------------------------------------

  $_VAL{Data_out}=(length($Data__out)<2 ? "$Data__out,":$Data__out);#length($URI) Zeichen erzwingen
  #------------------------------------- unzulässige Zeichen ausschließen
  $_VAL{Data_name} =~ s#<##g;
  $_VAL{Data_name} =~ s#>##g;
  #---------------------------------------------------------------------- Data_date festlegen ??????

  $_VAL{Data_date}=datum($time,"kurz");
  #----------------------------------------------------------------------
  %_DB=&bei123_DataHasher("$db","$sel","Inhalt",$_cgi{CMD},$_cgi{_ID});
  mod "$sel",["Inhalt",serial(%_DB)],"$db";
  #----------------------------------------------------------------------
  # $_ID=$_cgi{_ID}=${$_DB{"_ID"}}[$#{$_DB{"_ID"}}] if($_cgi{CMD} eq "ADD");

  $_ID=$_cgi{_ID}=${$_DB{"_ID"}}[0] if($_cgi{CMD} eq "DEL");
  #----------------------------------------------------------------------
  if($_cgi{CMD} eq "CMS")
    {
     $_ID=$_cgi{_ID}=${$_DB{"MainDir"}}[0] if(grep($_ == $_cgi{_ID},@{$_DB{"MainDir"}})<1);
    }
#-------------------------------------------------
if($CMD eq "ADD")
{
$_ID=${$_DB{"_ID"}}[$#{$_DB{"_ID"}}]; # NEUER SATZ
$menu_cmd=qq(<ins title='Close/Exit' onclick=(RUN('_ID=$_ID&_SID='+document.getElementById('SID').value+'&_UID='+document.getElementById('UID').value+''))>$pic_close1</ins>)
}
#------------------------------------------------------------------
$run_cmd="<font size=5>".convert_html("$_msg{$CMD} ?")."</font>"; # Meldung nach Abschluss der Aktion
}#---------------------------------------------------------------- Ende CMD=|||

############## DO_ Routinen

if($_cgi{CMD} eq "DO_MOD")
{#
#----------------------------
%_DB=&bei123_DataHasher("$db","Datei==!Datei1","Inhalt","","");
#----------------------------------------------------------------- Daten aus %_DB einlesen
map{$$_ = convert_html(${$_DB{$_}}[$_FID{$_ID}])}@_FIELDS;
$Data_date    = ${$_DB{Data_date}}[$_FID{$_ID}];
#---------------------------------------------------------------
$Data_content =~ s#\\#\\\\#g;
$Data_content =~ s#\n#\\n#g;
#------------------------------------ form-elements
$run_cmd.=&RUN_CMD_FORM("$CMD");
#---------------------------- Reset
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Reset Data' onclick=(RUN('_ID=$_ID&CMD=DO_MOD&_SID=$_SID&_UID=$_UID'))>$pic_reset Reset</button>);
#---------------------------- Code
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Show Record-Code' onclick=(RUN('_ID=$_ID&CMD=CODE&_SID=$_SID&_UID=$_UID'))>$pic_code2 Code</button>);
#---------------------------- Copy
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Copy Record' onclick=(RUN('_ID=$_ID&$RCMD&CMD=ADD&_SID=$_SID&_UID=$_UID'))>$pic_copy Copy</button>);
#---------------------------- Save
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Save Data' onclick=(RUN('_ID=$_ID&$RCMD&CMD=MOD&_SID=$_SID&_UID=$_UID'))>$pic_save Save</button>);
}#

if($_cgi{CMD} eq "DO_ADD")
{#--------------------------- form
$run_cmd.=&RUN_CMD_FORM("$CMD");
#----------------------------
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Reset' onclick=(RUN('_ID=$_ID&CMD=ADD&_SID=$_SID&_UID=$_UID'))>$pic_reset Reset</button>);
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Save Data' onclick=(RUN('_ID=$_ID&$RCMD&CMD=ADD&_SID=$_SID&_UID=$_UID'))>$pic_save Save</button>);
}#

if($_cgi{CMD} eq "DO_DEL")
{#---------------------------
$run_cmd.=" <font color=red><b>".convert_html("ACHTUNG L Ö S C H E N")."</b>  [_ID=$_ID]</font>";
###################
$_cgi{CMD}="CODE"; # CODE anzeigen !!!
###################
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' style='color:red;' title='Delete Data' onclick=(RUN('_ID=$_ID&CMD=DEL&_SID=$_SID&_UID=$_UID'))>$pic_delete Delete</button>);
}#

if($_cgi{CMD} eq "DO_CMS")
{#---------------------------
@NoMainDir=@MainDir=();
$MainID   ="";
$mDIR     ="$DIR"."Dir";
$dID      ="$DIR"."ID";
$dirhead  =""; 
$Mdirfw   =($DIR eq "Main" ? "font-weight:bold":"");
$Sdirfw   =($DIR eq "Sub" ? "font-weight:bold":"");
$Smapfw   =($DIR eq "" ? "font-weight:bold":"");
#------------------------------------------------------------
@JustDir  =map{@{${$_DB{SubDir}}{$_}}}(keys(%{$_DB{SubDir}}));
@RestDir  =(@{$_DB{_ID}},@JustDir);

     if($DIR eq "Main"){#------------------------- Hauptverzeichnisse definieren
        $run_cmd=&CMD_MAIN_DIR();}
     elsif($DIR eq "Sub"){#----------------------- Unterverzeichnisse definieren
        $run_cmd=&CMD_SUB_DIR();}
     else
       {#-----------------
       $menu_cmd.="ERROR";
       }#-----------------

}#------------------ Ende $_cgi{CMD} eq "DO_CMS"

####################### Sonstige Routinen

if($_cgi{CMD} eq "CODE")
{#-------------------------------------------------------------------------------
$menu_cmd.=qq(<button class='bei123_CmdButtonClass' title='Edit Data' onclick=(RUN('_ID=$_ID&CMD=DO_MOD&_SID=$_SID&_UID=$_UID'))>$pic_edit Edit</button>) if($_uid eq $_UID && $_SID ne "");
#--------------------------------------------------------------------------------
map{$$_ = convert_html(${$_DB{$_}}[$_FID{$_ID}])}@_FIELDS;
#################################################################################
$Data_date=${$_DB{Data_date}}[$_FID{$_ID}];
$cont_anz=&bei123_container_anz();
$cont_lfdnr=$cont_anz-1;
########################################################################## PERL
#--------------------------------------------------------- Code typisieren/färben
$Data_content =~ s/(&lt;perl&gt;)/<font color=blue\><b\>$1<\/b\><\/font\><font color=blue \>/gim;
$Data_content =~ s/(&lt;\/perl&gt;)/<\/font\><font color=blue\><b\>$1<\/b\><\/font\>/gim;
########################################################################## SCRIPT
$bei123_script_code=convert_html("<script (.+?)>");
$my_onClickS=qq(onClick=(alert("JavaScript............................DEFINITIONEN($_uid):\\n\\n"+this.getAttribute("ccite1")+"\\n\\n\\tCSS(class)=."+this.className+"{}\\n\\n$cline\\n"+this.getAttribute("ccite2")+"\\n")));
$Data_content =~ sÞ($bei123_script_code)Þ<ins class="bei123_ScriptCodeClass" ><ins title="Anfang des Script" ccite1="Attribute: $2 " ccite2="Weiter so - onWork...." style="cursor:help;border-bottom:1px dashed #191970;" class="bei123_ScriptCodeClass" $my_onClickS ><b>&lt;script </b></ins>$2<b>&gt;</b></ins>Þgim;
#--------------- <script>
$my_onClickS="";
$bei123_script_code0=convert_html("<script>");
$Data_content =~ sÞ($bei123_script_code0)Þ<ins title="Anfang des Script - keine Attribute !" ccite1="" ccite2="" style="cursor:pointer;" class="bei123_ScriptCodeClass" ><b>$1</b></ins>Þgim;
#---------------</script>
$bei123_script_code1=convert_html("</script>");
$Data_content =~ sÞ($bei123_script_code1)Þ<ins title="Ende des Script" ccite1="" ccite2="" style="" class="bei123_ScriptCodeClass" ><b>$1</b></ins>Þgim;
#------------------------ falsches EndeTagzeichen abfangen </script ????>flag5
#-------------- </script >
$bei123_script_code2=convert_html("</script >");
$Data_content =~ sÞ($bei123_script_code2)Þ<ins title="Ende des Script" ccite1="" ccite2="" style="" class="bei123_ScriptCodeClass" ><b>$1</b>$flag5</ins>Þgim;
$bei123_script_code2=convert_html("</script(.+?)>");
$Data_content =~ sÞ($bei123_script_code2)Þ<ins title="Ende des Script" ccite1="" ccite2="" style="" class="bei123_ScriptCodeClass" ><b>$1</b>$flag5</ins>Þgim;
############################################################################### Programm-Tags
$bei123_tags_code=join("|",(map{convert_html("<$_(.+?) />")}@$bei123_regex)); #### @Regex
$Data_content =~ sÞ($bei123_tags_code)Þ<ins title="" ccite1="" ccite2="" style="" class="bei123_TagsCodeClass" ><b>$1</b></ins>Þgim;
############################################################################### Entities
$bei123_entities_code = join("|",(map{qq(&amp;bei123_$_;)} keys(%Entities)));
$my_onClickE=qq(onClick=(alert("Entities..............................DEFINITIONEN($_uid):\\n\\n\\t"+this.getAttribute("ccite1")+"\\n\\n\\tCSS(class)=."+this.className+"{}\\n\\n$cline\\n"+this.getAttribute("ccite2")+"\\n")));
$Data_content =~ sÞ($bei123_entities_code)Þ<ins title="CLICK for Info: $1 " ccite1="$1" ccite2="Sie k&ouml;nnen [$1] im Hasch %Entities definieren und das Ausehen mit CSS festlegen" style="cursor:help;" $my_onClickE class="bei123_EntitiesCodeClass" ><b>$1</b></ins>Þgim;
############################################################################### Container-Splitter
$my_onClickbei123=qq(onClick=(alert("&lt;!bei123&gt;..............................DEFINITIONEN($_uid):\\n\\n\\t"+this.getAttribute("ccite1")+"\\n\\n\\tCSS(class)=."+this.className+"{}\\n\\n$cline\\n"+this.getAttribute("ccite2")+"\\n")));
$mDout=($Data_out eq "" ? "alle $cont_anz":"die Nr.: $Data_out");
$Data_content =~ sÞ(&lt;!bei123&gt;)Þ<ins title="CLICK for Info: $1 " ccite1="Mit [$1] ist die Seite ($Data_name) in $cont_anz Container unterteilt. Array(0..$cont_lfdnr)" ccite2="Anzeige/Ausgabe der Container lt. FELD \$Data_out[$Data_out] = $mDout !." style="cursor:help;" $my_onClickbei123 class="bei123_bei123CodeClass" ><b>$1</b></ins> Þgim;
$Data_content =~ s/(&lt;bei123&gt;)/<font color=red\><b\>$1<\/b\>............$flag5<\/font\>/gim;
##############################################################################
#--------------------------------------------------------
$Data_content =~ s#\\#\\\\#g;
$Data_content = convert_br($Data_content);
$run_cmd.=&RUN_CMD_FORM("CODE");
}#------------------------------------------------------- ENDE if CODE

if($_cgi{CMD} eq "SITEMAP")
{#--------------------------------
my $html=qq(Mit der Routine <i>SiteMap</i> $CHR wird Ihnen eine Übersicht der Verzeichnisstruktur angezeigt:<hr><p><ul><menu item::sitemap type::link style::font-size:14px /></ul></p>);
#---------------------------------
$run_cmd=&bei123_ENTYTAGUM($html);
$run_cmd =~ s#"#'#g;
}#--------------------------------

if($_cgi{CMD} eq "START")
{#--------------------------------
my $html=qq(<DIV><div style="position:absolute;top:5;left:5;width:200px"><font size="4" class="Shadow"><b>MenüAuswahl</b></font><br><menu item::sitemap type::option style::font-size:11px;width:200px value::Verzeichnisse/Seiten size::20 /></div><div style="position:absolute;top:5;left:215px;right:20px;" class="bei123_bpOffice"><font size="5"><b>&bei123_bp;</b> <i>Office</i></font><p><span style='font-size:40px'>Start and let`s go for <i>DEMO <b>$DATA</b></i></span><br>$pic_colorline<br>$pic_onwork</p></div><div style="clear:left"></div></DIV>);
#------------------------------------------------------------------------------------------------------
$run_cmd=&bei123_ENTYTAGUM($html);
$run_cmd =~ s#"#'#g;
}#--------------------------------

if($_cgi{CMD} eq "SEARCH")
{#------------------------------- Button + Form in Menüleiste
#$menu_cmd.=qq( 
#$menu_cmd=&bei123_ENTYTAGUM($menu_cmd);
$html=qq(Die Routine <i>Suchen</i> bietet eine Volltextsuche - Geben Sie zur Suche <i>mindestens</i> <b>3</b> Zeichen ein.<hr><menu item::search value::Suchen />);
#$html.=qq($pic_onwork<hr>);
#---------------------------------
$html.=&bei123_SEARCH_RESULT($search);
#---------------------------------
#$run_cmd=$html;
$run_cmd=&bei123_ENTYTAGUM($html);
$run_cmd =~ s#"#'#g;
}#--------------------------------

}## Ende Sub RUN_CMD


sub bei123_ENTYTAGUM
{##------------------- Entities, eigene Tags und Umlaute verarbeiten
my $etu  = $_[0];
$etu     = &entities($etu);
map{$etu =~ s/\<$_(.+?) \/>/&regex("$_",$1)/gime;}@$bei123_regex;
$etu     = &um_laut4ajax($etu);
return("$etu");
}##-----------------------------------------------------------------#



sub bei123_SEARCH_RESULT
{##---------------------------------------------------------------- OK
$search =$_[0];
#---------------------------- Welche Zeichen ausschließen ? 
$search =~ s/<//g;
$search =~ s/>//g;
#-----------------------------------------------------------
$M_search=$search;
$search_=&um_laut4ajax(lc($search));

#$search_=convert_quote($search_);

$stxt="";
###########
if($search eq ""){$stxt= qq(<p>Es wurde bisher kein <i>richtiger</i> Suchbegriff eingegeben.</p>);
}
elsif(length($search)<3){$stxt= qq(<p>Der Suchbegriff muss <b>mindestens 3 Zeichen</b> lang sein.</p>);
}

else
{#######

#$search =~ s#\$#\\\$#g;
#$search =~ s#\@#\\\@#g;
#$search =~ s#\&#\\\&#g;
$search=convert_html($search);
#$search=qq($search);

$stext="";
#@SUCH=grep(index(&um_laut4ajax(lc(${$_DB{Data_content}}[$_FID{$_}].${$_DB{Data_name}}[$_FID{$_}])),lc($search))>=0,@{$_DB{_ID}});

# feststellen, welche IDs überhaupt $search haben
############  zu durchsuchender Inhalt                                    ########## Suchbegriff

@SUCH=grep(index(lc(${$_DB{Data_content}}[$_FID{$_}].${$_DB{Data_name}}[$_FID{$_}]),lc($search))>-1, @{$_DB{_ID}});

#@SUCH=grep(index(lc(${$_DB{Data_content}}[$_FID{$_}]${$_DB{Data_name}}[$_FID{$_}]),lc($search))>-1, @{$_DB{_ID}});


#-------------------------------------------------------------------------------------------------
# die NICHT passen:index(lc(${$_DB{Data_content}}[$_FID{$_}].${$_DB{Data_name}}[$_FID{$_}]),lc($search))<0, 
# alle die PASSEN :index(lc(${$_DB{Data_content}}[$_FID{$_}].${$_DB{Data_name}}[$_FID{$_}]),lc($search))>=0, 
# groß=klein
#-------------------------------------------------------------------------------------------------------------
# Datei_name 4 mal gewichtet

@SUCH1=map{&um_laut4ajax(lc(${$_DB{Data_content}}[$_FID{$_}].(${$_DB{Data_name}}[$_FID{$_}] x 4 )))}@SUCH;

####################
# OK
#  $a = @SUCH;
#  @STEXT= map{"<link page::$_PAGE{$_} /> ".$_PAGE{$_}."<br>"}@SUCH;
#  $stxt.= qq(<p>Ihre Suche nach [<i>$search_</i>]ergab <b>$a</b> Treffer !</p>@STEXT);

  foreach(@SUCH1)
  {#---------------------------------
   my $__text=$_;
   $__text =~ s/$search_/µ/gi;
   $WZ = ($__text =~ tr/µ//);
   push(@SUCH2,$WZ);
  }
  @SUCHEN{@SUCH}=@SUCH2;
  sub hashValueDescendingNum{$SUCHEN{$b} <=> $SUCHEN{$a};}
  #-------------------------------------
  $stxt.= "<p>Ihre Suche ergab <b>".@SUCH."</b> Treffer ! </p>";
  $stxt.= qq(<blockquote style="font-size:0.9em">);
  foreach $key (sort hashValueDescendingNum (keys(%SUCHEN)))
  {
   @CONT = split(/<!bei123\>/,${$_DB{Data_content}}[$_FID{$key}]);
   $total=0;
   ($total+=$SUCHEN{$_}) for keys(%SUCHEN); 
   $PROZ = sprintf("%.2f",(($SUCHEN{$key}/$total)*100));
   $stxt.="<b><link page::$_PAGE{$key} param::search=$M_search /></b> $PROZ % <br>";
   $ect=$CONT[1];
   $ect  =~ s#\n#\\n#g;
   $stxt.=qq(<div style="font-size:0.9em">).convert_br("$ect").qq(</div><br>);  
  }
$stxt.="</blockquote>";
}########### Ende else

return("$stxt");
}##


sub RUN_CMD_FORM
{##
$run_out_cmd="";
$out_cmd=$_[0];
$out_read=($out_cmd eq "CODE" ? "readonly":"");
#-------------------------------------------------
if($out_cmd eq "DO_ADD")
{
$Data_content="<!--- Erstellung $time_value --->\\n<!bei123>\\nMein Text der Seite <b>&bei123_page;</b> lautet .....<h2>?</h2>" ;
###################################### Fehleingaben abfangen !!!
$Data_name=$Data_out=$Data_author=$Data_date="?";
##################################################################
}
$out_FORM=qq(<Div style='clear:left'><font size='2'><b>Data_content</b><br></font><textarea id='Data_content' style='color:#000000;background:#f0f0f0;font-weight:normal;font-size:12px;font-family:arial;width:99.9%;height:380px;border:0'>$Data_content</textarea></Div>);
#-------------------------------------------------
$out_CODE=qq(<Div><font size='2'><b>Data_content</b></font><div style='height:380px;overflow:auto'><div style='background:#ffffff;font-size:12px;font-family:arial;padding:2px;'>$Data_content</div></div></Div>);
#-------------------------------------------------------
$Run_OC=($out_cmd eq "CODE" ? "$out_CODE":"$out_FORM");
#-------------------------------------------------------
$win4=qq(alert('Frage.................?'));
if($_uid eq $_UID)
{
$win4=qq(RUN('MODUS=WO&data=Data_name&Titel=TEST&width=830&height=550&_UID=$_UID&_SID=$_SID'));
}
#--------------------------------------------------
$run_out_cmd.=qq( <ins onclick=($win4) title='' style=''>?</ins> <hr><DIV style='padding:4px;width:97%;' class='bei123_Menu'><div style='float:left'><font size='2'><b>Data_name</b><br></font><input id='Data_name' type='text' size='25' value='$Data_name' $out_read></div><div style='float:left'><font size='2'><b>Data_out</b><br></font><input id='Data_out' type='text' size='10' value='$Data_out' $out_read></div><div style='float:left'><font size='2'><b>Data_author</b><br></font><input id='Data_author' type='text' size='25' value='$Data_author' $out_read></div>);
#--------------------------------------------------
$run_out_cmd.=qq(<div style='float:left'><font size='2'><b>Data_date</b><br></font><input id='Data_Date' style='background:#b0c0e0' type='text' size='10' value='$Data_date' readonly ></div><div style='float:left'><font size='2'><b>_ID</b><br></font><input id='Data_ID' style='background:#b0c0e0' type='text' size='5' value='$_ID' readonly ></div><div style='clear:left'></div>) if($CMD ne "DO_ADD");
#--------------------------------------------------
$run_out_cmd.=qq($Run_OC</DIV>);
#--------------------------------------------------
return($run_out_cmd);
}##

sub RUN_MODUS
{##
if($MODUS eq "Clock")
{####################
$ronline="";

if($_UID eq $_uid)
{################### - LoginCheck über bp-Account
$__in=qq(http://$bp_url/cgi-bin/baseportal.pl?htx=/main&uid=$_UID&sid=$_SID&cmd=do_file&type=0); # ?
$__in=get "$__in";
#----------------------------------------------------------
if(index($__in,"uid=$_UID&sid=$_SID") >= 0)
   {
   $ronline=".";
   } 
else
  {$_UID=$_SID="";
   out(qq|document.getElementById("UID").value="";|); 
   out(qq|document.getElementById("SID").value="";|);
  }
}##################
out(qq|document.getElementById("bei123_$MODUS").innerHTML="$time_value$ronline";
window.setTimeout("RUN('MODUS=$MODUS&_UID=$_UID&_SID=$_SID')",60000);|);
}

elsif($MODUS eq "WO")
{
$win4out=qq|<div style='background-image:url(http://baseportal.de/bp-pics/back.gif);background-repeat:repeat-x;padding:1px'><button onclick='self.close();return false;' >Close Window</button><ins id='WIN2INS' style='text-decoration:none;'></ins></div>|;

$Code=qq(<html><head><title>$Titel</title></head><body style='margin:0;background:#b0d0e0'>$win4out<div style='background:#ffffff'><iframe src='http://$bp_url/cgi-bin/baseportal.pl?htx=/main&uid=$_UID&sid=$_SID' width='100%' height='96%' name='BASEPORTAL_iframe' scrolling='yes' marginheight='0' marginwidth='0' frameborder='0'></iframe></div></body></html>);

#$Code=qq(<HTML><HEAD><TITLE>$Titel</TITLE></HEAD><FRAMESET ROWS='100%,*' FRAMEBORDER='0' FRAMESPACING='0' BORDER='0'><FRAME NAME='Modus' MARGINWIDTH='0' MARGINHEIGHT='0' NORESIZE=0 'NORESIZE' FRAMEBORDER='0' BORDER='0' SCROLLING='AUTO' SRC='http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/Demo/javascript_adds/tag_label'></FRAMESET></HTML>);

out(qq|WO("C","$Titel",$width,$height,"$Code");|);
$win2ins="$pic_bp_ico <b>$_UID</b>";

$win2ins =~ s#"#'#g;
out(qq|W2.document.getElementById("WIN2INS").innerHTML="$win2ins";|);
#out(qq|W2.document.getElementById("WIN4RUN").innerHTML="$win4out";|);
}

elsif($MODUS eq "NAVIG")
{
my $_m_out=&bei123_NAVIG();
$_m_out=&bei123_modus1("Pfad/Verzeichnisse/Chronik","$_m_out");
$_m_out =~ s#"#'#g;
out(qq|document.getElementById("HEAD2").innerHTML="$_m_out";|);
}
elsif($MODUS eq "SITEMAP")
{
my $_m_out=&bei123_SITEMAP();
$_m_out=&bei123_modus1(convert_html("Übersicht/SiteMap"),"$_m_out");
$_m_out =~ s#"#'#g;
out(qq|document.getElementById("HEAD2").innerHTML="$_m_out";|);
$i_msg=qq(Mit der Routine <i>SiteMap</i> wird Ihnen eine Übersicht der Verzeichnisstruktur angezeigt);
$i_msg=&bei123_ENTYTAGUM($i_msg);
out(qq|document.getElementById("INFO_MSG").innerHTML="$i_msg";|);
}
elsif($MODUS eq "ADMIN")
{
my $_m_out=&bei123_ADMIN();
$_m_out=&bei123_modus1("Verwaltung/Administration","$_m_out");
$_m_out =~ s#"#'#g;
out(qq|document.getElementById("HEAD2").innerHTML="$_m_out";|);
}

elsif($MODUS eq "W2")
{#################
#out(qq|W2.document.getElementById("WIN").innerHTML="Nur mal Test, ob es auch angezeigt wird ?";|);
}##################

#°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
else
{########################## Sonstige javaSript-Aktionen mit bp-Unterstütung
%_run=%_cgi;
delete $_run{_script_nr};
#delete $_run{htx};
#------------------------------------------- Variablen verfügbar machen
out map{(qq|$_="$_run{$_}";|)}keys(%_run);
}##########################


#°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
}############## ENDE MODUS

sub bei123_modus1
{##
$m1_msg=$_[0];
$m1_out=$_[1];
$m1_more=$_[2];
my $modus1="";
$modus1=qq(<DIV id='INFO' class='bei123_Info'><DIv style='width:100%;height:100%;padding:6px;font-size:12px;color:#87AEC5;' class='bei123_bpOffice'><DIv style='padding:1px;width:49%;float:left'><button style='cursor:pointer;padding:0px;background:transparent;border:0;float:left' title='Close/Exit Function' onClick=(document.getElementById('INFO').style.display='none')>$pic_close1</button><span style='padding:1px;font-size:20px;font-weight:bold;'>$m1_msg</span></DIv><DIv style='padding:1px;width:49%;float:left'>$m1_more</DIv><DIv style='clear:left'></DIv><DIv style='width:100%;'>&nbsp;<ins id='INFO_MSG' style='color:#f0f0f0'></ins></DIv><DIv style='padding:4px;height:90%;overflow:auto;background:#b0c0d0;color:#191970'><Div style='padding:2px'>$m1_out</Div></DIv></DIV>);
#---------------
return($modus1);
}##


sub bei123_container_anz
{##
my $ctID=$_[0]||$_ID;
@CONTAINER = split(/<!bei123\>/,${$_DB{Data_content}}[$_FID{$ctID}]);
$cont_anz  = @CONTAINER; #
return($cont_anz);
}##

sub CMD_MAIN_DIR
{##
$ListID=join(",",@{$_DB{MainDir}});
#------ --------------------------- Alles _ID's von NICHT eingeb. Seite
($union,$intersection ,$difference)=&compare2arrays(\@{$_DB{MainDir}},\@RestDir);
#----------------------------------
@NoDir=@$difference; 
#----------------------------------
@LeftOpt=map{qq(<option value=$_>).&um_laut4ajax(${$_DB{Data_name}}[$_FID{$_}]).(@{$_DB{SubDir}{$_}}>0 ? "[".join(",",@{$_DB{SubDir}{$_}})."]":"")}@NoDir;
#----------------------------------
@RightOpt=map{"<option value=$_>".&um_laut4ajax(${$_DB{Data_name}}[$_FID{$_}]).""} @{$_DB{"MainDir"}};
#----------------------------------
$dir_code.=qq(<div style='padding:0.0em'><b>$mDIR</b> definieren<hr>).&cms_dir_opt().qq(</div>);
return($dir_code);
##################
}##



sub CMD_SUB_DIR
{##
$ListID=join(",",@{$_DB{SubDir}{$_ID}});
#------------------------------------------
@JustDir = (@{$_DB{MainDir}},@JustDir);
#------------------------------------------
($union,$intersection ,$difference)=&compare2arrays(\@JustDir,\@{$_DB{_ID}});
@NoSubDir=(@$difference,@{$_DB{SubDir}{$_ID}});
#------------------------------------------
($union,$intersection ,$difference)=&compare2arrays(\@{$_DB{SubDir}{$_ID}},\@NoSubDir);
@NoDir=@$difference;
#------------------------------------------
@LeftOpt=map{qq(<option value=$_>).&um_laut4ajax(${$_DB{Data_name}}[$_FID{$_}]).(@{$_DB{SubDir}{$_}}>0 ? "[".join(",",@{$_DB{SubDir}{$_}})."]":"")}grep($_ != $_ID,@NoDir);
#------------------------------------------
@RightOpt=map{"<option value=$_>".&um_laut4ajax(${$_DB{Data_name}}[$_FID{$_}]).""} @{$_DB{"SubDir"}{$_ID}};
#------------------------------------------
my $dir_PAGE = &um_laut4ajax($_PAGE{$_ID});
$dir_code=qq(<div style='padding:0.0em'><b>$mDIR</b>($dir_PAGE) definieren<hr>).&cms_dir_opt().qq(</div>);
#------------------------------------------
return($dir_code);
##################
}##

sub cms_dir_opt
{##
my $cdo="";
#---------- generate form
$cdo=qq(<div style="clear:left;padding:4px;width:97%;background:#b0c0e0;border:1px solid #87AEC5;" class="Box2Shadow"><form name="SeitenIndex"><TABLE border=0><TR><TD><b>PAGE</b></TD><TD></TD><TD><b>$mDIR</b></TD><TD></TD></TR><TR><TD><SELECT NAME="AusWahl" ID="AusWahl" SIZE="10" style="width:200px;font-size:12px" onfocus=(document.getElementById("selPAGE").value=this.form.AusWahl.options[this.form.AusWahl.selectedIndex].value) >@LeftOpt</SELECT></TD><TD><INPUT STYLE="width:35px;font-size:12px" TYPE="BUTTON" VALUE="&raquo;" onclick=(addIt(document.getElementById("AusWahl"),document.getElementById("selList")),updateList(document.getElementById("selList"),document.getElementById("newList")))></INPUT><BR><INPUT STYLE="width:35px;font-size:12px" TYPE="BUTTON" VALUE="&laquo;" onclick=(delIt(document.getElementById("AusWahl"),document.getElementById("selList")),updateList(document.getElementById("selList"),document.getElementById("newList")))></INPUT></TD><TD><SELECT NAME="selList" ID="selList" SIZE="10" style="width:200px;font-size:12px" multiple="multiple">@RightOpt</SELECT></TD><TD><input STYLE="width:35px;font-size:12px" type="button" onclick=(moveUp(document.getElementById("selList")),updateList(document.getElementById("selList"),document.getElementById("newList"))) value="up"><br><input STYLE="width:35px;font-size:12px" type="button" onclick=(moveDown(document.getElementById("selList")),updateList(document.getElementById("selList"),document.getElementById("newList"))) value="dn"><br><input STYLE="width:35px;font-size:12px" type="button" onclick=(swap(document.getElementById("selList")),updateList(document.getElementById("selList"),document.getElementById("newList"))) value="-:-"></TD></TR></TABLE><br><input class="buttonsize" style="color:#d80000;font-weight:bold" type="button" value="$mDIR Speichern" onclick=(RUN("CMD=CMS&_SID=$_SID&_UID=$_UID&_ID=$_cgi{_ID}&$mDIR="+document.getElementById("newList").value+"&DIR=$DIR"))> <strong>$dID:</strong> <input type="text" id="newList" name="newList" value="$ListID" readonly="readonly" style="border:none;"></FORM></div>);
#---------- end form
#$cdo  =~ s#"#'#g;
return("$cdo");
}##

sub CMD
{##

$cont2eval="";
#------------------------------------------- Code NOCH NICHT DEFINEIRT
#$code="\$A=HARALD;";
#eval($code);
#-------------------------------------------------------------------------
if($CMD eq "")
{
$LOGIN=($_uid eq $_UID ? 1:0);
$cont2eval=${$_DB{Data_content}}[$_FID{$_ID}];
#----------------------------------------------------------
$cont2eval=&bei123_ENTYTAGUM("$cont2eval");
#----------------------------------------------------------
@CONTAINER= split(/<!bei123\>/,$cont2eval);
$cont_anz = @CONTAINER; #${$_DB{Data_content}}[$_FID{$_ID}]
#----------------------------------------------------------
if(${$_DB{Data_out}}[$_FID{$_ID}] ne "")
{#--------------------------------------------------------- Data_out=Nur Container lt. Nr anzeigen
@C__out=&text2split(${$_DB{Data_out}}[$_FID{$_ID}],",");
@C__OUT=map{$CONTAINER[$_]}@C__out;
$cont2eval="@C__OUT";
}#---------------------------------------------------------
}
if($CMD eq "SEARCH")
{
$cont2eval=$run_cmd;
$cont2eval=&bei123_ENTYTAGUM("$cont2eval");
}

$cont2eval = qq(<div id="bei123_DataContent" class="DataContent" >$cont2eval</div>);
&eval4out($cont2eval);
}##

sub eval4out
{#################### Perl-Code zwischen <perl></perl> direkt ausführen
$eval_cnt="$_[0]";
$ist1  ="<perl>";
$soll1 ="\nEOF";
$ist2  ="</perl>";
$soll2 ="out<<EOF;\n";
$eval_cnt =~ s/$ist1/$soll1/gim;
$eval_cnt =~ s/$ist2/$soll2/gim;
eval "out<<EOF;\n$eval_cnt\nEOF\n";
}#----------------------------------------------------------------------------------

sub HEAD_MENU
{##
#$B1=qq(<input onClick=(WO('A','Data1-Test',700,300),RUN('MODUS=W2')) type='button' value='DATA1' class='HeadButtonClass' style=''>);
#$B2=qq(<input onClick=(WO('B','Data2-Test',500,400),RUN('MODUS=W2')) type='button' value='DATA2' class='HeadButtonClass' style=''>);
#$B3=qq(<input onClick=(RUN('MODUS=WO&Titel=Label4Menu+V1.0&width=700&height=400')) type='button' value='DATA3' class='HeadButtonClass' style=''>);
#$B4=qq(<input type='button' value='DATA4' class='HeadButtonClass' style=''>);
#return qq(<br>$B1$B2$B3$B4);
}##

sub bei123_ADMIN
{##
$oC="onChange=(RUN('CMD='+this.options[this.selectedIndex].getAttribute('cite')+'&_ID='+this.options[this.selectedIndex].value+'&_UID=$_UID&_SID=$_SID'))";
#---------------------------------------------------------------------------------------------------------
$OPTION=qq(<select size="25" $oC name="Namen" style="font-size:12px;"><option style='font-weight:bold'>Verwaltung/Einstellungen</option><optgroup label="LEFT-Menueleiste"><option>Men&uuml;Auswahl</option><option>Achim</option><option>August</option></optgroup><optgroup label="Homepage/Content" style='background:#e0e0e0'><option value='$_ID' cite='CODE' >Page Code zeigen</option><option value='$_ID' cite='SITEMAP' >Sitemap/Übersicht</option><option value='$_ID' cite='DO_ADD'>Page hinzufügen</option><option value='$_ID' cite='DO_MOD' >Page bearbeiten</option><option value='$_ID' cite='DO_DEL'>Page löschen</option><option value='$_ID' cite='DO_CMS&DIR=Main'>HauptVerzeichnisse</option><option value='$_ID' cite='DO_CMS&DIR=Sub'>UnterVerzeichnisse</option></optgroup><optgroup label="HEAD-MenueLeiste" style='background:#800000;color:#ffffff'><option>Datum & Uhrzeit</option><option>Buttons 1-4</option><option>baseportal-Account</option></optgroup><optgroup label="baseportal-Einstellungen" style='background:#b0c0d0;color:#d80000'><Option>Templates</Option><Option>Werbe-Banner</Option></optgroup></select>);

#$OPTION=&um_laut4ajax($OPTION);
#-----------------------------------------------------------------
@_ID=@{$_DB{_ID}};
@DIRPAGES=map{$_DB{SiteMap}{$_}[0]}(keys(%{$_DB{SiteMap}}));
($union,$intersection,$difference)=&compare2arrays(\@DIRPAGES,\@_ID);
@NO_DIRPAGES=sort{$a <=> $b}@$difference;
@L_M2=map{"<input onClick=(RUN('_ID=$_&_UID=$_UID&_SID=$_SID')) type='button' value='".convert_html(${$_DB{Data_name}}[$_FID{$_}])."' class='LeftButtonClass'><br>"}@NO_DIRPAGES ;
#--------------------------------------------------------------------------------------------------------
#$item1=qq(<span class='LeftMenuItem'>Menü-Auswahl</span><br><span style="font-size:12px">&bei123_home;Home &bei123_sitemap;SiteMap &bei123_chronik;Chronik</span><br><menu item::sitemap type::option style::font-size:12px;width:100% value::Verzeichnisse/Seiten /><br><span class='LeftMenuItem'>Suchen</span><br><span style="font-size:12px"><menu item::SEARCH value::Suchen /></span>);

#$LeftHtml=qq(<div class='LeftMenuClass' style='width:194px'>$item1</div>);
$LeftHTML="";
if($_uid eq $_UID)
{
$LeftHtml.=qq(<div class='LeftMenuClass' style=''><span class='LeftMenuItem'>Administration</span><div style='height:100%'>$OPTION</div></div>);
}
$LeftHtml.=qq(<div class='LeftMenuClass' onMouseOver=(document.getElementById('LEFT2').style.display='block') onMouseOut=(document.getElementById('LEFT2').style.display='none')><span class='LeftMenuItem'>Weiteres</span><div style='margin:0' id='LEFT2' style='display:none' >@L_M2</div></div>);
#--------------------------------------------------------------------------------------------------------
$LeftHtml=&bei123_ENTYTAGUM("$LeftHtml");
$LeftHtml =~ s#"#'#g;
return("$LeftHtml");
}##

##################################################### Sonstge Varibalen und Subs