version 1.10, 2003/11/19 20:03:39
|
version 1.11, 2003/12/13 00:20:47
|
Line 48 END
|
Line 48 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 $ENV{'cgi.file'} 2> /dev/null |"); |
open(OUTPUT, "unzip -o $ENV{'cgi.file'} 2> /dev/null |"); |
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(OUTPUT); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar.gz|) { |
} elsif ($ENV{'cgi.file'} =~ m|\.tar\.gz$|i) { |
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(OUTPUT); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar.bz2|) { |
} elsif ($ENV{'cgi.file'} =~ m|\.tar\.bz2$|i) { |
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(OUTPUT); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|bz2|) { |
} elsif ($ENV{'cgi.file'} =~ m|\.bz2$|i) { |
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(OUTPUT); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tgz|) { |
} elsif ($ENV{'cgi.file'} =~ m|\.tgz$|i) { |
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(OUTPUT); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|gz|) { |
} elsif ($ENV{'cgi.file'} =~ m|\.gz$|i) { |
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(OUTPUT); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar|) { |
} elsif ($ENV{'cgi.file'} =~ m|\.tar$|i) { |
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 />"; |