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'} || |