hallo diana,
wir haben so was ähnliches mal umgesetzt.
über ein formular trägt sich der neue user ein (definierte pflichtfelder)
und legt sein passwort und benuter-id selbst fest.
es wird geprüft, ob beides noch frei ist.
wenn ja geht ne mail mit vertragsbedingungen per mail raus und
der eintrag wird in die db geschrieben.
ich hoffe, ich hab dir das aktuelle perl kopiert :-)
ist schon länger her.
um zu umgehen, daß der user vergißt sein "verantwortlich"-feld auszufüllen,
kannst du es entweder als pflichtfeld definieren oder noch einfacher.
nimm als "verantwortlich" feld ein "email" feld mit der option "eingabe nötig". so muß er auf jeden fall was eingeben.
gruß
markus
<perl>
if ($cmd eq "add") {
if (length($_put{Passwort}) < 6){
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>Das Passwort muß aus mindestens 6 Zeichen bestehen<br>";
}else{
get "Passwort==$_put{Passwort}","nutzer";
if($_amount){
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>Bitte benutzen Sie ein anderes Passwort<br>";
}
}
if ($err ne "") {
out "<b>Die Registrierung konnte nicht vorgenommen werden.</b> <br>$err";
undef %_put;
}else{
if (length($_put{Benutzer}) < 6){
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>Die Benutzerkennung muß aus mindestens 6 Zeichen bestehen<br>";
}else{
get "Benutzer==$_put{Benutzer}","nutzer";
if($_amount){
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>Bitte benutzen Sie eine andere Benutzerkennung<br>";
}
}
if ($err ne "") {
out "<b>Die Registrierung konnte nicht vorgenommen werden.</b> <br>$err";
undef %_put;
}else{
if ($cmd eq "add") {
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>
-Name des Anbieters<br>" if $_put{regAnbieter} eq "";
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>
-Position<br>" if $_put{regPosition} eq "";
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000>
-Anrede<br>" if $_put{regAnrede} eq "";
}
if ($err ne ""){
undef %_put;
}
if ($err ne "") {
out "<b>Die Registrierung konnte nicht vorgenommen werden.<br>
Es wurden folgende Felder nicht ausgefüllt.</b> <br>$err";
undef %_put;
}else{
$senddat=datum('jetzt', 'intern');
mail "$regEMail", "Registrierung", "Vertrag
zwischen
......
", 'verwaltung@....de', "$regAnrede $regName", "Verwaltung", "$regEMail", '';
}
}
}
}
</perl>
<font color=FFFFFF>
<do action=input db=nutzer></font>
