loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.1, 2005/03/04 15:09:06	version 1.2, 2005/04/07 06:56:21
Line 67	Line 67
closedir(DIR);	closedir(DIR);
my %courseids = ();	my %courseids = ();
my $cccflag = 0;	my $cccflag = 0;
unless ($ENV{'allowed.ccc'}) {	unless ($env{'allowed.ccc'}) {
$ENV{'allowed.ccc'} = 'F';	$env{'allowed.ccc'} = 'F';
$cccflag = 1;	$cccflag = 1;
}	}
my $wwwid=getpwnam('www');	my $wwwid=getpwnam('www');
Line 116	Line 116
}	}

if ($cccflag) {	if ($cccflag) {
delete($ENV{'allowed.ccc'});	delete($env{'allowed.ccc'});
}	}
print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";	print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";
close($fh);	close($fh);