Emailformular um ein Feld erweitern - #154411 (Perl/CGI)

sileeem

2011-11-21 20:03

User since
2011-11-21
3 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,
ich bin ein Perl-Newbee und möchte ein bestehendes (sehr komplexes) Skript erweitern. Leider bekomme ich das nich ganz hin. Vielleicht könnt ihr mir helfen? :-)
Das Skript versendet eine Email per Formular. Ich möchte diesem Formular ein weiteres Feld hinzufügen. Dieser Text soll dann der Email hinzugefügt werden.

---------- Formular Variante 1

Code (perl): (dl )

1
2

   $emailtextLabel='your text';
   $emailtextBox='<input name="et" type="text" size=24 maxlength=255>';

---------- Formular Variante 2

Code (perl): (dl )

1
2

   $emailtextLabel='your text';
   $emailtextBox='<textarea name="et" rows=2 cols=15 maxlength=255></textarea>';

==> Hier habe ich das neue Formularfeld. Beide Varianten werden im Formular entsprechend angezeigt. Leider bekomme ich aber die Übergabe an die Email nicht hin.

----------

Code (perl): (dl )

sub notify{
 my ($title)=@_;
 my ($et)=param("et");
 if (... verkürzt ...)
   print MAIL "Subject: $title \n";
   print MAIL (... verkürzt...)
   print MAIL "\n$et\n";
}

Ich habe den Quelltext gekürzt um ihn übersichtlicher zu machen. Diese Zeilen sind von mir:

Code (perl): (dl )

1
2

 my ($et)=param("et");
   print MAIL "\n$et\n";

und funktionieren natürlich nicht. Was mache ich falsch? Oder besser: wie kann ich den Text im Formularfeld richtig in eine Variable packen und aufrufen?

Vorab Danke :-)

modedit Editiert von GwenDragon: Bitte das nächste Mal Codezeilen in Perl-Tags stellen
Siehe http://www.perl-community.de/bat/poard/markup_help...
Last edited: 2011-11-21 20:06:25 +0100 (CET)