loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2003/07/15 18:50:43	version 1.7, 2003/07/29 15:06:47
Line 139 sub handler	Line 139 sub handler
# of nothing but alphanums, ' ,, or ., or the file	# of nothing but alphanums, ' ,, or ., or the file
# will be "not found", no matter what.	# will be "not found", no matter what.

return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',.]+\Z/);	return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',:.]+\Z/);

# Join together the tex files, return HTTP_NOT_FOUND if any of	# Join together the tex files, return HTTP_NOT_FOUND if any of
# them are not found	# them are not found
my $tex = '';	my $tex = '';
	# Since in insertlist.tab I want to specify multiple files,
	# and insertlist.tab also uses commas, I need something else
	# so replace ! with ,
	$filenames =~ s/:/,/g;
my @files = split(/,/, $filenames);	my @files = split(/,/, $filenames);

for my $filename (@files) {	for my $filename (@files) {