diff options
| author | Florian Pritz <bluewind@xinu.at> | 2018-08-06 14:07:17 +0200 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2018-08-06 14:07:17 +0200 |
| commit | f7513a81e379e3ef4c6946c7e5536fef1616c21b (patch) | |
| tree | 90e214592bde5a53884f66ae62a1556e279577c5 /script | |
| parent | 12322867dfc395b55e523dae5b87d20c657864c5 (diff) | |
| download | App-ImapNotify-f7513a81e379e3ef4c6946c7e5536fef1616c21b.tar.gz App-ImapNotify-f7513a81e379e3ef4c6946c7e5536fef1616c21b.tar.xz | |
Use Log4perl for timestamps in output
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'script')
| -rwxr-xr-x | script/imap-notify.pl | 11 |
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; |