Frage zu einem CGI Script

[Girom]

achso bist noob nadann kein Problem, hier eine genaue Anleitung:

1. leg dir einen Webspace mit Perl/cgi zu (z.B. tripod.com = kostenlos oder domainfactory.de = kostet). Muss aber sendmail unterstützen - erkundige dich vorher (kostenpflichtige habens meistens)

2. erstell ein Formular in Html:
<form action="deinperlscript.pl" method="post">
<input type="Text" name="FeldA"> <br>
<input type="Text" name="FeldB"> <br>
<input type="Submit" value="Senden">
</form>

3.speicher dieses z.b. als index.html und lad es auf den Webspace (z.B. mit FTP oder dem Upload-Formular auf der Providerseite)

4.lad das Script in den Ordner "cgi-bin":

#!/usr/bin/perl

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<([^>]|\n)*>//g;
        $value =~ s/<//g;
        $value =~ s/>//g;
        $FORM{$name} = $value;
}

$Sendmail_Prog = "/usr/lib/sendmail";
$mailfrom = "[e-mail]"; #was im "von wem" feld stehen soll

$mailto = "[e-mail]"; #deine Mailadresse mit einem \ vorm @
$mailsubject = "neues Mitglied"; #Mailbetreff
open(MAIL,"|$Sendmail_Prog -t");
print MAIL "From: $mailfrom\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $mailsubject\n\n";
print MAIL qq~
deinTextzuFeldA : $FORM{'FeldA'}
deinTextzuFeldA : $FORM{'FeldB'}
...
~;
close(MAIL);

fertig.

Gruß
Girom