FormMailer soll auch eine EMail an den Sender schicken

[Gast] Foren Archiv Perl und CGI FormMailer soll auch eine EMail an den Sender schicken

Archiv - Archivierte Foren

Themen

Beiträge

Moderatoren

Letzter Beitrag

Perl und CGI

359

1951

11. Apr 2024, 18:43

shalena54

Bernator

Beiträge gesamt: 40

1. Aug 2002, 14:33
Beitrag # 1 von 7
Bewertung:
(2026 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;

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:
(2026 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 = 'info@xxxxxxxx.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: $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:
(2026 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:
(2026 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:
(2026 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:
(2026 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:
(2026 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Ollli,

an meinem Fehler in der if-Abfrage.

Tschüssi

Jens

als Antwort auf: [#8531]

Aktuell

PDF / Print

Enfocus stellt Review vor

| 28.11.2023

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.

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

Veranstaltungen

14.05.2024

Einsparpotenziale in der Weiterverarbeitung

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Organisator: Impressed / Horizon

https://www.impressed.de/schulung.php?c=sDetail&sid=327

Einsparpotenziale in der Weiterverarbeitung

Veranstaltungen

16.05.2024

Und es geht doch: Automatisierung im Großformatdruck!

Online
Donnerstag, 16. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Nein

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!

Weitere Events

Neuste Foreneinträge

Switch/PitStop: Sprachdatei vom Report ändern

Mit Preflight Registerfarbe ALL nach Grau konvertieren geht nicht

Absatzsetzer in CC24 ME lösen Probleme aus

Quark Objekte lassen sich nicht neben Layout ziehen.

Barrierefreie PDFs | Mögliche unangebrachte Verwendung des Strukturelements xy

Barrierefreiheit in indesign 2022: figure-Tags haben als Attributobjekt "block" statt "inline"?

Kontrollkästchen in PDF-Formular

Indesign Tabelle ausrichten

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

InDesign 19.2 konvertiert 19.3-Dateien beim Öffnen ungefragt

Weitere Stellenangebote