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 |