cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

version 4.6, 2019/11/09 09:27:22

version 4.9, 2019/11/09 10:06:23

Line 113 use constant HAS_EDIFF => eval { require String::Ed

BEGIN

{

$VERSION = '3.0.6';

$VERSION = '3.1';

$HTML_DOCTYPE =

'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ' .

Line 358 if (defined($ENV{QUERY_STRING})) {

$p =~ y/+/ /;

my ($key, $val) = split(/=/, $p, 2);

next unless defined($key);

$val = 1 unless defined($val);

$key = uri_unescape($key);

($key = uri_unescape($key)) =~ /[[:graph:]]/ or next;

$key =~ /([^a-z_12-])/ and fatal('404 Not Found',

($val = uri_unescape($val)) =~ /[[:graph:]]/ or next;

'Invalid character "%s" in query parameter "%s"', $1, $key);

if (defined $val) {

$val = uri_unescape($val);

$val =~ /([^a-zA-Z_01-9.\/-])/ and fatal('404 Not Found',

'Invalid character "%s" in the value "%s" of the query parameter "%s"',

$1, $value, $key);

} else {

$val = 1;

}

$query{$key} = $val;

}

Line 4194 sub htmlquote($)

Line 4202 sub htmlquote($)

# Special Characters; RFC 1866

s/&/&/g;

s/\"/"/g;

s/"/"/g;

s/</</g;

s/>/>/g;

return $_;