loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.8, 2004/05/11 09:57:52	version 1.9, 2004/08/04 17:34:29
Line 100 sub expand_zip {	Line 100 sub expand_zip {
my ($tempdir,$filename) = @_;	my ($tempdir,$filename) = @_;
my $zipfile = "$tempdir/$filename";	my $zipfile = "$tempdir/$filename";
if ($filename =~ m\|\.zip$\|i) {	if ($filename =~ m\|\.zip$\|i) {
	# unzip can cause an sh launch which can pass along all of %ENV
	# which can be too large for /bin/sh to handle
	my %oldENV=%ENV;
	undef(%ENV);
open(OUTPUT, "unzip -o $zipfile -d $tempdir 2> /dev/null \|");	open(OUTPUT, "unzip -o $zipfile -d $tempdir 2> /dev/null \|");
close(OUTPUT);	close(OUTPUT);
	%ENV=%oldENV;
	undef(%oldENV);
} else {	} else {
return 'nozip';	return 'nozip';
}	}