version 1.12, 2004/04/01 15:26:04
|
version 1.13, 2006/09/15 20:49:27
|
Line 38 $VERSION = sprintf("%d.%02d", q$Revision
|
Line 38 $VERSION = sprintf("%d.%02d", q$Revision
|
|
|
use strict; |
use strict; |
|
|
my $confdir='/etc/httpd/conf/'; |
my @confdirs=('/etc/httpd/conf/','/etc/apache2/'); |
|
|
# ------------------- Subroutine read_conf: read LON-CAPA server configuration. |
# ------------------- Subroutine read_conf: read LON-CAPA server configuration. |
# This subroutine reads PerlSetVar values out of specified web server |
# This subroutine reads PerlSetVar values out of specified web server |
# configuration files. |
# configuration files. |
sub read_conf { |
sub read_conf { |
my (@conf_files)=@_; |
my (@conf_files)=@_; |
my %perlvar; |
my (%perlvar,%configdirs); |
foreach my $filename (@conf_files,'loncapa_apache.conf') { |
foreach my $filename (@conf_files,'loncapa_apache.conf') { |
open(CONFIG,'<'.$confdir.$filename) or |
my $configdir = ''; |
die("Can't read $confdir$filename"); |
$configdirs{$filename} = [@confdirs]; |
|
while ($configdir eq '' && @{$configdirs{$filename}} > 0) { |
|
my $testdir = shift(@{$configdirs{$filename}}); |
|
if (-e $testdir.$filename) { |
|
$configdir = $testdir; |
|
} |
|
} |
|
if ($configdir eq '') { |
|
die("Couldn't find a directory containing $filename"); |
|
} |
|
open(CONFIG,'<'.$configdir.$filename) or |
|
die("Can't read $configdir$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); |