|
version 1.5, 2001/06/23 18:26:40
|
version 1.7, 2001/08/22 18:13:20
|
|
Line 15
|
Line 15
|
| # |
# |
| # 03/31,04/03 Gerd Kortemeyer) |
# 03/31,04/03 Gerd Kortemeyer) |
| # |
# |
| # 04/05,04/09,05/25,06/23 Gerd Kortemeyer |
# 04/05,04/09,05/25,06/23,06/24,08/22 Gerd Kortemeyer |
| |
|
| package Apache::lonupload; |
package Apache::lonupload; |
| |
|
|
Line 46 sub upfile_store {
|
Line 46 sub upfile_store {
|
| |
|
| sub phaseone { |
sub phaseone { |
| my ($r,$fn,$uname,$udom)=@_; |
my ($r,$fn,$uname,$udom)=@_; |
| |
$ENV{'form.upfile.filename'}=~s/\\/\//g; |
| |
$ENV{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/; |
| if ($ENV{'form.upfile.filename'}) { |
if ($ENV{'form.upfile.filename'}) { |
| $fn=~s/\/[^\/]+$//; |
$fn=~s/\/[^\/]+$//; |
| $fn=~s/([^\/])$/$1\//; |
$fn=~s/([^\/])$/$1\//; |
|
Line 166 sub handler {
|
Line 168 sub handler {
|
| $r->print('</body></html>'); |
$r->print('</body></html>'); |
| return OK; |
return OK; |
| } |
} |
| |
|
| |
1; |
| |
__END__ |
![[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