From c5f1da8958b5e81bfa5010610d2376e9ceb6a787 Mon Sep 17 00:00:00 2001 From: wzut <> Date: Sat, 21 Feb 2015 17:02:32 +0000 Subject: [PATCH] 98_EDIPLUG.pm:add first version git-svn-id: https://svn.fhem.de/fhem/trunk@8055 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_EDIPLUG.pm | 727 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 727 insertions(+) create mode 100644 fhem/FHEM/98_EDIPLUG.pm diff --git a/fhem/FHEM/98_EDIPLUG.pm b/fhem/FHEM/98_EDIPLUG.pm new file mode 100644 index 000000000..5223cfdfe --- /dev/null +++ b/fhem/FHEM/98_EDIPLUG.pm @@ -0,0 +1,727 @@ +################################################################ +# +# $Id: $ +# +# (c) 2014 Copyright: Wzut based on 98_EDIPLUG.pm tre (ternst) +# All rights reserved +# +# This code is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# The GNU General Public License can be found at +# http://www.gnu.org/copyleft/gpl.html. +# A copy is found in the textfile GPL.txt and important notices to the license +# from the author is found in LICENSE.txt distributed with these scripts. +# This script is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +################################################################ +# Changelog: +# +# 2014-11-28 Initialversion by tre +# 2014-12-05 edit (Wzut) +# 2014-12-08 add schedule and list (Wzut) +# 2014-12-09 add dellist (Wzut) +# 2015-02-21 first svn version (Wzut) +# +################################################################ + +package main; + + +use strict; +use warnings; + +use Time::HiRes qw(gettimeofday); +use HttpUtils; +use XML::Simple; +use SetExtensions; + +sub EDIPLUG_Initialize($); +sub EDIPLUG_Define($$); +sub EDIPLUG_Undef($$); +sub EDIPLUG_Set($@); +sub EDIPLUG_Get($@); +sub EDIPLUG_GetUpdate($); +sub EDIPLUG_Read($$$); + + +my %gets = ( + "status:noArg" => "", + "info:noArg" => "", + "power:noArg" => "", + "schedule:noArg" => "" + ); + +my %sets = ( + "on:noArg" => "", + "off:noArg" => "", + "list" => "", + "addlist" => "", + "dellist" => "", + "delete:0,1,2,3,4,5,6" => "", + "day" => "", + "clear_error" => "" + ); + +my $data_s = "\' $data_s."get\"> $data_s."get\"> $data_s."get\"> $data_s."setup\">ON $data_s."setup\">OFF $data_s."get\">{DefFn} = "EDIPLUG_Define"; + $hash->{UndefFn} = "EDIPLUG_Undef"; + $hash->{SetFn} = "EDIPLUG_Set"; + $hash->{GetFn} = "EDIPLUG_Get"; + $hash->{AttrFn} = "EDIPLUG_Attr"; + $hash->{AttrList} = "interval timeout disable:0,1 model:SP1101W,SP2101W,unknow interval user password ".$readingFnAttributes; +} + + +################################################################################ + +sub EDIPLUG_Define($$) { + my ($hash, $def) = @_; + my @a = split("[ \t][ \t]*", $def); + return "wrong syntax: define EDIPLUG " if(int(@a) != 3); + + $hash->{NAME} = $a[0]; + $hash->{host} = $a[2]; + + if( !defined( $attr{$a[0]}{interval} ) ) { $attr{$a[0]}{interval} = "60"} + $hash->{INTERVAL} = $attr{$a[0]}{interval}; + + if( !defined( $attr{$a[0]}{user} ) ) { $attr{$a[0]}{user} = "admin"} + $hash->{user} = $attr{$a[0]}{user}; + + if( !defined( $attr{$a[0]}{password} ) ) { $attr{$a[0]}{password} = "1234"} + $hash->{pwd} = $attr{$a[0]}{password}; + + if( !defined( $attr{$a[0]}{model} ) ) { $attr{$a[0]}{model} = "unknow"} + $hash->{MODEL} = $attr{$a[0]}{model}; + + $hash->{POWER} = "?"; + $hash->{LASTCMD} = ""; + $hash->{helper}{current} = ""; + $hash->{helper}{power} = ""; + + # for non blocking HTTP Get + + $hash->{port} = "10000"; + $hash->{url} = "http://$hash->{user}:$hash->{pwd}\@$hash->{host}:$hash->{port}/smartplug.cgi"; + $hash->{callback} = \&EDIPLUG_Read; + $hash->{timeout} = 2; + + readingsSingleUpdate($hash, "state", "defined",0); + + for (my $i=0; $i<8; $i++) { $hash->{helper}{"list"}[$i] = ""; } # einer mehr als Tage :) + + RemoveInternalTimer($hash); + InternalTimer(gettimeofday()+$hash->{INTERVAL}, "EDIPLUG_GetUpdate", $hash, 0); + EDIPLUG_Get($hash,$hash->{NAME},"info"); + return undef; +} + +################################################################################ + +sub EDIPLUG_Undef($$) { + my ($hash, $arg) = @_; + RemoveInternalTimer($hash); + return undef; +} + +################################################################################ + +sub EDIPLUG_GetUpdate($) { + my ($hash) = @_; + my $name = $hash->{NAME}; + + $hash->{INTERVAL} = AttrVal($name, "interval", $hash->{INTERVAL} ); + + InternalTimer(gettimeofday()+$hash->{INTERVAL}, "EDIPLUG_GetUpdate", $hash, 1) if ($hash->{INTERVAL}); + Log3 $name, 5, "EDIPLUG: GetUpdate"; + EDIPLUG_Get($hash,$name,"status") if ($hash->{INTERVAL}); + return ; +} +################################################################################ + +sub EDIPLUG_Read($$$) +{ + my ($hash, $err, $buffer) = @_; + my $name = $hash->{NAME}; + my $state; + + Log3 $name, 5, "$name , Read : $hash , $buffer\r\n"; + + if ($err) + { + my $error = "error"; + $error .= " ".$hash->{code} if (defined($hash->{code})); + $hash->{ERROR} = $err; + $hash->{ERRORTIME} = TimeNow(); + Log3 $name, 3, "$name: return $error -> $err"; + $hash->{ERRORCOUNT} ++; + if ($hash->{ERRORCOUNT} > 5) {$hash->{INTERVAL} = 3600;} + readingsSingleUpdate($hash, "state", $error, 0); + return; + } + + if ($hash->{INTERVAL} == 3600) { $hash->{INTERVAL} = AttrVal($name, "interval", 60); } + + # auswerten der Rueckgabe + if (!$buffer) + { + # sollte eigentlich gar nicht vorkommen bzw. nur bei fehlerhaften uebergebenen XML String + Log3 $name, 3, "$name: empty return buffer"; + $hash->{ERRORCOUNT} ++; + $hash->{ERROR} = "empty return buffer"; + $hash->{ERRORTIME} = TimeNow(); + return; + } + + $hash->{ERRORCOUNT} = 0; + + readingsBeginUpdate($hash); + + # EDIPLUGs geben ein nichtgueltigen Zeichensatz zurueck ( UTF8 instead utf-8 ) + $buffer =~s/UTF8/utf-8/g; + + my $xmlres = XMLin($buffer); + + # Device.System.Power.State (Status der Steckdose) + if (exists $xmlres->{CMD}->{'Device.System.Power.State'}) + { + if ($hash->{MODEL} eq "SP2101W") + { + $hash->{POWER} = uc($xmlres->{CMD}->{'Device.System.Power.State'}); + $state = $hash->{POWER}." / ".$hash->{helper}{power}. " W / ".$hash->{helper}{current}." A"; + } + else + { + $state = lc($xmlres->{CMD}->{'Device.System.Power.State'}); + } + } + + # SYSTEM_INFO + if (exists $xmlres->{CMD}->{SYSTEM_INFO}) + { + $hash->{'MODEL'} = $xmlres->{CMD}->{SYSTEM_INFO}->{'Run.Model'}; + $hash->{'VERSION'} = $xmlres->{CMD}->{SYSTEM_INFO}->{'Run.FW.Version'}; + $hash->{'MAC'} = $xmlres->{CMD}->{SYSTEM_INFO}->{'Run.LAN.Client.MAC.Address'}; + $hash->{'PName'} = $xmlres->{CMD}->{SYSTEM_INFO}->{'Device.System.Name'}; + } + + if ((exists $xmlres->{CMD}->{NOW_POWER}) && ($hash->{MODEL} eq "SP2101W")) + { + # POWER_NOW + my $ltt = $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.LastToggleTime'}; + my $ltt_s = substr($ltt,8,2).":".substr($ltt,10,2).":".substr($ltt,12,2) ." ".substr($ltt,6,2).".".substr($ltt,4,2).".".substr($ltt,0,4); + + readingsBulkUpdate($hash, "last_Toggle_Time", $ltt_s) if ($ltt ne "0"); + + $hash->{helper}{current} = $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowCurrent'}; + readingsBulkUpdate($hash, "current", $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowCurrent'}." A"); + + $hash->{helper}{power} = $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowPower'}; + + readingsBulkUpdate($hash, "power_now", $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowPower'}." W"); + readingsBulkUpdate($hash, "power_day", $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowEnergy.Day'}." kW/h"); + readingsBulkUpdate($hash, "power_week", $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowEnergy.Week'}." kW/h"); + readingsBulkUpdate($hash, "power_month", $xmlres->{CMD}->{NOW_POWER}->{'Device.System.Power.NowEnergy.Month'}." kW/h"); + + $state = $hash->{POWER}." / ".$hash->{helper}{power}. " W / ".$hash->{helper}{current}." A"; + } + + + my @days=("0.So","1.Mo","2.Di","3.Mi","4.Do","5.Fr","6.Sa"); + for (my $i=0; $i<7; $i++) + { + if (exists $xmlres->{CMD}{SCHEDULE}{'Device.System.Power.Schedule.'.$i.'.List'}) + { + $hash->{helper}{"list"}[$i] = $xmlres->{CMD}{SCHEDULE}{'Device.System.Power.Schedule.'.$i.'.List'}; # die heben wir auf + $hash->{helper}{"list"}[7] = "1"; # es ist eine aktuelle Liste vorhanden + + my $zeit = decode_list($hash->{helper}{"list"}[$i]); + readingsBulkUpdate($hash, $days[$i] , lc($xmlres->{CMD}{SCHEDULE}{'Device.System.Power.Schedule.'.$i}{value})); + if ($zeit ne "") { readingsBulkUpdate($hash, $days[$i].".list" , $zeit); } + else { readingsBulkUpdate($hash, $days[$i].".list" , "no list on device");} + } + } + + readingsBulkUpdate($hash,"state",$state) if ($state); + readingsEndUpdate($hash, 1 ); + + # nach set on/off oder erstem Durchlauf sofort neuen Status holen + if (($hash->{LASTCMD} eq "on") || + ($hash->{LASTCMD} eq "off") || + ($hash->{STATE} eq "defined")) + { + $hash->{LASTCMD} = ""; + EDIPLUG_Get($hash,$name,"status"); + } + # und nach dem Status noch fuer die 2101 die aktuellen Power Werte + elsif (($hash->{LASTCMD} eq "status") && ($hash->{MODEL} eq "SP2101W")) + { + EDIPLUG_Get($hash,$name,"power"); + } + elsif (($hash->{LASTCMD} eq "addlist") || + ($hash->{LASTCMD} eq "list") || + ($hash->{LASTCMD} eq "dellist") || + ($hash->{LASTCMD} eq "delete") || + ($hash->{LASTCMD} eq "day")) + { + select(undef, undef, undef, 2); # TODO , sehr hässlich - aber irgend eine Wartezeit muss sein + EDIPLUG_Get($hash,$name,"schedule"); # geaenderte Liste holen + } + + return; +} + + +################################################################################ + +sub EDIPLUG_Attr(@) +{ + + my ($cmd,$name, $attrName,$attrVal) = @_; + my $hash = $defs{$name}; + + if ($cmd eq "set") + { + if ($attrName eq "disable") + { + RemoveInternalTimer($hash); + $hash->{INTERVAL} = 0 if $attrVal; + readingsSingleUpdate($hash, "state", "disabled",0) if (!$hash->{INTERVAL}); + InternalTimer(gettimeofday()+$hash->{INTERVAL}, "EDIPLUG_GetUpdate", $hash, 1) if ($hash->{INTERVAL}>0); + } + elsif ($attrName eq "timeout") + { + $hash->{timeout} = $attrVal; + $attr{$name}{timeout} = $attrVal; + } + elsif ($attrName eq "interval") + { + $hash->{INTERVAL} = $attrVal; + $attr{$name}{interval} = $attrVal; + } + elsif ($attrName eq "model") + { + $hash->{MODEL} = $attrVal; + $attr{$name}{model} = $attrVal; + } + elsif ($attrName eq "user") + { + $hash->{user} = $attrVal; + $attr{$name}{user} = $attrVal; + $hash->{url} = "http://$hash->{user}:$hash->{pwd}\@$hash->{host}:$hash->{port}/smartplug.cgi"; + } + elsif ($attrName eq "password") + { + $hash->{pwd} = $attrVal; + $attr{$name}{password} = $attrVal; + $hash->{url} = "http://$hash->{user}:$hash->{pwd}\@$hash->{host}:$hash->{port}/smartplug.cgi"; + } + + } + elsif ($cmd eq "del") + { + if ($attrName eq "disable") + { + RemoveInternalTimer($hash); + readingsSingleUpdate($hash, "state", "???",0) if (!$hash->{INTERVAL}); + InternalTimer(gettimeofday()+$hash->{INTERVAL}, "EDIPLUG_GetUpdate", $hash, 1) if ($hash->{INTERVAL}); + } + elsif ($attrName eq "interval") + { + $hash->{INTERVAL} = 60; + } + } + return undef; +} + +################################################################################ + +sub EDIPLUG_Set($@) { + my ($hash, $name , @a) = @_; + + return "set $name needs at least one argument" if(int(@a) < 1); + + my $cmd = $a[0]; + my $list = "on off list addlist delete:0,1,2,3,4,5,6 dellist day clear_error"; + + return SetExtensions($hash, $list, $name, @a) if( $cmd eq "?" ); + return SetExtensions($hash, $list, $name, @a) if( !grep( $_ =~ /^$cmd($|:)/, split( ' ', $list))); + + $hash->{timeout} = AttrVal($name, "timeout", 2); + + my $oldcmd = $hash->{LASTCMD}; $hash->{LASTCMD}=""; + + if($cmd eq "clear_error") + { + $hash->{ERROR} = undef; + $hash->{ERRORCOUNT} = 0; + $hash->{LASTCMD} = $cmd; + return undef; + } + + if(($cmd eq "on") || ($cmd eq "off")) + { + $hash->{LASTCMD} = $cmd; + $hash->{data} = $datas{$cmd}; + } + elsif(($cmd eq "list") || ($cmd eq "addlist") || ($cmd eq "dellist")) + { + return "set $name $cmd : DayOfWeek(0-6) Starttime(hh:mm) Endtime(hh:mm) Command(on/off) e.g. 1 10:00 11:30 on" if(int(@a) < 4); + + shift @a; + my $day = $a[0]; + shift @a; + + return "set $name $cmd : wrong day $day, use 0-6" if (($day >6) || ($day <0)); + return "set $name $cmd : wrong start time !" if (index($a[0],":") < 0); + return "set $name $cmd : wrong end time !" if (index($a[1],":") < 0); + return "set $name $cmd : don't use exact the same start and end time !" if ($a[0] eq $a[1]); + return "set $name $cmd : wrong on/off command , use on or off" if (($a[2] ne "on") && ($a[2] ne "off") && ($cmd ne "dellist")) ; + + my $ret = encode_list(@a); + return "set $name $cmd : ".$ret if (length($ret) != 5); + + if ($cmd eq "addlist") + { + return "set $name $cmd : schedule list is empty , please use 'get $name schedule' first" if($hash->{helper}{"list"}[7] eq ""); + return "set $name $cmd : this start and end time block already exist" if (index($hash->{helper}{"list"}[$day],$ret) > -1) ; + + # Time Block schon vorhanden , aber jetzt on/off Umschaltung ? + my $reverse_cmd = substr($ret,0,4); + $reverse_cmd .= ($a[2] eq "on") ? "0" : "1"; + $hash->{helper}{"list"}[$day] =~ s/$reverse_cmd/$ret/g; # alt gegen neu tauschen + # Block hinzufügen oder fertig ? + if (index($hash->{helper}{"list"}[$day],$ret) > -1) + { $ret = $hash->{helper}{"list"}[$day]; } + else + { $ret = $hash->{helper}{"list"}[$day]."-".$ret; } + + } + elsif ($cmd eq "dellist") + { + $ret = substr($ret,0,4)."0"; # ist er als off definert ? + my $pos = index($hash->{helper}{"list"}[$day],$ret); + if ($pos<0) # oder doch als on ? + { + $ret = substr($ret,0,4)."1"; + $pos = index($hash->{helper}{"list"}[$day],$ret); + } + + return "set $name $cmd : day $day ,this start and end time block do not exist" if ($pos<0); + + $hash->{helper}{"list"}[$day] =~ s/$ret//g; # raus aus der Liste + $hash->{helper}{"list"}[$day] =~ s/\--/\-/g; # eventuelle jetzt noch doppelte Minuszeichen bereinigen + # war das erste von mehr als einem ? + if (index($hash->{helper}{"list"}[$day], "-") == 0) { $hash->{helper}{"list"}[$day] = substr($hash->{helper}{"list"}[$day],1); } + # oder der letzte von mehr als einem ? + if (rindex($hash->{helper}{"list"}[$day], "-") == length($hash->{helper}{"list"}[$day])-1) { chop($hash->{helper}{"list"}[$day]); } + + $ret = $hash->{helper}{"list"}[$day]; + } + + $hash->{LASTCMD} = $cmd; # merken und später Liste neu holen + + $hash->{data} = $data_s."setup\">".$ret; + $hash->{data} .= "6) || ($day <0)); + return "set $name $cmd : wrong on/off command , use on or off" if (($oocmd ne "on") && ($oocmd ne "off")); + return "set $name $cmd : schedule list is empty , please use 'get $name schedule' first" if($hash->{helper}{"list"}[7] eq ""); + + $hash->{LASTCMD} = $cmd; + $hash->{data} = $data_s."setup\">6) || ($day <0)); + $hash->{LASTCMD} = $cmd; + + $hash->{data} = $data_s."setup\">{LASTCMD}) + { + #return $hash->{data}; # Debug nur anzeigem + HttpUtils_NonblockingGet($hash); + return undef; + } + + + # Hier sollten wir eigentlich nie hinkommen .. + $hash->{LASTCMD} = $oldcmd; + + return "$name set with unknown argument $cmd, choose one of " . join(" ", sort keys %sets); + +} + + +################################################################################ + +sub EDIPLUG_Get($@) { + my ($hash, @a) = @_; + my $name= $hash->{NAME}; + + return "get $name needs at least one argument" if(int(@a) < 2); + + my $cmd = $a[1]; + + return "$name get power is not supported by this model !" if (($cmd eq "power") && ($hash->{MODEL} ne "SP2101W")); + + $hash->{data} = $datas{$cmd}; + + if($hash->{data}) + { + $hash->{LASTCMD} = $cmd; + $hash->{timeout} = AttrVal($name, "timeout", 2); + HttpUtils_NonblockingGet($hash); + return ; + } + + return "$name get with unknown argument $cmd, choose one of " . join(" ", sort keys %gets); + +} + +################################################################################ +sub decode_list($) +{ + # Bsp : 10111-01020-nX001 + my ($string) = @_ ; + return "" if (length($string)<5); # zu kurz + + my @a = split("-",$string); + my @sorted = sort @a; + my $s=""; + + my $timetab = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX"; # 0 - 59 + + foreach(@sorted) + { + my $cmd = $_; + + return "" if (index($timetab, substr($cmd,0,1)) > 23); #TODO den HASH besser erkennen + + $s .= (length($s)) ? " / " : ""; + + # Begin Stunde + $s .= sprintf("%02d:",index($timetab, substr($cmd,0,1))); + # Begin Minute + $s .= sprintf("%02d-",index($timetab, substr($cmd,1,1))); + # Ende Stunde + $s .= sprintf("%02d:", index($timetab, substr($cmd,2,1))); + # Ende Minute + $s .= sprintf("%02d", index($timetab, substr($cmd,3,1))); + # ON or OFF ? + $s .= (substr($cmd,4,1) eq "0") ? " off" : " on"; + } + return $s; +} +################################################################################ +sub encode_list(@) +{ + my ($start,$end,$cmd) = @_; + my $ret; + + my $timetab = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX"; # 0 - 59 + + my ($sh,$sm) = split(":",$start); + $sh++; $sh--; $sm++; $sm--; # fuuehrende Nullen weg + return "wrong start hour !" if ($sh > 23); + return "wrong start minute !" if ($sm > 59); + $ret = substr($timetab,$sh,1); + $ret .= substr($timetab,$sm,1); + + my ($eh, $em) = split(":",$end); + $eh++; $eh--; $em++; $em--; + return "wrong end hour !" if ($eh > 23); + return "wrong end minute !" if ($em > 59); + return "starttime is after endtime !" if ($sh > $eh); + $ret .= substr($timetab,$eh,1); + $ret .= substr($timetab,$em,1); + + return "don't use the same start and end time !" if (substr($ret,0,2) eq substr($ret,2,2)); + + $ret .= ($cmd eq "on") ? "1" : "0"; + return $ret; + +} +################################################################################ + +1; + +=pod + +=begin html + + +

EDIPLUG

+FHEM module to control the Edimax Smart Plug Switches SP-2101W and SP-1101W (http://www.edimax.com)
+FHEM Forum : http://forum.fhem.de/index.php/topic,29541.0.html
+SP-2101W - Edimax Smart Plug Switch with Power Meter
+SP-1101W - Edimax Smart Plug Switch
+requires XML:Simple -> sudo apt-get install libxml-simple-perl
+
+
    + + Define +
      + define <name> EDIPLUG < IP_EDIMAX_Device (or FQDN) >
      + Example:
      + 
      +  define myediplug EDIPLUG 192.168.0.99
+  define myediplug EDIPLUG ediplug.myhome.net
+
      +
    + + Set
      + Currently, the following commands are defined
       
      +    on        => switch power on
+    off       => switch power off
+    list      => set a new list for one day with one entry : DayOfWeek(0-6) Starttime(hh:mm) Endtime(hh:mm) Command(on/off) e.g. 1 10:00 11:30 on
+    addlist   => add a new on/off time : DayOfWeek(0-6) Starttime(hh:mm) Endtime(hh:mm) Command(on/off) e.g. 1 10:00 11:30 on
+    dellist   => remove a existing on/off time : DayOfWeek(0-6) Starttime(hh:mm) Endtime(hh:mm) e.g. 1 10:00 11:30
+    delete    => delete timelist of one day : DayOfWeek(0-6)
+    day       => enable/disable timeschedule for one day : DayOfWeek(0-6) on/off
+
      +
    + + Get
      + Currently, the following commands are defined
       
      +    info     => shows MAC , Firmware Version , Model , Name
+    power    => shows all Power informations ( model SP-2101W only)
+    schedule => show all internal on/off timetables
+    status   => show on/off state
+
      +
    + + Attributes +
      +
    • interval , polling interval (default 60)
      • +
    +
    + Readings +
      +
    • 0.So -> switching times Sunday
      • +
    • 0.So.state -> Sunday switching on/off
      • +
    • .
      • +
    • .
      • +
    • .
      • +
    • 6.Sa -> switching times Saturday
      • +
    • 6.Sa.state -> Saturday switching on/off ( model SP-2101W only )
      • +
    • last_Toggle_Time ( model SP-2101W only )
      • +
    • current ( model SP-2101W only )
      • +
    • power_now ( model SP-2101W only )
      • +
    • power_day ( model SP-2101W only )
      • +
    • power_week ( model SP-2101W only )
      • +
    • power_month ( model SP-2101W only )
      • +
    +
+=end html + +=begin html_DE + + +

EDIPLUG

+FHEM Module für die Edimax Smart Plug Switches SP-2101W und SP-1101W (http://www.edimax.com)
+FHEM Forum : http://forum.fhem.de/index.php/topic,29541.0.html
+SP-2101W - Edimax Smart Plug Switch mit Strom Verbrauchsmessung
+SP-1101W - Edimax Smart Plug Switch
+ben&oml;ntigt XML:Simple -> sudo apt-get install libxml-simple-perl +
+
    + + Define +
      + define <name> EDIPLUG < IP_des_EDIMAX (oder Name im Netz) INTERVAL (default 60) Device user (default admin) password (default 1234) >
      + Beispiel:
      + 
      +  define myediplug EDIPLUG 192.168.0.99
+  define myediplug EDIPLUG ediplug.meinnetz.net
+
      +
    +
    + + Set
      + zur Zeit werden folgende Kommandos unterstützt
       
      +    on        => schalte an
+    off       => schalte aus
+    list      => erzeugt eine neue Zeitplan Liste mit einem Eintrag : Wochentag(0-6) Startzeit(hh:mm) Endezeit(hh:mm) Kommando(on/off) Bsp. 1 10:00 11:30 on
+    addlist   => fügt eine neue Schaltzeit einer bestehenden Zeitplan Liste hinzu : Wochentag(0-6) Startzeit(hh:mm) Endtezeit(hh:mm) Kommando(on/off) Bsp. 1 10:00 11:30 on
+    dellist   => löscht eine bestimmte Schaltzeit eines Tages : Wochentag(0-6) Startzeit(hh:mm) Endezeit(hh:mm) Bsp. 1 10:00 11:30
+    delete    => löscht die Liste eines ganzen Tages : Wochentag(0-6)
+    day       => schaltet die Zeitplanung eines Tages ein oder aus : Wochentag(0-6) on/off Bsp. 5 on
+
      +
    +
    + + Get
      + zur Zeit werden folgende Kommandos unterstützt
       
      +    info     => Anzeige von MAC , Firmware Version , Modell , Name
+    power    => zeigt alle Stromverbrauchswerte ( nur Modell SP-2101W )
+    schedule => zeigt alle internen Schaltzeiten
+    status   => zeigt an/aus Status der Schaltdose
+
      +
    +
    + + Attributes +
      +
    • interval , polling interval (default 60)
      • +
    • timeout ,
      • +
    • user , Username (default admin)
      • +
    • password , Passwort (default 1234)
      • +
    +
    + Readings +
      +
    • 0.So -> Schaltzeiten Sonntag
      • +
    • 0.So.state -> Sonntag an/aus
      • +
    • .
      • +
    • .
      • +
    • .
      • +
    • 6.Sa -> Schaltzeiten Samstag
      • +
    • 6.Sa.state -> Samstag an/aus
      • +
    • last_Toggle_Time ( nur Modell SP-2101W)
      • +
    • current (nur Modell SP-2101W)
      • +
    • power_now (nur Modell SP-2101W)
      • +
    • power_day (nur Modell SP-2101W)
      • +
    • power_week (nur Modell SP-2101W)
      • +
    • power_month (nur Modell SP-2101W)
      • +
    +
+ +=end html_DE + +=cut