version 1.39, 2006/01/27 20:37:12
|
version 1.41, 2006/08/11 20:07:52
|
Line 738 sub InitiateTransaction {
|
Line 738 sub InitiateTransaction {
|
|
|
# Setup the trasaction |
# Setup the trasaction |
# currently no version of lond supports inlining the sethost |
# currently no version of lond supports inlining the sethost |
if ($self->PeerVersion() <= 10000000) { |
if ($self->PeerVersion() <= 321) { |
if ($server ne $self->{LoncapaHim}) { |
if ($server ne $self->{LoncapaHim}) { |
$self->{NextRequest} = $data; |
$self->{NextRequest} = $data; |
$self->{TransactionRequest} = "$sethost:$server\n"; |
$self->{TransactionRequest} = "$sethost:$server\n"; |
Line 747 sub InitiateTransaction {
|
Line 747 sub InitiateTransaction {
|
$self->{TransactionRequest} = $data; |
$self->{TransactionRequest} = $data; |
} |
} |
} else { |
} else { |
|
$self->{LoncapaHim} = $server; |
$self->{TransactionRequest} = "$sethost:$server:$data"; |
$self->{TransactionRequest} = "$sethost:$server:$data"; |
} |
} |
$self->{TransactionReply} = ""; |
$self->{TransactionReply} = ""; |
Line 1146 this iterator returns a reference to an
|
Line 1147 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. |
Line 1257 sub read_hosts {
|
Line 1258 sub read_hosts {
|
# |
# |
sub PeerVersion { |
sub PeerVersion { |
my $self = shift; |
my $self = shift; |
my ($version) = ($self->{LondVersion} =~ /Revision 1\.(\d+)/); |
my ($version) = ($self->{LondVersion} =~ /Revision: 1\.(\d+)/); |
return $self->{LondVersion}; |
return $version; |
} |
} |
|
|
1; |
1; |