summaryrefslogtreecommitdiffstats
path: root/script
diff options
context:
space:
mode:
Diffstat (limited to 'script')
-rwxr-xr-xscript/imap-notify.pl11
1 files changed, 9 insertions, 2 deletions
diff --git a/script/imap-notify.pl b/script/imap-notify.pl
index 234c5e8..5fefaf6 100755
--- a/script/imap-notify.pl
+++ b/script/imap-notify.pl
@@ -7,7 +7,8 @@ use strict;
use App::ImapNotify;
use Function::Parameters;
-use Log::Any::Adapter ('Stderr', log_level => "info");
+use Log::Any::Adapter;
+use Log::Log4perl qw(:easy);
use MCE::Hobo;
use Path::Tiny;
use TOML qw(from_toml);
@@ -89,9 +90,15 @@ L<App::ImapNotify>
my $config = from_toml(path(($ENV{XDG_CONFIG_HOME} // $ENV{HOME}."/.config")."/imap-notify/config.toml")->slurp);
+Log::Log4perl->easy_init($ERROR);
if ($ARGV[0] // "" eq "--debug") {
- Log::Any::Adapter->set("Stderr", log_level => "trace");
+ Log::Log4perl->easy_init($TRACE);
+ #Log::Any::Adapter->set("Stderr", log_level => "trace");
+} else {
+ Log::Log4perl->easy_init($INFO);
}
+Log::Any::Adapter->set('Log4perl');
+
#$IO::Socket::SSL::DEBUG = 4;