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