loncom/configuration/Configuration.pm - diff

Return to Configuration.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.4, 2002/05/16 00:00:16	version 1.5, 2002/05/16 17:24:06
Line 43 my $confdir='/etc/httpd/conf/';	Line 43 my $confdir='/etc/httpd/conf/';
sub read_conf {	sub read_conf {
my (@conf_files)=@_;	my (@conf_files)=@_;
my %perlvar;	my %perlvar;
foreach my $filename (@conf_files) {	foreach my $filename (@conf_files,'loncapa_apache.conf') {
open(CONFIG,'<'.$confdir.$filename) or die("Can't read $confdir$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/) {