swenw: CGI Mail ich schmeis die kiste bald aus dem fenster

Beitrag lesen

SELF-Forum

CGI Mail ich schmeis die kiste bald aus dem fenster

swenw
– Informationen zu den Bewertungsregeln

hallo

vielleicht kann mir ja hier jemand helfen der sich mit cgi und mail auskennt.   ok kurz zur vorgeschichte.  ich habe über netobjects ein formular gebastelt und möchte die eingegebenen daten per email erhalten. mein provider läst freie cgi zu. alles gemacht und ich bekomm immer folgende fehlermeldung

_____________________________________________________________________

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, webmaster@get-it-on.de and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

Apache/1.3.19 Server at www.get-it-on.de Port 80

_____________________________________________________________________

als mailer.pl verwende ich folgenden code

#!/usr/bin/perl

#   mailer.pl-- A simple program to mail form data to an email address

#   Written in 1997 by James Marshall, james@jmarshall.com
#   For the latest, see http://www.jmarshall.com/easy/cgi/

IMPORTANT: MAKE SURE THESE TWO VALUES ARE SET CORRECTLY FOR YOU!

$mailprog= "/usr/sbin/sendmail" ;
$recipient= "info@get-it-on.de" ;      # make sure to \ escape the @

Get the CGI input variables

%in= &getcgivars ;

Open the mailing process

open(MAIL, "|$mailprog= "/usr/sbin/sendmail"; $recipient"info@get-it-on.de")
    || &HTMLdie("Couldn't send the mail (couldn't run $mailprog).") ;

Print the header information

$ENV{'HTTP_REFERER'} || ($ENV{'HTTP_REFERER'}= "http://www.get-it-on.de/erhalten") ;
print MAIL "Subject: Form data from the Web\n\n",
           "The following data was entered at $ENV{'HTTP_REFERER'}:\n\n" ;

Find length of longest field name, for formatting; include space for colon

$maxlength= 0 ;
foreach (keys %in) {
    $maxlength= length if length > $maxlength ;
}
$maxlength++ ;

Print each CGI variable received by the script, one per line.

This just prints the fields in alphabetical order.  To define your own

#   order, use something like
#     foreach ('firstname', 'lastname', 'phone', 'address1', ... ) {
foreach (sort keys %in) {

# If a field has newlines, it's probably a block of text; indent it.
    if ($in{$_}=~ /\n/) {
        $in{$_}= "\n" . $in{$_} ;
        $in{$_}=~ s/\n/\n    /g ;
        $in{$_}.= "\n" ;
    }

# comma-separate multiple selections
    $in{$_}=~ s/\0/, /g ;

# Print fields, aligning columns neatly
    printf MAIL "%-${maxlength}s  %s\n", "$_:", $in{$_} ;
}

Close the process and mail the data

close(MAIL) ;

Print an HTML response to the user

print <<EOF ;
Content-type: text/html

<html>
<body>
<h3>Your data has been sent.</h3>
</body>
</html>
EOF

exit ;

#-------------- start of &getcgivars() module, copied in -------------

Read all CGI vars into an associative array.

If multiple input fields have the same name, they are concatenated into

#   one array element and delimited with the \0 character (which fails if
#   the input has any \0 characters, very unlikely but conceivably possible).

Currently only supports Content-Type of application/x-www-form-urlencoded.

sub getcgivars {
    local($in, %in) ;
    local($name, $value) ;

# First, read entire string of CGI vars into $in
    if ( ($ENV{'REQUEST_METHOD'} eq 'GET') ||
         ($ENV{'REQUEST_METHOD'} eq 'HEAD') ) {
        $in= $ENV{'QUERY_STRING'} ;

} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        if ($ENV{'CONTENT_TYPE'}=~ m#^application/x-www-form-urlencoded$#i) {
            length($ENV{'CONTENT_LENGTH'})
                || &HTMLdie("No Content-Length sent with the POST request.") ;
            read(STDIN, $in, $ENV{'CONTENT_LENGTH'}) ;

} else {
            &HTMLdie("Unsupported Content-Type: $ENV{'CONTENT_TYPE'}") ;
        }

} else {
        &HTMLdie("Script was called with unsupported REQUEST_METHOD.") ;
    }

# Resolve and unencode name/value pairs into %in
    foreach (split(/[&;]/, $in)) {
        s/+/ /g ;
        ($name, $value)= split('=', $_, 2) ;
        $name=~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge ;
        $value=~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge ;
        $in{$name}.= "\0" if defined($in{$name}) ;  # concatenate multiple vars
        $in{$name}.= $value ;
    }

return %in ;

}

Die, outputting HTML error page

If no $title, use a default title

sub HTMLdie {
    local($msg,$title)= @_ ;
    $title= "CGI Error" if $title eq '' ;
    print <<EOF ;
Content-type: text/html

<html>
<head>
<title>$title</title>
</head>
<body>
<h1>$title</h1>
<h3>$msg</h3>
</body>
</html>
EOF

exit ;
}

#-------------- end of &getcgivars() module --------------------------

Ich hab echt keine ahnung an was es liegen könnte. da ich auch kein cgi prog kann, hoffe ich das mir einer von euch helfen kann. danke

gruß

swen

also ich komme hier einfach nicht weiter. gibt es denn nicht einfach ein skript das ich ganz einfach umschreiben kann???

gruß

swen

Beitrag melden
–
Informationen zu den Bewertungsregeln