version 1.6, 2007/05/29 20:43:17
|
version 1.7, 2007/05/29 21:02:21
|
Line 60
|
Line 60
|
} |
} |
} |
} |
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".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 151
|
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"; |
print $fh (&mt('Username change to [_1] detected for [_2] in domain [_3].',$unamechg{$uname},$uname,$dom)."\n"); |
} |
} |
} |
} |
} |
} |
Line 161
|
Line 161
|
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 ("-- ".&Apache::lonlocal::locallocaltime(time).' '.&mt('Autoupdate messages end')."\n*******************\n\n"); |
close($fh); |
close($fh); |
} |
} |
|
|