cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 4.20 and 4.22

version 4.20, 2019/11/11 15:46:39

version 4.22, 2019/11/13 09:12:47

Line 144 sub spacedHtmlText($;$);

sub link($$);

sub revcmp($$);

sub fatal($$@);

sub config_error($$);

sub redirect($;$);

sub safeglob($);

sub search_path($);

Line 263 $scriptname = '' unless defined($scriptname);

Line 262 $scriptname = '' unless defined($scriptname);

$where = $pathinfo;

$doCheckout = $where =~ s|^/$CheckoutMagic/|/|o;

$where =~ s|^/||;

$scriptname =~ s|^/*|/|;

$scriptname =~ s|^/+||;

# Let's workaround thttpd's stupidity..

if ($scriptname =~ m|/$|) {

Line 271 if ($scriptname =~ m|/$|) {

Line 270 if ($scriptname =~ m|/$|) {

my $re = quotemeta $pathinfo;

$scriptname =~ s/$re$//;

}

$scriptname = "/$scriptname" if $scriptname;

# $scriptname : the URI escaped path to this script

# $where : the path in the CVS repository (without leading /, or only /)

Line 315 $maycompress = (

qw(cvsroot hideattic ignorecase sortby logsort f only_with_tag ln

hidecvsroot hidenonreadable);

# Load configuration.

{

if (-f $config) {

$config =~ m|^/| or fatal '500 Internal Error',

do "$config" or config_error($config, $@);

'Configuration file name "<code>%s</code>" is not an absolute path.',

} else {

$config;

fatal("500 Internal Error",

defined do $config and last;

'Configuration not found. Set the parameter <code>$config</code> in cvsweb.cgi to your cvsweb.conf configuration file first.');

$@ and fatal '500 Internal Error',

'Error loading configuration file "<code>%s</code>": <pre>%s</pre>',

$config, $@;

fatal '500 Internal Error',

'Cannot read configuration file "<code>%s</code>": %s',

$config, $! || 'unknown error';

}

# Try to find a readable dir where we can cd into. Some abs_path()

Line 1541 sub fatal($$@)

Line 1545 sub fatal($$@)

sprintf($format, map(htmlquote($_), @args)), "</div>\n";

html_footer();

exit(1);

}

# Signal a (fatal) configuration error.

sub config_error($$)

{

fatal('500 Internal Error',

'Error loading configuration file "<code>%s</code>": ' .

'%s ', @_);

}

CVSweb