loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.55, 2017/05/23 03:07:40	version 1.56, 2017/11/05 22:47:13
Line 29	Line 29
package Apache::imsprocessor;	package Apache::imsprocessor;

use Apache::lonnet;	use Apache::lonnet;
	use Apache::loncommon;
use Apache::loncleanup;	use Apache::loncleanup;
use Apache::lonlocal;	use Apache::lonlocal;
use HTTP::Request::Common;	use HTTP::Request::Common;
Line 99 sub create_tempdir {	Line 100 sub create_tempdir {
my ($context,$pathinfo,$timenow) = @_;	my ($context,$pathinfo,$timenow) = @_;
my $configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');	my $configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');
my $tempdir;	my $tempdir;
	$pathinfo = &Apache::loncommon::clean_path($pathinfo);
	# Collapse dots
	$pathinfo =~ s/\.+/./g;
if ($context eq 'DOCS') {	if ($context eq 'DOCS') {
$tempdir = $$configvars{'lonDaemons'}.'/tmp/'.$pathinfo;	$tempdir = $$configvars{'lonDaemons'}.'/tmp/'.$pathinfo;
if (!-e "$tempdir") {	if (!-e "$tempdir") {
Line 130 sub uploadzip {	Line 134 sub uploadzip {
$fname=~s/\s+/\_/g;	$fname=~s/\s+/\_/g;
# Replace all other weird characters by nothing	# Replace all other weird characters by nothing
$fname=~s/[^\w\.\-]//g;	$fname=~s/[^\w\.\-]//g;
	# Collapse dots
	$fname=~s/\.+/./g;
# See if there is anything left	# See if there is anything left
unless ($fname) { return 'error: no uploaded file'; }	unless ($fname) { return 'error: no uploaded file'; }
# Save the file	# Save the file