[BACK]Return to lonacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.154 and 1.155

version 1.154, 2014/03/10 02:07:01 version 1.155, 2014/05/05 23:17:12
Line 386  sub sso_login { Line 386  sub sso_login {
     $r->set_handlers('PerlHandler'=> undef);      $r->set_handlers('PerlHandler'=> undef);
  }   }
  return OK;   return OK;
     } elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) {      } else {
  &Apache::lonnet::logthis(" SSO authorized unknown user $user ");   &Apache::lonnet::logthis(" SSO authorized unknown user $user ");
         $r->subprocess_env->set('SSOUserUnknown' => $user);  
         $r->subprocess_env->set('SSOUserDomain' => $domain);  
         my @cancreate;          my @cancreate;
         my %domconfig =          my %domconfig =
             &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);              &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
Line 403  sub sso_login { Line 401  sub sso_login {
                 }                  }
             }              }
         }          }
         if (grep(/^sso$/,@cancreate)) {          if ((grep(/^sso$/,@cancreate)) || (defined($r->dir_config('lonSSOUserUnknownRedirect')))) {
             $r->set_handlers('PerlHandler'=>              $r->subprocess_env->set('SSOUserUnknown' => $user);
                      [\&Apache::createaccount::handler]);              $r->subprocess_env->set('SSOUserDomain' => $domain);
             $r->handler('perl-script');              if (grep(/^sso$/,@cancreate)) {
         } else {                  $r->set_handlers('PerlHandler'=> [\&Apache::createaccount::handler]);
     $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect'));                  $r->handler('perl-script');
             $r->set_handlers('PerlHandler'=> undef);              } else {
           $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect'));
                   $r->set_handlers('PerlHandler'=> undef);
               }
       return OK;
         }          }
  return OK;  
     }      }
     return undef;      return undef;
 }  }
Removed from v.1.154  
changed lines
  Added in v.1.155

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>