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

Logger: Better application log formatting

Browse Source
This commit is contained in:
mrkubax10 2023-09-17 20:21:14 +02:00
parent 73419f5a9c
commit bc37fcb2af
2 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
configuration.pm
View File

@ -11,3 +11,7 @@ our $botHostname = "hostname";
our $botName = "Full name of bot";
our $httpServerPort = 8080;
our $verboseLogging = 0;
1;

24
logger.pm
View File

@ -164,12 +164,12 @@ sub prepareLogFile {
my $outputFilePath = $outputFileFolder."/".localtime->dmy("-").".txt";
open(my $file, ">>", $outputFilePath);
if($file) {
printf(":: Logger -> Outputting channel '%s' at '%s' to '%s'\n", $aChannelName, $aServerName, $outputFilePath);
printf("[info] Outputting channel '%s' at '%s' to '%s'\n", $aChannelName, $aServerName, $outputFilePath);
$aLogFiles->{$aChannelName}{"file"} = $file;
$aLogFiles->{$aChannelName}{"names"} = [];
}
else {
print(":: Logger -> Failed to open '$outputFilePath' for writing\n");
print("[error] Failed to open '$outputFilePath' for writing\n");
return 0;
}
}
@ -182,10 +182,12 @@ sub handlePing {
my $aCommandLength = scalar(@$aCommand);
if($aCommandLength!=2) {
printf("Encountered invalid PING command (2 arguments expected, %d provided)\n", $aCommandLength);
printf("[error] Encountered invalid PING command (2 arguments expected, %d provided)\n", $aCommandLength);
return;
}
printf(":: Response -> PONG :%s\n", $aCommand->[1]);
if($configuration::verboseLogging) {
printf("[verbose] Response: PONG :%s\n", $aCommand->[1]);
}
$aStream->send(sprintf("PONG :%s\r\n", $aCommand->[1]));
}
@ -198,7 +200,7 @@ sub handlePrivMsg {
my $aCommandLength = scalar(@$aCommand);
if($aCommandLength!=4) {
printf("Encountered invalid PRIVMSG command (4 arguments expected, %d provided)\n", $aCommandLength);
printf("[error] Encountered invalid PRIVMSG command (4 arguments expected, %d provided)\n", $aCommandLength);
return;
}
if(!prepareLogFile($aLogFiles, $aServerName, $aCommand->[1])) {
@ -215,7 +217,7 @@ sub handleJoin {
my $aCommandLength = scalar(@$aCommand);
if($aCommandLength!=3) {
printf("Encountered invalid JOIN command (3 arguments expected, %d provided)\n", $aCommandLength);
printf("[error] Encountered invalid JOIN command (3 arguments expected, %d provided)\n", $aCommandLength);
return;
}
if(!prepareLogFile($aLogFiles, $aServerName, $aCommand->[1])) {
@ -232,7 +234,7 @@ sub handleQuit {
my $aCommandLength = scalar(@$aCommand);
if($aCommandLength!=3 && $aCommandLength!=2) {
print("Encountered invalid QUIT command (3 or 2 arguments expected, $aCommandLength provided)\n");
print("[error] Encountered invalid QUIT command (3 or 2 arguments expected, $aCommandLength provided)\n");
return;
}
my $reason = "";
@ -263,7 +265,7 @@ sub handlePart {
my $aCommandLength = scalar(@$aCommand);
if($aCommandLength!=3) {
print("Encountered invalid PART command (3 arguments expected, $aCommandLength provided)\n");
print("[error] Encountered invalid PART command (3 arguments expected, $aCommandLength provided)\n");
return;
}
if(!prepareLogFile($aLogFiles, $aServerName, $aCommand->[1])) {
@ -296,7 +298,7 @@ sub handleNames {
my $aCommandLength = scalar(@$aCommand);
if($aCommandLength!=6) {
print("Encountered invalid NAMES command (6 arguments expected, $aCommandLength provided)\n");
print("[error] Encountered invalid NAMES command (6 arguments expected, $aCommandLength provided)\n");
return;
}
my @names = split(" ", $aCommand->[4]);
@ -344,7 +346,9 @@ sub connectionWorker {
$buffer = $remaining;
while(length($line)>0) {
my @command = parseIRCCommand($line);
printf(":: Server -> %s\n", $line);
if($configuration::verboseLogging) {
printf("[verbose] Server: %s\n", $line);
}
given($command[0]) {
when("PING") { handlePing($stream, \@command); }
when("PRIVMSG") { handlePrivMsg($stream, \@command, $aServerName, $aChannels, \%logFiles); }