cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 4.29 and 4.31

version 4.29, 2019/11/29 13:39:50

version 4.31, 2019/11/29 14:40:27

Line 78 use vars qw (

$tabstop $state $annTable $sel @ForbiddenFiles

$use_descriptions %descriptions $dwhere

$use_moddate $gzip_open $file_list_len

$allow_tar @tar_options @gzip_options @cvs_options

$allow_tar @tar_options @cvs_options

@annotate_options @rcsdiff_options

$HTML_DOCTYPE $HTML_META $cssurl $CSS

);

Line 128 EOM

$MimeTypes = undef if $@;

$CheckoutMagic = '~checkout~';

$CMD{$_} = "/usr/bin/$_" for (qw(cvs gzip rcsdiff rlog));

$CMD{$_} = "/usr/bin/$_" for (qw(cvs rcsdiff rlog));

$CMD{tar} = "/bin/tar";

}

Line 190 sub checkout_to_temp($$$);

# (think mod_perl)...

delete(@ENV{qw(PATH IFS CDPATH ENV BASH_ENV)});

# Helps to achieve read only access to the repositories

# with cvs >= 1.12.1 and doesn't hurt other versions.

$ENV{CVSREADONLYFS} = 1;

# Location of the configuration file inside the web server chroot:

$config = '/conf/cvsweb/cvsweb.conf';

Line 678 if ($input{tarball}) {

Line 682 if ($input{tarball}) {

('500 Internal Error',

'Export failure (exit status %s), output: <pre>%s</pre>',

$errcode, $err || $export_err);

} else {

$| = 1; # Essential to get the buffering right.

local (*TAR_OUT);

my ($h, $err) = startproc($CMD{tar}, @tar_options, '-czf', '-',

my (@cmd, $ctype);

$basedir, '>pipe', \*TAR_OUT);

my @tar = ($CMD{tar}, @tar_options, '-cf', '-', $basedir);

my @gzip = ($CMD{gzip}, @gzip_options, '-c');

push(@cmd, \@tar, '|', \@gzip);

$ctype = 'application/x-gzip';

push(@cmd, '>pipe', \*TAR_OUT);

my ($h, $err) = startproc(@cmd);

if ($h) {

print "Content-Type: $ctype\r\n\r\n";

print "Content-Type: application/x-gzip\r\n\r\n";

local $/ = undef;

print <TAR_OUT>;

$h->finish();

CVSweb