#-------------------------------------------------------------------- Variablen
$_uid    = (split(/\//,$htx))[1];#                        bp_Account 
$bp_url  = (split(/\//,$_link))[2];#                      URL des bp
#-------------------------------------------------------------------- Subroutinen
$bei123_DATA_HTX="http://baseportal.de/files/bei123/hash.txt";
#--------------------------------------------------------------------

sub bei123
{##
&bei123_GetHash();
#-------------------------------------------
if($_cgi{modus} ne "")
  {#------------------------ modus-Subroutinen
  if($modus eq "ADMIN")
     {&bei123_Admin();
     }
  elsif($modus eq "HASH")
     {&bei123_Hash();
     }
  else
     {}
}
else #---------------------- kein modus
  {#
    $bei123_output=${${$bei123{$key}}{Data_content}}[${${$bei123{$key}}{_FID}}{$_ID}];
    &bei123_eval(&um_laut4ajax(&bei123_entities("$bei123_output")));
    #--------------------------------------------
    $myOUT=qq(<DIV id="bei123_OUT"></DIV>\n);
    $myOUT;
  }#
}##

sub bei123_Hash
{##
    out(qq|document.getElementById("bei123_OUT").innerHTML="HASH";|);
}##

sub bei123_Admin
{##
my $line=qq(-----------------------------------------------------------------------------);
my $error=0;
my $alertinfo=qq($key $cmd($_ID) erledigt/done);
#---------------------------
if($_cgi{cmd} eq "do_del")
{
$cmd="";
out(qq|if(confirm("** Achtung/Attention !! ** \\n\\nLoeschen/Delete $key(ID: $_ID) ?\\n$line\\n"+document.getElementById("Data_name").value+"")){bei123("modus=ADMIN&key=$key&_ID=$_ID&cmd=del");}|);
}

if($cmd ne "")
{#----------------------------------------------------------------
if($cmd eq "add" || $cmd eq "mod")
{
#--------------------------------------------
  if($Data_name eq "" || $Data_content eq "")
    {
    $alertinfo=qq($key $cmd($_ID) FEHLER/ERROR\\n$line\\nFehlende Eingaben/missing entries\\nData_name or Data_content ? );
    $error=1;
    }
}
#-----------------------------
out(qq|alert("$alertinfo");|);
#-----------------------------
unless($error)
  {####################################################################
     %_VAL=();
     $ttime=time();
     $_VAL{Data_time}=$ttime;
     $_VAL{Data_name}= convert_utf8($Data_name);
     $_VAL{Data_content}=&um_laut4ajax(convert_utf8($Data_content)); 
     @CMS_FIELDS=("Data_name","Data_content");
     %_DB=&bei123_DataHash("$key","$cmd","$_ID");
     $bei123{$key}=\%_DB;
     ###################################
if($_cgi{cmd} ne "")
{
      mod serial(%bei123), "$bei123_DATA_HTX"  ;
#     mod serial(%bei123), "bei123_$modus.htx"  ;
}
     if($cmd eq "add" || $cmd eq "del")
        {###
         $_cgi{cmd}="";
         $_ID="";
        }###
   }##################################################################
}#------------------------------------------------------------ENDE cmd

if($_ID ne "") # ein DatenSatz gewählt
{#
       $_Data_content = ${${$bei123{$key}}{Data_content}}[${${$bei123{$key}}{_FID}}{$_ID}];
       $_Data_content =~ sÞ\\Þ\\\\Þg;
       $_Data_content =~ sÞ\nÞ\\nÞg;
       $_Data_content =~ sÞ\"Þ\\"Þg;

       $_Data_name    = ${${$bei123{$key}}{Data_name}}[${${$bei123{$key}}{_FID}}{$_ID}];
       $_Data_date    = ${${$bei123{$key}}{Data_time}}[${${$bei123{$key}}{_FID}}{$_ID}];
       $_Data_date    = datum("$_Data_date","lang");

       $SELECT_FORM   = &bei123_SelectForm();
       $INPUT_FORM    = &bei123_InputForm();
       $EXE_FORM      = &bei123_ExeForm();  
       #-------------------------------
       out(qq|document.getElementById("bei123_SELECTFORM").innerHTML="$SELECT_FORM";|);
       out(qq|document.getElementById("bei123_INPUTFORM").innerHTML="$INPUT_FORM";|);
       out(qq|document.getElementById("bei123_EXEFORM").innerHTML="$EXE_FORM";|);
       out(qq|document.getElementById("Data_content").value="$_Data_content";|);
       out(qq|document.getElementById("Data_name").value="$_Data_name";|);
       out(qq|document.getElementById("Data_date").value="$_Data_date";|);
    }
  else
    { 
       &bei123_Form();
    }#
}##

sub bei123_Form
{## Admin Formulareingabe
    $myOF=&bei123_OutForm();
    #-------------------------------
    out(qq|document.getElementById("bei123_OUT").innerHTML="$myOF";|);
}##

sub bei123_OutForm
{##
$SELECT_FORM=&bei123_SelectForm();
$SELECT_FORM=qq(<Div id='bei123_SELECTFORM'>$SELECT_FORM</Div>);
$INPUT_FORM=&bei123_InputForm();
$INPUT_FORM=~ sÞ\nÞ\\nÞg;
$INPUT_FORM=qq(<Div id='bei123_INPUTFORM'>$INPUT_FORM</Div>);
$EXE_FORM=&bei123_ExeForm();
$EXE_FORM=qq(<Div id='bei123_EXEFORM'>$EXE_FORM</Div>);
#-----------------------------------------
$myOF=$SELECT_FORM.$INPUT_FORM.$EXE_FORM;
return($myOF)
}##

sub bei123_SelectForm
{##
&bei123_GetHash();
#-----------------
@IDOPT=map{qq(<option class='Option' style='color:#000000' value='$_' ).($_ eq $_ID ? 'selected':'').qq(>${${$bei123{$key}}{Data_name}}[${${$bei123{$key}}{_FID}}{$_}]</option>)}@{${$bei123{$key}}{_ID}};
$IDOPT="@IDOPT";
#-----------------------------------------------------------------------------------------------
$mySF=qq(<button title='Close/Exit/Abbruch' style='cursor:pointer;background:#d80000;color:#ffffff;width:80px' onClick=(document.getElementById('bei123_KEY').value='Home',document.getElementById('Home').style.backgroundColor='#f0f0f0',document.getElementById('Info').style.backgroundColor='#d0d0d0',document.getElementById('bei123_USER').value='$_uid',bei123('key=Home&_ID=$_ID&1=1'))><b>X</b></button>);

$mySF.=qq(<select id='bei123_select_key' style='width:250px;color:blue' onChange=(bei123('modus=$modus&key='+this.options[this.selectedIndex].value+''))><option style='color:blue' value=''>Auswahl(key) &raquo;</option><option class='Option' style='color:#000000' value='Home'>Home  Seiten/Pages</option><option class='Option' style='color:#000000' value='LAYOUT'>Layout</option><option class='Option' style='color:#000000' value='ENTITY'>Entity</option><option style='color:blue;font-weight:bold' value='Info'>Programm-Info</option></select>)if($key ne "");

$mySF.=qq(<select style='width:250px;color:green' id='bei123_select_ID' onChange=(bei123('modus=$modus&key=$key&_ID='+this.options[this.selectedIndex].value+''))><option title='$key hinzufügen' style='color:#000000' value=''>Auswahl($key):&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;** Neu/add **</option>@IDOPT</select>)  ;

$mySF.=qq(<br><span style='display:inline' class='menu_form_label'>&nbsp;_ID($key):<br><input type='text' id='Data_id' value='$_ID' style='width:80px;background:#b0c0d0' readonly></span>);

$mySF.=qq(<span id='out_key' style='display:inline' class='menu_form_label'>&nbsp;Data_name($key):<br><input type='text' id='Data_name' value='' style='width:250px;background:#e0e0e0;' onfocus=(this.style.backgroundColor='#c0e0f0') onblur=(this.style.backgroundColor='#e0e0e0')></span>);

$mySF.=qq(<span id='out_Data_date' style='display:inline' class='menu_form_label'>&nbsp;Data_date($key):<br> <input type='text' id='Data_date' value='' style='width:250px;background:#b0c0d0' readonly></span><span style='clear:left'></span>);

#-----------------------------
$mySF=&um_laut4ajax($mySF);
#-----------------------------
return($mySF);
}

sub bei123_InputForm
{##
$myIF=qq(<textarea onfocus=(this.style.backgroundColor='#c0e0f0') onblur=(this.style.backgroundColor='#e0e0e0') id='Data_content' style='background:#e0e0e0;font-size:12px;width:100%;height:100%;border:0px'></textarea>);
#---------------
return($myIF);
}##

sub bei123_ExeForm
{##
$mycmd=($_ID ne "" ? "mod":"add"); 
$myEF=qq(<input type='text' onClick=(bei123('modus=HASH')) value='$key' style='width:80px;background:#b0c0d0;color:#ffffff' readonly >);

$myEF.=qq([ID: $_ID]<input id='del_button' style='cursor:pointer;background:#e0e0e0;color:#d80000;font-weight:bold' type='button' value='! Delete !' onclick=(bei123('modus=$modus&cmd=do_del&key=$key&_ID=$_ID&Data_name='+encodeURIComponent(document.getElementById('Data_name').value+'')))>) if($_ID ne "");

$myEF.=qq(<input id='save_button' style='cursor:pointer;background:#e0e0e0;font-weight:bold;color:green' type='button' value='Send & $mycmd' onclick=(bei123('modus=$modus&_ID=$_ID&cmd=$mycmd&key=$key&Data_content='+encodeURIComponent(document.getElementById('Data_content').value)+'&Data_name='+encodeURIComponent(document.getElementById('Data_name').value)))>);
#-----------------------------
$myEF=&um_laut4ajax($myEF);
#-----------------------------
return($myEF);
}##

sub bei123_GetHash
{##
%bei123=eval get "$bei123_DATA_HTX";
$key=$_cgi{key}||"Home";
%_DB=%{$bei123{$key}};
}##

sub bei123_DataHash
{###################################################### es wird immer ein Hash %_VAL erwartet
# 
$___key=$_[0];
$___cmd=$_[1];
$___id =$_ID;     
#-------------------------------------------------------
$___cmd=uc($___cmd);
############################                                              ## Datenbank einlesen
#%bei123=eval get "$bei123_DATA_HTX";
%_DB=%{$bei123{$___key}};
############################                                              ## Feldnamen festlegen
if(@{$_DB{"_ID"}}<1)
{#-------------------------------------------------------------- falls bisher nicht angelegt
 @{$_DB{_FIELDS}}=@CMS_FIELDS;
 push(@{$_DB{_FIELDS}},"Data_time");
 map{@{$_DB{"$_"}}=("")}@CMS_FIELDS;
}#------------------------------------------------------------------- ## Indexierung
@_FNR{(0..(@{$_DB{"_ID"}}-1))}=@{$_DB{"_ID"}};
%_FID         =reverse(%_FNR);
$_DB{"_FNR"}  =\%_FNR;
$_DB{"_FID"}  =\%_FID;
#-------------------------------------------------------------------- ## NEU/add ausführen
if($___cmd eq "ADD")#------------- neue _ID um 1 höher als die letzte alte
  {push(@{$_DB{"_ID"}},${$_DB{"_ID"}}[$#{$_DB{"_ID"}}]+1);
   #---------------------------------------------------------------- neu indexieren
   @_FNR{(0..(@{$_DB{"_ID"}}-1))}=@{$_DB{"_ID"}};
   %_FID         =reverse(%_FNR);
   $_DB{"_FNR"}  =\%_FNR;
   $_DB{"_FID"}  =\%_FID;
   #------------------------------------------------------------------ Felderwerte aufnehmen
   map{${$_DB{"$_"}}[$_FID{${$_DB{"_ID"}}[$#{$_DB{"_ID"}}]}]=$_VAL{"$_"}}(@{$_DB{_FIELDS}});
   #----------------------------------------------------------------------------------------
  }
#-------------------------------------------------------------------- ## ÄNDERN/mod
if($___cmd eq "MOD") 
  {
   map{${$_DB{"$_"}}[$_FID{$___id}]=$_VAL{"$_"}}(@{$_DB{_FIELDS}});
  }
#---------------------------------------------------------------------## LÖSCHEN/del
if($___cmd eq "DEL")
 {  #--------------------------------------------------------- 1.) Feldwerte löschen
    map{delete ${$_DB{$_}}[$_FID{$___id}]}(@{$_DB{_FIELDS}});
    foreach $i(@{$_DB{_FIELDS}})
    {#-------------------------------------------------------- 2.) Arrays glätten, 'undef' entfernen
    map{@{$_DB{"$i"}}=grep{$_ unless undef;}@{$_DB{"$i"}}}(@{$_DB{_ID}});
    }#
    #--------------------------------------------------------- 3.) _ID löschen
    delete ${$_DB{_ID}}[$_FID{$___id}];
    #--------------------------------------------------------- 4.)Array glätten, 'undef' entfernen
    @{$_DB{"_ID"}}=grep{$_ ne "";}@{$_DB{"_ID"}};
    #--------------------------------------------------------- 5.) neu indexieren
    @_FNR{(0..(@{$_DB{"_ID"}}))}=@{$_DB{"_ID"}};
    %_FID         =reverse(%_FNR);
    delete $_FID{""};
    %_FNR         =reverse(%_FID);
    $_DB{"_FNR"}  =\%_FNR;
    $_DB{"_FID"}  =\%_FID;
 }
#------------------------------
$_DB{_AMOUNT} =@{$_DB{"_ID"}};                                          ## Anzahl Datensätze 
#------------------------------
if($_DB{_AMOUNT}<1)
{
%_DB=();# wenn kein Datensatz, dann leerer Hash
}
###
return(%_DB); # Rückgabe des Hash zur WEITERVERARBEITUNG oder Speicherung in der o.g. db
}#############

sub bei123_entities
{##
my $ent=$_[0];
#--------------
map{$ent =~ sÞ&bei123_${${$bei123{ENTITY}}{Data_name}}[${${$bei123{ENTITY}}{_FID}}{$_}];Þ&bei123_esc(${${$bei123{ENTITY}}{Data_content}}[${${$bei123{ENTITY}}{_FID}}{$_}])Þgime} @{${$bei123{ENTITY}}{_ID}};
#--------------
return("$ent");
}##

sub bei123_esc
{##
my $_esc=$_[0];
$_esc=~ sÞ\"Þ\\\"Þgim;
$_esc=&bei123_entities("$_esc");
return($_esc);
}##

sub bei123_eval
{##
$eval_cnt =$_[0];
$eval_cnt =~ sÞ\'Þ&#39;Þg;
$ist1     = "<perl>";
$soll1    = "\nEOF";
$ist2     = "</perl>";
$soll2    = "out<<EOF;\n";
$eval_cnt =~ sÞ$ist1Þ$soll1Þgim;
$eval_cnt =~ sÞ$ist2Þ$soll2Þgim;
$eval_cnt = qq(<Div id="bei123_CONT">\n$eval_cnt\n</Div>);
eval qq(out<<EOF;\n<DIV id="bei123_EVAL">\n$eval_cnt\n</DIV>\nEOF\n);
}##

sub um_laut4ajax
{## Sonderzeichen umwandeln #
@Umlaute=("ä","ö","ü","Ä","Ö","Ü","ß");
my $_um=$_[0];
map{$_um =~ s#$_#convert_html($_)#ge}@Umlaute;
return("$_um");
}##

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 text2split
{## Bsp.: @ARRAY=&text2split("was#wer#wo","#")  :--#
my ($text,$item)=@_;
my @array = split(/$item/,$text);
return(@array);
}##

sub compare2arrays
{## Bsp.: ($union,$intersection,$difference)=&compare2arrays(\@DIRPAGES,\@_ID);
my @Arr1=@{$_[0]};
my @Arr2=@{$_[1]};
@union   = @intersection = @difference = ();
%count   = ();
foreach $element (@Arr1,@Arr2) { $count{$element}++ }
foreach $element (keys %count) {
push @union, $element;
push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;}
return(\@union,\@intersection ,\@difference); # return von Referenzen 
}##

sub array2join
{## Bsp.: @array=("wer","was","wo"); $STRING=&array_join(\@array,"#"); :-->
my @array=@{$_[0]};
my $item=$_[1];
my $string = join("$item",@array);
return($string);
}##

sub random3value 
{## für Generierung ZufallsZahl
($n,$h,$x)=@_;
%zufall= map{$_=>int(rand($h+1-$n)+$n)}(1..$x) ;
@zzahlen=values(%zufall);
return(@zzahlen);
}##

sub color4text
{## Farbe ins Spiel bringen
my($str,$left,$right,$size)=@_;
my @step;
$step[$_] = ($right->[$_] - $left->[$_]) / (length($str) - 1) for (0 .. 2);
my @chars = split //, $str;
@chars=map{sprintf(qq(<font style="font-size:%dpx;color:#%02x%02x%02x">$chars[$_]</font>), $size, $left->[0] + $_ * $step[0], $left->[1] + $_ * $step[1], $left->[2] + $_ * $step[2])}(0 .. $#chars);
return join("", @chars);
}##

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);
}##
out<<EOF;

<html><head>
<title>Ajax-Office($bp_url/$_uid) :: Alles aus baseportal herausholen</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<meta http-equiv="Content-Style-Type" content="text/css">
<script type="text/javascript">
function bg(c)
{
document.getElementById("Info").style.backgroundColor="#d0d0d0";
document.getElementById("Home").style.backgroundColor="#d0d0d0";
 if(document.getElementById("bei123_KEY").value==c)
 {
 return("#f0f0f0");
 }
 else
 {
 return("#d0d0d0");
 }
}
function _bei123(r)
{
if(document.getElementById("bei123_USER").value)
{
document.getElementById("bei123_OUT").innerHTML="";
document.getElementById("bei123_OUT").style.display="none";
document.getElementById("bei123_EVAL").innerHTML=r;}
else
{document.getElementById("bei123_OUT").style.display="block";
eval(r);
document.getElementById("bei123_USER").value="";}
}
</script>
<style type="text/css">
html {height:100%;max-height:100%;padding:0;margin:0;border:0;background:#ffffff;overflow:hidden;font-family:arial;font-size:14px}
body {margin:0px;padding:0px;background:#ffffff;overflow:hidden;}
#bei123_BANNER{position:absolute;top:0px;right:0px;z-index:4;display:none}
#bei123_MENU{background:#c0c0c0;position:absolute;top:0px;left:0px;width:100%;height:60px;z-index:2;}
#bei123_CONT{
background-color:#f0f0f0;position:absolute;top:60px;left:0px;width:100%;z-index:1;bottom:0px;overflow:none;}
#bei123_EVAL{}
#bei123_OUT{display:none;position:absolute;top:0px;bottom:0px;left:0px;width:100%;height:100%;background:#d0d0d0;z-index:4}
#bei123_SELECTFORM{position:absolute;top:0px;left:0px;width:100%;height:60px;background:#b0c0d0;}
#bei123_INPUTFORM{position:absolute;top:60px;left:0px;width:100%;bottom:25px;}
#bei123_EXEFORM{position:absolute;width:100%;left:0px;bottom:0px;height:25px;background:#b0c0d0;}
* html #bei123_CONT{width:100%;height:100%;top:60px;border-bottom:60px solid transparent;overflow:none;}
* html #bei123_INPUTFORM{width:100%;height:100%;top:60px;border-bottom:85px solid transparent;overflow:hidden;}
.menu_form_label{margin-left:0px;font-size:10px;color:navy;float:left}
.BoxShadow 
{-moz-box-shadow:2px 2px 3px #484848;
-ms-filter:"progid:DXImageTransform.Microsoft.DropShadow(color=#666666, offx=2, offy=2)";
filter:progid:DXImageTransform.Microsoft.DropShadow(color=#666666, offx=2, offy=2);
}
.Shadow {text-shadow:2px 2px 3px #484848;}
.BoxRound
{
-moz-border-radius:8px;
-webkit-border-radius:8px;
}
.BoxRoundShadow 
{
-moz-border-radius:8px;
-webkit-border-radius:8px;
-moz-box-shadow:3px 3px 6px #484848;
-ms-filter:"progid:DXImageTransform.Microsoft.DropShadow(color=#666666, offx=3, offy=3)";
filter:progid:DXImageTransform.Microsoft.DropShadow(color=#666666, offx=3, offy=3);
}
.Option{font-size:12px;background:#b0d0e0}
ins  {text-decoration:none;}
code {color:Purple;}
pre  {font-size:0.81em;color:Purple;font-family:arial;} 
</style>
</head><body>
EOF
out qq(<Div id="bei123_MENU">\n<input id="bei123_KEY" type="hidden" value="Info"><input id="bei123_USER" type="hidden" value="$_uid">\n<button id="Home" style="cursor:pointer;font-size:20px;height:60px;width:100px;background:#f0f0f0" onClick=(document.getElementById("bei123_KEY").value=this.id,this.style.backgroundColor=bg(this.id),bei123("key=Home"))>Home<font size=1><br>StartSeite</font></button><button id="Info" style="cursor:pointer;font-size:20px;height:60px;background:#d0d0d0;width:100px" onClick=(document.getElementById("bei123_KEY").value=this.id,this.style.backgroundColor=bg(this.id),bei123("key=Info"))>&copy; Info<font size=1><br><b><font color="#d80000">b</font>p<font color="navy">Office</font></b></font></button><button style="cursor:pointer;font-size:20px;height:60px;width:100px;background:#d0d0d0" onClick=(document.getElementById("bei123_USER").value="",bei123("modus=ADMIN"))>ADMIN<font size=1><br>Verwaltung</font></button></Div>\n);
out &bei123();
out qq(</body></html>);