version 1.3, 2007/03/01 19:20:45
|
version 1.7, 2007/05/29 21:02:21
|
Line 30
|
Line 30
|
use localenroll; |
use localenroll; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonlocal; |
|
use LONCAPA::Configuration; |
use LONCAPA; |
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 48
|
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 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 113
|
Line 127
|
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 137
|
Line 151
|
} 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"); |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
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 ("-- ".&Apache::lonlocal::locallocaltime(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) { |