bp Office
EOF
if($cmd eq "login")
{##################
if($_get{upw} eq $pw)
{###############################################
outl "$uid $pw";
$USER{uid}=$_get{uid};
$USER{upw}=$pw;
$_session{user}= serial %USER;
}
}
%USER = eval $_session{user};
if($USER{uid} eq "")
{###################
login();
}
else
{
outl dump(%USER);
}
sub login
{############################
my $uid=(split(/\//,$htx))[1];
my $form="";
$form.="";
$form.="- Login/Anmeldung
";
$form.="";
$form.="
";
out $form;
}########
out<