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

Compare commits

base: demiguise:288409a1c2eae469007d477d17336a57d3a9ab1c
Branches Tags
demiguise:master
..
compare: demiguise:0d1a29323c7056a545f6714cc4c5381da65a6fbc
Branches Tags
demiguise:master

No commits in common. "288409a1c2eae469007d477d17336a57d3a9ab1c" and "0d1a29323c7056a545f6714cc4c5381da65a6fbc" have entirely different histories.
288409a1c2 ... 0d1a29323c

2 changed files with 4 additions and 18 deletions
Show Stats Expand all files Collapse all files

5
F1DataBot.pm
View File

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

17
bot_script.pl
View File

@ -5,22 +5,9 @@ use v5.32;
use strict;
use warnings;
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 lib '/home/demiguise/telegram_bot';
use F1DataBot;
my $F1DataBotObject = F1DataBot->new($Conf->%*);
my $F1DataBotObject = F1DataBot->new();
$F1DataBotObject->fetchMessages();
exit;