loncom/enrollment/Autoupdate.pl - diff

Return to Autoupdate.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.18, 2010/03/25 04:36:02	version 1.19, 2010/03/26 13:19:04
Line 36	Line 36
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 $logfile = $perlvarref->{'lonDaemons'}.'/logs/autoupdate.log';
	exit if ($perlvarref->{'lonRole'} ne 'library');
my $hostid = $perlvarref->{'lonHostID'};	my $hostid = $perlvarref->{'lonHostID'};
if (!&Apache::lonnet::is_library($hostid)) {
exit;
}
my @info = ('inststatus','lockedname','internalname','lastname',	my @info = ('inststatus','lockedname','internalname','lastname',
'firstname','middlename','generation','id','permanentemail');	'firstname','middlename','generation','id','permanentemail');
# Initialize language handler	# Initialize language handler
Line 194 sub descend_tree {	Line 194 sub descend_tree {
foreach my $item (@contents) {	foreach my $item (@contents) {
if ($depth < 4) {	if ($depth < 4) {
&descend_tree($dir.'/'.$item,$depth,$alldomusers);	&descend_tree($dir.'/'.$item,$depth,$alldomusers);
} else {	} elsif (-e $dir.'/'.$item.'/passwd') {
$$alldomusers{$item} = '';	$$alldomusers{$item} = '';
}	}
}	}