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

Diff for /loncom/enrollment/Enrollment.pm between versions 1.11 and 1.12

version 1.11, 2004/03/18 00:24:57 version 1.12, 2004/03/18 16:46:28
Line 242  sub update_LC { Line 242  sub update_LC {
                     if ( ($authparam eq '')  || (!defined($authparam)) )  {                      if ( ($authparam eq '')  || (!defined($authparam)) )  {
                         $authparam = $autharg;                          $authparam = $autharg;
                     }                      }
                     if ($auth =~ m/^krb/) {  
                         $auth .= ':'.$authparam;  
                     }  
                     if ( ($end eq '') || (!defined($end)) )  {                      if ( ($end eq '') || (!defined($end)) )  {
                          $end = $enddate;                           $end = $enddate;
                     }                      }
Line 342  sub update_LC { Line 339  sub update_LC {
                         }                                                      }                            
                         my $krbdefdom = '';                          my $krbdefdom = '';
                         my $currentauth=&Apache::lonnet::queryauthenticate($uname,$dom);                          my $currentauth=&Apache::lonnet::queryauthenticate($uname,$dom);
                         if ($currentauth=~/^krb(4|5):/) {                          if ($currentauth=~/^(krb[45]):(.*)/) {
                             $currentauth=~/^krb(4|5):(.*)/;                              $currentauth = $1;
                             $krbdefdom=$1;                              $krbdefdom = $2;
                         } elsif ($currentauth=~ /^(unix|internal|localauth):/) {                          } elsif ($currentauth=~ /^(unix|internal|localauth):/) {
                             $currentauth = $1;                              $currentauth = $1;
                         } else {                          } else {
                             $$logmsg .= "Invalid authentication method $currentauth for $uname.".$linefeed;                                $$logmsg .= "Invalid authentication method $currentauth for $uname.".$linefeed;  
                         }                          }
 # Report if authentication methods are different.  # Report if authentication methods are different.
                         if ($currentauth ne $auth ) {                          if ($currentauth ne $auth) {
                             $$logmsg .= "Authentication mismatch for $uname - $currentauth in system, $auth based on information in classlist or default for this course.".$linefeed;                              $$logmsg .= "Authentication type mismatch for $uname - '$currentauth' in system, '$auth' based on information in classlist or default for this course.".$linefeed;
                         }                          } elsif ($auth =~ m/^krb/) {
                               if ($krbdefdom ne $authparam) {
                                   $$logmsg .= "Kerberos domain mismatch for $uname - '$krbdefdom' in system, '$authparam' based on information in classlist or default for this course.".$linefeed;
                               }
   
 # Check user data  # Check user data
                         if ($first  ne $userenv{'firstname'}  ||                          if ($first  ne $userenv{'firstname'}  ||
                             $middle ne $userenv{'middlename'} ||                              $middle ne $userenv{'middlename'} ||
Removed from v.1.11  
changed lines
  Added in v.1.12

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