version 4.13, 2019/11/11 12:40:12 |
version 4.14, 2019/11/11 12:46:23 |
Line 365 if (defined($ENV{QUERY_STRING})) { |
|
Line 365 if (defined($ENV{QUERY_STRING})) { |
|
$val = uri_unescape($val); |
$val = uri_unescape($val); |
$val =~ /([^a-zA-Z_01-9.\/-])/ and fatal('404 Not Found', |
$val =~ /([^a-zA-Z_01-9.\/-])/ and fatal('404 Not Found', |
'Invalid character "%s" in the value "%s" of the query parameter "%s"', |
'Invalid character "%s" in the value "%s" of the query parameter "%s"', |
$1, $value, $key); |
$1, $val, $key); |
} else { |
} else { |
$val = 1; |
$val = 1; |
} |
} |
|
|
<legend>General options</legend> |
<legend>General options</legend> |
<input type="hidden" name="copt" value="1" /> |
<input type="hidden" name="copt" value="1" /> |
EOF |
EOF |
for my $v qw(hidecvsroot hidenonreadable) { |
for my $v (qw(hidecvsroot hidenonreadable)) { |
printf(qq{<input type="hidden" name="%s" value="%s" />\n}, |
printf(qq{<input type="hidden" name="%s" value="%s" />\n}, |
$v, $input{$v} || 0); |
$v, $input{$v} || 0); |
} |
} |