version 1.24, 2001/09/06 19:28:06
|
version 1.27, 2002/05/17 16:19:24
|
Line 13
|
Line 13
|
# 12/23 Gerd Kortemeyer |
# 12/23 Gerd Kortemeyer |
# YEAR=2001 |
# YEAR=2001 |
# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison |
# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison |
# 09/04,09/06 Gerd Kortemeyer |
# 09/04,09/06,11/26 Gerd Kortemeyer |
|
# YEAR=2002 |
|
# 5/11/2002 Scott Harrison |
|
|
$|=1; |
$|=1; |
|
|
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA::Configuration; |
|
|
use IO::File; |
use IO::File; |
use IO::Socket; |
use IO::Socket; |
|
|
Line 50 ENDERROUT
|
Line 55 ENDERROUT
|
|
|
# ================================================================ Main Program |
# ================================================================ Main Program |
|
|
# ------------------------------------------------------------ Read access.conf |
# --------------------------------- Read loncapa_apache.conf and loncapa.conf |
{ |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf', |
my $config=IO::File->new("/etc/httpd/conf/access.conf"); |
'loncapa.conf'); |
|
my %perlvar=%{$perlvarref}; |
while (my $configline=<$config>) { |
undef $perlvarref; |
if ($configline =~ /PerlSetVar/) { |
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed |
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline); |
delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
$perlvar{$varname}=$varvalue; |
|
} |
|
} |
|
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed |
|
delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
|
} |
|
|
|
# --------------------------------------- Make sure that LON-CAPA is configured |
# --------------------------------------- Make sure that LON-CAPA is configured |
# I only test for one thing here (lonHostID). This is just a safeguard. |
# I only test for one thing here (lonHostID). This is just a safeguard. |
Line 422 if (-e $londfile) {
|
Line 421 if (-e $londfile) {
|
my $londpid=<$lfh>; |
my $londpid=<$lfh>; |
chomp($londpid); |
chomp($londpid); |
if (kill 0 => $londpid) { |
if (kill 0 => $londpid) { |
print $fh "<h3>lond at pid $londpid responding</h3>"; |
print $fh "<h3>lond at pid $londpid responding, sending USR1</h3>"; |
|
kill USR1 => $londpid; |
$restartflag=0; |
$restartflag=0; |
} else { |
} else { |
$errors++; |
$errors++; |