Template
Added script for initiating bot.
This commit is contained in:
1 parent
d5d58c150f
commit
d6c78daf21
1 file changed
+26
@@ -0,0 +1,26 @@
|
|||||||
|
#/usr/bin/perl
|
||||||
|
|
||||||
|
use v5.32;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use FindBin;
|
||||||
|
use YAML;
|
||||||
|
|
||||||
|
my $Conf;
|
||||||
|
BEGIN { $Conf = YAML::LoadFile("$FindBin::Bin/.bot.cnf"); }
|
||||||
|
|
||||||
|
if ( !$Conf->%* ) {
|
||||||
|
print STDERR "No valid config was found. Exiting...\n";
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
use lib $Conf->{Lib};
|
||||||
|
|
||||||
|
use TelegramBot;
|
||||||
|
|
||||||
|
my $BotObject = TelegramBot->new($Conf->%*);
|
||||||
|
$BotObject->fetchMessages();
|
||||||
|
|
||||||
|
exit;
|
||||||
Reference in new issue
Block a user