Emailformular um ein Feld erweitern (Perl/CGI)

[thread]16935[/thread]

Emailformular um ein Feld erweitern

Tags: perl5 CGI Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies

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)

+4 replies

rosti

2011-11-21 20:17

User since
2011-03-19
3472 Artikel
BenutzerIn

Den Parameter, Dein Textfeld fragst Du richtig ab, das ist ok. Du musst nur beachten, wo Du das Ergebnis hintust, unterscheide Dazu zwischen Mail-Headers und Message-Body.

Die Headers: Stehen jeweils in einer Zeile, z.B. Subject und einfacher Zeilenumbruch. Nach dem letzten Header müssen jedoch zwei Zeilenumbrüche kommen, damit eine Leerzeile entsteht. Dann kommt der Message-Body.

Beachte auch das Encoding und dessen entsprechende Deklaration in einem entsprechenden Header. Beispiel:

Code (perl): (dl )

Content-Type: text/plain; charset="UTF-8";
Content-Transfer-Encoding: quoted-printable

text text text,
Mit freundlichen Gr=C3=BC=C3=9Fen,
Absender

+3 replies

sileeem

2011-11-21 20:25

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

Puh! Das verstehe ich nicht. Zur Info: Es ist nur ein einziges Script - ich rufe keine HTML-Datei auf. Wenn ich es aber wie oben beschrieben aufrufe, wird in der Email für $et nichts übergeben :-(.

edit: Stimmt gar nicht, was ich geschrieben habe. Wenn ich dieses Script aufrufe, wird gar keine Mail versendet. Der Bildschirm wird weiß und ich bekomme leider auch keine Fehlermeldung.
Wenn ich die Zeile

Code: (dl )

 my ($et)=param("et");

auskommentiere, läuft das Skript wieder durch, aber natürloich habe ich dann keine Ausgabe für $et.
Last edited: 2011-11-21 20:41:43 +0100 (CET)

+2 replies

rosti

2011-11-21 21:13

User since
2011-03-19
3472 Artikel
BenutzerIn

Zeig doch mal den Teil Deines Scripts, der in das MAIL-Handle schreibt.

sileeem

2011-11-21 21:44

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

Hallo Rosti,
danke für deinen Einsatz :-). Ich hab jetzt nochmal größere Textstellen aus dem Code rauskopiert und sie in der richtigen Reihenfolge zusammengestellt.
Die Zeile

Code: (dl )

use CGI qw(:standard);

habe ich eben erst eingefügt. Seitdem wird der Screen nach dem Submit zwar nicht mehr weiß und die Mail wird wieder versendet, aber leider wird für $et immer noch nix mitgesendet.

Code: (dl )

#!/usr/bin/perl
use CGI qw(:standard);

# /snip/

sub notify{
 my ($aa, $ab, $ac, $ad, $ae)=@_;
 my ($et)=param("et");
 if ($EMAILPROG and $EMAIL{$aa}){
  if ($aa eq 'w'){$ad=" ... $ad"}
  $_=$ae; s/<[^>]*>/ /g; s/\s+/ /g; s/(^ | $)//g; # strip out html
  $ae=$_?qq! "$_"!:'';
  if (open (MAIL, "|$EMAILPROG $EMAIL{$aa}")){
   print MAIL "Subject: [$ab]message: $ac. $ad\n";
   print MAIL "texttesxttext $ab$ae:\n\n";
   print MAIL "\n$et\n";
   print MAIL "\n-----------------------------------------\nnoch mehr text-----------------------------------------\n";
   close (MAIL);
   $err="Your move has been e-mailed to $NAME{$aa}. $err"
  }
  else{ $err="Warning: had problems e-mailing $NAME{$aa}. $err" }
 }
}

# /snip/

sub notify{
 my ($plyr, $bd, $mvno, $mv, $title)=@_;
 my ($et)=param("et");
 if ($EMAILPROG and $EMAIL{$plyr}){
  if ($plyr eq 'w'){$mv=" ... $mv"}
  $_=$title; s/<[^>]*>/ /g; s/\s+/ /g; s/(^ | $)//g; # strip out html
  $title=$_?qq! "$_"!:'';
  if (open (MAIL, "|$EMAILPROG $EMAIL{$plyr}")){
   print MAIL "Subject: [$bd]Chess: $mvno. $mv\n";
   print MAIL "Your opponent (".$COLOUR{other($plyr)}.") just moved on board $bd$title:\n\n";
   foreach (@moves){ print MAIL "$_\n" }
   print MAIL "\n$et\n";
   print MAIL "\n\n$URL/$CGIPATH/$SCRIPT?dj=1&bd=$bd\n";
   print MAIL "\n-----------------------------------------\nYou have been notified automatically by\nthe BeholderBoard Virtual Chess-set $VER\n-----------------------------------------\n";
   close (MAIL);
   $err="Your move has been e-mailed to $COLOUR{$plyr}. $err"
  }
  else{ $err="Warning: had problems e-mailing $COLOUR{$plyr}. $err" }
 }
}

# /snip/

sub printBoard{
 my $bd=shift;
 my ($y,$x,$isz,$timelapse,$t,$hlch,$hcch,$hmch,$fbch,$form,$status);
 my $onUnload='';

# /snip/
 
  if ($plyr){
# /snip/
   $emailtextLabel='your text';
   $emailtextBox='<input name="et" type="text" size=24 maxlength=255>';
  }
  else{
# /snip/
  }
  $form=<<HTML_Form
	<table border=0 cellpadding=2 cellspacing=2>
	 <tr>
# /snip/ 
	     <td align=right valign=top><font size=2>$emailtextLabel</font></td>
	     <td valign=top>$emailtextBox</td>
	    </tr>
	   </table>
	  </td>
	 </tr>
	</table>

View all threads created 2011-11-21 20:03.