version 1.1, 2002/05/03 23:57:19
|
version 1.4, 2002/05/16 00:00:16
|
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 access.conf"); |
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); |
Line 82 trying to support backwards compatibilit
|
Line 82 trying to support backwards compatibilit
|
|
|
=head1 DESCRIPTION |
=head1 DESCRIPTION |
|
|
Many different parts of the LON-CAPA software need to read in the machine-specific |
Many different parts of the LON-CAPA software need to read in the |
configuration information. These included scripts controlling the TCP/IP layer |
machine-specific configuration information. These included scripts |
(e.g. F<lonc> and F<lond>), testing scripts (e.g. test_weblayer.pl and sqltest.pl), |
controlling the TCP/IP layer (e.g. F<lonc> and F<lond>), testing scripts |
and utility scripts (e.g. clusterstatus.pl and metadata_keywords.pl). |
(e.g. test_weblayer.pl and sqltest.pl), and utility scripts |
|
(e.g. clusterstatus.pl and metadata_keywords.pl). |
|
|
The following methods are available: |
The following methods are available: |
|
|
Line 104 have been initialized from the configura
|
Line 105 have been initialized from the configura
|
in the arguments. |
in the arguments. |
|
|
If multiple file names define the same hash key, then priority is |
If multiple file names define the same hash key, then priority is |
given toward the last file name processed. |
given toward the B<last> file name processed. |
|
|
=back |
=back |
|
|