|
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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to Configuration.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / configuration