loncom/enrollment/Autoupdate.pl - diff

Return to Autoupdate.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.4, 2007/04/03 17:51:52	version 1.5, 2007/05/11 17:25:28
Line 31	Line 31
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
	use LONCAPA::Configuration;
use LONCAPA;	use LONCAPA;

	my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');
	my $hostid = $perlvarref->{'lonHostID'};
my @info = ('inststatus','lockedname','lastname','firstname','id');	my @info = ('inststatus','lockedname','lastname','firstname','id');
# 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