version 1.6, 2007/05/29 20:43:17
|
version 1.28, 2023/12/10 17:43:06
|
Line 28
|
Line 28
|
use strict; |
use strict; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use localenroll; |
use localenroll; |
|
use GDBM_File; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonuserutils(); |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
use LONCAPA; |
use LONCAPA; |
|
|
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autoupdate.log'; |
exit if (ref($perlvarref) ne 'HASH'); |
my $hostid = $perlvarref->{'lonHostID'}; |
my $logfile = $perlvarref->{'lonDaemons'}.'/logs/autoupdate.log'; |
|
exit if ($perlvarref->{'lonRole'} ne 'library'); |
|
my $hostid = $perlvarref->{'lonHostID'}; |
|
|
my @info = ('inststatus','lockedname','internalname','lastname', |
my @info = ('inststatus','lockedname','internalname','lastname', |
'firstname','id'); |
'firstname','middlename','generation','id','permanentemail'); |
# Initialize language handler |
# Initialize language handler |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
# find out which users we need to examine |
# find out which users we need to examine |
my @domains = sort(&Apache::lonnet::current_machine_domains()); |
my @domains = sort(&Apache::lonnet::current_machine_domains()); |
foreach my $dom (@domains) { |
foreach my $dom (@domains) { |
my $primaryhost_id = &Apache::lonnet::domain($dom,'primary'); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['autoupdate','usercreation'], |
if ($primaryhost_id ne $hostid) { |
|
next; |
|
} |
|
my %domconfig = &Apache::lonnet::get_dom('configuration',['autoupdate'], |
|
$dom); |
$dom); |
#only run if configured to |
#only run if configured to |
my $run_update = 0; |
my $run_update = 0; |
my $settings; |
my $settings; |
|
my $allowed_inactivity; |
|
my $check_unexpired; |
if (ref($domconfig{'autoupdate'}) eq 'HASH') { |
if (ref($domconfig{'autoupdate'}) eq 'HASH') { |
$settings = $domconfig{'autoupdate'}; |
$settings = $domconfig{'autoupdate'}; |
if ($settings->{'run'} eq '1') { |
if ($settings->{'run'} eq '1') { |
$run_update = 1; |
$run_update = 1; |
} |
} |
|
if ($settings->{'lastactive'} =~/^\d+$/) { |
|
$allowed_inactivity = 86400 * $settings->{'lastactive'}; |
|
} |
|
if ($settings->{'unexpired'}) { |
|
$check_unexpired = 1; |
|
} |
} |
} |
next if (!$run_update); |
next if (!$run_update); |
open (my $fh,">>$logfile"); |
open(my $fh,">>$logfile"); |
print $fh "********************\n".localtime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n"; |
print $fh ("********************\n".&Apache::lonlocal::locallocaltime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n"); |
|
# get courseIDs for domain |
|
my %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.'); |
# get user information |
# get user information |
my (%instusers,%instids); |
my (%users,%instusers,%instids,%counts,@idrules); |
next if (&localenroll::allusers_info($dom,\%instusers,\%instids) ne 'ok'); |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
my (%users,%unamechg,%possnames); |
&descend_tree($dom,$dir,0,\%users,\%courses,$allowed_inactivity,$check_unexpired); |
|
my $resp = &localenroll::allusers_info($dom,\%instusers,\%instids,\%users,\%counts); |
|
if ($resp ne 'ok') { |
|
print $fh &mt('Problem retrieving institutional data for users in domain: [_1].',$dom)."\n". |
|
&mt('Error: [_1].',$resp)."\n". |
|
"-- \n".&Apache::lonlocal::locallocaltime(time).' '. |
|
&mt('Autoupdate messages end')."\n*******************\n\n"; |
|
close($fh); |
|
next; |
|
} else { |
|
if (keys(%counts)) { |
|
foreach my $key (sort(keys(%counts))) { |
|
if ($counts{$key} ne '') { |
|
print $fh "Count for $key = $counts{$key}\n"; |
|
} |
|
} |
|
} |
|
} |
|
my (%unamechg,%possnames); |
my @types = ('active','future'); |
my @types = ('active','future'); |
my @roles = ('st'); |
my @roles = ('st'); |
my @cdoms = ($dom); |
my @cdoms = ($dom); |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
if (ref($domconfig{'usercreation'}) eq 'HASH') { |
&descend_tree($dir,0,\%users); |
if (ref($domconfig{'usercreation'}{'id_rule'}) eq 'ARRAY') { |
foreach my $uname (keys(%users)) { |
@idrules = @{$domconfig{'usercreation'}{'id_rule'}}; |
|
} |
|
} |
|
foreach my $uname (sort(keys(%users))) { |
my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info); |
my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info); |
my (@inststatuses); |
my (@inststatuses); |
if (!$userhash{'internalname'}) { |
if (!$userhash{'internalname'}) { |
if (defined($instusers{$uname})) { |
if (defined($instusers{$uname})) { |
(my $insttypechg,@inststatuses) = |
(my $insttypechg,@inststatuses) = |
&affiliations_check(\%userhash,$instusers{$uname}); |
&affiliations_check(\%userhash,$instusers{$uname}); |
if ($insttypechg) { |
if ($insttypechg) { |
my $inststatusstr = join(':',&escape(@inststatuses)); |
my $inststatusstr = join(':',map { &escape($_) } (@inststatuses)); |
my %statushash = ( inststatus => $inststatusstr ); |
my %statushash = ( inststatus => $inststatusstr ); |
my $statusres = &Apache::lonnet::put('environment',\%statushash,$dom,$uname); |
my $statusres = &Apache::lonnet::put('environment',\%statushash,$dom,$uname); |
} |
} |
Line 96
|
Line 128
|
push(@fields,$field); |
push(@fields,$field); |
} |
} |
} |
} |
} |
} |
} |
} |
} else { |
} else { |
if (ref($settings->{fields}{'default'}) eq 'ARRAY') { |
if (ref($settings->{fields}{'default'}) eq 'ARRAY') { |
@fields = @{$settings->{fields}{'default'}}; |
@fields = @{$settings->{fields}{'default'}}; |
} |
} |
} |
} |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
if ($userhash{$field} ne $instusers{$uname}{$field}) { |
if ($userhash{$field} ne $instusers{$uname}{$field}) { |
$changed = 1; |
# Do not change student/employee ID when field is modifiable |
if ($settings->{'classlists'} eq 'yes') { |
# but institutional data is absent or does not match rules |
if ($field eq 'id') { |
# defined for IDs for institutional users in domain |
$changes{'id'} = 1; |
if ($field eq 'id') { |
} elsif ($field eq 'lastname' || $field eq 'firstname' || $field eq 'middlename' || $field eq 'gen') { |
if ($instusers{$uname}{$field} eq '') { |
$changes{'fullname'} = 1; |
$instusers{$uname}{$field} = $userhash{$field}; |
|
next; |
|
} elsif (@idrules > 0) { |
|
my %idchecks; |
|
if (&localenroll::id_check($dom,$instusers{$uname}{$field}, |
|
\@idrules,\%idchecks) eq 'ok') { |
|
my $matches; |
|
foreach my $result (values(%idchecks)) { |
|
if ($result) { |
|
$matches = 1; |
|
last; |
|
} |
|
} |
|
if ($matches) { |
|
$changed = 1; |
|
} else { |
|
$instusers{$uname}{$field} = $userhash{$field}; |
|
next; |
|
} |
|
} |
|
} |
|
} else { |
|
$changed = 1; |
|
} |
|
if ($field eq 'id') { |
|
$changes{'id'} = 1; |
|
} elsif ($field eq 'lastname' || $field eq 'firstname' || $field eq 'middlename' || $field eq 'generation') { |
|
$changes{'fullname'} = 1; |
|
} |
|
} |
|
} |
|
# Do not change name information when lastname and firstname are modifiable |
|
# but institutional data is absent for both components of a user's name. |
|
if ($changed) { |
|
if ($changes{'fullname'}) { |
|
my %modifiable; |
|
map { $modifiable{$_} = 1; } @fields; |
|
if (($modifiable{'lastname'}) && ($modifiable{'firstname'}) && |
|
($instusers{$uname}{'lastname'} eq '') && ($instusers{$uname}{'firstname'} eq '')) { |
|
if ($changes{'fullname'}) { |
|
undef($changes{'fullname'}); |
|
} |
|
if ($changes{'id'}) { |
|
foreach my $field ('lastname','firstname','middlename','generation') { |
|
$instusers{$uname}{$field} = $userhash{$field}; |
|
} |
|
} else { |
|
undef($changed); |
} |
} |
} |
} |
} |
} |
} |
} |
# Make the change |
# Make the change |
if ($changed) { |
if ($changed) { |
my %userupdate; |
my %userupdate; |
|
foreach my $item ('lastname','firstname','middlename','generation','id', |
|
'permanentemail') { |
|
$userupdate{$item} = $userhash{$item}; |
|
} |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
$userupdate{$field} = $instusers{$uname}{$field}; |
$userupdate{$field} = $instusers{$uname}{$field}; |
} |
} |
my $modresult = &Apache::lonnet::modifyuser($dom,$uname,$userupdate{'id'},undef,undef,$userupdate{'firstname'},$userupdate{'middlename'},$userupdate{'lastname'},$userupdate{'generation'},1); |
my $modresult = &Apache::lonnet::modifyuser($dom,$uname,$userupdate{'id'},undef,undef,$userupdate{'firstname'},$userupdate{'middlename'},$userupdate{'lastname'},$userupdate{'generation'},1,$hostid,$userupdate{'permanentemail'},undef,\@fields); |
if ($modresult eq 'ok') { |
if ($modresult eq 'ok') { |
if ($settings->{'classlists'} eq 'yes') { |
print $fh "User change: $uname:$dom; New values: 1.Name: $userupdate{'firstname'} $userupdate{'middlename'} $userupdate{'lastname'} $userupdate{'generation'}; 2. StuID: $userupdate{'id'}; 3. Email: $userupdate{'permanentemail'}.\n"; |
|
if ($settings->{'classlists'} == 1) { |
if ($changes{'id'} || $changes{'fullname'}) { |
if ($changes{'id'} || $changes{'fullname'}) { |
my %roleshash = |
my %roleshash = |
&Apache::lonnet::get_my_roles($uname, |
&Apache::lonnet::get_my_roles($uname, |
$dom,'userroles',\@types,\@roles,\@cdoms); |
$dom,'userroles',\@types,\@roles,\@cdoms); |
foreach my $item (%roleshash) { |
foreach my $item (keys(%roleshash)) { |
my ($cnum,$cdom,$role) = split(/:/,$item); |
my ($cnum,$cdom,$role) = split(/:/,$item); |
my ($start,$end) = split(/:/,$roleshash{$item}); |
my ($start,$end) = split(/:/,$roleshash{$item}); |
if (&Apache::loncommon::is_course($cdom,$cnum)) { |
if (&Apache::lonnet::is_course($cdom,$cnum)) { |
my $result = &update_classlist($cdom,$cnum,$dom,$uname,\%userupdate); |
my $result = |
|
&Apache::lonuserutils::update_classlist($cdom,$cnum,$dom,$uname,\%userupdate); |
|
if ($result eq 'ok') { |
|
print $fh "Classlist change: $uname:$dom - class -> $cnum:$cdom\n"; |
|
} else { |
|
print $fh "Error - $result -during classlist update for $uname:$dom in $cnum:$cdom\n"; |
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
} else { |
|
print $fh "User change detected for $uname:$dom. Error during update: $modresult\n"; |
} |
} |
} |
} |
} else { |
} else { |
Line 151
|
Line 243
|
} else { |
} else { |
if (!exists($users{$instids{$userhash{'id'}}})) { |
if (!exists($users{$instids{$userhash{'id'}}})) { |
$unamechg{$uname} = $instids{$userhash{'id'}}; |
$unamechg{$uname} = $instids{$userhash{'id'}}; |
print $fh &mt('Username change to [_1] detected for [_2] in domain [_3].',$unamechg{$uname},$uname,$dom)."\n"; |
print $fh (&mt('Username change to [_1] detected for [_2] in domain [_3].',$unamechg{$uname},$uname,$dom)."\n"); |
} |
} |
} |
} |
} |
} |
Line 161
|
Line 253
|
if (keys(%possnames) > 0) { |
if (keys(%possnames) > 0) { |
foreach my $uname (keys(%possnames)) { |
foreach my $uname (keys(%possnames)) { |
my $altnames = join(' or ',@{$possnames{$uname}}); |
my $altnames = join(' or ',@{$possnames{$uname}}); |
print $fh &mt('Possible username change to [_1] detected for [_2] in domain [_3].',$altnames,$uname,$dom)."\n"; |
print $fh (&mt('Possible username change to [_1] detected for [_2] in domain [_3].',$altnames,$uname,$dom)."\n"); |
} |
} |
} |
} |
print $fh "-- ".localtime(time).' '.&mt('Autoupdate messages end')."\n*******************\n\n"; |
print $fh ("-- \n".&Apache::lonlocal::locallocaltime(time).' '.&mt('Autoupdate messages end')."\n*******************\n\n"); |
close($fh); |
close($fh); |
} |
} |
|
|
sub descend_tree { |
sub descend_tree { |
my ($dir,$depth,$alldomusers) = @_; |
my ($dom,$dir,$depth,$alldomusers,$coursesref,$allowed_inactivity,$check_unexpired) = @_; |
if (-d $dir) { |
if (-d $dir) { |
opendir(DIR,$dir); |
opendir(DIR,$dir); |
my @contents = grep(!/^\./,readdir(DIR)); |
my @contents = grep(!/^\./,readdir(DIR)); |
closedir(DIR); |
closedir(DIR); |
$depth ++; |
$depth ++; |
foreach my $item (@contents) { |
foreach my $item (@contents) { |
if ($depth < 4) { |
if (($depth < 4) && (length($item) == 1)) { |
&descend_tree($dir.'/'.$item,$depth,$alldomusers); |
&descend_tree($dom,$dir.'/'.$item,$depth,$alldomusers,$coursesref, |
} else { |
$allowed_inactivity,$check_unexpired); |
if (-e $dir.'/'.$item.'/environment.db') { |
} elsif (-e $dir.'/'.$item.'/passwd') { |
|
if (ref($coursesref) eq 'HASH') { |
$$alldomusers{$item} = ''; |
next if (exists($coursesref->{$dom.'_'.$item})); |
} |
} |
|
if ($allowed_inactivity) { |
|
my $now = time; |
|
my $aclog = $dir.'/'.$item.'/activity.log'; |
|
my $roledb = $dir.'/'.$item.'/roles.db'; |
|
if (-e $aclog) { |
|
my $lastac=(stat($aclog))[9]; |
|
if (($now - $lastac) > $allowed_inactivity) { |
|
if (-e $roledb) { |
|
my $lastrolechg=(stat($roledb))[9]; |
|
next if (($now - $lastrolechg) > $allowed_inactivity); |
|
} else { |
|
next; |
|
} |
|
} |
|
} elsif (-e $roledb) { |
|
my $lastrolechg=(stat($roledb))[9]; |
|
next if (($now - $lastrolechg) > $allowed_inactivity); |
|
} else { |
|
next; |
|
} |
|
} |
|
if ($check_unexpired) { |
|
my $roledb = $dir.'/'.$item.'/roles.db'; |
|
my $unexpired = 0; |
|
my $now = time; |
|
if (-e $roledb) { |
|
my $roleshash = &LONCAPA::tie_user_hash($dom,$item,'roles',&GDBM_READER()) or next; |
|
if (ref($roleshash)) { |
|
while (my ($key,$value) = each(%$roleshash)) { |
|
next if ($key =~ /^rolesdef/); |
|
my ($role,$roleend,$rolestart) = split(/\_/,$value); |
|
next if ($role =~ /^gr\//); |
|
if (!$roleend || $roleend > $now) { |
|
$unexpired = 1; |
|
last; |
|
} |
|
} |
|
&LONCAPA::untie_user_hash($roleshash); |
|
next unless ($unexpired); |
|
} else { |
|
next; |
|
} |
|
} else { |
|
next; |
|
} |
|
} |
|
$$alldomusers{$item} = ''; |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
sub update_classlist { |
|
my ($cdom,$cnum,$udom,$uname,$user) = @_; |
|
my ($uid,$fullname,$classlistentry); |
|
my $fullname = |
|
&Apache::lonnet::format_name($user->{'first'},$user->{'middle'}, |
|
$user->{'last'},$user->{'gene'},'lastname'); |
|
my %classhash = &Apache::lonnet::get('classlist',[$uname.':'.$udom], |
|
$cdom,$cnum); |
|
my @classinfo = split(/:/,$classhash{$uname.':'.$udom}); |
|
my $ididx=&Apache::loncoursedata::CL_ID() - 2; |
|
my $nameidx=&Apache::loncoursedata::CL_FULLNAME() - 2; |
|
for (my $i=0; $i<@classinfo; $i++) { |
|
if ($i == $ididx) { |
|
if (defined($user->{'id'})) { |
|
$classlistentry .= $user->{'id'}.':'; |
|
} else { |
|
$classlistentry .= $classinfo[$i].':'; |
|
} |
|
} elsif ($i == $nameidx) { |
|
$classlistentry .= $fullname.':'; |
|
} else { |
|
$classlistentry .= $classinfo[$i].':'; |
|
} |
|
} |
|
$classlistentry =~ s/:$//; |
|
my $reply=&Apache::lonnet::cput('classlist', |
|
{"$uname:$udom" => $classlistentry}, |
|
$cdom,$cnum); |
|
if (($reply eq 'ok') || ($reply eq 'delayed')) { |
|
return 'ok'; |
|
} else { |
|
return 'error: '.$reply; |
|
} |
|
} |
|
|
|
sub affiliations_check { |
sub affiliations_check { |
my ($userhash,$insthashref) = @_; |
my ($userhash,$insthashref) = @_; |
my (@inststatuses,$insttypechg);; |
my (@inststatuses,$insttypechg);; |
if (ref($insthashref) eq 'HASH') { |
if (ref($insthashref) eq 'HASH') { |
if (ref($insthashref->{type}) eq 'ARRAY') { |
if (ref($insthashref->{'inststatus'}) eq 'ARRAY') { |
@inststatuses = @{$insthashref->{type}}; |
@inststatuses = @{$insthashref->{'inststatus'}}; |
} |
} |
} |
} |
my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'})); |
my @currstatuses = map { &unescape($_); } (split(/:/,$userhash->{'inststatus'})); |
foreach my $status (@inststatuses) { |
foreach my $status (@inststatuses) { |
if (!grep/^\Q$status\E/,@currstatuses) { |
if (!grep/^\Q$status\E/,@currstatuses) { |
$insttypechg = 1; |
$insttypechg = 1; |