demiguise/F1DataTelegramBot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: demiguise:0d1a29323c7056a545f6714cc4c5381da65a6fbc
Branches Tags
demiguise:master
..
compare: demiguise:b4a5a915ba8f74c003595865c154f52f5e582b62
Branches Tags
demiguise:master

2 Commits
0d1a29323c ... b4a5a915ba

Author SHA1 Message Date
Stefan Härter
b4a5a915ba Issue #1: Bot module now also able to use config file. 2023-07-10 17:07:46 +02:00
Stefan Härter
00fc8e1d2a Issue #1: Initiator script now using config file. 2023-07-10 17:05:56 +02:00
2 changed files with 18 additions and 4 deletions
Show Stats Expand all files Collapse all files

5
F1DataBot.pm
View File

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

17
bot_script.pl
View File

@ -5,9 +5,22 @@ use v5.32;
use strict; use strict;
use warnings; use warnings;
use lib '/home/demiguise/telegram_bot'; use FindBin;
use YAML;
my $Conf;
BEGIN { $Conf = YAML::LoadFile("$FindBin::Bin/.f1bot.cnf"); }
if ( !$Conf->%* ) {
print STDERR "No valid config was found. Exiting...\n";
exit;
}
use lib $Conf->{Lib};
use F1DataBot; use F1DataBot;
my $F1DataBotObject = F1DataBot->new(); my $F1DataBotObject = F1DataBot->new($Conf->%*);
$F1DataBotObject->fetchMessages(); $F1DataBotObject->fetchMessages();
exit;