-}
-
-unless ($stage)
-{
-
- print
- "Content-Type: application/x-gzip\n",
- "Content-Disposition: attachment; filename=buildfarmlog.tgz\n",
- "\n",
- $tgz;
- exit;
-}
-
-my $template = "buildlogXXXXXX";
-my ($fh, $filename) = tempfile($template,
- DIR => '/home/community/pgbuildfarm/buildlogs',
- UNLINK => 1);
-print $fh $tgz;
-close($fh);
-
-my $output = `tar -z -O -xf $filename $stage.log 2>&1`;
-
-print "Content-Type: text/plain\n\n", $output,