loncom/lonnet/perl/lonrep.pm - diff

Return to lonrep.pm CVS log

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

version 1.10, 2005/08/31 08:13:52	version 1.11, 2006/08/21 15:21:31
Line 34 use Apache::lonnet;	Line 34 use Apache::lonnet;
use Apache::File();	use Apache::File();
use CGI::Cookie();	use CGI::Cookie();

	sub update_filename {
	my ($r,$filename) = @_;
	my $oldfile = $r->filename($filename);
	if ($ENV{'MOD_PERL_API_VERSION'} == 2) {
	require APR::Finfo;
	require APR::Const;
	$r->finfo(APR::Finfo::stat($filename,
	&APR::Const::FINFO_NORM(),
	$r->pool));
	}
	return $oldfile;
	}

sub handler {	sub handler {
my $r = shift;	my $r = shift;
if (-e $r->finfo) {	if (-e $r->finfo) {
Line 43 sub handler {	Line 56 sub handler {
if ($filename=~/\/$/) { return OK; }	if ($filename=~/\/$/) { return OK; }
if (-e "$filename.in.transfer") {	if (-e "$filename.in.transfer") {
sleep 10;	sleep 10;
$r->filename($filename);	&update_filename($r,$filename);
if (-e $r->finfo) {	if (-e $r->finfo) {
return OK;	return OK;
} else {	} else {
Line 54 sub handler {	Line 67 sub handler {
my $response=Apache::lonnet::repcopy($filename);	my $response=Apache::lonnet::repcopy($filename);
if ($response eq 'ok') {	if ($response eq 'ok') {
$r->path_info('');	$r->path_info('');
$r->filename($filename);	&update_filename($r,$filename);
return OK;	return OK;
}	}
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));