#!/usr/bin/perl -w
# Formular.pl sends a formated email with formular input (independend of number of fields)
# 25.08.03 (spr)
use strict;
use CGI::Carp qw(fatalsToBrowser);
# Input and formate
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
(my $Name, my $Wert) = split(/=/, $Feld);
$Wert =~ tr/+/ /;
$Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Wert =~ s//>/g;
$Formular{$Name} = $Wert;
}
# Output
# HTML-output
my $test = 0;
if( $test != 0) {
# for testing
print "Content-type: text/html\n\n";
print '', "\n";
print "CGI-Feedback\n";
print "Resultate von Formular.pl
\n";
print "Übertragene Daten:
";
while (($Name, $Wert) = each(%Formular)) {
print "Das Formularfeld $Name besitzt den Wert $Wert.
\n";
}
print "\n";
}
else {
use CGI qw(redirect);
print redirect("http://www.perl-community.de");
# print "Content-type: text/html\n\n";
# print '', "\n";
# print "$Formular{Formular}\n";
# print "Danke für Ihre Anfrage
\n";
# print
# print "\n";
}
# Automatic Email sending
my $Sendmail_Prog = 'sendmail.exe';
open (MAIL, "|$Sendmail_Prog -t") || die "Mailprogramm konnte nicht gestartet werden\n";
...usw...