loncom/configuration/Configuration.pm - diff

Return to Configuration.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.1, 2002/05/03 23:57:19	version 1.2, 2002/05/04 00:03:29
Line 44 sub read_conf {	Line 44 sub read_conf {
my (@conf_files)=@_;	my (@conf_files)=@_;
my %perlvar;	my %perlvar;
foreach my $filename (@conf_files) {	foreach my $filename (@conf_files) {
open(CONFIG,'<'.$confdir.$filename) or die("Can't read access.conf");	open(CONFIG,'<'.$confdir.$filename) or die("Can't read $filename");
while (my $configline=<CONFIG>) {	while (my $configline=<CONFIG>) {
if ($configline =~ /^[^\#]*PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {
my ($unused,$varname,$varvalue)=split(/\s+/,$configline);	my ($unused,$varname,$varvalue)=split(/\s+/,$configline);