$1 mit $schritte++; oder so

[Ben]

Hi Struppi

Hier dass Komplette Skript:

#!/usr/bin/perl -w
use CGI;
sub ReadParse { local (*in) = @_ if @_;
local ($i, $key, $val); if ( $ENV{'REQUEST_METHOD'} eq "GET" )
{$in = $ENV{'QUERY_STRING'};}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{read(STDIN,$in,$ENV{'CONTENT_LENGTH'});}
else {
$in = ( grep( !/^-/, @ARGV )) [0];
$in =~ s/\&/&/g; } @in = split(/&/,$in);
foreach $i (0 .. $#in) {
$in[$i] =~ s/+/ /g;
($key, $val) = split(/=/,$in[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val; } return length($in); }
&ReadParse;
$cgi = new CGI;

print "Content-Type: text/html\n\n";
if($in{'tiere'} ne ''){
$mailp = "/usr/lib/sendmail";
$emailauto = " [e-mail]";
$subjectauto = "Test";
open(MAIL,"|$mailp -t");
print MAIL "To: $emailauto\n";
print MAIL "From: $emailauto\n";
print MAIL "Subject: $subjectauto\n\n";
print MAIL "$in{'tiere'}";
               close (MAIL);
print "Vielen Dank für die $in{'tiere'}";
}
print "<form action= "" method=post>
<input type="checkbox" name="tiere" value="Hund">Hund<BR>
<input type="checkbox" name="tiere" value="Katze">Katze<BR>
<input type="checkbox" name="tiere" value="Maus">Maus<BR>
<input type=submit></form>";

Ben