EOF
#------------------------------------------------------------------------------ setup
$uid=(split(/\//,$htx))[1];
$HTTP_REFERER{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$_HTTP_REFERER);

$pic_bp_ico="<img src=\"http://www.bei123.de/images/bp2.gif\" border=0 alt=\"\" title=\"baseportal\">";
$pic_on_work="<img src='http://www.bei123.de/images/on_work.gif' align=left alt='' title='Die Sache ist noch in Bearbeitung !'>";
$path="";
$_error="";
$datum=datum("jetzt","Tag0.Monat0.Jahr");
$bp_office="<font color=\"#d80000\">bp-</font><font color=\"#000000\">Office</font>";
#---------------------------------------- sub

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:#000000;" 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=\"menu=\" value=$menu >";
$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:130px;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 main_opt
{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='menu=' onchange='JavaScript:submit()' style='font-size:13px;width:200px;'>";
$form.="<option value='' style='font-weight:bold;color:black;font-size:13px'>Programmauswahl</option>";
my @ALLMENU=sort(keys(%MENU));
foreach(@ALLMENU)
{
my $color=($_ eq $_get{menu} ? "#d80000;font-weight:bold":"#000000");
my $select=($_ eq $_get{menu} ? "selected":"");
$form.="<option value='$_' $select style='font-weight:normal;font-size:12px;color:$color;'>$_</option>";
}
$form.="</select></form>";
return($form);}

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

sub check_filename
{my $file=$_[0];
my $error="";
$error.="<font color='#d80000'>Sonderzeichen, Umlaute und Leerzeichen sind nicht erlaubt!</font>" if ($file =~ /[^\w]/);
return($error);}

sub check_filesize
{my $file=$_[0];
my $size=length($file)/1000;
my $filesize=sprintf('%.2f',$size); # KB auf 2 nachkommastellen
return($filesize);}

#------------------------ 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;
   %MENU=eval get "http://baseportal.de/files/bei123/menu.txt";
   $_session{menu}= serial %MENU;  
  }
}
#------------------------------ User
%USER    = eval $_session{user};
%MENU    = eval $_session{menu};
if($USER{uid} eq "")
{$LOG=&login();
}
else
{$LOG=&logout();
 $MAIN=&main_opt();
 if($_get{menu} ne "")
   {%PROG = eval $_session{prog};
   
   if($PROG{file} eq "")
     {my $file=$MENU{$_get{menu}};  
      @code= get "$file";
      $PROG{file}="out<<EOF;\n@code\nEOF\n";
      $_session{prog}= serial %PROG;
      %PROG = eval $_session{prog};
     }
    eval $PROG{file};
   }

}# ende ($USER{uid} eq "")
#------------------------------ html
out<<EOF;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<title>2.bp-Office $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">
<meta http-equiv="Content-Style-Type" content="text/css">
<link rel="stylesheet" media="screen" href="http://baseportal.de/files/bei123/website.css">
<style type="text/css">
</style>
</head>
<body>
<div id="framecontentLeft">
<!-- BEGIN PARTNER PROGRAM -->
<a href="http://baseportal.de" target="_blank"><img src="http://baseportal.de/pics/bphp/baseportal_scr.gif" width=160 height=600 border=0 alt=''></a>
<br>
<!-- END PARTNER PROGRAM -->
</div>
<div id="framecontentTop">
<table cellpadding=0 cellspacing=0 border=0><tr>
<td>$MAIN</td><td>$LOG</td><td></td><td>&nbsp;$datum</td>
</tr><tr>
<td>$OPT</td><td colspan=3>
EOF
#MENU
if($USER{uid} ne "")
{&{$CMD_MENU{$filetype}}($filename,$cmd) if($filetype ne "");}
out<<EOF;
</td></tr></table>
</div>
<div id="maincontent"><div class="innertube">
<div class=\"infodiv\"><b>$USER{uid}</b>/$path $_error</div>
EOF
#CONTENT
if($USER{uid} ne "")
{
 if($filetype ne "")
 {
 &{$CMD_CONTENT{$filetype}}($filename,$cmd);
 } 
 out "<h2>$bp_office Programmauswahl</h2>Bitte wählen Sie ein Programm aus!" if($filetype eq "");
outl dump(%HTTP_REFERER);
}
else
{
out "<h2>$bp_office Willkommen !</h2>Bitte mit Kennung und Passwort anmelden! <br>";
outl dump(%HTTP_REFERER);
outl dump(%_get);
}
out "<div class=\"infodiv\"><center>";
out "$pic_bp_ico Version: <b>$_version</b> - Ausführungszeit: <b>".runtime."</b><p><b>Demo</b> bp-Office von <b>H.Fehde</b>, &copy; 2007 -  <a href='http://www.bei123.de' target='_BLANK'>www.bei123.de</a> </p>";
out "</center></div>";
out<<EOF;
</div></div></body></html>