loncom/lonnet/perl/lonrep.pm - diff

Return to lonrep.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.11, 2006/08/21 15:21:31	version 1.12, 2007/01/29 22:07:12
Line 37 use CGI::Cookie();	Line 37 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) {
require APR::Finfo;	require APR::Finfo;
require APR::Const;	require APR::Const;
$r->finfo(APR::Finfo::stat($filename,	$r->finfo(APR::Finfo::stat($filename,
Line 56 sub handler {	Line 57 sub handler {
if ($filename=~/\/$/) { return OK; }	if ($filename=~/\/$/) { return OK; }
if (-e "$filename.in.transfer") {	if (-e "$filename.in.transfer") {
sleep 10;	sleep 10;
&update_filename($r,$filename);	if (-e $filename) {
if (-e $r->finfo) {	&update_filename($r,$filename);
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') {	if ($response eq 'ok' && -e $filename) {
$r->path_info('');	$r->path_info('');
&update_filename($r,$filename);	&update_filename($r,$filename);
return OK;	return OK;