FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

Forum : https://forum.fhem.de/index.php/topic,29541.msg472029.html#msg472029

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11799 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wzut 2016-07-16 16:52:34 +00:00
parent 67939b980f
commit 55a874a0b5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/98_EDIPLUG.pm
View File

@ -35,15 +35,16 @@
package main; package main;
use strict; use strict;
use warnings; use warnings;
use Time::HiRes qw(gettimeofday); use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
use XML::Simple;
use SetExtensions; use SetExtensions;
package EDIPLUG;
use XML::Simple;
sub EDIPLUG_Initialize($); sub EDIPLUG_Initialize($);
sub EDIPLUG_Define($$); sub EDIPLUG_Define($$);
sub EDIPLUG_Undef($$); sub EDIPLUG_Undef($$);
@ -220,7 +221,8 @@ sub EDIPLUG_Read($$$)
# EDIPLUGs geben ein nicht gueltigen Zeichensatz zurueck ( UTF8 instead utf-8 ) # EDIPLUGs geben ein nicht gueltigen Zeichensatz zurueck ( UTF8 instead utf-8 )
$buffer =~s/UTF8/utf-8/g; $buffer =~s/UTF8/utf-8/g;
my $xmlres = XMLin($buffer); my $xml = XML::Simple->new(ForceArray => ['entry', 'link'], KeyAttr => []);
my $xmlres = $xml->EDIPLUG::XMLin($buffer);
# Device.System.Power.State (Status der Steckdose) # Device.System.Power.State (Status der Steckdose)
if (exists $xmlres->{CMD}->{'Device.System.Power.State'}) if (exists $xmlres->{CMD}->{'Device.System.Power.State'})