From ae2545a2e081dbc4daaa615f948a942b93df4368 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Tue, 17 Jul 2018 16:20:05 +0200
Subject: Add very simple --debug switch to get debug logging

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 script/imap-notify.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/script/imap-notify.pl b/script/imap-notify.pl
index f2f7c2c..cea3af1 100755
--- a/script/imap-notify.pl
+++ b/script/imap-notify.pl
@@ -16,7 +16,7 @@ use strict;
 use App::ImapNotify;
 use Function::Parameters;
 use MCE::Hobo;
-use Log::Any::Adapter ('Stderr', log_level => "warn");
+use Log::Any::Adapter ('Stderr', log_level => "info");
 
 my $config = [
 	{
@@ -37,6 +37,10 @@ my $config = [
 	#},
 ];
 
+if ($ARGV[0] // "" eq "--debug") {
+	Log::Any::Adapter->set("Stderr", log_level => "trace");
+}
+
 #$IO::Socket::SSL::DEBUG = 4;
 
 my @workers;
-- 
cgit v1.2.3-24-g4f1b