Hallo Stuppi,

ich hatte auch damit keinen Erfolg, irgendwie scheint der Server nicht zu begreifen, dass ich einen Vorgang auslösen und nicht nur von einer Seite zur anderen blättern will, seufz ... Kann es sein, dass ich auf der Formularseite selber einen Riesenfehler habe?
http://www.seidler.ch/Indienfreunde/Dezent/Spende.html

Mein selfmail.pl sieht nach Euren Tipps mittlerweile so aus. Kannst auch Du bitte einen gnädigen Blick darauf werfen? Danke für Deine Geduld!

#!/usr/bin/perl

use warnings;
use strict;

my $Sendmail_Prog = "/usr/sbin/sendmail";

my $mailto = "meine E-Mail-Adresse";

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-Type: text/html\n\n";

my $query = new CGI;
@names = $query->param;

my $delimiter = $query->param('delimiter');
my $returnhtml = $query->param('return');
my $subject = $query->param('subject');

$subject =~ s/\s/ /g;

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

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);

print "Location: $returnhtml\n\n";

Hallo Beat,

vielen Dank für Deine Geduld!

Anwenden schon. Aber die User werden böse.
Sie haben keine Chance auf eine Vorschau.
Sie bekommen keine Archivversion ihres gesendeten Inhalts.
Spam hat alle Chancen.

Ich glaube nicht, dass die User dieser Site böse werden ;-). Es geht weder um eine Bestellung noch um eine Zusage, sondern lediglich um eine Anfrage. Da habe ich selber ehrlich gesagt selten eine Vorschau serviert bekommen. (Nicht einmal beim Amazon-Kundendienst gibt es übrigens eine Archivversion, sondern lediglich ein Dankeschön nach dem Absenden der Anfrage!) Hat mich aber auch nie beunruhigt, denn es wird ja keine Verpflichtung eingegangen ...
Das mit dem Spam ist mir voll bewusst und käme als Nächstes dran. Aber solange das Teil nicht funzt, hat ja auch Spam keine Chance.

hast du genügend Dateirechte gesetzt?

Das frage ich mich allmählich auch, aber bisher ging ich davon aus. Ich gehe dem nochmals nach.

Herzlichen Dank so weit!
Monica

Hallo Stuppi - danke für die rasche Rückmeldung, bei mir geht's jeweils etwas länger...

Wo ist das BEGIN? das war wichitg.

Tschuldigung!

my $mailtext = "";
foreach(@names) {
  $name = $_;

my $name = $_;

Wobei das umständlich ist.

foreach my $name (@names) {

Hab ich Dich hier richtig verstanden?

Hier ist eine Prüfung, ob $Sendmail_Prog existiert sinnvoll, daher vor diese Zeile:

die "Sendmail existiert nicht!" unless -d $Sendmail_Prog;

Das habe ich jetzt exakt so übernommen.

Neuster Stand:

#!/usr/bin/perl

use warnings;
use strict;

my $Sendmail_Prog = "/usr/sbin/sendmail";

my $mailto = "meine E-Mail-Adresse";

use CGI;

BEGIN {
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-Type: text/html\n\n";
}

my $query = new CGI;
my @names = $query->param;

my $delimiter = $query->param('delimiter');
my $returnhtml = $query->param('return');
my $subject = $query->param('subject');

$subject =~ s/\s/ /g;

my $mailtext = "";
foreach my $name (@names) {
  my @values = $query->param($name);
  if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
    foreach my $value (@values) {
      $mailtext = $mailtext.$name;
      $mailtext = $mailtext.$delimiter;
      $mailtext = $mailtext.$value."\n";
    }
  }
}

die "Sendmail existiert nicht!" unless -d $Sendmail_Prog;

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);

print "Location: $returnhtml\n\n";

Resultat nach dem Hochladen: nix, es ist zum Haareraufen!!