[LON-CAPA-cvs] cvs: loncom /auth lonacc.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 31 Jan 2007 16:48:54 -0000


albertel		Wed Jan 31 11:48:54 2007 EDT

  Modified files:              
    /loncom/auth	lonacc.pm 
  Log:
  - log sso authorizations users
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.106 loncom/auth/lonacc.pm:1.107
--- loncom/auth/lonacc.pm:1.106	Fri Jan 12 10:44:27 2007
+++ loncom/auth/lonacc.pm	Wed Jan 31 11:48:54 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.106 2007/01/12 15:44:27 raeburn Exp $
+# $Id: lonacc.pm,v 1.107 2007/01/31 16:48:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -160,6 +160,7 @@
     my $domain = $r->dir_config('lonDefDomain');
     my $home=&Apache::lonnet::homeserver($user,$domain);
     if ($home !~ /(con_lost|no_host|no_such_host)/) {
+	&Apache::lonnet::logthis(" SSO authorized user $user ");
 	if ($r->dir_config("lonBalancer") eq 'yes') {
 	    # login but immeaditly go to switch server to find us a new 
 	    # machine
@@ -193,6 +194,7 @@
 	}
 	return OK;
     } elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) {
+	&Apache::lonnet::logthis(" SSO authorized unknown user $user ");
         $r->subprocess_env->set('SSOUserUnknown' => $user);
         $r->subprocess_env->set('SSOUserDomain' => $domain);
 	$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect'));