loncom/lonnet/perl/lonrep.pm - diff

Return to lonrep.pm CVS log

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

version 1.3, 2000/01/14 21:12:40	version 1.4, 2000/10/05 21:34:59
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,01/14 Gerd Kortemeyer	# 01/06,01/14,10/5 Gerd Kortemeyer

package Apache::lonrep;	package Apache::lonrep;

Line 14 use strict;	Line 14 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 34 sub handler {	Line 35 sub handler {
my $response=Apache::lonnet::repcopy($filename);	my $response=Apache::lonnet::repcopy($filename);
if ($response==OK) {	if ($response==OK) {
$r->filename($filename);	$r->filename($filename);
	return OK;
}	}
return $response;	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;
	}
}	}
}	}
}	}