Opened by Olli at 2011-07-11 11:12
User since
2011-05-17
19 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-05-17
19 Artikel
BenutzerIn
Habe mir ein Newslettersystem gebastelt und schreibe auf der Formularseite erst mal eine temporere Datei mit den Anmeldedaten. Auszug:
Dann muß der Anmelder die Bestätigungsmail anklicken und gelangt zur Bestätigungsseite. Dort wird die Testnummer geprüft und die kleine Textdatei abgerufen und in die große Textdatei, mit allen Empfängern, gepackt:
Ist mit Sicherheit nicht der korrekteste Weg. Aber ich wollte es eben selbst basteln und kein fertiges Modul verwenden.
Es funktioniert auch alles super. Einziger Schönheitsfehler: Ab und an werden einzelne Einträge in der Datei newsletter.txt nicht untereinander angefügt. Also es wird ein Newline "vergessen". An was kann das liegen?
Vielen Dank schon mal.
Code: (dl
)
1
2
3
open(APPENDFILE,">>$zufallnr.txt");
print APPENDFILE ("$zufallnr, ", "$derVorname"," ", "$derNachname, ", "$mailto","\n");
close (APPENDFILE);
Dann muß der Anmelder die Bestätigungsmail anklicken und gelangt zur Bestätigungsseite. Dort wird die Testnummer geprüft und die kleine Textdatei abgerufen und in die große Textdatei, mit allen Empfängern, gepackt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
print $query->hidden(-name=>'test',
-default=>'');
my $testNr = $query->param('test');
my $status = open (READFILE,"<$testNr.txt");
my $zeile = <READFILE>;
my @zeile = $zeile;
my @empfaenger = split(/,/,$zeile);
my $derName = $empfaenger[1];
if (!$status){
print "Fehler"
} else {
my @umbenennen = $zeile;
open(APPENDFILE,">>newsletter.txt");
print APPENDFILE "@umbenennen";
close (APPENDFILE);
close(READFILE);
unlink ("$testNr.txt");
print "Hallo $derName, vielen Dank für die Newsletter-Bestellung!";
}
Ist mit Sicherheit nicht der korrekteste Weg. Aber ich wollte es eben selbst basteln und kein fertiges Modul verwenden.
Es funktioniert auch alles super. Einziger Schönheitsfehler: Ab und an werden einzelne Einträge in der Datei newsletter.txt nicht untereinander angefügt. Also es wird ein Newline "vergessen". An was kann das liegen?
Vielen Dank schon mal.