|
version 1.21, 2006/11/27 16:37:36
|
version 1.22, 2006/12/05 02:55:54
|
|
Line 856 sub handler {
|
Line 856 sub handler {
|
| $fn=$env{'form.filename'}; |
$fn=$env{'form.filename'}; |
| $fn=~s/^http\:\/\/[^\/]+\///; |
$fn=~s/^http\:\/\/[^\/]+\///; |
| $fn=~s/^\///; |
$fn=~s/^\///; |
| $fn=~s/(\~|priv\/)(\w+)//; |
$fn=~s/(\~|priv\/)($LONCAPA::username_re)//; |
| $fn=~s/\/+/\//g; |
$fn=~s/\/+/\//g; |
| } else { |
} else { |
| $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}. |
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}. |
![[BACK]](/icons/back.gif){kind=icon}
Return to imsimport.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages