loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.7, 2004/04/08 09:19:39	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 \|");
while (<OUTPUT>) {
print "$_<br />";
}
close(OUTPUT);	close(OUTPUT);
	%ENV=%oldENV;
	undef(%oldENV);
} else {	} else {
return 'nozip';	return 'nozip';
}	}
Line 610 sub build_structure {	Line 613 sub build_structure {
$curr_id ++;	$curr_id ++;
$next_id ++;	$next_id ++;
$seqtext{$key} .= qq\|></resource>	$seqtext{$key} .= qq\|></resource>
<link from="$curr_id" to="$next_id index="$curr_id"></link>\n\|;	<link from="$curr_id" to="$next_id" index="$curr_id"></link>\n\|;
}	}
}	}
}	}