version 4.29, 2019/11/29 13:39:50 |
version 4.30, 2019/11/29 14:29:48 |
|
|
$tabstop $state $annTable $sel @ForbiddenFiles |
$tabstop $state $annTable $sel @ForbiddenFiles |
$use_descriptions %descriptions $dwhere |
$use_descriptions %descriptions $dwhere |
$use_moddate $gzip_open $file_list_len |
$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 |
@annotate_options @rcsdiff_options |
$HTML_DOCTYPE $HTML_META $cssurl $CSS |
$HTML_DOCTYPE $HTML_META $cssurl $CSS |
); |
); |
|
|
$MimeTypes = undef if $@; |
$MimeTypes = undef if $@; |
|
|
$CheckoutMagic = '~checkout~'; |
$CheckoutMagic = '~checkout~'; |
$CMD{$_} = "/usr/bin/$_" for (qw(cvs gzip rcsdiff rlog)); |
$CMD{$_} = "/usr/bin/$_" for (qw(cvs rcsdiff rlog)); |
$CMD{tar} = "/bin/tar"; |
$CMD{tar} = "/bin/tar"; |
} |
} |
|
|
Line 678 if ($input{tarball}) { |
|
Line 678 if ($input{tarball}) { |
|
('500 Internal Error', |
('500 Internal Error', |
'Export failure (exit status %s), output: <pre>%s</pre>', |
'Export failure (exit status %s), output: <pre>%s</pre>', |
$errcode, $err || $export_err); |
$errcode, $err || $export_err); |
|
|
} else { |
} else { |
|
|
$| = 1; # Essential to get the buffering right. |
$| = 1; # Essential to get the buffering right. |
local (*TAR_OUT); |
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) { |
if ($h) { |
print "Content-Type: $ctype\r\n\r\n"; |
print "Content-Type: application/x-gzip\r\n\r\n"; |
local $/ = undef; |
local $/ = undef; |
print <TAR_OUT>; |
print <TAR_OUT>; |
$h->finish(); |
$h->finish(); |