version 1.559, 2019/07/02 19:40:18
|
version 1.562, 2020/05/04 17:05:10
|
Line 220 my %trust = (
|
Line 220 my %trust = (
|
courseidput => {remote => 1, domroles => 1, enroll => 1}, |
courseidput => {remote => 1, domroles => 1, enroll => 1}, |
courseidputhash => {remote => 1, domroles => 1, enroll => 1}, |
courseidputhash => {remote => 1, domroles => 1, enroll => 1}, |
courselastaccess => {remote => 1, domroles => 1, enroll => 1}, |
courselastaccess => {remote => 1, domroles => 1, enroll => 1}, |
|
coursesessions => {institutiononly => 1}, |
currentauth => {remote => 1, domroles => 1, enroll => 1}, |
currentauth => {remote => 1, domroles => 1, enroll => 1}, |
currentdump => {remote => 1, enroll => 1}, |
currentdump => {remote => 1, enroll => 1}, |
currentversion => {remote=> 1, content => 1}, |
currentversion => {remote=> 1, content => 1}, |
Line 227 my %trust = (
|
Line 228 my %trust = (
|
dcmailput => {remote => 1, domroles => 1}, |
dcmailput => {remote => 1, domroles => 1}, |
del => {remote => 1, domroles => 1, enroll => 1, content => 1}, |
del => {remote => 1, domroles => 1, enroll => 1, content => 1}, |
delbalcookie => {institutiononly => 1}, |
delbalcookie => {institutiononly => 1}, |
|
delusersession => {institutiononly => 1}, |
deldom => {remote => 1, domroles => 1}, # not currently used |
deldom => {remote => 1, domroles => 1}, # not currently used |
devalidatecache => {institutiononly => 1}, |
devalidatecache => {institutiononly => 1}, |
domroleput => {remote => 1, enroll => 1}, |
domroleput => {remote => 1, enroll => 1}, |
Line 2442 sub change_password_handler {
|
Line 2444 sub change_password_handler {
|
my $result = &change_unix_password($uname, $npass); |
my $result = &change_unix_password($uname, $npass); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
&update_passwd_history($uname,$udom,$howpwd,$context); |
&update_passwd_history($uname,$udom,$howpwd,$context); |
} |
} |
&logthis("Result of password change for $uname: ". |
&logthis("Result of password change for $uname: ". |
$result); |
$result); |
&Reply($client, \$result, $userinput); |
&Reply($client, \$result, $userinput); |
Line 3033 sub user_has_session_handler {
|
Line 3035 sub user_has_session_handler {
|
} |
} |
®ister_handler("userhassession", \&user_has_session_handler, 0,1,0); |
®ister_handler("userhassession", \&user_has_session_handler, 0,1,0); |
|
|
|
sub del_usersession_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
|
|
my $result; |
|
my ($udom, $uname) = map { &unescape($_) } (split(/:/, $tail)); |
|
if (($udom =~ /^$LONCAPA::match_domain$/) && ($uname =~ /^$LONCAPA::match_username$/)) { |
|
my $lonidsdir = $perlvar{'lonIDsDir'}; |
|
if (-d $lonidsdir) { |
|
if (opendir(DIR,$lonidsdir)) { |
|
my $filename; |
|
while ($filename=readdir(DIR)) { |
|
if ($filename=~/^\Q$uname\E_\d+_\Q$udom\E_/) { |
|
if (tie(my %oldenv,'GDBM_File',"$lonidsdir/$filename", |
|
&GDBM_READER(),0640)) { |
|
my $linkedfile; |
|
if (exists($oldenv{'user.linkedenv'})) { |
|
$linkedfile = $oldenv{'user.linkedenv'}; |
|
} |
|
untie(%oldenv); |
|
$result = unlink("$lonidsdir/$filename"); |
|
if ($result) { |
|
if ($linkedfile =~ /^[a-f0-9]+_linked$/) { |
|
if (-l "$lonidsdir/$linkedfile.id") { |
|
unlink("$lonidsdir/$linkedfile.id"); |
|
} |
|
} |
|
} |
|
} else { |
|
$result = unlink("$lonidsdir/$filename"); |
|
} |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
if ($result == 1) { |
|
&Reply($client, "$result\n", "$cmd:$tail"); |
|
} else { |
|
&Reply($client, "not_found\n", "$cmd:$tail"); |
|
} |
|
} else { |
|
&Failure($client, "invalid_user\n", "$cmd:$tail"); |
|
} |
|
return 1; |
|
} |
|
|
|
®ister_handler("delusersession", \&del_usersession_handler, 0,1,0); |
|
|
# |
# |
# Authenticate access to a user file by checking that the token the user's |
# Authenticate access to a user file by checking that the token the user's |
# passed also exists in their session file |
# passed also exists in their session file |
Line 4824 sub course_lastaccess_handler {
|
Line 4874 sub course_lastaccess_handler {
|
} |
} |
®ister_handler("courselastaccess",\&course_lastaccess_handler, 0, 1, 0); |
®ister_handler("courselastaccess",\&course_lastaccess_handler, 0, 1, 0); |
|
|
|
sub course_sessions_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
my ($cdom,$cnum,$lastactivity) = split(':',$tail); |
|
my $dbsuffix = '_'.$cdom.'_'.$cnum.'.db'; |
|
my (%sessions,$qresult); |
|
my $now=time; |
|
if (opendir(DIR,$perlvar{'lonIDsDir'})) { |
|
my $filename; |
|
while ($filename=readdir(DIR)) { |
|
next if ($filename=~/^\./); |
|
next if ($filename=~/^publicuser_/); |
|
next if ($filename=~/^[a-f0-9]+_(linked|lti_\d+)\.id$/); |
|
if ($filename =~ /^($LONCAPA::match_username)_\d+_($LONCAPA::match_domain)_/) { |
|
my ($uname,$udom) = ($1,$2); |
|
next unless (-e "$perlvar{'lonDaemons'}/tmp/$uname$dbsuffix"); |
|
my $mtime = (stat("$perlvar{'lonIDsDir'}/$filename"))[9]; |
|
my $since=$now-$mtime; |
|
if ($lastactivity < 0) { |
|
next if ($since <= $lastactivity); |
|
} else { |
|
next if ($since > $lastactivity); |
|
} |
|
$sessions{$uname.':'.$udom} = $mtime; |
|
} |
|
} |
|
closedir(DIR); |
|
} |
|
foreach my $user (keys(%sessions)) { |
|
$qresult.=&escape($user).'='.$sessions{$user}.'&'; |
|
} |
|
if ($qresult) { |
|
chop($qresult); |
|
} |
|
&Reply($client, \$qresult, $userinput); |
|
return 1; |
|
} |
|
®ister_handler("coursesessions",\&course_sessions_handler, 0, 1, 0); |
|
|
# |
# |
# Puts an unencrypted entry in a namespace db file at the domain level |
# Puts an unencrypted entry in a namespace db file at the domain level |
# |
# |