diff options
| -rw-r--r-- | cpanfile | 1 | ||||
| -rwxr-xr-x | script/imap-notify.pl | 11 |
2 files changed, 10 insertions, 2 deletions
@@ -5,6 +5,7 @@ requires 'Function::Parameters'; requires 'IO::Socket::SSL'; requires 'Log::Any'; requires 'Log::Any::Adapter'; +requires 'Log::Log4perl'; requires 'MCE::Hobo'; requires 'Path::Tiny'; requires 'Syntax::Keyword::Try'; 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; |