From 578d4a664eb388658afbd8199e2d7730e692991b Mon Sep 17 00:00:00 2001
From: neumann <>
Date: Wed, 9 Aug 2017 08:30:23 +0000
Subject: [PATCH] 31_Nello: fixed device ID detection

git-svn-id: https://svn.fhem.de/fhem/trunk@14871 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED          | 1 +
 fhem/FHEM/31_Nello.pm | 7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 77d3687db..3879ef36c 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix: 31_Nello: fixed device ID detection
   - feature: 93_DbLog: V2.22.1, new attribute "suppressAddLogV3"
   - feature: 49_SSCam: V2.6.1, new commands snapGallery, createSnapGallery and
                        corresponding attributes
diff --git a/fhem/FHEM/31_Nello.pm b/fhem/FHEM/31_Nello.pm
index d79f955f9..0c96bfc51 100644
--- a/fhem/FHEM/31_Nello.pm
+++ b/fhem/FHEM/31_Nello.pm
@@ -11,6 +11,7 @@
 # required packets
 # libcrypt-pbkdf2-perl
 # Net::MQTT
+# libcpan-meta-yaml-perl
 
 package main;
 
@@ -137,14 +138,14 @@ sub Nello_Attr(@) {
 
     if($attrName eq 'deviceID' && $init_done) {
         my $bridge = 'Nello_MQTT';
-        if(!internalExists($bridge, "TYPE")) {
+        if(!defined InternalVal($bridge, "TYPE", undef)) {
             CommandDefine(undef, $bridge . ' MQTT ec2-35-157-44-19.eu-central-1.compute.amazonaws.com:1883');
             CommandAttr(undef, $bridge . ' room hidden');
             CommandSave(undef, undef);
         }
 
         my $eventdevice = 'Nello_Events';
-        if(!internalExists($eventdevice, 'TYPE')) {
+        if(!defined InternalVal($eventdevice, 'TYPE', undef)) {
             CommandDefine(undef, $eventdevice . ' MQTT_DEVICE');
             CommandAttr(undef, $eventdevice . ' room hidden');
             CommandAttr(undef, $eventdevice . ' IODEV '. $bridge);
@@ -512,6 +513,7 @@ sub Nello_detectExecute {
   <p><b>Required Packages</b></p>
   <code>
   sudo apt-get install libcrypt-pbkdf2-perl<br>
+  sudo apt-get install libcpan-meta-yaml-perl<br>
   sudo cpan -i Net::MQTT::Simple
   </code>
   <br>
@@ -587,6 +589,7 @@ sub Nello_detectExecute {
   <p><b>Benötigte Pakete</b></p>
   <code>
   sudo apt-get install libcrypt-pbkdf2-perl<br>
+  sudo apt-get install libcpan-meta-yaml-perl<br>
   sudo cpan -i Net::MQTT::Simple
   </code>
   <br>