Return to imsimport.pm CVS log | Up to [LON-CAPA] / loncom / imspackages |
version 1.25, 2008/08/26 01:35:15 | version 1.26, 2008/12/24 07:57:39 |
---|---|
Line 722 sub handler { | Line 722 sub handler { |
my $fn; | my $fn; |
if ($env{'form.filename'}) { | if ($env{'form.filename'}) { |
$fn=$env{'form.filename'}; | $fn=$env{'form.filename'}; |
$fn=~s/^http\:\/\/[^\/]+\///; | $fn=~s/^https?\:\/\/[^\/]+\///; |
$fn=~s/^\///; | $fn=~s/^\///; |
$fn=~s/(\~|priv\/)($LONCAPA::username_re)//; | $fn=~s/(\~|priv\/)($LONCAPA::username_re)//; |
$fn=~s/\/+/\//g; | $fn=~s/\/+/\//g; |