From 44b1954d89dda33a41e9dcbd9d8240ca6abf2048 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 5 Jul 2017 07:19:44 +0000
Subject: [PATCH] Blocking.pm: add blockinginfo command (Forum #73490)

git-svn-id: https://svn.fhem.de/fhem/trunk@14649 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/Blocking.pm | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/Blocking.pm b/fhem/FHEM/Blocking.pm
index 10a36b395..fb8d55684 100644
--- a/fhem/FHEM/Blocking.pm
+++ b/fhem/FHEM/Blocking.pm
@@ -26,8 +26,8 @@ sub BlockingKill($);
 sub BlockingInformParent($;$$);
 sub BlockingStart(;$);
 
-use vars qw($BC_telnetDevice);
-use vars qw(%BC_hash);
+our $BC_telnetDevice;
+our %BC_hash;
 my $telnetClient;
 my $bc_pid = 0;
 
@@ -73,9 +73,30 @@ BC_searchTelnet($)
   }
 }
 
+sub
+BlockingInfo($$@)
+{
+  my @ret;
+  foreach my $h (values %BC_hash) {
+    next if($h->{terminated} || !$h->{pid});
+    my $fn  = (ref($h->{fn})  ? ref($h->{fn})  : $h->{fn});
+    my $arg = (ref($h->{arg}) ? ref($h->{arg}) : $h->{arg});
+    my $to  = ($h->{timeout}  ? $h->{timeout}  : "N/A");
+    push @ret, "Pid:$h->{pid} Fn:$fn Arg:$arg Timeout:$to";
+  }
+  push @ret, "No BlockingCall processes running currently" if(!@ret);
+  return join("\n", @ret);
+}
+
 sub
 BlockingCall($$@)
 {
+  my %hash = (
+    Fn  => "BlockingInfo",
+    Hlp => ",show info about processes started by BlockingCall"
+  );
+  $cmds{blockinginfo} = \%hash;
+
   my ($blockingFn, $arg, $finishFn, $timeout, $abortFn, $abortArg) = @_;
 
   my %h = ( pid=>'WAITING:', fn=>$blockingFn, arg=>$arg, finishFn=>$finishFn,