#!/usr/local/bin/perl

use strict;
use warnings;

# -------> Individuelle Parameter des Skriptes - bitte anpassen!
# --> SMTP-Programm zum Versenden der Mail:
my $Sendmail_Prog = '/usr/lib/sendmail';
# --> Ziel-Mailadresse, an die gesendet werden soll:
my $mailto = 'email-adresse';

# -------> Modul für CGI-Scripts einbinden:
use CGI;
use CGI::Carp qw(fatalsToBrowser);

$CGI::DISABLE_UPLOADS = 0;      # no uploads
$CGI::POST_MAX=1024*50;         # max. 50k Postings


# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
my $query = CGI->new();


my @names = $query->param();


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



# -------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln
#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
my $subject =~ s/\s/ /g;

# -------> Text der E-Mail aus den Formulardaten ermitteln:
my $mailtext = "";

foreach my $name (@names) {
  if ( !grep{ $_ eq $name }('return','subject','delimiter') ) {
    my @values = $query->param($name);
    foreach my $value (@values) {
      $mailtext .= $name;
      $mailtext .= $delimiter;
      $mailtext .= $value."\n";
    }
  }
}


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

# -------> Dankeseite an Browser senden:
print $query->redirect('-url' => $returnhtml);