version 1.5, 2005/03/02 22:26:36
|
version 1.9, 2006/12/20 22:41:07
|
Line 28 package Apache::lonuploadrep;
|
Line 28 package Apache::lonuploadrep;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet(); |
use Apache::lonrep(); |
|
use Apache::lonnet; |
use CGI::Cookie(); |
use CGI::Cookie(); |
|
use LONCAPA(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
if ($r->uri =~m|^/*uploaded/(\w+)/(\w+)/(.+)$|) { |
if ($r->uri =~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::name_re)/(.+)$}) { |
my $chome=&Apache::lonnet::homeserver($2,$1); |
my $chome=&Apache::lonnet::homeserver($2,$1); |
my @ids=&Apache::lonnet::current_machine_ids(); |
my @ids=&Apache::lonnet::current_machine_ids(); |
foreach my $id (@ids) { if ($id eq $chome) { return OK; } } |
foreach my $id (@ids) { if ($id eq $chome) { return OK; } } |
Line 46 sub handler {
|
Line 48 sub handler {
|
} elsif ( ($info > 0) && ($info =~ /\d+/) ) { |
} elsif ( ($info > 0) && ($info =~ /\d+/) ) { |
my @statinfo = stat($filename); |
my @statinfo = stat($filename); |
if ($statinfo[9] >= $info ) { |
if ($statinfo[9] >= $info ) { |
$r->filename($filename); |
&Apache::lonrep::update_filename($r,$filename); |
return OK; |
return OK; |
} |
} |
} |
} |
} |
} |
my $response=&Apache::lonnet::repcopy_userfile($r->uri); |
my $response=&Apache::lonnet::repcopy_userfile($r->uri); |
if ($response eq 'OK') { |
if ($response eq 'ok') { |
$r->filename($filename); |
&Apache::lonrep::update_filename($r,$filename); |
return OK; |
return OK; |
} |
} |
} |
} |