version 4.21, 2019/11/12 09:28:15 |
version 4.22, 2019/11/13 09:12:47 |
Line 144 sub spacedHtmlText($;$); |
|
Line 144 sub spacedHtmlText($;$); |
|
sub link($$); |
sub link($$); |
sub revcmp($$); |
sub revcmp($$); |
sub fatal($$@); |
sub fatal($$@); |
sub config_error($$); |
|
sub redirect($;$); |
sub redirect($;$); |
sub safeglob($); |
sub safeglob($); |
sub search_path($); |
sub search_path($); |
Line 316 $maycompress = ( |
|
Line 315 $maycompress = ( |
|
qw(cvsroot hideattic ignorecase sortby logsort f only_with_tag ln |
qw(cvsroot hideattic ignorecase sortby logsort f only_with_tag ln |
hidecvsroot hidenonreadable); |
hidecvsroot hidenonreadable); |
|
|
# |
|
# Load configuration. |
# 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 <b>cvsweb.conf</b> 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() |
# Try to find a readable dir where we can cd into. Some abs_path() |
|
|
sprintf($format, map(htmlquote($_), @args)), "</div>\n"; |
sprintf($format, map(htmlquote($_), @args)), "</div>\n"; |
html_footer(); |
html_footer(); |
exit(1); |
exit(1); |
} |
|
|
|
|
|
# |
|
# Signal a (fatal) configuration error. |
|
# |
|
sub config_error($$) |
|
{ |
|
fatal('500 Internal Error', |
|
'Error loading configuration file "<code>%s</code>":<br /><br />' . |
|
'%s<br />', @_); |
|
} |
} |
|
|
|
|