aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases Activity

1/5 Fix formatting in bin/aleesa-telegram

Browse Source
This commit is contained in:
eleksir
2023-01-02 19:04:28 +03:00
parent 5411d6df7f
commit 3668620bd8
1 changed files with 13 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
bin/aleesa-telegram
View File

@@ -4,7 +4,7 @@ use 5.018; ## no critic (ProhibitImplicitImport)
use strict; use strict;
use warnings; use warnings;
use utf8; use utf8;
use open qw (:std :utf8); use open qw (:std :utf8);
use English qw ( -no_match_vars ); use English qw ( -no_match_vars );
use version; our $VERSION = qw (1.0); use version; our $VERSION = qw (1.0);
@@ -24,28 +24,27 @@ BEGIN {
chdir $workdir; chdir $workdir;
} }
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5"); use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
no Cwd; no Cwd;
use Cwd::utf8 qw (chdir abs_path); use Cwd::utf8 qw (chdir abs_path);
use File::Basename qw (basename dirname); use File::Basename qw (basename dirname);
use File::Path qw (make_path); use File::Path qw (make_path);
use File::Spec qw (); use File::Spec qw ();
use Log::Any qw ($log); use Log::Any qw ($log);
use Log::Any::Adapter (); use Log::Any::Adapter ();
use Log::Any::For::Std (); use Log::Any::For::Std ();
use POSIX qw (setgid setuid setsid); use POSIX qw (setgid setuid setsid);
use BotLib::Conf qw (LoadConf); use BotLib::Conf qw (LoadConf);
use TelegramBot qw (RunTelegramBot); use TelegramBot qw (RunTelegramBot);
sub daemonize; sub daemonize;
sub __fork; sub __fork;
sub __signal_handler; sub __signal_handler;
local $OUTPUT_AUTOFLUSH = 1; local $OUTPUT_AUTOFLUSH = 1;
my $runAsUid = $UID;
my $piddir = '/var/run/' . basename (abs_path ($PROGRAM_NAME)); my $piddir = '/var/run/' . basename (abs_path ($PROGRAM_NAME));
my $C = LoadConf (); my $C = LoadConf ();
my $loglevel = 'notice'; my $loglevel = 'notice';
if (defined $C->{'loglevel'}) { if (defined $C->{'loglevel'}) {