[GastForen Archiv Perl und CGI FormMailer soll auch eine EMail an den Sender schicken

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Archiv - Archivierte Foren
Themen
Beiträge
Moderatoren
Letzter Beitrag

FormMailer soll auch eine EMail an den Sender schicken

Bernator
Beiträge gesamt: 40

1. Aug 2002, 14:33
Beitrag # 1 von 7
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,

ich möchte gerne in dieses Script auch eine Antwort EMail an den Sender integrieren. Bekomme das aber nicht hin...! Vielleicht hat jemand eine Lösung.


Jens



#!/usr/bin/perl

$hp_url = "http://www.xxxxxxx.de/xxxx/xxxxx.html";
$hp_name = "Kathrin-Peter ";
$sendmail = '/usr/sbin/sendmail';
$email = 'info\@xxxxxxxx.de';

read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});

open (MAIL, "|$sendmail $email") || die "Kein Mail-Programm gefunden: $sendmail!\n";
print MAIL ("To: $email\n");
print MAIL ("From: Kontaktaufnahme\n");
print MAIL ("Subject: $hp_name \n\n");

@namevalues = split(/&/, $namevalues);
foreach $namevalue (@namevalues) {
($name, $value) = split(/=/, $namevalue);
$name =~ tr/+/ /;
$value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$INPUT{$name} = $value;
unless ($value eq "") {
print MAIL ("$name: $value\n");
}
}

close (MAIL);
print ("Location: http://www.xxxxxxx.de/xxxxxx/danke.html\n\n");

exit;
X

FormMailer soll auch eine EMail an den Sender schicken

Ollli
Beiträge gesamt: 458

1. Aug 2002, 20:07
Beitrag # 2 von 7
Beitrag ID: #8550
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
ich schlage folgenden Code vor:
Code:

#!/usr/bin/perl

$hp_url = "http://www.xxxxxxx.de/xxxx/xxxxx.html";
$hp_name = "Kathrin-Peter ";
$sendmail = '/usr/sbin/sendmail';
$email = '[email protected]';

read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});

@namevalues = split(/&/, $namevalues);
foreach $namevalue (@namevalues) {
($name, $value) = split(/=/, $namevalue);
$name =~ tr/+/ /;
$value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
$INPUT{$name} = $value;
unless ($value eq "") {
$mailinhalt .= "$name: $valuen";
}
}


open (MAIL, "|$sendmail $email") || die "Kein Mail-Programm gefunden: $sendmail!n";
print MAIL ("To: $emailn");
print MAIL ("From: Kontaktaufnahmen");
print MAIL ("Subject: $hp_name nn");
print MAIL $mailinhalt;
close (MAIL);

if ($INPUT{'email'} ne '') {
open (MAIL, "|$sendmail $INPUT{'email'}") || die "Kein Mail-Programm gefunden: $sendmail!n";
print MAIL ("To: $INPU{'email'}n");
print MAIL ("From: Kontaktaufnahmen");
print MAIL ("Subject: $hp_name nn");
print MAIL $mailinhalt;
close (MAIL);
}

print ("Location: http://www.xxxxxxx.de/xxxxxx/danke.htmlnn");

exit;



Wenn du was nicht verstehst dann frage einfach, aber ich denke dass du keine Probs hast, wenn du das Script in deinem Posting verstanden hast.

Ollli

[ Diese Nachricht wurde geändert von: Ollli am 2002-08-01 20:09 ]


als Antwort auf: [#8531]

FormMailer soll auch eine EMail an den Sender schicken

Bernator
Beiträge gesamt: 40

2. Aug 2002, 17:22
Beitrag # 3 von 7
Beitrag ID: #8595
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Olli,

habe versucht das Script soweit zu ändern, aber es klappt nicht so ganz. Der zeigt mir den Fehler 500 an...

Habe das Script jetzt so:

#!/usr/bin/perl

$hp_url = "http://xxxxxxxxxl";
$hp_name = "Kathrin-Peter ";
$sendmail = '/usr/sbin/sendmail';
$email = 'info\@xxxxxxx.de';

read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});

@namevalues = split(/&/, $namevalues);
foreach $namevalue (@namevalues) {
($name, $value) = split(/=/, $namevalue);
$name =~ tr/+/ /;
$value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
$INPUT{$name} = $value;
unless ($value eq "") {
$mailinhalt .= "$name: $value\n";
}
}

open (MAIL, "|$sendmail $email") || die "Kein Mail-Programm gefunden: $sendmail!\n";
print MAIL ("To: $email\n");
print MAIL ("From: Kontaktaufnahme\n");
print MAIL ("Subject: $hp_name \n\n");
print MAIL $mailinhalt;
close (MAIL);

if ($INPUT{'mail'} \n\e '') {
open (MAIL, "|$sendmail $INPUT{'mail'}") || die "Kein Mail-Programm gefunden: $sendmail!\n";
print MAIL ("To: $INPUT{'mail'}\n");
print MAIL ("From: Kontaktaufnahme\n");
print MAIL ("Subject: $hp_name \n\n");
print MAIL $mailinhalt;
close (MAIL);
}

print ("Location: http://www.xxxxxxxxxxxxdanke.html\n\n");

exit;


als Antwort auf: [#8531]

FormMailer soll auch eine EMail an den Sender schicken

Ollli
Beiträge gesamt: 458

4. Aug 2002, 23:18
Beitrag # 4 von 7
Beitrag ID: #8679
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Also das Script was ich oben gepostet habe, funktioniert auf jeden Fall, nimm das mal.
Denn das Script was du gerade gepostet hast, hat einen Fehler bei der If-Abfrage, dort darf nicht \n\e stehen sondern ne also ohne \

Du musst jetzt schauen, ob das Script auf den Server angepasst ist, sprich sind alle Rechte vergeben, ist der Pfad zu Perl richtig, sind die richtigen Zeilenumbrüche verwendet worden?!
Wenn diese Bedingungen erfüllt sind, dann dürfte es funktionieren.

Wenn nicht, dann wäre es nicht schlecht, wenn du die Meldung der ErrorLog mit posten würdest.

Tschö
Ollli


als Antwort auf: [#8531]

FormMailer soll auch eine EMail an den Sender schicken

Bernator
Beiträge gesamt: 40

5. Aug 2002, 10:58
Beitrag # 5 von 7
Beitrag ID: #8694
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Olli,

daran hat´s gelegen...besten Dank für Deine Hilfe. Klappt alles wunderbar.

Jens


als Antwort auf: [#8531]

FormMailer soll auch eine EMail an den Sender schicken

Ollli
Beiträge gesamt: 458

5. Aug 2002, 15:06
Beitrag # 6 von 7
Beitrag ID: #8709
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Zitat:
Bernator schrieb am 2002-08-05 10:58 :
daran hat´s gelegen...besten Dank für Deine Hilfe. Klappt alles wunderbar.
an was genau hat es denn gelegen?
Wenn ich fragen darf

Ollli


als Antwort auf: [#8531]

FormMailer soll auch eine EMail an den Sender schicken

Bernator
Beiträge gesamt: 40

5. Aug 2002, 20:07
Beitrag # 7 von 7
Beitrag ID: #8729
Bewertung:
(1907 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Ollli,

an meinem Fehler in der if-Abfrage.

Tschüssi

Jens


als Antwort auf: [#8531]
X

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/