![[BACK]](/icons/back.gif){kind=icon}
Return to lonupload.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to lonupload.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.38.2.2, 2008/12/17 19:18:47 | version 1.38.2.3, 2008/12/21 04:43:41 |
|---|---|
| Line 335 function verifyForm() { | Line 335 function verifyForm() { |
| 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; |