$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="http://baseportal.de/cgi-bin/baseportal.pl?htx=/bei123/Office/Office_Check&user=$ACCOUNT{uid}&u_sid=$ACCOUNT{sid}&cmd=login&u_htx=$htx&use=$USE";
$__ins = get "$__install";
if($__ins ne "")
{#--------------
$__ins = (split("<!bei123>",$__ins))[1];
eval get $__ins;
}
}
else
{
outl "<h2>Falscher LOGIN</h2>";
}