version 1.41, 2001/12/20 17:43:05
|
version 1.43, 2002/05/17 14:03:04
|
Line 36
|
Line 36
|
# 03/22/2001 Scott Harrison |
# 03/22/2001 Scott Harrison |
# 8/30 Gerd Kortemeyer |
# 8/30 Gerd Kortemeyer |
# 10/17,11/28,11/29,12/20 Scott Harrison |
# 10/17,11/28,11/29,12/20 Scott Harrison |
|
# YEAR=2001 |
|
# 5/11 Scott Harrison |
# |
# |
### |
### |
|
|
Line 44
|
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 52
|
Line 54
|
## ## |
## ## |
############################################################################### |
############################################################################### |
|
|
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA::Configuration; |
|
|
use IO::Socket; |
use IO::Socket; |
use Symbol; |
use Symbol; |
use POSIX; |
use POSIX; |
Line 75 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 httpd access.conf and get variables |
# -------------------------------- Read loncapa_apache.conf and loncapa.conf |
open (CONFIG,"/etc/httpd/conf/access.conf") || die "Can't read access.conf"; |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf', |
|
'loncapa.conf'); |
while ($configline=<CONFIG>) { |
my %perlvar=%{$perlvarref}; |
if ($configline =~ /PerlSetVar/) { |
|
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline); |
|
chomp($varvalue); |
|
$perlvar{$varname}=$varvalue; |
|
} |
|
} |
|
close(CONFIG); |
|
|
|
# ------------------------------------- Make sure that database can be accessed |
# ------------------------------------- Make sure that database can be accessed |
{ |
{ |