version 1.3, 1999/11/18 19:52:46
|
version 1.4, 1999/12/22 17:18:04
|
Line 11
|
Line 11
|
# USR1 tries to open connections again |
# USR1 tries to open connections again |
|
|
# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19, |
# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19, |
# 10/8,10/9,10/15,11/18 Gerd Kortemeyer |
# 10/8,10/9,10/15,11/18,12/22 Gerd Kortemeyer |
# based on nonforker from Perl Cookbook |
# based on nonforker from Perl Cookbook |
# - server who multiplexes without forking |
# - server who multiplexes without forking |
|
|
Line 31 open (CONFIG,"/etc/httpd/conf/access.con
|
Line 31 open (CONFIG,"/etc/httpd/conf/access.con
|
while ($configline=<CONFIG>) { |
while ($configline=<CONFIG>) { |
if ($configline =~ /PerlSetVar/) { |
if ($configline =~ /PerlSetVar/) { |
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline); |
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline); |
|
chomp($varvalue); |
$perlvar{$varname}=$varvalue; |
$perlvar{$varname}=$varvalue; |
} |
} |
} |
} |
Line 255 if ($cipher=new IDEA $cipherkey) {
|
Line 256 if ($cipher=new IDEA $cipherkey) {
|
|
|
# ----------------------------------------- We're online, send delayed messages |
# ----------------------------------------- We're online, send delayed messages |
|
|
|
my @allbuffered; |
my $path="$perlvar{'lonSockDir'}/delayed"; |
my $path="$perlvar{'lonSockDir'}/delayed"; |
|
opendir(DIRHANDLE,$path); |
|
@allbuffered=grep /\.$conserver$/, readdir DIRHANDLE; |
|
closedir(DIRHANDLE); |
my $dfname; |
my $dfname; |
while ($dfname=<$path/*.$conserver>) { |
map { |
|
$dfname="$path/$_"; |
|
&logthis($dfname); |
my $wcmd; |
my $wcmd; |
{ |
{ |
my $dfh=IO::File->new($dfname); |
my $dfh=IO::File->new($dfname); |
$wcmd=<$dfh>; |
$cmd=<$dfh>; |
} |
} |
my ($server,$cmd)=split(/:/,$wcmd); |
|
chomp($cmd); |
chomp($cmd); |
my $bcmd=$cmd; |
my $bcmd=$cmd; |
if ($cmd =~ /^encrypt\:/) { |
if ($cmd =~ /^encrypt\:/) { |
Line 285 if ($cipher=new IDEA $cipherkey) {
|
Line 291 if ($cipher=new IDEA $cipherkey) {
|
chomp($answer); |
chomp($answer); |
if ($answer ne '') { |
if ($answer ne '') { |
unlink("$dfname"); |
unlink("$dfname"); |
&logthis("Delayed $cmd to $conserver ($server): >$answer<"); |
&logthis("Delayed $cmd to $conserver: >$answer<"); |
&logperm("S:$conserver:$bcmd"); |
&logperm("S:$conserver:$bcmd"); |
} |
} |
} |
} @allbuffered; |
|
|
# ------------------------------------------------------- Listen to UNIX socket |
# ------------------------------------------------------- Listen to UNIX socket |
unless ( |
unless ( |