ich habe von Michael jetzt ja schon öfter (immer) was vom Perl-Code übernommen, nämlich die Header- und Footer.
Darin ist immer ein Bereich #Parameter:
# Everything from URL foreach (split(/&/,$ENV{'QUERY_STRING'})){ ($namef,$value) = split(/=/,$_,2); $namef =~ tr/+/ /; $namef =~ 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; $query{$namef} = $value; } # And this one we really want to use $do = $query{'do'}; $db = $query{'db'}; # Filter quotemeta($query{'lang'}); quotemeta($do); quotemeta($db); $saveformdata =~ tr/0-1//cd; $saveformdata = substr($saveformdata,0,1);
lg, Christian
Kommentar