version 1.2, 2000/01/13 14:48:36
|
version 1.5, 2001/06/14 17:54:04
|
Line 6
|
Line 6
|
# 6/16,6/18 Gerd Kortemeyer) |
# 6/16,6/18 Gerd Kortemeyer) |
# 6/18,6/21,6/26,6/28,6/29,6/30, |
# 6/18,6/21,6/26,6/28,6/29,6/30, |
# 7/2,7/3,7/9,7/10,7/12, |
# 7/2,7/3,7/9,7/10,7/12, |
# 01/06 Gerd Kortemeyer |
# 01/06,01/14,10/5, |
|
# 06/14/01 Gerd Kortemeyer |
|
|
package Apache::lonrep; |
package Apache::lonrep; |
|
|
Line 14 use strict;
|
Line 15 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 handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 21 sub handler {
|
Line 23 sub handler {
|
return OK; |
return OK; |
} else { |
} else { |
my $filename=$r->filename.$r->path_info; |
my $filename=$r->filename.$r->path_info; |
|
if ($filename=~/\/$/) { return OK; } |
if (-e "$filename.in.transfer") { |
if (-e "$filename.in.transfer") { |
sleep 10; |
sleep 10; |
$r->filename($filename); |
$r->filename($filename); |
Line 31 sub handler {
|
Line 34 sub handler {
|
return HTTP_SERVICE_UNAVAILABLE; |
return HTTP_SERVICE_UNAVAILABLE; |
} |
} |
} else { |
} else { |
return Apache::lonnet::repcopy($filename); |
my $response=Apache::lonnet::repcopy($filename); |
|
if ($response==OK) { |
|
$r->filename($filename); |
|
return OK; |
|
} |
|
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
|
my $lonid=$cookies{'lonID'}; |
|
if ($lonid) { |
|
$r->log_reason('Replication failed for '.$lonid->value); |
|
return $response; |
|
} else { |
|
$r->log_reason('Replication failed for unknown user'); |
|
return FORBIDDEN; |
|
} |
} |
} |
} |
} |
} |
} |