version 1.8, 2003/11/19 15:07:25
|
version 1.11, 2003/12/13 00:20: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 (); |
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; |
<html><body>NO COOKIE!</body></html> |
<html><body>NO COOKIE!</body></html> |
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'}) |
if(! $ENV{'cgi.file'} || ! $ENV{'cgi.dir'}) { |
{ |
|
print <<END; |
print <<END; |
<html><body>Bad Enviroment!</body></html> |
<html><body>Bad Enviroment!</body></html> |
END |
END |
} |
} else { |
else |
|
{ |
|
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 $ENV{'cgi.dir'}; |
if ($ENV{'cgi.file'} =~ m|zip|) |
if ($ENV{'cgi.file'} =~ m|\.zip$|i) { |
{ |
open(OUTPUT, "unzip -o $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "unzip $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) |
|
{ |
|
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} |
} elsif ($ENV{'cgi.file'} =~ m|\.tar\.gz$|i) { |
elsif ($ENV{'cgi.file'} =~ m|tar.gz|) |
|
{ |
|
open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) |
while (<OUTPUT>) { |
{ |
|
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} |
} elsif ($ENV{'cgi.file'} =~ m|\.tar\.bz2$|i) { |
elsif ($ENV{'cgi.file'} =~ m|tar.bz2|) |
|
{ |
|
open(OUTPUT, "tar -jxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -jxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) |
while (<OUTPUT>) { |
{ |
|
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} |
} elsif ($ENV{'cgi.file'} =~ m|\.bz2$|i) { |
elsif ($ENV{'cgi.file'} =~ m|bz2|) |
|
{ |
|
open(OUTPUT, "bunzip2 $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "bunzip2 $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) |
while (<OUTPUT>) { |
{ |
|
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} |
} elsif ($ENV{'cgi.file'} =~ m|\.tgz$|i) { |
elsif ($ENV{'cgi.file'} =~ m|tgz|) |
|
{ |
|
open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -zxpvf $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) |
while (<OUTPUT>) { |
{ |
|
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} |
} elsif ($ENV{'cgi.file'} =~ m|\.gz$|i) { |
elsif ($ENV{'cgi.file'} =~ m|gz|) |
|
{ |
|
open(OUTPUT, "gunzip $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "gunzip $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) |
while (<OUTPUT>) { |
{ |
|
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} |
} elsif ($ENV{'cgi.file'} =~ m|\.tar$|i) { |
elsif ($ENV{'cgi.file'} =~ m|tar|) |
|
{ |
|
open(OUTPUT, "tar -xpvf $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "tar -xpvf $ENV{'cgi.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 $ENV{'cgi.file'}, please check name"; |
} |
} |
print "<br /><b>Decompress complete!</b><br /></body></html>"; |
print "<br /><b>Decompress complete!</b><br /></body></html>"; |