version 1.10, 2003/06/24 02:46:04
|
version 1.11, 2003/06/25 01:54:44
|
Line 46
|
Line 46
|
|
|
# Change log: |
# Change log: |
# $Log$ |
# $Log$ |
|
# Revision 1.11 2003/06/25 01:54:44 foxr |
|
# Fix more problems with transaction failure. |
|
# |
# Revision 1.10 2003/06/24 02:46:04 foxr |
# Revision 1.10 2003/06/24 02:46:04 foxr |
# Put a limit on the number of times we'll retry a connection. |
# Put a limit on the number of times we'll retry a connection. |
# Start getting the signal stuff put in as well...note that need to get signals |
# Start getting the signal stuff put in as well...note that need to get signals |
Line 284 Invoked each timer tick.
|
Line 287 Invoked each timer tick.
|
sub Tick { |
sub Tick { |
my $client; |
my $client; |
ShowStatus(GetServerHost()." Connection count: ".$ConnectionCount); |
ShowStatus(GetServerHost()." Connection count: ".$ConnectionCount); |
Debug(6, "Tick"); |
Debug(10,"Tick"); |
Debug(6, " Current connection count: ".$ConnectionCount); |
Debug(10," Current connection count: ".$ConnectionCount); |
foreach $client (keys %ActiveClients) { |
foreach $client (keys %ActiveClients) { |
Debug(7, " Have client: with id: ".$ActiveClients{$client}); |
Debug(10," Have client: with id: ".$ActiveClients{$client}); |
} |
} |
# Is it time to prune connection count: |
# Is it time to prune connection count: |
|
|
Line 558 sub FailTransaction {
|
Line 561 sub FailTransaction {
|
my $transaction = shift; |
my $transaction = shift; |
Debug(1, "Failing transaction: ".$transaction->getRequest()); |
Debug(1, "Failing transaction: ".$transaction->getRequest()); |
if (!$transaction->isDeferred()) { # If the transaction is deferred we'll get to it. |
if (!$transaction->isDeferred()) { # If the transaction is deferred we'll get to it. |
my $client = $transcation->getClient(); |
my $client = $transaction->getClient(); |
Debug(1," Replying con_lost to ".$transaction->getRequest()); |
Debug(1," Replying con_lost to ".$transaction->getRequest()); |
StartClientReply($client, "con_lost\n"); |
StartClientReply($transaction, "con_lost\n"); |
} |
} |
|
|
} |
} |