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/) { |