hallo!
kurzes problem! ich habe eine liste als .txt file:
$verifyemail|12345
$verifyemail|67890
$verifyemail|34567
$verifyemail|34256
...
jetzt habe ich in einem formularfeld $verifyemail als hidden und der user muss die passende 5-stellige pin eingeben, dann soll er zur $send_page, ansonsten zur fehlerseite, aufgerufen durch &pinerror;
habe folgenden sub benutzt, der funktioniert prima...
aber: es wäre geil, wenn bei korrekter pin diese zusammen mit der email-adresse gelöscht werden würde... geht das? bitte für anfänger!!!
sub checkdata {
&flock($pintemp.".lock");
open (pintemp, "$pintemp") or &error("Daten können nicht gelesen werden");
my @lines = <pintemp>;
close(pintemp);
&unflock($pintemp.".lock");
for ($i = 0; $i <= $#lines; $i++) {
chomp(@lines);
($verifyemail,$pin) = split(/\|/,$lines[$i]);
if (($verifyemail eq $form{'verifyemail'}) && ($form{'enteredpin'} eq $pin)) {
print "<html><head><meta http-equiv=refresh content=\"0; url=$send_page\"></head></html>\n";
exit;
}
}
&pinerror;
}
danke!
wäre schön, wenn mir jemand helfen könnte...
MortaR
kurzes problem! ich habe eine liste als .txt file:
$verifyemail|12345
$verifyemail|67890
$verifyemail|34567
$verifyemail|34256
...
jetzt habe ich in einem formularfeld $verifyemail als hidden und der user muss die passende 5-stellige pin eingeben, dann soll er zur $send_page, ansonsten zur fehlerseite, aufgerufen durch &pinerror;
habe folgenden sub benutzt, der funktioniert prima...
aber: es wäre geil, wenn bei korrekter pin diese zusammen mit der email-adresse gelöscht werden würde... geht das? bitte für anfänger!!!
sub checkdata {
&flock($pintemp.".lock");
open (pintemp, "$pintemp") or &error("Daten können nicht gelesen werden");
my @lines = <pintemp>;
close(pintemp);
&unflock($pintemp.".lock");
for ($i = 0; $i <= $#lines; $i++) {
chomp(@lines);
($verifyemail,$pin) = split(/\|/,$lines[$i]);
if (($verifyemail eq $form{'verifyemail'}) && ($form{'enteredpin'} eq $pin)) {
print "<html><head><meta http-equiv=refresh content=\"0; url=$send_page\"></head></html>\n";
exit;
}
}
&pinerror;
}
danke!
wäre schön, wenn mir jemand helfen könnte...
MortaR