From 26c19f08585920b20276b5f8550231e20dd9f971 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Tue, 16 Dec 2014 15:18:34 +0000
Subject: [PATCH] 30_HUEBridge.pm: fritzbox handling

git-svn-id: https://svn.fhem.de/fhem/trunk@7226 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/30_HUEBridge.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/fhem/FHEM/30_HUEBridge.pm b/fhem/FHEM/30_HUEBridge.pm
index e2aac19db..ef3e3192c 100644
--- a/fhem/FHEM/30_HUEBridge.pm
+++ b/fhem/FHEM/30_HUEBridge.pm
@@ -14,6 +14,16 @@ use JSON;
 #use Try::Tiny;
 use Data::Dumper;
 
+my $HUEBridge_isFritzBox = undef;
+sub
+HUEBridge_isFritzBox()
+{
+  $HUEBridge_isFritzBox = int( qx( [ -f /usr/bin/ctlmgr_ctl ] && echo 1 || echo 0 ) )  if( !defined( $HUEBridge_isFritzBox) );
+
+  return $HUEBridge_isFritzBox;
+}
+
+
 sub HUEBridge_Initialize($)
 {
   my ($hash) = @_;
@@ -425,6 +435,8 @@ sub HUEBridge_HTTP_Call($$$)
 #    return undef;
 #  }
 
+  return HUEBridge_ProcessResponse($hash,decode_json($ret)) if( HUEBridge_isFritzBox() );
+
   return HUEBridge_ProcessResponse($hash,from_json($ret));
 }