[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.14

version 1.11, 2004/03/18 00:24:57 version 1.14, 2004/03/31 19:31:56
Line 233  sub update_LC { Line 233  sub update_LC {
                     $usec =~ s/\W//g;                      $usec =~ s/\W//g;
   
                     unless ($emailaddr =~/^[^\@]+\@[^\@]+$/) { $emailaddr =''; }                      unless ($emailaddr =~/^[^\@]+\@[^\@]+$/) { $emailaddr =''; }
                     my $emailenc = &HTML::Entities::encode($emailaddr);                       my $emailenc = &HTML::Entities::encode($emailaddr,'<>&"'); 
   
 # Use course defaults where entry is absent  # Use course defaults where entry is absent
                     if ( ($auth eq '') || (!defined($auth)) ) {                      if ( ($auth eq '') || (!defined($auth)) ) {
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.14

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