########################### office_installation.txt ::: 24.07.09
$insDate=datum("jetzt","lang");
$ACCOUNT{(split "=",$_)[0]}=(split "=",$_)[1] for (split "&",$_HTTP_REFERER);
$bp_acc = (split(/\//,$_get{htx}))[1];
$u_url  = (split(/\//,$_HTTP_REFERER))[2];
#----------------------------------------------------------------------------
if($ACCOUNT{uid} eq $bp_acc)
{
$install[0]="<perl>\n";
$install[1]="###### baseportal-Office ::: 2009 © www.bei123.de ::: installiert am $insDate #######\n";
$install[2]="eval get \"http://baseportal.de/files/bei123/bei123_office.txt\";\n######\n";
$install[3]="</perl>\n";
$install[4]="<perl script=DO>&SCRIPT_AJAX();</perl>\n";
$install[5]="<perl script=CT>&CONTAINER($ID);</perl>\n";
$install[6]="<perl script=loading>&bei123_ajax_loading();</perl>\n";
$install[7]="<center><banner type=banner></banner></center>" if($u_url eq "baseportal.de");
mod \@install, "$htx.htx", "raw";
$_header="Location: $_link\n";
}
else
{
outl "<h2>LOGOUT</h2>";
}