diff --git a/bot_script.pl b/bot_script.pl index 1c70c51..025acce 100644 --- a/bot_script.pl +++ b/bot_script.pl @@ -5,9 +5,22 @@ use v5.32; use strict; 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; -my $F1DataBotObject = F1DataBot->new(); +my $F1DataBotObject = F1DataBot->new($Conf->%*); $F1DataBotObject->fetchMessages(); + +exit;