Logger: Reconnect after connection lost
This commit is contained in:
parent
57365db9d8
commit
b0fc9ff2a5
@ -282,6 +282,7 @@ sub joinChannels {
|
|||||||
}
|
}
|
||||||
|
|
||||||
our @connections :shared;
|
our @connections :shared;
|
||||||
|
our $running :shared = 1;
|
||||||
|
|
||||||
sub connectionWorker {
|
sub connectionWorker {
|
||||||
my $aHost = $_[0];
|
my $aHost = $_[0];
|
||||||
@ -289,13 +290,14 @@ sub connectionWorker {
|
|||||||
my $aServerName = $_[2];
|
my $aServerName = $_[2];
|
||||||
my $aChannels = $_[3];
|
my $aChannels = $_[3];
|
||||||
|
|
||||||
my %logFiles;
|
|
||||||
my $stream = connectToServer($aHost, $aPort, $aServerName);
|
|
||||||
my $streamSelect = IO::Select->new($stream);
|
|
||||||
my $buffer = "";
|
my $buffer = "";
|
||||||
my @actionQueue :shared;
|
my @actionQueue :shared;
|
||||||
my @connection :shared = ($aServerName, \@actionQueue);
|
my @connection :shared = ($aServerName, \@actionQueue);
|
||||||
push(@connections, \@connection);
|
push(@connections, \@connection);
|
||||||
|
my %logFiles;
|
||||||
|
while($running) {
|
||||||
|
my $stream = connectToServer($aHost, $aPort, $aServerName);
|
||||||
|
my $streamSelect = IO::Select->new($stream);
|
||||||
while(!eof($stream)) {
|
while(!eof($stream)) {
|
||||||
if(scalar(@actionQueue)>0) {
|
if(scalar(@actionQueue)>0) {
|
||||||
given($actionQueue[0]) {
|
given($actionQueue[0]) {
|
||||||
@ -332,6 +334,7 @@ sub connectionWorker {
|
|||||||
}
|
}
|
||||||
close($stream);
|
close($stream);
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
sub createLogger {
|
sub createLogger {
|
||||||
my $aName = $_[0];
|
my $aName = $_[0];
|
||||||
|
Loading…
x
Reference in New Issue
Block a user