version 1.12, 2007/01/29 22:07:12
|
version 1.15, 2020/09/03 13:40:50
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::File(); |
use Apache::File(); |
use CGI::Cookie(); |
|
|
|
sub update_filename { |
sub update_filename { |
my ($r,$filename) = @_; |
my ($r,$filename) = @_; |
my $oldfile = $r->filename($filename); |
my $oldfile = $r->filename($filename); |
if ($ENV{'MOD_PERL_API_VERSION'} == 2 |
if ($ENV{'MOD_PERL_API_VERSION'} == 2 |
&& -e $filename) { |
&& -e $filename) { |
require APR::Finfo; |
eval { |
require APR::Const; |
require APR::Finfo; |
$r->finfo(APR::Finfo::stat($filename, |
require APR::Const; |
&APR::Const::FINFO_NORM(), |
$r->finfo(APR::Finfo::stat($filename, |
$r->pool)); |
&APR::Const::FINFO_NORM(), |
|
$r->pool)); |
|
}; |
|
if ($@) { |
|
return $@; |
|
} |
} |
} |
return $oldfile; |
return; |
} |
} |
|
|
sub handler { |
sub handler { |
Line 55 sub handler {
|
Line 59 sub handler {
|
} else { |
} else { |
my $filename=$r->filename.$r->path_info; |
my $filename=$r->filename.$r->path_info; |
if ($filename=~/\/$/) { return OK; } |
if ($filename=~/\/$/) { return OK; } |
|
if ($filename eq '/home/httpd/html/res/lib/templates/simpleproblem.problem/smpedit') { return OK; } |
if (-e "$filename.in.transfer") { |
if (-e "$filename.in.transfer") { |
sleep 10; |
sleep 10; |
if (-e $filename) { |
if (-e $filename) { |
&update_filename($r,$filename); |
my $error = &update_filename($r,$filename); |
|
if ($error) { |
|
$r->log_reason('Update filename failed '.$error); |
|
return HTTP_SERVICE_UNAVAILABLE; |
|
} |
return OK; |
return OK; |
} else { |
} else { |
$r->log_reason("Waiting for file transfer timed out",$filename); |
$r->log_reason("Waiting for file transfer timed out",$filename); |
return HTTP_SERVICE_UNAVAILABLE; |
return HTTP_SERVICE_UNAVAILABLE; |
} |
} |
} else { |
} else { |
my $response=Apache::lonnet::repcopy($filename); |
my $response=&Apache::lonnet::repcopy($filename); |
if ($response eq 'ok' && -e $filename) { |
if ($response eq 'ok' && -e $filename) { |
$r->path_info(''); |
$r->path_info(''); |
&update_filename($r,$filename); |
my $error = &update_filename($r,$filename); |
|
if ($error) { |
|
$r->log_reason('Update filename failed after replication '.$error); |
|
return HTTP_SERVICE_UNAVAILABLE; |
|
} |
return OK; |
return OK; |
} |
} |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $lonid=$cookies{'lonID'}; |
if ($handle) { |
if ($lonid) { |
$r->log_reason('Replication failed for '.$handle); |
$r->log_reason('Replication failed for '.$lonid->value); |
|
return $response; |
return $response; |
} else { |
} else { |
$r->log_reason('Replication failed for unknown user'); |
$r->log_reason('Replication failed for unknown user'); |