version 1.42, 2002/05/11 21:26:53
|
version 1.43, 2002/05/17 14:03:04
|
Line 46
|
Line 46
|
## ORGANIZATION OF THIS PERL SCRIPT ## |
## ORGANIZATION OF THIS PERL SCRIPT ## |
## 1. Modules used ## |
## 1. Modules used ## |
## 2. Enable find subroutine ## |
## 2. Enable find subroutine ## |
## 3. Read httpd access.conf and get variables ## |
## 3. Read httpd config files and get variables ## |
## 4. Make sure that database can be accessed ## |
## 4. Make sure that database can be accessed ## |
## 5. Make sure this process is running from user=www ## |
## 5. Make sure this process is running from user=www ## |
## 6. Check if other instance is running ## |
## 6. Check if other instance is running ## |
Line 80 sub wanted {
|
Line 80 sub wanted {
|
$childmaxattempts=10; |
$childmaxattempts=10; |
$run =0;#running counter to generate the query-id |
$run =0;#running counter to generate the query-id |
|
|
# ------------------------------------------- Read access.conf and loncapa.conf |
# -------------------------------- Read loncapa_apache.conf and loncapa.conf |
my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf'); |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf', |
|
'loncapa.conf'); |
my %perlvar=%{$perlvarref}; |
my %perlvar=%{$perlvarref}; |
|
|
# ------------------------------------- Make sure that database can be accessed |
# ------------------------------------- Make sure that database can be accessed |