loncom/configuration/Configuration.pm - diff

Return to Configuration.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.2, 2002/05/04 00:03:29	version 1.3, 2002/05/04 02:58:37
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 $filename");	open(CONFIG,'<'.$confdir.$filename) or die("Can't read $confdir$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);