version 1.1, 2007/02/16 01:37:54
|
version 1.6, 2007/05/29 20:43:17
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# |
# |
# Automated Userinfo update script |
# Automated Userinfo update script |
|
# $Id$ |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
Line 27
|
Line 28
|
use strict; |
use strict; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use localenroll; |
use localenroll; |
use LONCAPA::Configuration; |
|
use LONCAPA::Enrollment; |
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonlocal; |
|
use LONCAPA::Configuration; |
|
use LONCAPA; |
|
|
my @info = ('inststatus','lockedname','lastname','firstname','id'); |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
|
my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autoupdate.log'; |
|
my $hostid = $perlvarref->{'lonHostID'}; |
|
my @info = ('inststatus','lockedname','internalname','lastname', |
|
'firstname','id'); |
|
# 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) { |
|
my $primaryhost_id = &Apache::lonnet::domain($dom,'primary'); |
|
if ($primaryhost_id ne $hostid) { |
|
next; |
|
} |
my %domconfig = &Apache::lonnet::get_dom('configuration',['autoupdate'], |
my %domconfig = &Apache::lonnet::get_dom('configuration',['autoupdate'], |
$dom); |
$dom); |
#only run if configured to |
#only run if configured to |
Line 43
|
Line 55
|
my $settings; |
my $settings; |
if (ref($domconfig{'autoupdate'}) eq 'HASH') { |
if (ref($domconfig{'autoupdate'}) eq 'HASH') { |
$settings = $domconfig{'autoupdate'}; |
$settings = $domconfig{'autoupdate'}; |
if ($settings->{'run'} eq 'yes') { |
if ($settings->{'run'} eq '1') { |
$run_update = 1; |
$run_update = 1; |
} |
} |
} |
} |
next if (!$run_update); |
next if (!$run_update); |
my %users; |
open (my $fh,">>$logfile"); |
|
print $fh "********************\n".localtime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n"; |
|
# get user information |
|
my (%instusers,%instids); |
|
next if (&localenroll::allusers_info($dom,\%instusers,\%instids) ne 'ok'); |
|
my (%users,%unamechg,%possnames); |
my @types = ('active','future'); |
my @types = ('active','future'); |
my @roles = ('st'); |
my @roles = ('st'); |
my @cdoms = ($dom); |
my @cdoms = ($dom); |
Line 56
|
Line 73
|
&descend_tree($dir,0,\%users); |
&descend_tree($dir,0,\%users); |
foreach my $uname (keys(%users)) { |
foreach my $uname (keys(%users)) { |
my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info); |
my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info); |
|
my (@inststatuses); |
|
if (!$userhash{'internalname'}) { |
|
if (defined($instusers{$uname})) { |
|
(my $insttypechg,@inststatuses) = |
|
&affiliations_check(\%userhash,$instusers{$uname}); |
|
if ($insttypechg) { |
|
my $inststatusstr = join(':',&escape(@inststatuses)); |
|
my %statushash = ( inststatus => $inststatusstr ); |
|
my $statusres = &Apache::lonnet::put('environment',\%statushash,$dom,$uname); |
|
} |
|
} |
|
} |
if (!$userhash{'lockedname'} && !$userhash{'internalname'}) { |
if (!$userhash{'lockedname'} && !$userhash{'internalname'}) { |
my %userinfo = &localenroll::get_userinfo($dom,$uname,%userhash); |
if (defined($instusers{$uname})) { |
if (keys(%userinfo) > 0) { |
my (@fields,%changes,$changed); |
my @fields = @{$settings->{'default'}}; |
if (@inststatuses > 0) { |
if ($userhash{'inststatus'} ne '') { |
foreach my $type (@inststatuses) { |
if (ref($settings->{$userhash{'inststatus'}}) eq 'ARRAY') { |
if (ref($settings->{fields}{$type}) eq 'ARRAY') { |
@fields = @{$settings->{$userhash{'inststatus'}}}; |
foreach my $field (@{$settings->{fields}{$type}}) { |
|
if (!grep(/^\Q$field\E$/,@fields)) { |
|
push(@fields,$field); |
|
} |
|
} |
|
} |
|
} |
|
} else { |
|
if (ref($settings->{fields}{'default'}) eq 'ARRAY') { |
|
@fields = @{$settings->{fields}{'default'}}; |
} |
} |
} |
} |
my %changes; |
|
my $changed; |
|
foreach my $field (@fields) { |
foreach my $field (@fields) { |
if ($userhash{$field} ne $userinfo{$field}) { |
if ($userhash{$field} ne $instusers{$uname}{$field}) { |
$changed = 1; |
$changed = 1; |
if ($settings->{'classlists'} eq 'yes') { |
if ($settings->{'classlists'} eq 'yes') { |
if ($field eq 'id') { |
if ($field eq 'id') { |
Line 83
|
Line 119
|
if ($changed) { |
if ($changed) { |
my %userupdate; |
my %userupdate; |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
$userupdate{$field} = $userinfo{$field}; |
$userupdate{$field} = $instusers{$uname}{$field}; |
} |
} |
my $putresult = &Apache::lonnet::put |
my $modresult = &Apache::lonnet::modifyuser($dom,$uname,$userupdate{'id'},undef,undef,$userupdate{'firstname'},$userupdate{'middlename'},$userupdate{'lastname'},$userupdate{'generation'},1); |
('environment',\%userupdate,$dom,$uname); |
if ($modresult eq 'ok') { |
if ($putresult eq 'ok') { |
|
if ($settings->{'classlists'} eq 'yes') { |
if ($settings->{'classlists'} eq 'yes') { |
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,\@types,\@roles,\@cdoms); |
$dom,'userroles',\@types,\@roles,\@cdoms); |
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}); |
Line 104
|
Line 139
|
} |
} |
} |
} |
} |
} |
|
} else { |
|
# check if the username has changed |
|
if (defined($instids{$userhash{'id'}})) { |
|
if (ref($instids{$userhash{'id'}}) eq 'ARRAY') { |
|
foreach my $name (@{$instids{$userhash{'id'}}}) { |
|
if (!exists($users{$name})) { |
|
push(@{$possnames{$uname}},$name); |
|
} |
|
} |
|
} else { |
|
if (!exists($users{$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"; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |
} |
|
if (keys(%possnames) > 0) { |
|
foreach my $uname (keys(%possnames)) { |
|
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 "-- ".localtime(time).' '.&mt('Autoupdate messages end')."\n*******************\n\n"; |
|
close($fh); |
} |
} |
|
|
|
|
sub descend_tree { |
sub descend_tree { |
my ($dir,$depth,$alldomusers) = @_; |
my ($dir,$depth,$alldomusers) = @_; |
if (-d $dir) { |
if (-d $dir) { |
Line 165 sub update_classlist {
|
Line 223 sub update_classlist {
|
} |
} |
} |
} |
|
|
|
sub affiliations_check { |
|
my ($userhash,$insthashref) = @_; |
|
my (@inststatuses,$insttypechg);; |
|
if (ref($insthashref) eq 'HASH') { |
|
if (ref($insthashref->{type}) eq 'ARRAY') { |
|
@inststatuses = @{$insthashref->{type}}; |
|
} |
|
} |
|
my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'})); |
|
foreach my $status (@inststatuses) { |
|
if (!grep/^\Q$status\E/,@currstatuses) { |
|
$insttypechg = 1; |
|
} |
|
} |
|
if (!$insttypechg) { |
|
foreach my $status (@currstatuses) { |
|
if (!grep/^\Q$status\E/,@inststatuses) { |
|
$insttypechg = 1; |
|
} |
|
} |
|
} |
|
return ($insttypechg,@inststatuses); |
|
} |
|
|