#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);


# ------->; SMTP-Programm zum Versenden der Mail:
my &#36Sendmail_Prog = "http:\\localhost\scripts\sendmail.exe";

# ------->; Modul für CGI-Scripts einbinden:
use CGI;

# ------->; Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
my &#36query = new CGI;
my @names = &#36query->param;

# ------->; interne Daten aus den erwarteten hidden-Feldern auslesen:
my &#36delimiter = &#36query->param('delimiter');  # --->; Begrenzerzeichen zwischen name und value
my &#36mailto = &#36query->param('mailto');        # --->; Empfängeradresse
my &#36returnhtml = &#36query->param('return');    # --->; URL für Dankeseite
my &#36subject = &#36query->param('subject');      # --->; E-Mail-Subject


# ------->; Text der E-Mail aus den Formulardaten ermitteln:
my &#36mailtext = "";
foreach(@names) {
  my &#36name = &#36_;
  my &#36value = "";
  my @values = "";
  my @values = &#36query->param(&#36name);
  if(&#36name ne "mailto" && &#36name ne "return" && &#36name ne "subject" && &#36name ne "delimiter") {
    foreach &#36value (@values) {
      &#36mailtext = &#36mailtext.&#36name;
      &#36mailtext = &#36mailtext.&#36delimiter;
      &#36mailtext = &#36mailtext.&#36value."\n";
    }
  }
}

# ------->; E-Mail versenden:
open(MAIL,"|&#36Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: &#36mailto\n";
print MAIL "Subject: &#36subject\n\n";
print MAIL "&#36mailtext\n";
close(MAIL);

# ------->; Dankeseite an Browser senden:
print "Location: &#36returnhtml\n\n";