Hi,
ich habe ein Problem!
Die Firma bei der ich angestellt bin, hat mich beauftragt einen Formular Mailer anzupassen!
Da ich leider mich mit CGI fast nicht auskenne habe ich ein kleines formatierungs Problem.

Sie habe mir jetzt die Datei gegeben.

Der Code hat folgenden Inhalt:



sub send_mail {
# Localize variables used in this subroutine. #
local($print_config,$key,$sort_order,$sorted_field,$env_report);

# Output a temporary file

open(MAIL,">$tempmaildatei") || die("Kann Datei $tempmaildatei nicht öffnen -- Bitte checken Sie die Pfadangabe und Berechtigung: $!");

print MAIL "To: $Config{'recipient'}\n";
print MAIL "From: $Config{'email'} ($Config{'realname'})\n";

# Check for Message Subject
if ($Config{'subject'}) { print MAIL "Subject: $Config{'subject'}\n\n" }
else { print MAIL "Subject: Web-Formular ($absender)\n\n" }

# print MAIL "Below is the result of your feedback form. It was submitted by\n";
# print MAIL "$Config{'realname'} ($Config{'email'}) on $date\n";
print MAIL "Folgendes wurde am $date per Formular an Sie geschickt:\n";
print MAIL "-" x 75 . "\n\n";

if (@Print_Config) {
foreach $print_config (@Print_Config) {
if ($Config{$print_config}) {
print MAIL "$print_config: $Config{$print_config}\n\n";
}
}
}

# Sort alphabetically if specified: #
if ($Config{'sort'} eq 'alphabetic') {
foreach $field (sort keys %Form) {

# If the field has a value or the print blank fields option #
# is turned on, print out the form field and value. #
if ($Config{'print_blank_fields'} || $Form{$field} ||
$Form{$field} eq '0') {
print MAIL "$field .= ( " " x (30-length($field) ) if (30-length($field)>0): $Form{$field}\n\n";
}
}
}

# If a sort order is specified, sort the form fields based on that. #
elsif ($Config{'sort'} =~ /^order:.*,.*/) {

# Remove extraneous line breaks and spaces, remove the order: #
# directive and split the sort fields into an array. #
$Config{'sort'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'sort'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'sort'} =~ s/order://;
@sorted_fields = split(/,/, $Config{'sort'});

# For each sorted field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $sorted_field (@sorted_fields) {
if ($Config{'print_blank_fields'} || $Form{$sorted_field} ||
$Form{$sorted_field} eq '0') {
print MAIL "$field .= ( " " x (30-length($field) ) if (30-length($field)>0): $Form{$field}\n\n";
}
}
}

# Otherwise, default to the order in which the fields were sent. #
else {

# For each form field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $field (@Field_Order) {
if ($Config{'print_blank_fields'} || $Form{$field} ||
$Form{$field} eq '0') {
print MAIL "$field .= ( " " x (30-length($field) ) if (30-length($field)>0): $Form{$field}\n\n";
}
}
}

print MAIL "-" x 75 . "\n\n";

# Send any specified Environment Variables to recipient. #
foreach $env_report (@Env_Report) {
if ($ENV{$env_report}) {
print MAIL "$env_report: $ENV{$env_report}\n";
}
}

close (MAIL);
system ("$mailprog -H$mailserver $Config{'recipient'} < $tempmaildatei ");
}

sub check_email {
# Initialize local email variable with input to subroutine. #
$email = $_[0];

# If the e-mail address contains: #
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||

# the e-mail address contains an invalid syntax. Or, if the #
# syntax does not match the following regular expression pattern #
# it fails basic syntax verification. #

$email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/) {

# Basic syntax requires: one or more characters before the @ sign, #
# followed by an optional '[', then any number of letters, numbers, #
# dashes or periods (valid domain/IP characters) ending in a period #
# and then 2 or 3 letters (for domain suffixes) or 1 to 3 numbers #
# (for IP addresses). An ending bracket is also allowed as it is #
# valid syntax to have an email address like: user@[255.255.255.0] #

# Return a false value, since the e-mail address did not pass valid #
# syntax. #
return 0;
}

else {

# Return a true value, e-mail verification passed. #
return 1;
}
}

sub body_attributes {
# Check for Background Color
if ($Config{'bgcolor'}) { print " bgcolor=\"$Config{'bgcolor'}\"" }

# Check for Background Image
if ($Config{'background'}) { print " background=\"$Config{'background'}\"" }

# Check for Link Color
if ($Config{'link_color'}) { print " link=\"$Config{'link_color'}\"" }

# Check for Visited Link Color
if ($Config{'vlink_color'}) { print " vlink=\"$Config{'vlink_color'}\"" }

# Check for Active Link Color
if ($Config{'alink_color'}) { print " alink=\"$Config{'alink_color'}\"" }

# Check for Body Text Color
if ($Config{'text_color'}) { print " text=\"$Config{'text_color'}\"" }
}

sub error {
# Localize variables and assign subroutine input. #
local($error,@error_fields) = @_;
local($host,$missing_field,$missing_field_list);

if ($error eq 'bad_referer') {
if ($ENV{'HTTP_REFERER'} =~ m|^https?://([\w\.]+)|i) {
$host = $1;
print <<"(END ERROR HTML)";
Content-type: text/html


Jetzt kommt in der Antwort Mail folgende Formatierung:

required Mail: Bla bla
required name: bla 2
adresse: bla bla

jetzt will ich das es mir aber die leerzeichen auffüllt dass es wie eine Tabelle aussieht.

quasi so:

mail: m@so.de
adresse: 76349 haha
prospekt: ja

Bitte um Hilfe!

Name: Hansi Maikowski
Mail: hansi@von-maikowski.de
Datum: 05.05.2004-08:01 | Hits: 5
WWW: http://www.vetter-kabel.de

Hallo Hansi, das Script ist unvollständig.
Zu diesem Script gibt es noch eine Konfigurationsdatei.

Gruß Sabine

Hier die komplette Datei!
Hast du dann eine Ahnung wie ich das tabelarrisch in der antwort email formatieren kann!
Damit einfach die ganzen antworten in einer Linie untereinander befinden!

schon mal dank im Vorraus!



#!/usr/bin/perl
##############################################################################
# FormMail Version 1.9 #
# Copyright 1995-2001 Matt Wright mattw@worldwidemart.com #
# Created 06/09/95 Last Modified 08/03/01 #
# Matt's Script Archive, Inc.: http://www.worldwidemart.com/scripts/ #
# #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1995-2002 Matthew M. Wright All Rights Reserved. #
# #
##############################################################################

##############################################################################
# Felder, die unbedingt im Formular angegeben werden sollten: #
# #
# $recipient definiert die Emailadresse des Empfaengers #
# $email definiert die Emailadresse des Absender #
# $realname definiert die Email-Beschreibung des Absenders #
# #
##############################################################################

# BEGINN ANPASSUNG KUNDENSPEZIFISCH:

##############################################################################
# Bitte dieses Feld (referers) umbedingt anpassen: #
# @referers listet die Server auf, denen Sie die Berechtigung zur Benutzung #
# dieses Scripts geben. Nur Formulare, die auf diesen Servern liegen, #
# koennen auf das Script zugreifen
# #

@referers = ('mgvs.de','wind-gmbh.de','vetter-cable.com','kabeljet.de','kabel-jet.de','cable-jet.de','cablejet.de','kabelverlegegeraete.de','kabelverlegetechnik.de','vetter-kabel.de','vetter-kabel.info','vetter-kabel.biz');
$sender = "info\@vetter-kabel.de";

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

# ENDE ANPASSUNG KUNDENSPEZIFISCH !!!!

##############################################################################
# Alle weiteren Felder bitte nur in Absprache mit uns #
# (WIND Internethaus) abaendern. #
# #
# @recipients defines the e-mail addresses or domain names that e-mail can #
# be sent to. This must be filled in correctly to prevent SPAM and allow #
# valid addresses to receive e-mail. Read the documentation to find out how #
# this variable works!!! It is EXTREMELY IMPORTANT. #
# (ist eigentlich ok so, wenn man es noch sicherer machen will, kann man #
# feste Email-Adressen angeben: #
# z.B.: '^info@wind-gmbh.de' #
# #

@recipients = @referers;

# #
# ACCESS CONTROL FIX: Peter D. Thompson Yezek #
# @valid_ENV allows the sysadmin to define what environment variables can #
# be reported via the env_report directive. This was implemented to fix #
# the problem reported at http://www.securityfocus.com/bid/1187 #

@valid_ENV = ('REMOTE_HOST','REMOTE_ADDR','REMOTE_USER','HTTP_USER_AGENT');

# Mit $timeformat bestimmen Sie, ob die ausgegebene Uhrzeit mit #
# Sekundenangabe (00:00:00 Uhr) oder ohne Angabe der Sekunden (00:00 Uhr) #
# erfolgen soll. Waehlen Sie 1 fuer das Zeitformat MIT Sekunden, 0 fuer die #
# Angabe OHNE Sekunden. #
# #

$timeformat = 0;

# #
# Diese Pfadangabe bezeichnet den absoluten Pfad zu einem, von Ihnen #
# angelegten temporaeren Verzeichnis mit Namen 'tmp' bzw. zu einer #
# temporaeren Datei 'tempfile', die vom Script angelegt wird. #
# #

$tempdir = 'd:/tmpmail';

# #
# $mailserver definiert den von Ihnen genutzten Mailserver (Mail-Relay) #
# #

$mailserver = 'mail.surfbrett.de';

# #
# $mailprog definiert die Pfadangabe zum Mailprogramm des NT-Systems #
# #

if ($sender ne "") {
$mailprog = "c:/programme/postmail/postmail.exe -f $sender";
}
else {
$mailprog = "c:/programme/postmail/postmail.exe";
}


# ENDE DER DEFINIERTEN VARIABLEN !!!! #
# #
# $tempmaildatei wird spaeter definiert (In Routine get_date #
# (da Datum notwendig) #
# #
# #
##############################################################################

# Check Referring URL
&check_url;

# Retrieve Date
&get_date;

# Parse Form Contents
&parse_form;

# Check Required Fields
&check_required;

# Send E-Mail
&send_mail;

# Return HTML Page or Redirect User
&return_html;

sub check_url {

# Localize the check_referer flag which determines if user is valid. #
local($check_referer) = 0;

# If a referring URL was specified, for each valid referer, make sure #
# that a valid referring URL was passed to FormMail. #

if ($ENV{'HTTP_REFERER'}) {
foreach $referer (@referers) {
if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) {
$check_referer = 1;
last;
}
}
}
else {
$check_referer = 1;
}

# If the HTTP_REFERER was invalid, send back an error. #
if ($check_referer != 1) { &error('bad_referer') }
}

sub get_date {

# Define arrays for the day of the week and month of the year. #
# @days = ('Sunday','Monday','Tuesday','Wednesday',
# 'Thursday','Friday','Saturday');
# @months = ('January','February','March','April','May','June','July',
# 'August','September','October','November','December');
@days = ('Sonntag','Montag','Dienstag','Mittwoch',
'Donnerstag','Freitag','Samstag');
@months = ('Januar','Februar','Maerz','April','Mai','Juni','Juli',
'August','September','Oktober','November','Dezember');

# Get the current time and format the hour, minutes and seconds. Add #
# 1900 to the year to get the full 4 digit year. #
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
# Wenn Sie auch die Sekunden angezeigt haben wollen, aendern Sie die #
# folgende Zeile auf $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); #
if ($timeformat == 1) {
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
}
else {
$time = sprintf("%02d:%02d",$hour,$min);
}
$year += 1900;
$monat += 1;
# Format the date. #
$date = "$days[$wday],den $mday. $months[$mon] $year um $time";
$tempmaildatei = "$tempdir/$ENV{'HTTP_HOST'}_$year-$monat-$mday-$hour-$min-$sec.txt";
}

sub parse_form {

# Define the configuration associative array. #
%Config = ('recipient','', 'subject','',
'email','', 'realname','',
'redirect','', 'bgcolor','',
'background','', 'link_color','',
'vlink_color','', 'text_color','',
'alink_color','', 'title','',
'sort','', 'print_config','',
'required','', 'env_report','',
'return_link_title','', 'return_link_url','',
'print_blank_fields','', 'missing_fields_redirect','');

# Determine the form's REQUEST_METHOD (GET or POST) and split the form #
# fields up into their name-value pairs. If the REQUEST_METHOD was #
# not GET or POST, send an error. #
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
# Split the name-value pairs
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);
}
else {
&error('request_method');
}

# For each name-value pair: #
foreach $pair (@pairs) {

# Split the pair up into individual variables. #
local($name, $value) = split(/=/, $pair);

# Decode the form encoding on the name and value variables. #
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

# If they try to include server side includes, erase them, so they
# aren't a security risk if the html gets returned. Another
# security hole plugged up.
$value =~ s/<!--(.|\n)*-->//g;

# If the field name has been specified in the %Config array, it will #
# return a 1 for defined($Config{$name}}) and we should associate #
# this value with the appropriate configuration variable. If this #
# is not a configuration form field, put it into the associative #
# array %Form, appending the value with a ', ' if there is already a #
# value present. We also save the order of the form fields in the #
# @Field_Order array so we can use this order for the generic sort. #
if (defined($Config{$name})) {
$Config{$name} = $value;
}
else {
if ($Form{$name} && $value) {
$Form{$name} = "$Form{$name}, $value";
}
elsif ($value) {
push(@Field_Order,$name);
$Form{$name} = $value;
}
}
}

# The next six lines remove any extra spaces or new lines from the #
# configuration variables, which may have been caused if your editor #
# wraps lines after a certain length or if you used spaces between field #
# names or environment variables. #
$Config{'required'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'required'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'env_report'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'env_report'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'print_config'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'print_config'} =~ s/(\s+)?\n+(\s+)?//g;

# Split the configuration variables into individual field names. #
@Required = split(/,/,$Config{'required'});
@Env_Report = split(/,/,$Config{'env_report'});
@Print_Config = split(/,/,$Config{'print_config'});

# ACCESS CONTROL FIX: Only allow ENV variables in @valid_ENV in #
# @Env_Report for security reasons. #
foreach $env_item (@Env_Report) {
foreach $valid_item (@valid_ENV) {
if ( $env_item eq $valid_item ) { push(@temp_array, $env_item) }
}
}
@Env_Report = @temp_array;
}

sub check_required {

# Localize the variables used in this subroutine. #
local($require, @error);

if ($Config{'subject'} =~ /(\n|\r)/m ||
$Config{'recipient'} =~ /(\n|\r)/m) {
&error('no_recipient');
}

if (!$Config{'recipient'}) {
if (!defined(%Form)) { &error('bad_referer') }
else { &error('no_recipient') }
}
else {
# This block of code requires that the recipient address end with #
# a valid domain or e-mail address as defined in @recipients. #
$valid_recipient = 0;
foreach $send_to (split(/,/,$Config{'recipient'})) {
foreach $recipient (@recipients) {
if ($send_to =~ /$recipient$/i) {
push(@send_to,$send_to); last;
}
}
}
if ($#send_to < 0) { &error('no_recipient') }
$Config{'recipient'} = join(',',@send_to);
}

# For each require field defined in the form: #
foreach $require (@Required) {

# If the required field is the email field, the syntax of the email #
# address if checked to make sure it passes a valid syntax. #
if ($require eq 'email' && !&check_email($Config{$require})) {
push(@error,$require);
}

# Otherwise, if the required field is a configuration field and it #
# has no value or has been filled in with a space, send an error. #
elsif (defined($Config{$require})) {
if (!$Config{$require}) {
push(@error,$require);
}
}

# If it is a regular form field which has not been filled in or #
# filled in with a space, flag it as an error field. #
elsif (!$Form{$require}) {
push(@error,$require);
}
}

# If any error fields have been found, send error message to the user. #
if (@error) { &error('missing_fields', @error) }
}

sub return_html {
# Local variables used in this subroutine initialized. #
local($key,$sort_order,$sorted_field);

# If redirect option is used, print the redirectional location header. #
if ($Config{'redirect'}) {
print "Location: $Config{'redirect'}\n\n";
}

# Otherwise, begin printing the response page. #
else {

# Print HTTP header and opening HTML tags. #
print "Content-type: text/html\n\n";
print "<html>\n <head>\n";

# Print out title of page #
if ($Config{'title'}) { print " <title>$Config{'title'}</title>\n" }
else { print " <title>Danke!</title>\n" }

print " </head>\n <body";

# Get Body Tag Attributes #
&body_attributes;

# Close Body Tag #
print ">\n <center>\n";

# Print custom or generic title. #
if ($Config{'title'}) { print " <h1>$Config{'title'}</h1>\n" }
else { print " <h1>Vielen Dank f&uuml;r das Ausf&uuml;llen des Formulars!</h1>\n" }

print "</center>\n";

# print "Below is what you submitted to $Config{'recipient'} on ";
# print "$date<p><hr size=1 width=75\%><p>\n";
print "Folgendes haben Sie am $date an <b>$Config{'recipient'}</b> ";
print "geschickt:<p><hr size=1 width=75\%><p>\n";

# Sort alphabetically if specified: #
if ($Config{'sort'} eq 'alphabetic') {
foreach $field (sort keys %Form) {

# If the field has a value or the print blank fields option #
# is turned on, print out the form field and value. #
if ($Config{'print_blank_fields'} || $Form{$field}) {
print "<b>$field:</b> $Form{$field}<p>\n";
}
}
}

# If a sort order is specified, sort the form fields based on that. #
elsif ($Config{'sort'} =~ /^order:.*,.*/) {

# Set the temporary $sort_order variable to the sorting order, #
# remove extraneous line breaks and spaces, remove the order: #
# directive and split the sort fields into an array. #
$sort_order = $Config{'sort'};
$sort_order =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$sort_order =~ s/(\s+)?\n+(\s+)?//g;
$sort_order =~ s/order://;
@sorted_fields = split(/,/, $sort_order);

# For each sorted field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $sorted_field (@sorted_fields) {
if ($Config{'print_blank_fields'} || $Form{$sorted_field}) {
print "<b>$sorted_field:</b> $Form{$sorted_field}<p>\n";
}
}
}

# Otherwise, default to the order in which the fields were sent. #
else {

# For each form field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $field (@Field_Order) {
if ($Config{'print_blank_fields'} || $Form{$field}) {
print "<b>$field:</b> $Form{$field}<p>\n";
}
}
}

print "<p><hr size=1 width=75%><p>\n";

# Check for a Return Link and print one if found. #
if ($Config{'return_link_url'} && $Config{'return_link_title'}) {
print "<ul>\n";
print "<li><a href=\"$Config{'return_link_url'}\">$Config{'return_link_title'}</a>\n";
print "</ul>\n";
}

# Print the page footer. #
print <<"(END HTML FOOTER)";
<hr size=1 width=75%><p>
<center><font size=-1><a href="javascript:history.go(-1)">Zurück</a></font>
</center>
</body>
</html>
(END HTML FOOTER)
}
}

sub send_mail {
# Localize variables used in this subroutine. #
local($print_config,$key,$sort_order,$sorted_field,$env_report);

# Output a temporary file

open(MAIL,">$tempmaildatei") || die("Kann Datei $tempmaildatei nicht öffnen -- Bitte checken Sie die Pfadangabe und Berechtigung: $!");

print MAIL "To: $Config{'recipient'}\n";
print MAIL "From: $Config{'email'} ($Config{'realname'})\n";

# Check for Message Subject
if ($Config{'subject'}) { print MAIL "Subject: $Config{'subject'}\n\n" }
else { print MAIL "Subject: Web-Formular ($absender)\n\n" }

# print MAIL "Below is the result of your feedback form. It was submitted by\n";
# print MAIL "$Config{'realname'} ($Config{'email'}) on $date\n";
print MAIL "Folgendes wurde am $date per Formular an Sie geschickt:\n";
print MAIL "-" x 75 . "\n\n";

if (@Print_Config) {
foreach $print_config (@Print_Config) {
if ($Config{$print_config}) {
print MAIL "$print_config: $Config{$print_config}\n\n";
}
}
}

# Sort alphabetically if specified: #
if ($Config{'sort'} eq 'alphabetic') {
foreach $field (sort keys %Form) {

# If the field has a value or the print blank fields option #
# is turned on, print out the form field and value. #
if ($Config{'print_blank_fields'} || $Form{$field} ||
$Form{$field} eq '0') {
print MAIL "$field: $Form{$field}\n\n";
}
}
}

# If a sort order is specified, sort the form fields based on that. #
elsif ($Config{'sort'} =~ /^order:.*,.*/) {

# Remove extraneous line breaks and spaces, remove the order: #
# directive and split the sort fields into an array. #
$Config{'sort'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'sort'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'sort'} =~ s/order://;
@sorted_fields = split(/,/, $Config{'sort'});

# For each sorted field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $sorted_field (@sorted_fields) {
if ($Config{'print_blank_fields'} || $Form{$sorted_field} ||
$Form{$sorted_field} eq '0') {
print MAIL "$sorted_field: $Form{$sorted_field}\n\n";
}
}
}

# Otherwise, default to the order in which the fields were sent. #
else {

# For each form field, if it has a value or the print blank #
# fields option is turned on print the form field and value. #
foreach $field (@Field_Order) {
if ($Config{'print_blank_fields'} || $Form{$field} ||
$Form{$field} eq '0') {
print MAIL "$field: $Form{$field}\n\n";
}
}
}

print MAIL "-" x 75 . "\n\n";

# Send any specified Environment Variables to recipient. #
foreach $env_report (@Env_Report) {
if ($ENV{$env_report}) {
print MAIL "$env_report: $ENV{$env_report}\n";
}
}

close (MAIL);
system ("$mailprog -H$mailserver $Config{'recipient'} < $tempmaildatei ");
}

sub check_email {
# Initialize local email variable with input to subroutine. #
$email = $_[0];

# If the e-mail address contains: #
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||

# the e-mail address contains an invalid syntax. Or, if the #
# syntax does not match the following regular expression pattern #
# it fails basic syntax verification. #

$email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/) {

# Basic syntax requires: one or more characters before the @ sign, #
# followed by an optional '[', then any number of letters, numbers, #
# dashes or periods (valid domain/IP characters) ending in a period #
# and then 2 or 3 letters (for domain suffixes) or 1 to 3 numbers #
# (for IP addresses). An ending bracket is also allowed as it is #
# valid syntax to have an email address like: user@[255.255.255.0] #

# Return a false value, since the e-mail address did not pass valid #
# syntax. #
return 0;
}

else {

# Return a true value, e-mail verification passed. #
return 1;
}
}

sub body_attributes {
# Check for Background Color
if ($Config{'bgcolor'}) { print " bgcolor=\"$Config{'bgcolor'}\"" }

# Check for Background Image
if ($Config{'background'}) { print " background=\"$Config{'background'}\"" }

# Check for Link Color
if ($Config{'link_color'}) { print " link=\"$Config{'link_color'}\"" }

# Check for Visited Link Color
if ($Config{'vlink_color'}) { print " vlink=\"$Config{'vlink_color'}\"" }

# Check for Active Link Color
if ($Config{'alink_color'}) { print " alink=\"$Config{'alink_color'}\"" }

# Check for Body Text Color
if ($Config{'text_color'}) { print " text=\"$Config{'text_color'}\"" }
}

sub error {
# Localize variables and assign subroutine input. #
local($error,@error_fields) = @_;
local($host,$missing_field,$missing_field_list);

if ($error eq 'bad_referer') {
if ($ENV{'HTTP_REFERER'} =~ m|^https?://([\w\.]+)|i) {
$host = $1;
print <<"(END ERROR HTML)";
Content-type: text/html

<html>
<head>
<title>Falscher Verweis - Zugriff verweigert</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Falscher Verweis - Zugriff verweigert</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>Das Formular wurde von einer Url (Adresse) aus aufgerufen (<tt>$ENV{'HTTP_REFERER'}</tt>),
die keine Berechtigung auf das Formular hat.

<p>Wenn Sie versuchen FormMail zu konfigurieren, um es mit diesem Formular
arbeiten zu lassen, m&uuml;ssen Sie <tt>'$host'</tt> zum Array
<tt><b>\@referers</b></tt> hinzuf&uuml;gen.<br>
N&auml;here Erl&auml;terungen finden Sie in der Datei README, die mit dem
Originalscript mitgeliefert wird.
<hr size=1>
<center><font size=-1><a href="javascript:history.go(-1)">Zur&uuml;ck</a></font>
</center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
else {
print <<"(END ERROR HTML)";
Content-type: text/html

<html>
<head>
<title>FormMail v1.9</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>FormMail</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><th><tt><font size=+1>Copyright 1995 - 2001 Matt Wright<br>
Version 1.9 - Herausgegeben am 3. August, 2001<br>
Ein frei verf&uuml;gbares Produkt des <a href="http://www.worldwidemart.com/scripts/">Matt's Script Archive, Inc.</a><br>
Ins Deutsche &uuml;bertragen von <a href="http://www.windinternethaus.de">Wind Internethaus GmbH</a></font></tt></th></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
}

elsif ($error eq 'request_method') {
print <<"(END ERROR HTML)";
Content-type: text/html

<html>
<head>
<title>Error: Request Method</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Error: Request Methode</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>Die Request Methode des Formulars, das Sie abschickten, ist weder
mit <tt>GET</tt> noch mit <tt>POST</tt> definiert.<br>
Bitte &uuml;berpr&uuml;fen Sie noch einmal das Formular und stellen
Sie sicher, da&szlig; die Angabe <tt>method=</tt> in Gro&szlig;buchstaben
geschrieben wurde und entweder <tt>GET</tt> oder <tt>POST</tt> lautet.<p>

<center><font size=-1><a href="javascript:history.go(-1)">Zur&uuml;ck</a></font>
</center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}

elsif ($error eq 'no_recipient') {
print <<"(END ERROR HTML)";
Content-type: text/html

<html>
<head>
<title>Fehler: Kein g&uuml;ltiger Empf&auml;nger</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<br><center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Fehler: Kein Empf&auml;nger</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>In den Daten, die an FormMail gesandt wurden, wurde kein
Empf&auml;nger angegeben.<br>
Bitte stellen Sie sicher, da&szlig; Sie das Formularfeld <tt>'recipient'</tt> bzw. das Scriptfeld <tt>'referers'</tt>
mit einer g&uuml;ltigen E-Mail-Adresse ausgef&uuml;llt haben.

<p>N&auml;here Erl&auml;uterungen finden Sie in der Datei README, die mit dem
Originalscript mitgeliefert wird.<p>
<hr size=1>

<center><font size=-1><a href="javascript:history.go(-1)">Zurück</a></font>
</center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}

elsif ($error eq 'missing_fields') {
if ($Config{'missing_fields_redirect'}) {
print "Location: $Config{'missing_fields_redirect'}\n\n";
}
else {
foreach $missing_field (@error_fields) {
$missing_field_list .= " <li>$missing_field\n";
}

print <<"(END ERROR HTML)";
Content-type: text/html

<html>
<head>
<title>Fehler: Leeres Feld</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Fehler: Leeres Feld</font></th></tr>
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>In diese Felder haben Sie nichts eingetragen:<p>
<ul>
$missing_field_list
</ul><br>

Diese Felder <u>m&uuml;ssen</u> jedoch ausgef&uuml;llt werden, bevor
das Formular ordnungsgem&auml;&szlig; abgeschickt werden kann!<p>

Bet&auml;tigen Sie bitte die 'Zur&uuml;ck'- oder 'Back'-Taste Ihres
Browsers und versuchen Sie es erneut.<p>
<hr size=1>
<center><font size=-1><a href="javascript:history.go(-1)">Zur&uuml;ck</a></font>
</center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
}
}

exit;
}

Hallo Hansi,

>> Hast du dann eine Ahnung wie ich das tabelarrisch in der antwort email formatieren kann!

Da der Formmailer nur Textmails versendet (und das ist auch gut so) kann man nur mit Leerzeichen etwas "formatieren".
Dazu muß man die einzelnen Formularfelder in der Mail mit Leerzeichen auffüllen.

Die Wörter

Mail
Adresse
Prospekt

sind unterschiedlich lang.

Jedes Formularfeld müßte mit einer anderen Anzahl von Leerzeichen gefüllt werden,
damit der Inhalt der Formularfelder genau untereinander steht.

Mail:lllllllllllllllAbsender
Adresse:llllllTeststraße
Prospekt:llllja

Man müßte also diesen Formmailer genau an Dein Formular anpassen.
Wenn dieser Formmailer für mehrere Formulare verwendet wird, geht das natürlich nicht.
Wenn das Formular geändert wird, muß dann auch gleich der Formmailer mitgeändert werden (sehr unpraktisch!).

Besser wäre es einen Formmailer zu verwenden, der mit Templates zusammenspielen kann.
So kann man dann für jedes Formular ein anderes Template verwenden.

Zum Beispiel soupermail http://soupermail.sourceforge.net/
Hier in diesem Beitrag kannst Du etwas dazu lesen:
http://www.hilfdirselbst.ch/...8&topic_id=17465

Gruß Sabine

Kann man da nicht ein Befehl schreiben, mit dem man die Abfrage mit sagen wir mal 30 Leerzeichen minus dem Wort das übergeben wird im Formular. Ist das nicht möglich, da ich keine Ahnung von CGI habe weiß ich das nicht!

Gruß Hansi