<perl>
##########################################################################################
$login_text = login;
$login_text =~ s/Bitte melden Sie sich an://;
$login_text =~ s/Anmelden/Login/;
logout if $cmd eq "logout";
$aktioncolor=($_user ne "" ? "#000000":"#c0c0c0");
$aktionmsg =($_user ne "" ? "<font color=green>Alternativ-Login</font> mit <i>demo</i> + <i>demo</i> ":"DemoLogin mit <i>test</i> + <i>test</i>");
##########################################################################################
#------------------
out qq(<fieldset style="border:1px solid $aktioncolor"><legend style="color:$aktioncolor"><b>Anmeldung</b></legend><div style="background-color:#f0f0f0;padding:3px;color:blue">);
if($_user eq "")
{out $login_text ;
}else
{out qq(<h4>User($_user)</h4>);
out qq(<form action="$_link" name="_baseportal_logout" method="post" enctype="multipart/form-data"><input type="hidden" name="cmd=" value="logout"><input type="submit" value="Logout"></form>);
}
out qq(</div></fieldset>);
#-----------------
},
#---------------
my $AKTION=$_;
out qq(<fieldset style="border:1px solid $aktioncolor"><legend style="color:$aktioncolor" ><b>Aktion</b></legend>);
if($_user ne "")
{## angemeldet
if($_user{Admin} eq "")
{# kein Admin
$userformfields="-Name,Passwort,Admin,Lesen,Schreiben,Ausführen,Ändern,Löschen";
outp qq(<div style="padding:4px"><do action=list db=$Datenbank Id==$Id listfields=-Aktion,Id,Name,Passwort,Lesen,Schreiben,Ausführen,Ändern,Löschen></div>) if($cmd eq "do_mod") ;
if($_loop{Admin} eq "")
{
outp $AKTION ;
}
else
{
outl qq(<h4>Den Admin können Sie nicht ändern: <i><a href="$_link&uid=$uid&sid=$sid">Also zurück</a></i> </h4>);
}
}
else
{# der Admin
outp $AKTION ;
}
}##
####################
parse "",\%mytags; # let's work
####################
</perl>
<html><head>
<title>Meine Userverwaltung</title>
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
<meta http-equiv="content-language" content="de">
<meta http-equiv="Content-Style-Type" content="text/css">
<style type="text/css">
html{background:#ffffff}
hr{border: 0px; /* Für Firefox und Opera */
border-top: solid 1px silver;
border-bottom: transparent;}
.left{width:250px;float:left;}
.right{float:left;}
.aktion={color:$aktioncolor;}
.shadow{text-shadow:2px 2px 4px #141414;}
</style>
</head><body>
<hr>
<div style="width:100%">
<div class="left">
<Anmeldung></Anmeldung>
</div>
<div class="right">
<Aktion info="&bp;-Version:$_version :: Programm von &webmaster;" Datenbank="Zugang" >
<do action=all db=$Datenbank listfields=-Name,Passwort keyfield=FamName allfields=-Name,Passwort searchfields=FamName,VorName formfields=$userformfields >
</Aktion>
</div>
