Logger: Reconnect after connection lost

This commit is contained in:
mrkubax10 2023-09-16 21:08:42 +02:00
parent 57365db9d8
commit b0fc9ff2a5

View File

@ -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];