version 1.392, 2008/01/03 20:42:28
|
version 1.394.2.1, 2008/05/30 21:34:27
|
Line 2141 sub token_auth_user_file_handler {
|
Line 2141 sub token_auth_user_file_handler {
|
my ($fname, $session) = split(/:/, $tail); |
my ($fname, $session) = split(/:/, $tail); |
|
|
chomp($session); |
chomp($session); |
my $reply="non_auth\n"; |
my $reply="non_auth"; |
my $file = $perlvar{'lonIDsDir'}.'/'.$session.'.id'; |
my $file = $perlvar{'lonIDsDir'}.'/'.$session.'.id'; |
if (open(ENVIN,"$file")) { |
if (open(ENVIN,"$file")) { |
flock(ENVIN,LOCK_SH); |
flock(ENVIN,LOCK_SH); |
tie(my %disk_env,'GDBM_File',"$file",&GDBM_READER(),0640); |
tie(my %disk_env,'GDBM_File',"$file",&GDBM_READER(),0640); |
if (exists($disk_env{"userfile.$fname"})) { |
if (exists($disk_env{"userfile.$fname"})) { |
$reply="ok\n"; |
$reply="ok"; |
} else { |
} else { |
foreach my $envname (keys(%disk_env)) { |
foreach my $envname (keys(%disk_env)) { |
if ($envname=~ m|^userfile\.\Q$fname\E|) { |
if ($envname=~ m|^userfile\.\Q$fname\E|) { |
$reply="ok\n"; |
$reply="ok"; |
last; |
last; |
} |
} |
} |
} |
Line 3518 sub dump_course_id_handler {
|
Line 3518 sub dump_course_id_handler {
|
$is_hash = 0; |
$is_hash = 0; |
my @courseitems = split(/:/,$value); |
my @courseitems = split(/:/,$value); |
$lasttime = pop(@courseitems); |
$lasttime = pop(@courseitems); |
next if ($lasttime<$since); |
if ($hashref->{$lasttime_key} eq '') { |
|
next if ($lasttime<$since); |
|
} |
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; |
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; |
} |
} |
my $match = 1; |
my $match = 1; |
Line 6046 sub validate_user {
|
Line 6048 sub validate_user {
|
my $credentials= &Authen::Krb5::cc_default(); |
my $credentials= &Authen::Krb5::cc_default(); |
$credentials->initialize(&Authen::Krb5::parse_name($user.'@' |
$credentials->initialize(&Authen::Krb5::parse_name($user.'@' |
.$contentpwd)); |
.$contentpwd)); |
my $krbreturn = &Authen::Krb5::get_in_tkt_with_password($krbclient, |
my $krbreturn; |
$krbserver, |
if (exists(&Authen::Krb5::get_init_creds_password)) { |
$password, |
$krbreturn = |
$credentials); |
&Authen::Krb5::get_init_creds_password($krbclient,$password, |
$validated = ($krbreturn == 1); |
$krbservice); |
|
$validated = (ref($krbreturn) eq 'Authen::Krb5::Creds'); |
|
} else { |
|
$krbreturn = |
|
&Authen::Krb5::get_in_tkt_with_password($krbclient,$krbserver, |
|
$password,$credentials); |
|
$validated = ($krbreturn == 1); |
|
} |
if (!$validated) { |
if (!$validated) { |
&logthis('krb5: '.$user.', '.$contentpwd.', '. |
&logthis('krb5: '.$user.', '.$contentpwd.', '. |
&Authen::Krb5::error()); |
&Authen::Krb5::error()); |