version 1.9, 2003/11/19 20:03:05
|
version 1.12, 2004/06/09 19:04:47
|
Line 32
|
Line 32
|
use strict; |
use strict; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use LONCAPA::loncgi (); |
use LONCAPA::loncgi (); |
|
my %origENV=%ENV; |
if(! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
if(! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
print <<END; |
print <<END; |
Line 39 if(! &LONCAPA::loncgi::check_cookie_and_
|
Line 40 if(! &LONCAPA::loncgi::check_cookie_and_
|
END |
END |
} else { |
} else { |
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
if(! $ENV{'cgi.file'} || ! $ENV{'cgi.dir'}) { |
my $file=$ENV{'cgi.file'}; |
|
my $dir=$ENV{'cgi.dir'}; |
|
%ENV=%origENV; |
|
if(! $file || ! $dir) { |
print <<END; |
print <<END; |
<html><body>Bad Enviroment!</body></html> |
<html><body>Bad Enviroment!</body></html> |
END |
END |
Line 47 END
|
Line 51 END
|
print <<END; |
print <<END; |
<html><body><b>Output of decompress:</b><br /><br /> |
<html><body><b>Output of decompress:</b><br /><br /> |
END |
END |
chdir $ENV{'cgi.dir'}; |
chdir $dir; |
if ($ENV{'cgi.file'} =~ m|zip|) { |
if ($file =~ m|zip|) { |
open(OUTPUT, "unzip $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "unzip $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar.gz|) { |
} elsif ($file =~ m|tar.gz|) { |
open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -zxpvf $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar.bz2|) { |
} elsif ($file =~ m|tar.bz2|) { |
open(OUTPUT, "tar -jxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -jxpvf $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|bz2|) { |
} elsif ($file =~ m|bz2|) { |
open(OUTPUT, "bunzip2 $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "bunzip2 $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tgz|) { |
} elsif ($file =~ m|tgz|) { |
open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -zxpvf $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|gz|) { |
} elsif ($file =~ m|gz|) { |
open(OUTPUT, "gunzip $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "gunzip $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar|) { |
} elsif ($file =~ m|tar|) { |
open(OUTPUT, "tar -xpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -xpvf $file 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} else { |
} else { |
print "There has been an error in determining the file type of $ENV{'cgi.file'}, please check name"; |
print "There has been an error in determining the file type of $file, please check name"; |
} |
} |
print "<br /><b>Decompress complete!</b><br /></body></html>"; |
print "<br /><b>Decompress complete!</b><br /></body></html>"; |
} |
} |