Formular mit Perl auslesen und verschicken

Hallo zusammen.

Bislang benutzte ich stets ein kleines (von einem Bekannten gemachtes) Perlskript zum versenden von Formulardaten.
Ich selber habe keine Ahnung von Perl und konnte lediglich die Empfanger- u. Absenderdaten entsprechend ändern (was mir bisher aus ausgereicht hat).

Jetzt möchte ich aber mit Hilfe zweier Radiobuttons den Empfanger bestimmen.
D.h. der Absender kreuzt entweder den Button "Buch" oder "Musik" an, und das Formular wird entsprechend an "buch@xxx.xx" oder "musik@xxx.xx" geschickt.
So ist mein Plan.
Leider habe ich nicht die geringste Ahnung, wie ich mein jetziges Skript verändern bzw. erweitern muss.

Perl

#!/usr/bin/perl
$email_prog="/usr/sbin/sendmail";


##########Daten vom Script lesen#########################

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
#print "Content-type: text/html\n\n";


################Formular einlesen##########################
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
open(MAIL,"|$email_prog -t");
print MAIL "from: xxx\@xxx.de\n";
print MAIL "to: yyy\@yyy.de\n";
print MAIL "subject: zzzzz\n\n";


##############Split the name-value pairs####################
  @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value=~ s/</\&lt;/g;
      $value=~ s/>/\&gt;/g;
      $value=~ s/;/,/g;
      $value=~ s/"/''/g;
      $value=~ s/\n/ /g;
      $value=~ s/\r//g;
      $value=~ s/(015)//g;
      $value=~ s/(012)//g;


      $FORM{$name} = $value;
###########Feld einlesen################################
   $textstring = $name . " = " . $FORM{$name}."\n";
   print MAIL $textstring ."\n";
  }
}   
close(MAIL);
print "Location: http://www.yyy.de/thx.htm\n\n";

Alles anzeigen

Gibt es hier vielleicht einen gnädigen Skripter, der mir weiterhelfen will?

Schonmal danke im Vorraus

Dragon-D

also es gibt da ein schönes perl modul, um formulare abzuarbeiten... aber da dus immer so machst, ändern wir lieber nicht allzuviel... "don't touch a running sytsem"

Perl

#!/usr/bin/perl
$email_prog="/usr/sbin/sendmail";


##########Daten vom Script lesen#########################


if ($ENV{'REQUEST_METHOD'} eq 'POST') {
#print "Content-type: text/html\n\n";


################Formular einlesen##########################
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
##############Split the name-value pairs####################
  @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value=~ s/</\&lt;/g;
      $value=~ s/>/\&gt;/g;
      $value=~ s/;/,/g;
      $value=~ s/"/''/g;
      $value=~ s/\n/ /g;
      $value=~ s/\r//g;
      $value=~ s/(015)//g;
      $value=~ s/(012)//g;


      $FORM{$name} = $value;
###########Feld einlesen################################
   #hier hängen wir nun immer den text an eine variable an
   $textstring .= $name . " = " . $FORM{$name}."\n\n";
  }
}
###########Mail abschicken################################


#hier prüfen wir, an wen die mail gehen soll
#empfaenger ist der radiobutton
if ($FORM{'empfaenger'} eq 1) {
   $empfaenger = "asd\@blub.de";
}else {
   $empfaenger = "huhu\@muinchhause.de";
}
#nun wollen wir die mail schreiben


open(MAIL,"|$email_prog -t");
print MAIL "from: xxx\@xxx.de\n";
print MAIL "to: ".$empfaenger."\n";
print MAIL "subject: zzzzz\n\n";
print MAIL $textstring ."\n";
close(MAIL);
print "Location: http://www.yyy.de/thx.htm\n\n";

Alles anzeigen

es wird nun einfach geprüft, welchen wert der radiobutton hat (hier empfaenger) und dementsprechend wird der empfaenger ausgewählt... vieleicht nicht die schönste lösung, aber er sollte problemlos klappen

Vielen Dank!
Genau so sollte es sein.

Tags