Use Log4perl for timestamps in output

Signed-off-by: Florian Pritz <bluewind@xinu.at>

2 files changed, 10 insertions, 2 deletions

diff --git a/cpanfile b/cpanfile
index 05605b5..a1b17cc 100644
--- a/cpanfile
+++ b/cpanfile
@@ -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;