|
version 1.93, 2002/08/26 14:30:53
|
version 1.95, 2002/09/09 14:04:02
|
|
Line 107 $SIG{'QUIT'}=\&catchexception;
|
Line 107 $SIG{'QUIT'}=\&catchexception;
|
| $SIG{__DIE__}=\&catchexception; |
$SIG{__DIE__}=\&catchexception; |
| |
|
| # ---------------------------------- Read loncapa_apache.conf and loncapa.conf |
# ---------------------------------- Read loncapa_apache.conf and loncapa.conf |
| &status("Read loncapa_apache.conf and loncapa.conf"); |
&status("Read loncapa.conf and loncapa_apache.conf"); |
| my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf', |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); |
| 'loncapa.conf'); |
|
| my %perlvar=%{$perlvarref}; |
my %perlvar=%{$perlvarref}; |
| undef $perlvarref; |
undef $perlvarref; |
| |
|
|
Line 501 sub make_new_child {
|
Line 500 sub make_new_child {
|
| # ============================================================================= |
# ============================================================================= |
| # do something with the connection |
# do something with the connection |
| # ----------------------------------------------------------------------------- |
# ----------------------------------------------------------------------------- |
| |
$client->sockopt(SO_KEEPALIVE, 1);# Enable monitoring of |
| |
# connection liveness. |
| # see if we know client and check for spoof IP by challenge |
# see if we know client and check for spoof IP by challenge |
| my $caller=getpeername($client); |
my $caller=getpeername($client); |
| my ($port,$iaddr)=unpack_sockaddr_in($caller); |
my ($port,$iaddr)=unpack_sockaddr_in($caller); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom