version 1.9, 2003/11/19 20:03:05
|
version 1.10, 2003/11/19 20:03:39
|
Line 53 END
|
Line 53 END
|
while (<OUTPUT>) { |
while (<OUTPUT>) { |
print "$_<br />"; |
print "$_<br />"; |
} |
} |
close(TRACE); |
close(OUTPUT); |
} elsif ($ENV{'cgi.file'} =~ m|tar.gz|) { |
} 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|) { |
} 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|) { |
} 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|) { |
} 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|) { |
} 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|) { |
} 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"; |
} |
} |