version 1.40, 2006/03/03 20:06:22
|
version 1.42, 2006/08/25 21:20:11
|
Line 297 sub new {
|
Line 297 sub new {
|
return undef; |
return undef; |
} |
} |
|
|
} |
} else { |
else { |
|
# Remote peer: I'd like to do ssl, but if my host key or certificates |
# Remote peer: I'd like to do ssl, but if my host key or certificates |
# are not all installed, my only choice is insecure, if that's |
# are not all installed, my only choice is insecure, if that's |
# allowed: |
# allowed: |
Line 333 sub new {
|
Line 332 sub new {
|
# |
# |
# Set socket to nonblocking I/O. |
# Set socket to nonblocking I/O. |
# |
# |
my $socket = $self->{Socket}; |
|
my $flags = fcntl($socket, F_GETFL,0); |
my $flags = fcntl($socket, F_GETFL,0); |
if(!$flags) { |
if(!$flags) { |
$socket->close; |
$socket->close; |
Line 1147 this iterator returns a reference to an
|
Line 1145 this iterator returns a reference to an
|
information read from the hosts configuration file. Array elements |
information read from the hosts configuration file. Array elements |
are used as follows: |
are used as follows: |
|
|
[0] - LonCapa host name. |
[0] - LonCapa host id. |
[1] - LonCapa domain name. |
[1] - LonCapa domain name. |
[2] - Loncapa role (e.g. library or access). |
[2] - Loncapa role (e.g. library or access). |
[3] - DNS name server hostname. |
[3] - DNS name server hostname. |