#!/usr/bin/perl -w use strict; use Cwd; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use File::Basename; # # Version: $ bzr-revision-id $ # local $SIG{ALRM} = sub { die "timeout\n" }; alarm(300); my $tmp = '/tmp'; my $dir = param('dir'); my $format = param('format') || 'zip'; if (!$dir && !defined($ENV{SCRIPT_FILENAME})) { $dir = basename(cwd); chdir('..'); $format = 'zip'; } if (!$dir) { print "Content-Type: text/plain\r\n\r\n"; open SCRIPT, $ENV{SCRIPT_FILENAME}; print