baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl>
if(%_put) { $emsg.="Vereinsname, <br>" if $_put{Verein} eq ""; $emsg.="Ansprechpartner, <br>" if $_put{Ansprechpartner} eq ""; $emsg.="Strasse, <br>" if $_put{Strasse} eq ""; $emsg.="PLZ, <br>" if $_put{PLZ} eq ""; $emsg.="Ort, <br>" if $_put{Ort} eq ""; $emsg.="Telefon, <br>" if $_put{Telefon} eq ""; $emsg.="Email, <br><br>" if $_put{Email} eq ""; if($emsg eq "") { @zahlen = (0 .. 9); $Verein_PW = join("", @zahlen[ map { rand @zahlen } ( 1 .. 6) ] ); $_put{Verein_PW}=$Verein_PW; ## Passwort schreiben
get "Verein_ID==#", "nutzer"; ## letzte Nummer aus DB holen $_put{Verein_ID}=++$count; ## diese Nummer um eins erhöhen
mail "
Alle Einträge zum Thema: | Zur Liste |
<perl>
if(%_put) { $emsg.="Vereinsname, <br>" if $_put{Verein} eq ""; $emsg.="Ansprechpartner, <br>" if $_put{Ansprechpartner} eq ""; $emsg.="Strasse, <br>" if $_put{Strasse} eq ""; $emsg.="PLZ, <br>" if $_put{PLZ} eq ""; $emsg.="Ort, <br>" if $_put{Ort} eq ""; $emsg.="Telefon, <br>" if $_put{Telefon} eq ""; $emsg.="Email, <br><br>" if $_put{Email} eq ""; if($emsg eq "") { @zahlen = (0 .. 9); $Verein_PW = join("", @zahlen[ map { rand @zahlen } ( 1 .. 6) ] ); $_put{Verein_PW}=$Verein_PW; ## Passwort schreiben
get "Verein_ID==#", "nutzer"; ## letzte Nummer aus DB holen $_put{Verein_ID}=++$count; ## diese Nummer um eins erhöhen
mail "
Liste der Einträge von 40950 bis 41100: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |