MIGDYN/irclogger_web
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logger: Reconnect after connection lost

Browse Source
This commit is contained in:
mrkubax10 2023-09-16 21:08:42 +02:00
parent 57365db9d8
commit b0fc9ff2a5
1 changed files with 35 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
logger.pm
View File

@ -282,6 +282,7 @@ sub joinChannels {
}
our @connections :shared;
our $running :shared = 1;
sub connectionWorker {
my $aHost = $_[0];
@ -289,13 +290,14 @@ sub connectionWorker {
my $aServerName = $_[2];
my $aChannels = $_[3];
my %logFiles;
my $stream = connectToServer($aHost, $aPort, $aServerName);
my $streamSelect = IO::Select->new($stream);
my $buffer = "";
my @actionQueue :shared;
my @connection :shared = ($aServerName, \@actionQueue);
push(@connections, \@connection);
my %logFiles;
while($running) {
my $stream = connectToServer($aHost, $aPort, $aServerName);
my $streamSelect = IO::Select->new($stream);
while(!eof($stream)) {
if(scalar(@actionQueue)>0) {
given($actionQueue[0]) {
@ -331,6 +333,7 @@ sub connectionWorker {
}
}
close($stream);
}
}
sub createLogger {