loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.115, 2008/05/14 18:27:30	version 1.117, 2008/11/10 13:20:24
Line 150 sub get_posted_cgi {	Line 150 sub get_posted_cgi {
# balance them	# balance them
# returns OK if it was a SSO and user was handled	# returns OK if it was a SSO and user was handled
# undef if not SSO or no means to hanle the user	# undef if not SSO or no means to hanle the user

sub sso_login {	sub sso_login {
my ($r,$handle) = @_;	my ($r,$handle) = @_;

Line 187 sub sso_login {	Line 188 sub sso_login {
'server' => $r->dir_config('lonHostID'),	'server' => $r->dir_config('lonHostID'),
'sso.login' => 1	'sso.login' => 1
);	);
	if ($r->dir_config("ssodirecturl") == 1) {
	$info{'origurl'} = $r->uri;
	}
if (defined($r->dir_config("lonSSOReloginServer"))) {	if (defined($r->dir_config("lonSSOReloginServer"))) {
$info{'sso.reloginserver'} =	$info{'sso.reloginserver'} =
$r->dir_config('lonSSOReloginServer');	$r->dir_config('lonSSOReloginServer');
Line 239 sub handler {	Line 243 sub handler {

my $result = &sso_login($r,$handle);	my $result = &sso_login($r,$handle);
if (defined($result)) {	if (defined($result)) {
return $result	return $result;
}	}