Problem: CGI zur Formular verarbeitung
Hi,
hab mir ein cgi zur Formular verarbeitung geschrieben.
geht leider nicht. kann mir da jemand helfen.
bin in perl ein totaler newbie.
#!/usr/bin/perl -w
use CGI qw/:all fatalsToBrowser/;
use strict;
my $MailPgm = '/usr/sbin/sendmail'; #E-Mail Proggy 'sendmail'
my $Mail= "philme@web.de"; #Empfänger eMail-Adresse
my $Firma = param('firma'); #Firma
my $Abteilung = param('abteilung'); #Abteilung
my $Nachname = param('nachname'); #Nachname
my $Vorname = param('vorname'); #Vorname
my $Strasse = param('strasse'); #Strasse
my $Plz = param('plz'); #PLZ
my $Ort = param('ort'); #Ort
my $Land = param('land'); #Land
my $Telefon = param('telefon'); #Telefon
my $Fax = param('fax'); #Fax
my $Email = param('email'); #Email
my $Website = param('website"); #URL
my $Mitteilung = param('mitteilung'); #Mitteilung
my $Antwort = param('Antwort'); #Antwort
print header();
open (MAIL, "|$MailPgm $Mail") || die "Fehler beim Zugriff auf $MailPgm!\n";
print MAIL "Anfrage // Kontaktformular http://www.corepractice4u.de\n\n\n";
print MAIL "Firma: $Firma\n";
print MAIL "Abteilung: $Abteilung\n\n";
print MAIL "Nachname: $Nachname\n";
print MAIL "Vorname: $Vorname\n\n";
print MAIL "Strasse: $Strasse\n";
print MAIL "PLZ: $Plz\n";
print MAIL "Ort: $Ort\n";
print MAIL "Land: $Land\n\n";
print MAIL "Telefon: $Telefon\n";
print MAIL "Fax: $Fax\n";
print MAIL "Email: $Email\n";
print MAIL "Website: $Website\n\n\";
print MAIL "Mitteilung:\n";
print MAIL "$mitteilung\n\n";
print MAIL "Antwort bitte per $Antwort\n"
close MAIL;
Hi,
hab mir ein cgi zur Formular verarbeitung geschrieben.
geht leider nicht. kann mir da jemand helfen.
bin in perl ein totaler newbie.
#!/usr/bin/perl -w
use CGI qw/:all fatalsToBrowser/;
use strict;
my $MailPgm = '/usr/sbin/sendmail'; #E-Mail Proggy 'sendmail'
my $Mail= "philme@web.de"; #Empfänger eMail-Adresse
my $Firma = param('firma'); #Firma
my $Abteilung = param('abteilung'); #Abteilung
my $Nachname = param('nachname'); #Nachname
my $Vorname = param('vorname'); #Vorname
my $Strasse = param('strasse'); #Strasse
my $Plz = param('plz'); #PLZ
my $Ort = param('ort'); #Ort
my $Land = param('land'); #Land
my $Telefon = param('telefon'); #Telefon
my $Fax = param('fax'); #Fax
my $Email = param('email'); #Email
my $Website = param('website"); #URL
my $Mitteilung = param('mitteilung'); #Mitteilung
my $Antwort = param('Antwort'); #Antwort
print header();
open (MAIL, "|$MailPgm $Mail") || die "Fehler beim Zugriff auf $MailPgm!\n";
print MAIL "Anfrage // Kontaktformular http://www.corepractice4u.de\n\n\n";
print MAIL "Firma: $Firma\n";
print MAIL "Abteilung: $Abteilung\n\n";
print MAIL "Nachname: $Nachname\n";
print MAIL "Vorname: $Vorname\n\n";
print MAIL "Strasse: $Strasse\n";
print MAIL "PLZ: $Plz\n";
print MAIL "Ort: $Ort\n";
print MAIL "Land: $Land\n\n";
print MAIL "Telefon: $Telefon\n";
print MAIL "Fax: $Fax\n";
print MAIL "Email: $Email\n";
print MAIL "Website: $Website\n\n\";
print MAIL "Mitteilung:\n";
print MAIL "$mitteilung\n\n";
print MAIL "Antwort bitte per $Antwort\n"
close MAIL;
Zuletzt bearbeitet: