<perl>
if ($cmd eq "")
{
get "aktiv==nein","anmeldungen";
while (get_next("anmeldungen"))
{
del "Id==$_id","anmeldungen";
put
["benutzername",$benutzername,"Vorname",$Vorname,"Ich_bin",$Ich_bin,"Ich_suche",$Ich_suche,"geburtstag",$geburtstag,"email",$email,"homepage",$homepage,"aktivseit",$aktivseit,"Groesse",$Groesse,"Gewicht",$Gewicht,"Haarfarbe",$Haarfarbe,"Frisur",$Frisur,"Augenfarbe",$Augenfarbe,"Rauchen",$Rauchen,"Wohnort",$Wohnort,"Postleitzahl",$Postleitzahl,"Bundesland",$Bundesland,"Wen_ich_suche",$Wen_ich_suche,"Fuer",$Fuer,"Ich_biete",$Ich_biete,"Kinder_habe_ich",$Kinder_habe_ich,"Sie_leben_bei",$Sie_leben_bei,"Du_darfst_Kinder_haben",$Du_darfst_Kinder_haben,"Das_mag_ich",$Das_mag_ich,"Das_nicht",$Das_nicht,"Deine_Groesse",$Deine_Groesse,"Dein_Alter",$Dein_Alter,"Mindestens",$Mindestens,"Hoechstens",$Hoechstens,"Datum",$Datum,"Bild",$Bild,"Telefonnummer",$Telefonnummer,"passwort",$passwort,"zufallszahl",$zufallszahl,"status",$status,"fehlerstufe",$fehlerstufe,"fehlerstatusseit",$fehlerstatusseit,"homepage",$homepage,"chatautologin",$chatautologin,"int",$int,"aktiv",$aktiv,"Bildda",$Bildda],"benutzerverwaltung";
undef %_put
}
}
</perl>