[GastForen Archiv Perl und CGI cgi mailer sript! An welcher stelle kann ich auf ein anderes HTML Doc verweisen?

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

cgi mailer sript! An welcher stelle kann ich auf ein anderes HTML Doc verweisen?

tante_horst
Beiträge gesamt: 1

22. Apr 2005, 09:24
Beitrag # 1 von 2
Bewertung:
(1046 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Halli Hallo !
Bin auf dem GGI eher Neuling. Im folgenden poste ich ein cgi script.
Es ist ein mailer script.
Habe es in meine Seite eingebaut und es funktioniert einwandfrei. Allerdings, wenn man das Formular absendet, wird eine Tabelle angezeigt, wo nocheinmal alle Daten angezeigt werden, die man im Formular eingetragen hat.
Wäre nett, wenn mir jemand im Script die Stelle zeigen könnte, wo man auf ein anderes HTML-Doc verweist, dass dann sowas ausgibt wie z.B
"Vielen Dank für Ihr Interesse..." (irgendsowas in der Art)
Mit dem dazugehörigen befehl.

Ich denke ich habe die Stelle im script schon gefunden. Nur das "WIE" ist die Frage. Wäre für Eure Hilfe sehr dankbar.

Hier das Script:

#! /usr/bin/perl

# #

# E i n s t e l l u n g e n f a n g e n h i e r a n! #

#/---------------------------------------------------------------------\#

%CFG = (

EMPFAENGER => '[email protected]',

BACK_URL => 'http://www.xn--fuldabrck-w9a.de',

MAIL_PROG => '/usr/sbin/sendmail',

SAVE_MAIL_IN_LOG_FILE => 'YES',

LOG_FILE => '../logs/formularmailer.log',

USE_FLOCK => '0',

SIGNATURE_FILE => 'http://www.xn--fuldabrck-w9a.de/...formularmailer.sig',

HTML_HEADER_FILE => 'http://www.xn--fuldabrck-w9a.de/cgi-bin/header.htm', ----------à Hatte es hier mal Probiert!?!

HTML_FOODER_FILE => 'http://www.xn--fuldabrck-w9a.de/cgi-bin/header.htm', ---------à und hier !?!

SUBJECT_MAIL => 'LAN-Party Teilnahme',

FONT_FACE => 'arial',

GUI_COLOR_1 => '#000000',

GUI_COLOR_2 => '#f5f5ff',

TABLE_WIDTH => '700',

CHARSET => 'iso8859-1',

TXT_BEFORE_DATA => 'Wir haben Ihre Anfrage erhalten und werden diese schnellstmöglichst bearbeiten und uns bei Ihnen per EMail melden!',

TXT_BEFORE_INPUT => 'Ihre Formulardaten lauten:',

ANREDE_HERR => 'Sehr geehrter Herr',

ANREDE_FRAU => 'Sehr geehrte Frau',

ANREDE_OTHER => 'Sehr geehrte Damen und Herren',

STD_ERROR => '[email protected]',

VERSION => '0.815,

);

#\---------------------------------------------------------------------/#

# #

# #

#########################################################################



#///////////////////////////////////////////////////////////////////////#

# #

#///////////////////////////////////////////////////////////////////////#



if ($ENV{'REQUEST_METHOD'} =~ /GET/i) {

$names_values = $ENV{'QUERY_STRING'}

}

elsif ($ENV{'REQUEST_METHOD'} =~ /POST/i) {

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

}

else {

($names_values) = @ARGV;

}



@NAMES_VALUES = split(/&/, $names_values);

foreach $name_value (@NAMES_VALUES) {

($name, $value) = split(/=/, $name_value);

$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{$info1} = $value;

if (($name ne '') && ($value ne '')) {

push(@FORM_INPUT, $name, $value);

}

}



if ($INPUT{ANREDE} eq '') {

$INPUT{ANREDE} = 'NOBODY';

}

if ($INPUT{NAME} eq '') {

$INPUT{NAME} = 'NOBODY';

}

if ($INPUT{EMAIL} eq '') {

$INPUT{EMAIL} = $CFG{STD_ERROR};

}



&SAVE_IN_LOGFILE;

&SEND_MAIL_TO_EMPFAENGER;

&SEND_MAIL_TO_SENDER;

&HTTP_HEADER(0);

&HTML_MAIN;



#///////////////////////////////////////////////////////////////////////#

# #

#///////////////////////////////////////////////////////////////////////#



sub SAVE_IN_LOGFILE {

if ($CFG{SAVE_MAIL_IN_LOG_FILE} eq 'YES') {

if ($CFG{USE_FLOCK} == 1) {

use Fcntl ':flock';

}

open(LOG_FILE, ">>$CFG{LOG_FILE}") || print STDERR "COULD NOT OPEN $CFG{LOG_FILE} TO WRITE: $!\n";

if ($CFG{USE_FLOCK} == 1) {

flock(LOG_FILE, LOCK_EX) || print STDERR "COULD NOT FLOCK $CFG{LOG_FILE}: $!\n";

}



my $i=0;

while ($FORM_INPUT[$i] ne '') {

unless ($FORM_INPUT[$i] =~ /x|y/i) {

print LOG_FILE "$FORM_INPUT[$i]\: $FORM_INPUT[$i+1]\n";

}

$i+=2;

}

print LOG_FILE "\n------------------------------------------------------\n\n";

close(LOG_FILE);

}

}



#///////////////////////////////////////////////////////////////////////#

# #

#///////////////////////////////////////////////////////////////////////#



sub SEND_MAIL_TO_EMPFAENGER {

open(EMPFAENGER_MAIL, "|$CFG{MAIL_PROG} $CFG{EMPFAENGER}") || print "COULD NOT OPEN $CFG{MAIL_PROG} TO PIPE: $!\n";

print EMPFAENGER_MAIL ("To: $CFG{EMPFAENGER}\n");

print EMPFAENGER_MAIL ("From: $INPUT{EMAIL}\n");

print EMPFAENGER_MAIL ("Subject: $CFG{SUBJECT_MAIL}\n\n");

Ich vermiute malhier in dem ROT markierten Bereich muss auf das HTML-Doc verwiesen werden oder???

print EMPFAENGER_MAIL "------------------------------------------------------\n";

my $i=0;

while ($FORM_INPUT[$i] ne '') {

unless ($FORM_INPUT[$i] =~ /x|y/i) {

print EMPFAENGER_MAIL "$FORM_INPUT[$i]\: $FORM_INPUT[$i+1]\n";

}

$i+=2;

}

print EMPFAENGER_MAIL "------------------------------------------------------\n\n";
close(EMPFAENGER_MAIL);

}



#///////////////////////////////////////////////////////////////////////#

# #

#///////////////////////////////////////////////////////////////////////#



sub SEND_MAIL_TO_SENDER {

if ($INPUT{EMAIL} ne $CFG{STD_ERROR}) {

open(SENDER_MAIL, "|$CFG{MAIL_PROG} $INPUT{EMAIL}") || print STDERR "COULD NOT OPEN $CFG{MAIL_PROG} TO PIPE: $!\n";

print SENDER_MAIL ("To: $INPUT{EMAIL}\n");

print SENDER_MAIL ("From: $CFG{EMPFAENGER}\n");

print SENDER_MAIL ("Subject: $CFG{SUBJECT_MAIL}\n\n");



if ($INPUT{ANREDE} =~ /Herr/i) {

print SENDER_MAIL "$CFG{ANREDE_HERR} $INPUT{NAME}!\n\n";

}

elsif ($INPUT{ANREDE} =~ /Frau/i) {

print SENDER_MAIL "$CFG{ANREDE_FRAU} $INPUT{NAME}!\n\n";

}

else {

print SENDER_MAIL "$CFG{ANREDE_OTHER}!\n\n";

}



print SENDER_MAIL "$CFG{TXT_BEFORE_DATA}\n\n";

print SENDER_MAIL "$CFG{TXT_BEFORE_INPUT}\n";

print SENDER_MAIL "------------------------------------------------------\n";

my $i=0;

while ($FORM_INPUT[$i] ne '') {

unless ($FORM_INPUT[$i] =~ /x|y/i) {

print SENDER_MAIL "$FORM_INPUT[$i]\: $FORM_INPUT[$i+1]\n";

}

$i+=2;

}

print SENDER_MAIL "------------------------------------------------------\n\n";



open(SIGNATURE_FILE, "<$CFG{SIGNATURE_FILE}") || print STDERR "COULD NOT OPEN $CFG{SIGNATURE_FILE}: $!\n";

print SENDER_MAIL <SIGNATURE_FILE>;

close(SIGNATURE_FILE);

close(SENDER_MAIL);

}

}



#///////////////////////////////////////////////////////////////////////#

# #

#///////////////////////////////////////////////////////////////////////#



sub HTTP_HEADER {

($_) = @_;

$|=1;

print "Expires: ". gmtime(time + $_) ." GMT\n";

print "Last-Modified: ". gmtime(time) ." GMT\n";

print "Content-Type: text/html;charset=$CFG{CHARSET}\n\n";

}



#///////////////////////////////////////////////////////////////////////#

# #

#///////////////////////////////////////////////////////////////////////#



sub HTML_MAIN {

if (-f "$CFG{HTML_HEADER_FILE}") {

open (HTML_HEADER, "< $CFG{HTML_HEADER_FILE}") || print STDERR "$CFG{HTML_HEADER_FILE}: $!\n";

print <HTML_HEADER>;

close (HTML_HEADER);

}

else {

print "<html><head><title>formularmailer.pl/$CFG{VERSION}</title></head>\n";

print "<body text=\"#00000\" bgcolor=\"#f5f5ff\">\n";

}



print "<table border=\"0\" width=\"$CFG{TABLE_WIDTH}\" cellspacing=\"0\" cellpadding=\"0\"><tr><td align=\"center\">";

print "<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"$CFG{GUI_COLOR_1}\"><tr><th>\n";

print "<table border=\"0\" width=\"100%\" cellspacing=\"1\" cellpadding=\"0\"><tr><td align=\"center\" bgcolor=\"$CFG{GUI_COLOR_2}\">\n";

print "<br><table border=\"0\" width=\"80%\" cellspacing=\"0\" cellpadding=\"0\">\n";

$i=0;

while ($FORM_INPUT[$i] ne '') {

print "<tr><td width=\"20%\"><font face=\"$CFG{FONT_FACE}\" size=\"2\"><b><i>$FORM_INPUT[$i]</i></b>:</font></td><td width=\"80%\"><font face=\"$CFG{FONT_FACE}\" size=\"2\">$FORM_INPUT[$i+1]</font></td></tr>\n";

$i+=2;

}

print "</table>\n";

print "<font face=\"$CFG{FONT_FACE}\" size=\"2\"><p align=\"center\"><a href=\"$CFG{BACK_URL}\">Zurück</a><br>&nbsp;</p></font>\n";

print "</td></tr></table></th></tr></table>\n";

print "<p align=\"center\"><font face=\"$CFG{FONT_FACE}\" size=\"1\">formularmailer.pl/$CFG{VERSION} - <a href=\"http://www.xn--fuldabrck-w9a.de/...nt></p>\n";

print "</td></tr></table>\n";



if (-f "$CFG{HTML_FOOER_FILE}") {

open (HTML_FOODER, "< $CFG{HTML_FOOER_FILE}") || print STDERR "$CFG{HTML_FOOER_FILE}: $!\n";

print <HTML_FOODER>;

close (HTML_FOODER);

}

else {

print "</body></html>";

}

}



exit;


mfg


Tante_Horst
X

cgi mailer sript! An welcher stelle kann ich auf ein anderes HTML Doc verweisen?

oesi50
  
Beiträge gesamt: 2315

22. Apr 2005, 10:13
Beitrag # 2 von 2
Beitrag ID: #161513
Bewertung:
(1046 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
du könntest in der

header.htm

ein

<meta http-equiv="refresh" content="5; URL=http://meinedomain/dankeseite.htm">

einbauen.


Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)


als Antwort auf: [#161482]

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/