Merge pull request 'issue-1-config_file' (#3) from issue-1-config_file into master

This commit is contained in:
Stefan Härter 2023-07-10 17:07:46 +02:00 committed by Gitea
parent 00fc8e1d2a
commit 288409a1c2

View File

@ -9,6 +9,7 @@ no warnings qw(experimental);
# core packages
use Encode;
use FindBin;
# CPAN packages
use JSON;
@ -19,7 +20,7 @@ use YAML;
package F1DataBot;
# Constants and initalisations
Log::Log4perl->init('log.conf');
Log::Log4perl->init("$FindBin::Bin/log.conf");
sub new {
my ( $Type, %Param ) = @_;
@ -38,7 +39,7 @@ sub new {
};
# load remembered update ids
$Self->{MessageIDs} = YAML::LoadFile('message_ids.yml');
$Self->{MessageIDs} = YAML::LoadFile("$FindBin::Bin/message_ids.yml");
return $Self;
}