Hallo zusammen,
ich hoffe, es kann mir jemand helfen.
Ich muß ein Perl-Skript abändern, daß jemand anderes geschrieben hat.
Leider reichen meine Perl-Kenntnisse noch nicht weit genug, um folgendes Problem zu lösen (und der, der es geschrieben hat, kann es irgendwie auch nicht):
Ein Perl-Skript soll aus einem Formular die Benutzereingaben auslesen
und die PLZ in der Betreffzeile ausgeben, damit die Mails später leichter sortiert werden können.
Am Anfang des Skripts werden die Variablen definiert:
Variablen:
$gobackurl = "/";
$mailto = "noname@nowhere.de";
$webmaster = "webmaster@nowhere.de";
$title = "Lieferunterbrechung eines Abos";
Fügt man hier
$title = "P $daten('sPLZ') Lieferunterbrechung";
ein, wird als Betreff "P Lieferunterbrechung" ausgegeben,
die PLZ wird also nicht ausgelesen.
(Das restliche Formular funktioniert übrigens perfekt,
sowohl Rückgabeseite als auch e-mail-Versand.)
Fügt man diese Zeile
($title = "P $daten('sPLZ') Lieferunterbrechung";)
unterhalb von
3. Felder abfragen -------------------------------------
else {
if (&ReadParse(*Daten)) {
for ($i = 0; $i < $Anz_Buch; $i++) {
if ($Daten{$Buecher[$i]} ne "0") {
}
}
ein (denn es könnte ja sein, daß das Skript die Daten erst weiter unten verarbeitet, ihr seht, ich bin völlige Anfängerin), dann bekommt man nur Fehlermeldungen, d.h. das Skript wird überhaupt nicht verarbeitet.
Ich nehme an, es ist nur eine Kleinigkeit
aber nun sitze ich hier und finde keine Lösung.
Hat vielleicht einer von Euch eine Idee, wo der Fehler liegt,
bzw. welchen Befehl ich wo einbauen muß?
Vielen, vielen Dank für Eure Hilfe.
Viele Grüsse
Ulla