From 0fb35432bda11543ae3fdbd0326be4a258c198be Mon Sep 17 00:00:00 2001
From: viegener <viegener@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 13 Aug 2017 13:13:01 +0000
Subject: [PATCH] 50_TelegramBot: remove debug

git-svn-id: https://svn.fhem.de/fhem/trunk@14891 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/50_TelegramBot.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/50_TelegramBot.pm b/fhem/FHEM/50_TelegramBot.pm
index ac54e7152..5f6008651 100644
--- a/fhem/FHEM/50_TelegramBot.pm
+++ b/fhem/FHEM/50_TelegramBot.pm
@@ -123,6 +123,8 @@
 #   rename of bot also works with token encryption - #msg668108
 # 2.4.3 2017-08-13  delayed retry & rename (#msg668108) 
 
+#   remove debug
+  
 #   
 #   
 ##############################################################################
@@ -2228,8 +2230,11 @@ sub TelegramBot_Callback($$$)
     # ret defined / args defined in params 
     if ( ( $ret ne  "SUCCESS" ) && ( $doRetry ) && ( defined( $param->{args} ) ) ) {
       my $wait = $param->{args}[$TelegramBot_arg_retrycnt];
-      
       my $maxRetries =  AttrVal($name,'maxRetries',0);
+      
+      Log3 $name, 4, "TelegramBot_Callback $name: retry count so far $wait (max: $maxRetries) for msg ".
+            $param->{args}[0]." : ".$param->{args}[1];
+      
       if ( $wait <= $maxRetries ) {
         # calculate wait time 10s / 100s / 1000s ~ 17min / 10000s ~ 3h / 100000s ~ 30h
         $wait = 10**$wait;
@@ -3103,7 +3108,7 @@ sub TelegramBot_getBaseURL($)
 
   my $token = TelegramBot_readToken( $hash );
   
-  Debug "Token  ".$hash->{NAME}."  ".$token;
+#  Debug "Token  ".$hash->{NAME}."  ".$token;
   
   return "https://api.telegram.org/bot".$token."/";
 }