loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.73, 2006/01/27 22:28:37	version 1.75, 2006/04/07 22:42:00
Line 38 use Apache::lonlocal;	Line 38 use Apache::lonlocal;
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);

	sub cleanup {
	my ($r)=@_;
	if (! $r->is_initial_req()) { return DECLINED; }
	&Apache::lonnet::save_cache();
	return OK;
	}

	sub goodbye {
	my ($r)=@_;
	&Apache::lonnet::goodbye();
	return DONE;
	}

sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $requrl=$r->uri;	my $requrl=$r->uri;
Line 148 sub handler {	Line 161 sub handler {
(($requrl=~m\|(.*)/smpedit$\|) &&	(($requrl=~m\|(.*)/smpedit$\|) &&
&Apache::lonnet::symbverify($symb,$1))) {	&Apache::lonnet::symbverify($symb,$1))) {
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb);	my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb);
&Apache::lonnet::symblist($map,$murl => [$murl,$mid],	&Apache::lonnet::symblist($map,$murl => [$murl,$mid],
'last_known' =>[$murl,$mid]);	'last_known' =>[$murl,$mid]);
} else {	} else {
$r->log_reason('Invalid symb for '.$requrl.': '.	$r->log_reason('Invalid symb for '.$requrl.': '.