version 1.5, 2007/05/11 17:25:28
|
version 1.9, 2007/06/04 14:13:08
|
Line 35
|
Line 35
|
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'; |
my $hostid = $perlvarref->{'lonHostID'}; |
my $hostid = $perlvarref->{'lonHostID'}; |
my @info = ('inststatus','lockedname','lastname','firstname','id'); |
my @info = ('inststatus','lockedname','internalname','lastname', |
|
'firstname','id','permanentemail'); |
|
# Initialize language handler |
|
&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) { |
Line 56
|
Line 60
|
} |
} |
} |
} |
next if (!$run_update); |
next if (!$run_update); |
|
open(my $fh,">>$logfile"); |
|
print $fh ("********************\n".localtime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n"); |
|
# get courseIDs for domain |
|
my %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','',undef,undef,'.'); |
# get user information |
# get user information |
my (%instusers,%instids); |
my (%instusers,%instids); |
next if (&localenroll::allusers_info($dom,\%instusers,\%instids) ne 'ok'); |
next if (&localenroll::allusers_info($dom,\%instusers,\%instids) ne 'ok'); |
Line 66
|
Line 74
|
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
&descend_tree($dir,0,\%users); |
&descend_tree($dir,0,\%users); |
foreach my $uname (keys(%users)) { |
foreach my $uname (keys(%users)) { |
|
next if ($courses{$dom.'_'.$uname}); |
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'}) { |
Line 100
|
Line 109
|
foreach my $field (@fields) { |
foreach my $field (@fields) { |
if ($userhash{$field} ne $instusers{$uname}{$field}) { |
if ($userhash{$field} ne $instusers{$uname}{$field}) { |
$changed = 1; |
$changed = 1; |
if ($settings->{'classlists'} eq 'yes') { |
if ($settings->{'classlists'} == 1) { |
if ($field eq 'id') { |
if ($field eq 'id') { |
$changes{'id'} = 1; |
$changes{'id'} = 1; |
} elsif ($field eq 'lastname' || $field eq 'firstname' || $field eq 'middlename' || $field eq 'gen') { |
} elsif ($field eq 'lastname' || $field eq 'firstname' || $field eq 'middlename' || $field eq 'gen') { |
$changes{'fullname'} = 1; |
$changes{'fullname'} = 1; |
} |
} |
} |
} |
} |
} |
} |
} |
# Make the change |
# Make the change |
if ($changed) { |
if ($changed) { |
Line 115
|
Line 124
|
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'}); |
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, |
Line 125
|
Line 135
|
foreach my $item (%roleshash) { |
foreach my $item (%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 = &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 145
|
Line 162
|
} 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 &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 155
|
Line 172
|
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 &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 ("-- \n".&Apache::lonlocal::locallocaltime(time).' '.&mt('Autoupdate messages end')."\n*******************\n\n"); |
|
close($fh); |
} |
} |
|
|
sub descend_tree { |
sub descend_tree { |
Line 171 sub descend_tree {
|
Line 190 sub descend_tree {
|
if ($depth < 4) { |
if ($depth < 4) { |
&descend_tree($dir.'/'.$item,$depth,$alldomusers); |
&descend_tree($dir.'/'.$item,$depth,$alldomusers); |
} else { |
} else { |
if (-e $dir.'/'.$item.'/environment.db') { |
$$alldomusers{$item} = ''; |
|
|
$$alldomusers{$item} = ''; |
|
} |
|
} |
} |
} |
} |
} |
} |
Line 219 sub affiliations_check {
|
Line 235 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 = &unescape(split(/:/,$userhash->{'inststatus'})); |