EOF
#-------------------------------------------------- var
$uid=(split(/\//,$htx))[1];
$path="";
#-------------------------------------------------- sub
sub DIR
{#######################################
($filename,$cmd)=@_;
#--------------------------------------
 if($cmd eq "" or $cmd eq "dir")
   {$cmd="dir";
    &dir();
   }
}#######################################

sub DBF
{#######
($filename,$cmd)=@_;
}#######

sub HTX
{#######
($filename,$cmd)=@_;
 if($cmd eq "" or $cmd eq "show")
   {
    &page("/$USER{uid}/$dir$filename.htx");
   }
 if($cmd eq "edit")
   {
    &editpage("/$USER{uid}/$dir$filename.htx",$filename,$dir);
   }
 if($cmd eq "mod")
   {
    my $mText=$_get{Text};
    $mText=&no_null_end($mText);
    mod $mText, "/$USER{uid}/$dir$filename.htx";
    my $iadd="_files";
    %hash=eval get "$htx$iadd.htx";
    $hash{"/$USER{uid}/$dir$filename.htx"}=$_get{info};
    del "$htx$iadd.htx";
    put serial(%hash), "$htx$iadd.htx";
    &page("/$USER{uid}/$dir$filename.htx");
   }
 if($cmd eq "new")
   {
    my $date=datum("jetzt","lang");
    put "<!-- erstellt durch bp-FileManger am $date -->\n", "/$USER{uid}/$dir$filename.htx"; 
    &page("/$USER{uid}/$dir$filename.htx");
   }

 
}#######

sub HTX_MENU
{###################
($filename,$cmd)=@_;
out "<table cellpadding=0 cellspacing=0 border=0><tr>";
out "<td>".&action("dir","dir","$dir")."</td>";
out "<td>".&action("page","show",$filename)."</td>";
out "<td>".&action("page","edit",$filename)."</td>";
out "<td>".&action("page","delete",$filename)."</td>" if($cmd ne "delete");
out "<td>".&action("page","move",$filename)."</td>";
out "<td>".&preview("/$USER{uid}/$dir$filename")."</td>";
out "</tr></table>";
}###################

sub DIR_MENU
{###################
($filename,$cmd)=@_;
out "<table cellpadding=0 cellspacing=0 border=0><tr>";
out "<td>".&action("dir","dir",$filename)."</td>";
out "<td>".&action("dir","show",$filename)."</td>";
out "<td>".&action("dir","edit",$filename)."</td>";
out "<td>".&action("dir","delete",$filename)."</td>" if($dir ne "");
out "<td>".&action("dir","move",$filename)."</td>";
out "</tr></table>";
}###################

sub DBF_MENU
{###################
($filename,$cmd)=@_;
out "<table cellpadding=0 cellspacing=0 border=0><tr>";
out "<td>".&action("dir","dir",$filename)."</td>";
out "<td>".&action("dir","show",$filename)."</td>";
out "<td>".&action("dir","edit",$filename)."</td>";
out "<td>".&action("dir","delete",$filename)."</td>" if($dir ne "");
out "<td>".&action("dir","move",$filename)."</td>";
out "</tr></table>";
}###################


sub preview
{###########
my $mhtx="$_[0]";
my $prev="";
$prev.="<form action=\"baseportal.pl?htx=$mhtx\" method=\"post\" enctype=\"multipart/form-data\" target=\"_BLANK\"> ";
$prev.="<input type=\"submit\" value=\"preview\" class=\"butt2\"></form>";
return($prev);
}############

sub login
{########
my $form="";
$form="<form action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$form.="<input type=\"hidden\" name=\"cmd=\" value=\"login\" >";
$form.="<input type=\"hidden\" name=\"sid=\" value=$_session >";
$form.="<input type=\"hidden\" name=\"uid=\" value=$uid >";
$form.="<span style=\"font-size:12px\"><b> Kennung: </b></span><input type=\"text\" name=\"use=\" style=\"font-size:12px;width:60px\" >";
$form.="<span style=\"font-size:12px\"><b> Passwort: </b></span><input type=\"password\" name=\"upw=\" style=\"font-size:12px;width:60px\" >";
$form.="<input type=\"submit\" value=\"Login\" class=\"butt2\"></form>";
return($form);
}############

sub action
{##############
$filetype=$_[0];
$action=$_[1];
$value=$_[2];
my $style="color:#808080;" if($action eq "$cmd");
my $form="";
$form="<form name=\"$filetype_$action\" action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$form.="<input type=\"hidden\" name=\"cmd=\" value=\"$action\" >";
$form.="<input type=\"hidden\" name=\"sid=\" value=$_session >";
$form.="<input type=\"hidden\" name=\"uid=\" value=$uid >";
$form.="<input type=\"hidden\" name=\"dir=\" value=$dir >";
$form.="<input type=\"hidden\" name=\"filetype=\" value=\"$filetype\">";
$form.="<input type=\"hidden\" name=\"$filetype=\" value=\"$value\" >" ;
$form.="<input type=\"text\" name=\"$filetype=\" value=\"\" style=\"width:120px;font-size:12px\" >" if($action eq "new");
$form.="<input type=\"submit\" value=\"$action\" class=\"butt2\" style=\"$style\"></form>";
return($form);
}############

sub logout
{############################
my $form="";
$form="<form action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$form.="<input type=\"hidden\" name=\"cmd=\" value=\"logout\" >";
$form.="<input type=submit value=\"LOGOUT\" class=\"butt2\" style=\"color:#d80000\"></form>";
return($form);
}############

sub optiondir
{############
my $form="";
my $color=($_get{dir} eq "" ? "#d80000;font-weight:bold":"#000000");
$form="<form action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$form.="<input type=\"hidden\" name=\"cmd=\" value=\"dir\" >";
$form.="<input type=\"hidden\" name=\"sid=\" value=$_session >";
$form.="<select name='dir=' onchange='JavaScript:submit()' style='font-size:12px;width:200px;'>";
$form.="<option value='' style='font-weight:bold;color:black;font-size:13px'>Verzeichnisse $uid</option>";
$form.="<option value='' style='font-weight:normal;font-size:13px;color:$color;'>$uid/</option>";
my @ALLDIR=get "/$uid/", "down,dir,join";
foreach(@ALLDIR)
{#-------------
my $color=($_ eq $_get{dir} ? "#d80000;font-weight:bold":"#000000");
#my $select=($_ eq $_get{dir} ? "selected":"");
$form.="<option value='$_' $select style='font-weight:normal;font-size:12px;color:$color;'>$_</option>";
}#-------------
$form.="</select></form>";
return($form);
}############

sub page
{###########
$toget=$_[0];
my @PAGE=get "$toget";
my $iadd="_files";
my %hash=eval get "$htx$iadd.htx";
my $keywords=$hash{"$toget"};
out "<div style='width:100%;background:#ffffff;font-size:11px;font-family:arial;border:1px dotted silver'>";
out "<b>Keywords: </b>$keywords</div>";
out "<div style='width:100%;background:#fffff0;font-size:12px;font-family:arial'>";
out "<code>";
foreach(@PAGE)
{#-------------------
outl convert_html($_);
}#--------------------
out "</code>";
out "</div>";
}###########

sub editpage
{###########
$toget=$_[0];
$filename=$_[1];
$dir=$_[2];
my @PAGE=get "$toget","raw";
my $iadd="_files";
put "", "$htx$iadd.htx";
%hash=eval get "$htx$iadd.htx";
$in=$hash{"$toget"};
out "<div style='width:100%;background:#fffff0;font-size:12px;font-family:arial'>";
my $form="";
$form="<form name=\"$filetype_$action\" action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$form.="<input type=\"hidden\" name=\"cmd=\" value=\"mod\" >";
$form.="<input type=\"hidden\" name=\"sid=\" value=$_session >";
$form.="<input type=\"hidden\" name=\"uid=\" value=$uid >";
$form.="<input type=\"hidden\" name=\"dir=\" value=$dir >";
$form.="<input type=\"hidden\" name=\"filetype=\" value=\"page\">";
$form.="<input type=\"hidden\" name=\"page=\" value=\"$filename\" >" ;
$form.="<span style=\"font-size:10px;font-family:arial\">Keywords für $toget<br></span>";
$form.="<input type=\"text\" name=\"info=\" value=\"$in\" style=\"width:700px;font-size:11px\" >" ;
$form.="<span style=\"font-size:10px;font-family:arial\"><br>Inhalt von $toget<br></span>";
$form.="<textarea name=\"Text=\" style=\"width:700px;height:400px;font-size:11px\" \>";
$form.="@PAGE";
$form.=" \</textarea>";
$form.="<br><input type=\"submit\" value=\"Eingabe Speichern\" ></form>";
out $form;
out "</div>";
}###########


sub dir
{##########
#------------------------------------------
@DIR=get "/$USER{uid}/$dir","dir,join" ;
$anzDIR=@DIR;
@HTX=get "/$USER{uid}/$dir", "join,htx,cut";
$anzHTX=@HTX;
@DBF=get "/$USER{uid}/$dir", "db,join";
$anzDBF=@DBF;
#------------------------------------------
my $templates="<form name=\"page\" action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$templates.="<input type=\"hidden\" name=\"cmd=\" value=\"show\" >";
$templates.="<input type=\"hidden\" name=\"dir=\" value=\"$dir\" >";
$templates.="<input type=\"hidden\" name=\"uid=\" value=\"$USER{uid}\" >";
$templates.="<input type=\"hidden\" name=\"sid=\" value=$_session >";
foreach(@HTX)
{
$templates.="<input type=\"submit\" value=\"$_\" name=\"page=\" class=\"butt\" ><br>";
}
$templates.="</form>";
my $datenbanken="<form name=\"data\" action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$datenbanken.="<input type=\"hidden\" name=\"dir=\" value=\"$_get{dir}\" >";
$datenbanken.="<input type=\"hidden\" name=\"uid=\" value=\"$USER{uid}\" >";
$datenbanken.="<input type=\"hidden\" name=\"sid=\" value=$_session >";
foreach(@DBF)
{
$datenbanken.="<input type=\"submit\" value=\"$_\" name=\"data=\" class=\"butt\" ><br>";
}
$datenbanken.="</form>";
my $verzeichnisse="<form name=\"dir\" action=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\">";
$verzeichnisse.="<input type=\"hidden\" name=\"cmd=\" value=\"dir\" >";
$verzeichnisse.="<input type=\"hidden\" name=\"dir=\" value=\"$_get{dir}\" >";
$verzeichnisse.="<input type=\"hidden\" name=\"uid=\" value=\"$USER{uid}\" >";
$verzeichnisse.="<input type=\"hidden\" name=\"sid=\" value=$_session >";

if($dir ne "")
{
my @mdir=split(/\//,$dir);
pop(@mdir);
$mdir=(@mdir>=1 ? join("/",@mdir)."/" : "");
$verzeichnisse.="<input type=\"submit\" name=\"dir=\" value=\"$mdir\" style=\"font-size:11px;font-weight:bold\"> <b>&laquo;</b><br>";
}

foreach(@DIR)
{
$verzeichnisse.="<input type=\"submit\" value=\"$_get{dir}$_\" name=\"dir=\" class=\"butt\" ><br>";
}
$verzeichnisse.="</form>";
#------------------------------------------------------------------------------------------
out "<div style='width:200px;float:left;background:#fffff0'><span style='font-size:14px;font-weight:bold'>$anzHTX Templates</span>";
out &action("page","new");
out "$templates</div>";
out "<div style='width:200px;float:left;'><span style='font-size:14px;font-weight:bold'>$anzDBF Datenbanken</span>";
#out &action("data","new");
out "<br><br>$datenbanken</div>";
out "<div style='width:200px;float:left;background:#f0f0f0'><span style='font-size:14px;font-weight:bold'>$anzDIR Verzeichnisse</span>";
out &action("dir","new");
out "$verzeichnisse</div>";
out "<div style='width:100%;clear:left;'></div>";
}##########

sub no_null_end
{############### Leerzeichen am Ende entfernen 
my $field=$_[0];
$field =~ s/\s*\Z//;
return($field);
}###############

#-------------------------------------------------- ende sub
if($cmd eq "login")
{
 if($_get{upw} eq $pw and $_get{use} eq $ke)
  {
   $USER{upw}=$pw;
   $USER{use}=$ke;
   $USER{uid}=$_get{uid};
   $_session{user}= serial %USER;
   $cmd=$_get{cmd}="dir";
  }
}
#------------------------------------------------- User
%USER    = eval $_session{user};
#-------------------------------------------------
if($USER{uid} eq "")
{
 $LOG=&login();
}
else
{
 #------------------------------------------------- file
 if($_get{filetype} eq"")
 {######################
 $filetype="dir";
 $filename="$_get{dir}";
 #----------------------
 if($_get{data})
   {
    $filetype="data";
    $filename="$_get{data}";
   }
 elsif($_get{page})
   {
    $filetype="page";
    $filename="$_get{page}";
   }
 else
   {
    $filetype="dir";
    $filename="$_get{dir}";
   }
 }######################
 else
 {
  $filename=$_get{$_get{filetype}};
 }  
 #----------------------------------------------- menü
 $LOG=&logout();
 $OPT=&optiondir();
 
 %CMD_CONTENT  = (
    'page' => sub {&HTX(@_)}, 
    'data' => sub {&DBF(@_)}, 
    'dir'  => sub {&DIR(@_)}, 
 );
 %CMD_MENU  = (
    'page' => sub {&HTX_MENU(@_)}, 
    'data' => sub {&DBF_MENU(@_)}, 
    'dir'  => sub {&DIR_MENU(@_)}, 
 );
}# ende ($USER{uid} eq "")
#----------------------------------------------- html
out<<EOF;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<title>FileManager $uid ::: Alles aus baseportal herausholen bei123.de - &copy; 2007 www.bei123.de</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<style type="text/css">
body{
margin: 0;
padding: 0;
border: 0;
overflow: hidden;
height: 100%; 
max-height: 100%;
background: #ffffff;
}
#framecontentLeft, #framecontentTop{
position: absolute; 
top: 0; 
left: 0; 
width: 160px; /*Width of left frame div*/
height: 100%;
overflow: hidden; /*Disable scrollbars. Set to "scroll" to enable*/
background: silver;
color: white;
}
#framecontentTop{ 
left: 160px; /*Set left value to WidthOfLeftFrameDiv*/
right: 0;
width: auto;
height: 50px; /*Height of top frame div*/
overflow: hidden; /*Disable scrollbars. Set to "scroll" to enable*/
background:#f0f0f0;
background-image:url(http://www.bei123.de/images/bg.gif);
background-repeat:repeat;
font-size:12px;
font-family:arial;
color: #000000;
}
#maincontent{
position: fixed; 
left: 160px; /*Set left value to WidthOfLeftFrameDiv*/
top: 50px; /*Set top value to HeightOfTopFrameDiv*/
right: 0;
bottom: 0;
overflow: auto; 
background: #fff;
border-top:1px solid #d80000;
}
.innertube{
margin: 5px; /*Margins for inner DIV inside each DIV (to provide padding)*/
}
* html body{ /*IE6 hack*/
padding: 50px 0 0 160px; /*Set value to (HeightOfTopFrameDiv 0 0 WidthOfLeftFrameDiv)*/
}
form {
margin:0px;
padding:0px;
}
.butt {
font-size:11px;
text-align:left;
padding-left:2px;
width:180px;
}
.butt2 {
font-size:11px;
font-weight:bold;
text-align:left;
padding-left:3px;
background:#f0f0f0;
width:60px;
}
code {
font-size:12px;
color:blue;
}
* html #maincontent{ /*IE6 hack*/
height: 100%; 
width: 100%; 
}
* html #framecontentTop{ /*IE6 hack*/
width: 100%;
}
</style>
</head>
<body>
<div id="framecontentLeft">
<!-- BEGIN PARTNER PROGRAM - DO NOT CHANGE THE PARAMETERS OF THE HYPERLINK -->
<a href="http://partners.webmasterplan.com/click.asp?ref=292486&site=2870&type=b6&bnb=6"  target="_blank"><img src="http://banners.webmasterplan.com/view.asp?ref=292486&site=2870&b=6" border="0" alt="baseportal.de - genial einfache Web-Datenbank!" width="160" height="600"/></a><br>
<!-- END PARTNER PROGRAM -->
</div>
<div id="framecontentTop"><div class="innertube">
<table cellpadding=0 cellspacing=0 border=0><tr>
<td>$OPT</td><td>$LOG</td><td>
EOF
#------------------------------------------------------------ MENU
$datum=datum("jetzt","Tag0.Monat0.Jahr");
if($USER{uid} ne "")
{
&{$CMD_MENU{$filetype}}($filename,$cmd) ;
$path="<b>$USER{uid}/</b>$dir$page$data";
}
#--------
out<<EOF;
</td><td>&nbsp;<span style="font-size:12px;font-family:arial">$datum</span></td>
</tr><tr>
<td colspan=4>
<span style=\"font-size:12px;font-family:arial\">$path</span></td>
</tr></table>
</div></div>
<div id="maincontent"><div class="innertube">
EOF
#----------------------------------------------------------- CONTENT
if($USER{uid} ne "")
{
&{$CMD_CONTENT{$filetype}}($filename,$cmd);
}
#---
out "<div style=\"width:100%;font-size:11px;font-family:arial;border:1px dotted silver\"><center>";
out "bp-Version: $_version - Ausführungszeit: ".runtime;
out "</center></div>";
out<<EOF;
</div></div></body></html>