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

Fixes for cli

Browse Source 
Use correct path for working dir
Fix path for Conf.om
Use pubsub object instead of redis connection
This commit is contained in:
eleksir
2021-12-11 15:55:14 +03:00
parent f33e05a91c
commit 7cac72d5b9
2 changed files with 4 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/redis_msg_gen.pl
View File

@@ -15,11 +15,7 @@ my $workdir;
BEGIN {
use Cwd qw (chdir abs_path);
my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
if ($#CWD > 1) {
$#CWD = $#CWD - 1;
}
if ($#CWD > 1) { $#CWD = $#CWD - 2; }
$workdir = join '/', @CWD;
chdir $workdir;
}
@@ -27,10 +23,6 @@ BEGIN {
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use Cli qw (RunCli);
# set correct proctitle
$PROGRAM_NAME = abs_path $PROGRAM_NAME; ## no critic (Variables::RequireLocalizedPunctuationVars)
# run cli, at last
RunCli ();
exit 0;