Hallo liebes Forum,
ich habe ein Formular erstellt und über cgi eingebunden. Alles klappt gut aber leider kommen die Daten nicht in der Reihenfolge wie es in der Webtabelle ist als Mail an. Es ist ein Durcheinander hat einer ein Tipp wie man es ordnen könnte??


Für Hilfe wäre ich sehr Dankbar
otto

Hallo Otto,

wie sieht denn das Perl-Script und das Formular aus?

Gruß Sabine

Hallo SabineP,
vielen Dank

hier das cgi
___________________________________________________


#!/usr/bin/perl

&ReadParse(*FORM);

# delete for hacks alls \n \r
$FORM{'subject'} =~ s/\n|\r//g;
#patched1

my $sendmail = "/usr/sbin/sendmail -i -t";

# check all fields
my @list = split(/, /, $FORM{'required'});
for(@list) {
if ($FORM{$_} eq "") {&error;}
}

# send Mail

open(MAIL, "| $sendmail");
print MAIL "Return-Path: ".'info@test.de'."\n";
print MAIL "To: ".'info@test.de'."\n";

if ($FORM{email} =~ /^[a-z0-9\_\.\-]*\@[a-z\-\.]*\.\w+$/i) {
print MAIL "From: $FORM{email}\n";
} else {
print MAIL "From: ".'info@test.de'."\n";
}

print MAIL "Subject: $FORM{'subject'}\n\n";

foreach (keys %FORM) {
print MAIL "$_: $FORM{$_}\n";
}

close(MAIL);

# zweite Mail an den Kunden
if (("1" eq "1") && ($FORM{email} =~ /^[a-z0-9\_\.\-]+\@[a-z\-\.]+\.\w+$/i)) {

open(MAIL, "| $sendmail");
print MAIL "Return-Path: ".'info@test.de'."\n";
print MAIL "To: ".$FORM{email}."\n";
print MAIL "From: $FORM{email}\n";

print MAIL "Subject: Bestätigung $FORM{'subject'}\n\n";

foreach (keys %FORM) {
print MAIL "$_: $FORM{$_}\n";
}
close(MAIL);

}


&ok;
exit;

## SUBS

sub ok {
print "Location: $FORM{'redirect'}\n\n";
exit;
}

sub error {
print "Location: $FORM{'missing_fields_redirect'}\n\n";
exit;
}

sub ReadParse {
local (*in) = @_ if @_;
local ($i, $key, $val);

# Read in text
if (&MethGet) {
$in = $ENV{'QUERY_STRING'};
} elsif (&MethPost) {
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}

@in = split(/[&;]/,$in);

foreach $i (0 .. $#in) {
# Convert plus's to spaces
$in[$i] =~ s/\+/ /g;

# Split into key and value.
($key, $val) = split(/=/,$in[$i],2); # splits on the first =.

# Convert %XX from hex numbers to alphanumeric
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;

# Associate key and value
$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;

}

return scalar(@in);
}

# MethGet
# Return true if this cgi call was using the GET request, false otherwise

sub MethGet {
return ($ENV{'REQUEST_METHOD'} eq "GET");
}

# MethPost
# Return true if this cgi call was using the POST request, false otherwise

sub MethPost {
return ($ENV{'REQUEST_METHOD'} eq "POST");
}
________________________________________________________________


und hier das Formular

http://www.bucheinband-exquisit.de/pages/testperson.html


Grüße Torsten

Hallo Torsten,

wenn Du die Formularinhalte dieses Formulars fein sortiert in einer E-Mail erhalten möchtest,
dann klappt das nur zuverlässig, wenn Du ein Template für den Mailinhalt verwendest.

Im Template fügst Du Platzhalter für die einzelnen Formularfelder ein.

Das Perl-Script nimmt dann nach Absenden des Formulars die einzelnen Formulardaten entgegen und füllt die Platzhalter im Template mit den Formulardaten aus, anschließend wird die Mail versendet.

Das kannst Du so als Aufgabenstellung Deinem Perl-Programmierer übergeben.

Gruß Sabine

Hallo Sabine,
erst mal recht vielen Dank.
Ich glaube das ist mir zu kompliziert.
Dann muss es wohl so gehen.

Vielen Dank Torsten

Hallo Torsten,

>> Ich glaube das ist mir zu kompliziert. Dann muss es wohl so gehen.

Mir ist das nicht zu kompliziert :-)
Aber ein paar Stunden brauche ich schon für so ein Script.
Schicke mir eine PM, wenn Du Hilfe brauchst.

http://www.hilfdirselbst.ch/...te+Mitteilung+senden

Gruß Sabine