From db4a6ddd3ffecb9bf45c3dd9485120dc2bf609b3 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 30 Dec 2015 15:32:59 +0000
Subject: [PATCH] fhem.pl: add Authorization logging (Forum #46380)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10310 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 9e5aa836f..d07a0f358 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4545,9 +4545,15 @@ Authorized($$$)
 
   return 1 if(!$init_done || !$cl || !$cl->{SNAME}); # Safeguarding
   RefreshAuthList() if($auth_refresh);
+  my $sname = $cl->{SNAME};
+  my $verbose = AttrVal($sname, "verbose", 1); # Speedup?
 
   foreach my $a (@authorize) {
     my $r = CallFn($a, "AuthorizeFn", $defs{$a}, $cl, $type, $arg);
+    if($verbose >= 4) {
+      Log3 $sname, 4, "authorize $sname/$type/$arg: $a returned ".
+          ($r == 0 ? "dont care" : $r == 1 ? "allowed" : "prohibited");
+    }
     return 1 if($r == 1);
     return 0 if($r == 2);
   }