home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2004 November / PCWNOV04.iso / Software / Full / Databecker Mail To Date / MailScripts / mail.pl < prev   
Encoding:
Perl Script  |  2003-07-03  |  1.4 KB  |  51 lines
  1. #!/usr/bin/perl
  2.  
  3. #
  4. # ------------------------------------------------------
  5. # Formular-Gateway-Script fⁿr mail to date / web to date
  6. # (C) 2002 MultiMⁿller GmbH
  7. # www.multimueller.de
  8. #  ------------------------------------------------------
  9. #
  10.  
  11. # Geben Sie hier den Pfad zu sendmail an:
  12. $mailprogram = "/usr/lib/sendmail -t";
  13.  
  14. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  15. @pairs = split(/&/, $buffer);
  16. foreach $pair (@pairs) {
  17.         ($name, $value) = split(/=/, $pair);
  18.         $value =~ tr/+/ /;
  19.         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  20.         $FORM{$name} = $value;
  21. }
  22.  
  23. unless ($FORM{'fgwemail'}) {
  24.     print "Content-type: text/html\n\n";
  25.     print "Keine E-Mail-Adresse angegeben\n";
  26.     exit;
  27. }
  28. unless ($FORM{'fgwreturnurl'}) {
  29.     print "Content-type: text/html\n\n";
  30.     print "Keine Feedback-Seite angegeben\n";
  31.     exit;
  32. }
  33. unless ($FORM{'fgwsubject'}) {
  34.     print "Content-type: text/html\n\n";
  35.     print "Keinen Betreff angegeben\n";
  36.     exit;
  37. }
  38.  
  39.  
  40. open (MAIL,"|$mailprogram");
  41. print MAIL "To: $FORM{'fgwemail'}\n";
  42. print MAIL "From: info\@web-2-date.de\n";
  43. print MAIL "Subject: $FORM{'fgwsubject'}\n\n";
  44. while (@array = each(%FORM)) {
  45.     unless ($array[0] eq "fgwsubject" || $array[0] eq "x" || $array[0] eq "y" ||$array[0] eq "fgwemail" || $array[0] eq "fgwreturnurl") {
  46.             print MAIL "$array[0]: $array[1]\n";
  47.     }
  48. }
  49. close MAIL;
  50.  
  51. print "Location: $FORM{'fgwreturnurl'}\n\n";