############################################################################### # # Developed with Kate # # (c) 2015-2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com) # All rights reserved # # This script 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 # 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. # # # $Id$ # ############################################################################### ## ## ## Das JSON Modul immer in einem eval aufrufen # $data = eval{decode_json($data)}; # # if($@){ # Log3($SELF, 2, "$TYPE ($SELF) - error while request: $@"); # # readingsSingleUpdate($hash, "state", "error", 1); # # return; # } # # package main; my $missingModul = ""; use strict; use warnings; eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode "; eval "use JSON;1" or $missingModul .= "JSON "; my $modulversion = "3.9.80"; my $flowsetversion = "3.9.76"; # Declare functions sub AMADDevice_Attr(@); sub AMADDevice_checkDeviceState($); sub AMADDevice_decrypt($); sub AMADDevice_Define($$); sub AMADDevice_encrypt($); sub AMADDevice_GetUpdate($); sub AMADDevice_Initialize($); sub AMADDevice_WriteReadings($$); sub AMADDevice_Set($$@); sub AMADDevice_Undef($$); sub AMADDevice_Parse($$); sub AMADDevice_statusRequest($); sub AMADDevice_Initialize($) { my ($hash) = @_; $hash->{Match} = '{"amad": \{"amad_id":.+}}'; $hash->{SetFn} = "AMADDevice_Set"; $hash->{DefFn} = "AMADDevice_Define"; $hash->{UndefFn} = "AMADDevice_Undef"; $hash->{AttrFn} = "AMADDevice_Attr"; $hash->{ParseFn} = "AMADDevice_Parse"; $hash->{AttrList} = "setOpenApp ". "checkActiveTask ". "setFullscreen:0,1 ". "setScreenOrientation:0,1 ". "setScreenBrightness:noArg ". "setBluetoothDevice ". "setScreenlockPIN ". "setScreenOnForTimer ". "setOpenUrlBrowser ". "setNotifySndFilePath ". "setTtsMsgSpeed ". "setUserFlowState ". "setTtsMsgLang:de,en ". "setVolUpDownStep:1,2,4,5 ". "setVolMax ". "setVolFactor:2,3,4,5 ". "setNotifyVolMax ". "setRingSoundVolMax ". "setAPSSID ". "root:0,1 ". "disable:1 ". $readingFnAttributes; foreach my $d(sort keys %{$modules{AMADDevice}{defptr}}) { my $hash = $modules{AMADDevice}{defptr}{$d}; $hash->{VERSIONMODUL} = $modulversion; $hash->{VERSIONFLOWSET} = $flowsetversion; } } sub AMADDevice_Define($$) { my ( $hash, $def ) = @_; my @a = split( "[ \t]+", $def ); splice( @a, 1, 1 ); my $iodev; my $i = 0; foreach my $param ( @a ) { if( $param =~ m/IODev=([^\s]*)/ ) { $iodev = $1; splice( @a, $i, 3 ); last; } $i++; } return "too few parameters: define AMADDevice " if( @a != 3 ); return "Cannot define a AMAD device. Perl modul $missingModul is missing." if ( $missingModul ); my ($name,$host,$amad_id) = @a; $hash->{HOST} = $host; $hash->{AMAD_ID} = $amad_id; $hash->{PORT} = 8090; $hash->{VERSIONMODUL} = $modulversion; $hash->{VERSIONFLOWSET} = $flowsetversion; $hash->{helper}{infoErrorCounter} = 0; $hash->{helper}{setCmdErrorCounter} = 0; $hash->{helper}{deviceStateErrorCounter} = 0; AssignIoPort($hash,$iodev) if( !$hash->{IODev} ); if(defined($hash->{IODev}->{NAME})) { Log3 $name, 3, "AMADDevice ($name) - I/O device is " . $hash->{IODev}->{NAME}; } else { Log3 $name, 1, "AMADDevice ($name) - no I/O device"; } $iodev = $hash->{IODev}->{NAME}; my $d = $modules{AMADDevice}{defptr}{$amad_id}; return "AMADDevice device $name on AMADCommBridge $iodev already defined." if( defined($d) && $d->{IODev} == $hash->{IODev} && $d->{NAME} ne $name ); Log3 $name, 3, "AMADDevice ($name) - defined with AMAD_ID: $amad_id on port $hash->{PORT}"; $attr{$name}{room} = "AMAD" if( !defined( $attr{$name}{room} ) ); readingsBeginUpdate($hash); readingsBulkUpdateIfChanged( $hash, "state", "initialized",1); readingsBulkUpdateIfChanged( $hash, "deviceState", "unknown",1); readingsEndUpdate($hash,1); if( $init_done ) { InternalTimer( gettimeofday()+3, "AMADDevice_GetUpdate", $hash, 0 ) if( ($hash->{HOST}) ); } else { InternalTimer( gettimeofday()+15, "AMADDevice_GetUpdate", $hash, 0 ) if( ($hash->{HOST}) ); } $modules{AMADDevice}{defptr}{$amad_id} = $hash; return undef; } sub AMADDevice_Undef($$) { my ( $hash, $arg ) = @_; my $name = $hash->{NAME}; my $amad_id = $hash->{AMAD_ID}; RemoveInternalTimer( $hash ); delete $modules{AMADDevice}{defptr}{$amad_id}; return undef; } sub AMADDevice_Attr(@) { my ( $cmd, $name, $attrName, $attrVal ) = @_; my $hash = $defs{$name}; my $orig = $attrVal; if( $attrName eq "disable" ) { if( $cmd eq "set" ) { if( $attrVal eq "0" ) { RemoveInternalTimer( $hash ); InternalTimer( gettimeofday()+2, "AMADDevice_GetUpdate", $hash, 0 ) if( ReadingsVal( $hash->{NAME}, "state", 0 ) eq "disabled" ); readingsSingleUpdate ( $hash, "state", "active", 1 ); Log3 $name, 3, "AMADDevice ($name) - enabled"; } else { readingsSingleUpdate ( $hash, "state", "disabled", 1 ); RemoveInternalTimer( $hash ); Log3 $name, 3, "AMADDevice ($name) - disabled"; } } else { RemoveInternalTimer( $hash ); InternalTimer( gettimeofday()+2, "AMADDevice_GetUpdate", $hash, 0 ) if( ReadingsVal( $hash->{NAME}, "state", 0 ) eq "disabled" ); readingsSingleUpdate ( $hash, "state", "active", 1 ); Log3 $name, 3, "AMADDevice ($name) - enabled"; } } elsif( $attrName eq "checkActiveTask" ) { if( $cmd eq "del" ) { CommandDeleteReading( undef, "$name checkActiveTask" ); } Log3 $name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest"; RemoveInternalTimer( $hash ); InternalTimer( gettimeofday(), "AMADDevice_GetUpdate", $hash, 0 ) } elsif( $attrName eq "setScreenlockPIN" ) { if( $cmd eq "set" && $attrVal ) { $attrVal = AMADDevice_encrypt($attrVal); } else { CommandDeleteReading( undef, "$name screenLock" ); } } elsif( $attrName eq "setAPSSID" ) { if( $cmd eq "set" && $attrVal ) { AMADDevice_statusRequest($hash); } else { AMADDevice_statusRequest($hash); } } elsif( $attrName eq "setUserFlowState" ) { if( $cmd eq "del" ) { CommandDeleteReading( undef, "$name userFlowState" ); } Log3 $name, 3, "AMADDevice ($name) - $cmd $attrName $attrVal and run statusRequest"; RemoveInternalTimer( $hash ); InternalTimer( gettimeofday(), "AMADDevice_GetUpdate", $hash, 0 ) } if( $cmd eq "set" ) { if( $attrVal && $orig ne $attrVal ) { $attr{$name}{$attrName} = $attrVal; return $attrName ." set to ". $attrVal if( $init_done ); } } return undef; } sub AMADDevice_GetUpdate($) { my ( $hash ) = @_; my $name = $hash->{NAME}; my $bname = $hash->{IODev}->{NAME}; if( $init_done && ( ReadingsVal( $name, "deviceState", "unknown" ) eq "unknown" or ReadingsVal( $name, "deviceState", "online" ) eq "online" ) && AttrVal( $name, "disable", 0 ) ne "1" && ReadingsVal( $bname, "fhemServerIP", "not set" ) ne "not set" ) { AMADDevice_statusRequest($hash); AMADDevice_checkDeviceState( $hash ); } else { Log3 $name, 4, "AMADDevice ($name) - GetUpdate, FHEM or Device not ready yet"; Log3 $name, 3, "AMADDevice ($bname) - GetUpdate, Please set $bname fhemServerIP NOW!" if( ReadingsVal( $bname, "fhemServerIP", "none" ) eq "none" ); InternalTimer( gettimeofday()+15, "AMADDevice_GetUpdate", $hash, 0 ); } } sub AMADDevice_statusRequest($) { my $hash = shift; my $name = $hash->{NAME}; my $host = $hash->{HOST}; my $port = $hash->{PORT}; my $amad_id = $hash->{AMAD_ID}; my $uri; my $header = 'Connection: close'; my $method; my $activetask = AttrVal( $name, "checkActiveTask", "none" ); my $userFlowState = AttrVal( $name, "setUserFlowState", "none" ); my $apssid = AttrVal( $name, "setAPSSID", "none" ); my $fhemip = ReadingsVal($hash->{IODev}->{NAME}, "fhemServerIP", "none"); my $fhemCtlMode = AttrVal($hash->{IODev}->{NAME},'fhemControlMode','none' ); my $bport = $hash->{IODev}->{PORT}; $uri = $host . ":" . $port . "/fhem-amad/deviceInfo/"; # Pfad muß so im Automagic als http request Trigger drin stehen $header .= "\r\nfhemip: $fhemip\r\nfhemdevice: $name\r\nactivetask: $activetask\r\napssid: $apssid\r\nbport: $bport\r\nuserflowstate: $userFlowState\r\namadid: $amad_id\r\nfhemctlmode: $fhemCtlMode"; $method = "GET"; IOWrite($hash,$amad_id,$uri,$header,$method); Log3 $name, 5, "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}"; } sub AMADDevice_WriteReadings($$) { my ( $hash, $decode_json ) = @_; my $name = $hash->{NAME}; ############################ #### schreiben der Readings Log3 $name, 5, "AMADDevice ($name) - Processing data: $decode_json"; readingsSingleUpdate( $hash, "state", "active", 1) if( ReadingsVal( $name, "state", 0 ) ne "initialized" and ReadingsVal( $name, "state", 0 ) ne "active" ); ### Event Readings my $t; my $v; readingsBeginUpdate($hash); while( ( $t, $v ) = each %{$decode_json->{payload}} ) { $v =~ s/\bnull\b/off/g if( ($t eq "nextAlarmDay" or $t eq "nextAlarmTime") and $v eq "null" ); $v =~ s/\bnull\b//g; readingsBulkUpdateIfChanged($hash, $t, $v, 1) if( defined( $v ) and ($t ne 'deviceState' or $t ne 'incomingCallerName' or $t ne 'incomingCallerNumber') ); readingsBulkUpdateIfChanged( $hash, $t, ($v / AttrVal($name,'setVolFactor',1)) ) if( $t eq 'volume' and AttrVal($name,'setVolFactor',1) > 1 ); readingsBulkUpdate( $hash, '.'.$t, $v ) if( $t eq 'deviceState' ); readingsBulkUpdate( $hash, $t, $v ) if( $t eq 'incomingCallerName' ); readingsBulkUpdate( $hash, $t, $v ) if( $t eq 'incomingCallerNumber' ); } readingsBulkUpdateIfChanged( $hash, "deviceState", "offline", 1 ) if( $decode_json->{payload}{airplanemode} && $decode_json->{payload}{airplanemode} eq "on" ); readingsBulkUpdateIfChanged( $hash, "deviceState", "online", 1 ) if( $decode_json->{payload}{airplanemode} && $decode_json->{payload}{airplanemode} eq "off" ); readingsBulkUpdateIfChanged( $hash, "lastStatusRequestState", "statusRequest_done", 1 ); if( ReadingsVal($name,'volume',1) > 0 ) { readingsBulkUpdateIfChanged( $hash, "mute", "off", 1 ); } else { readingsBulkUpdateIfChanged( $hash, "mute", "on", 1 ); } $hash->{helper}{infoErrorCounter} = 0; ### End Response Processing readingsBulkUpdateIfChanged( $hash, "state", "active", 1 ) if( ReadingsVal( $name, "state", 0 ) eq "initialized" ); readingsEndUpdate( $hash, 1 ); $hash->{helper}{deviceStateErrorCounter} = 0 if( $hash->{helper}{deviceStateErrorCounter} > 0 and ReadingsVal( $name, "deviceState", "offline") eq "online" ); return undef; } sub AMADDevice_Set($$@) { my ($hash, $name, @aa) = @_; my ($cmd, @args) = @aa; my $host = $hash->{HOST}; my $port = $hash->{PORT}; my $amad_id = $hash->{AMAD_ID}; my $uri; my $header = 'Connection: close'; my $method; my $volMax = AttrVal($name,'setVolMax',15); my $notifyVolMax = AttrVal($name,'setNotifyVolMax',7); my $ringSoundVolMax = AttrVal($name,'setRingSoundVolMax',7); if( lc $cmd eq 'screenmsg' ) { my $msg = join( " ", @args ); $msg =~ s/%/%25/g; $msg =~ s/\s/%20/g; $uri = $host . ":" . $port . "/fhem-amad/setCommands/screenMsg?message=$msg"; $method = "POST"; } elsif( lc $cmd eq 'ttsmsg' ) { my $msg = join( " ", @args ); my $speed = AttrVal( $name, "setTtsMsgSpeed", "1.0" ); my $lang = AttrVal( $name, "setTtsMsgLang","de" ); $msg =~ s/%/%25/g; $msg =~ s/\s/%20/g; $uri = $host . ":" . $port . "/fhem-amad/setCommands/ttsMsg?message=".$msg."&msgspeed=".$speed."&msglang=".$lang; $method = "POST"; } elsif( lc $cmd eq 'userflowstate' ) { my $datas = join( " ", @args ); my ($flow,$state) = split( ":", $datas); $flow =~ s/\s/%20/g; $uri = $host . ":" . $port . "/fhem-amad/setCommands/flowState?flowstate=".$state."&flowname=".$flow; $method = "POST"; } elsif( lc $cmd eq 'volume' or $cmd eq 'mute' or $cmd =~ 'volume[Down|Up]' ) { my $vol; if( $cmd eq 'volume' ) { $vol = join( " ", @args ); if( $vol =~ /^\+(.*)/ or $vol =~ /^-(.*)/ ) { if( $vol =~ /^\+(.*)/ ) { $vol =~ s/^\+//g; $vol = ReadingsVal( $name, "volume", 0 ) + $vol; } elsif( $vol =~ /^-(.*)/ ) { $vol =~ s/^-//g; printf $vol; $vol = ReadingsVal( $name, "volume", 15 ) - $vol; } } } elsif( $cmd eq 'mute') { if($args[0] eq 'on') { $vol = 0; readingsSingleUpdate($hash,'.volume',ReadingsVal($name,'volume',0),0); } else { $vol = ReadingsVal($name,'.volume',0); } } elsif( $cmd =~ 'volume[Down|Up]') { if( $cmd eq 'volumeUp' ) { $vol = ReadingsVal( $name, "volume", 0 ) + AttrVal($name,'setVolUpDownStep',3); } else { $vol = ReadingsVal( $name, "volume", 0 ) - AttrVal($name,'setVolUpDownStep',3); } } $uri = $host . ":" . $port . "/fhem-amad/setCommands/setVolume?volume=$vol"; $method = "POST"; } elsif( lc $cmd eq 'volumenotification' ) { my $vol = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setNotifiVolume?notifivolume=$vol"; $method = "POST"; } elsif( lc $cmd eq 'volumeringsound' ) { my $vol = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setRingSoundVolume?ringsoundvolume=$vol"; $method = "POST"; } elsif( lc $cmd =~ /^media/ ) { my $btn = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/multimediaControl?mplayer=".$cmd."&button=".$btn; $method = "POST"; } elsif( lc $cmd eq 'screenbrightness' ) { my $bri = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setBrightness?brightness=$bri"; $method = "POST"; } elsif( lc $cmd eq 'screen' ) { my $mod = join( " ", @args ); my $scot = AttrVal( $name, "setScreenOnForTimer", undef ); $scot = 60 if( !$scot ); if ($mod eq "on" || $mod eq "off") { $uri = $host . ":" . $port . "/fhem-amad/setCommands/setScreenOnOff?screen=".$mod."&screenontime=".$scot if ($mod eq "on" || $mod eq "off"); $method = "POST"; } elsif ($mod eq "lock" || $mod eq "unlock") { return "Please set \"setScreenlockPIN\" Attribut first" if( AttrVal( $name, "setScreenlockPIN", "none" ) eq "none" ); my $PIN = AttrVal( $name, "setScreenlockPIN", undef ); $PIN = AMADDevice_decrypt($PIN); $uri = $host . ":" . $port . "/fhem-amad/setCommands/screenlock?lockmod=".$mod."&lockPIN=".$PIN; $method = "POST"; } } elsif( lc $cmd eq 'screenorientation' ) { my $mod = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setScreenOrientation?orientation=$mod"; $method = "POST"; } elsif( lc $cmd eq 'activatevoiceinput' ) { $uri = $host . ":" . $port . "/fhem-amad/setCommands/setvoicecmd"; $method = "POST"; } elsif( lc $cmd eq 'screenfullscreen' ) { my $mod = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setScreenFullscreen?fullscreen=$mod"; $method = "POST"; readingsSingleUpdate( $hash, $cmd, $mod, 1 ); } elsif( lc $cmd eq 'openurl' ) { my $openurl = join( " ", @args ); my $browser = AttrVal( $name, "setOpenUrlBrowser", "com.android.chrome|com.google.android.apps.chrome.Main" ); my @browserapp = split( /\|/, $browser ); my $uri = $host . ":" . $port . "/fhem-amad/setCommands/openURL?url=".$openurl."&browserapp=".$browserapp[0]."&browserappclass=".$browserapp[1]; $method = "POST"; } elsif (lc $cmd eq 'nextalarmtime') { my $value = join( " ", @args ); my @alarm = split( ":", $value ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setAlarm?hour=".$alarm[0]."&minute=".$alarm[1]; $method = "POST"; } elsif (lc $cmd eq 'timer') { my $timer = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setTimer?minute=$timer"; $method = "POST"; } elsif( lc $cmd eq 'statusrequest' ) { AMADDevice_statusRequest($hash); return; } elsif( lc $cmd eq 'openapp' ) { my $app = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/openApp?app=$app"; $method = "POST"; } elsif( lc $cmd eq 'system' ) { my $systemcmd = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/systemcommand?syscmd=$systemcmd"; $method = "POST"; readingsSingleUpdate( $hash, "airplanemode", "on", 1 ) if( $systemcmd eq "airplanemodeON" ); readingsSingleUpdate( $hash, "deviceState", "offline", 1 ) if( $systemcmd eq "airplanemodeON" || $systemcmd eq "shutdown" ); } elsif( lc $cmd eq 'donotdisturb' ) { my $disturbmod = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/donotdisturb?disturbmod=$disturbmod"; $method = "POST"; } elsif( lc $cmd eq 'bluetooth' ) { my $mod = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setbluetooth?bluetooth=$mod"; $method = "POST"; } elsif( lc $cmd eq 'notifysndfile' ) { my $notify = join( " ", @args ); my $filepath = AttrVal( $name, "setNotifySndFilePath", "/storage/emulated/0/Notifications/" ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/playnotifysnd?notifyfile=".$notify."¬ifypath=".$filepath; $method = "POST"; } elsif( lc $cmd eq 'changetobtdevice' ) { my $swToBtDevice = join( " ", @args ); my @swToBtMac = split( /\|/, $swToBtDevice ); my $btDevices = AttrVal( $name, "setBluetoothDevice", "none" ) if( AttrVal( $name, "setBluetoothDevice", "none" ) ne "none" ); my @btDevice = split( ',', $btDevices ); my @btDeviceOne = split( /\|/, $btDevice[0] ); my @btDeviceTwo = split( /\|/, $btDevice[1] ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/setbtdevice?swToBtDeviceMac=".$swToBtMac[1]."&btDeviceOne=".$btDeviceOne[1]."&btDeviceTwo=".$btDeviceTwo[1]; $method = "POST"; } elsif( lc $cmd eq 'clearnotificationbar' ) { my $appname = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/clearnotificationbar?app=$appname"; $method = "POST"; } elsif( lc $cmd eq 'vibrate' ) { $uri = $host . ":" . $port . "/fhem-amad/setCommands/setvibrate"; $method = "POST"; } elsif( lc $cmd eq 'sendintent' ) { my $intentstring = join( " ", @args ); my ( $action, $exkey1, $exval1, $exkey2, $exval2 ) = split( "[ \t][ \t]*", $intentstring ); $exkey1 = "" if( !$exkey1 ); $exval1 = "" if( !$exval1 ); $exkey2 = "" if( !$exkey2 ); $exval2 = "" if( !$exval2 ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/sendIntent?action=".$action."&exkey1=".$exkey1."&exval1=".$exval1."&exkey2=".$exkey2."&exval2=".$exval2; $method = "POST"; } elsif( lc $cmd eq 'installflowsource' ) { my $flowname = join( " ", @args ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/installFlow?flowname=$flowname"; $method = "POST"; } elsif( lc $cmd eq 'opencall' ) { my $string = join( " ", @args ); my ($callnumber, $time) = split( "[ \t][ \t]*", $string ); $time = "none" if( !$time ); $uri = $host . ":" . $port . "/fhem-amad/setCommands/openCall?callnumber=".$callnumber."&hanguptime=".$time; $method = "POST"; } elsif( lc $cmd eq 'closecall' ) { $uri = $host . ":" . $port . "/fhem-amad/setCommands/closeCall"; $method = "POST"; } elsif( lc $cmd eq 'startdaydream' ) { $uri = $host . ":" . $port . "/fhem-amad/setCommands/startDaydream"; $method = "POST"; } elsif( lc $cmd eq 'currentflowsetupdate' ) { $uri = $host . ":" . $port . "/fhem-amad/currentFlowsetUpdate"; $method = "POST"; } elsif( lc $cmd eq 'sendsms' ) { my $string = join( " ", @args ); my ($smsmessage, $smsnumber) = split( "\\|", $string ); $smsmessage =~ s/%/%25/g; $smsmessage =~ s/\s/%20/g; $uri = $host . ":" . $port . "/fhem-amad/setCommands/sendSms?smsmessage=".$smsmessage."&smsnumber=".$smsnumber; $method = "POST"; } else { my $apps = AttrVal( $name, "setOpenApp", "none" ); my $btdev = AttrVal( $name, "setBluetoothDevice", "none" ); my $list = "screenMsg ttsMsg mediaGoogleMusic:play/pause,stop,next,back mediaSamsungMusic:play/pause,stop,next,back mediaAmazonMusic:play/pause,stop,next,back mediaSpotifyMusic:play/pause,stop,next,back mediaTuneinRadio:play/pause,stop,next,back mediaAldiMusic:play/pause,stop,next,back mediaYouTube:play/pause,stop,next,back mediaVlcPlayer:play/pause,stop,next,back mediaAudible:play/pause,stop,next,back screenBrightness:slider,0,1,255 screen:on,off,lock,unlock openURL nextAlarmTime:time timer:slider,1,1,60 statusRequest:noArg bluetooth:on,off notifySndFile clearNotificationBar:All,Automagic activateVoiceInput:noArg vibrate:noArg sendIntent openCall closeCall:noArg currentFlowsetUpdate:noArg installFlowSource doNotDisturb:never,always,alarmClockOnly,onlyImportant userFlowState sendSMS startDaydream:noArg volumeUp:noArg volumeDown:noArg mute:on,off"; $list .= " screenOrientation:auto,landscape,portrait" if( AttrVal( $name, "setScreenOrientation", "0" ) eq "1" ); $list .= " screenFullscreen:on,off" if( AttrVal( $name, "setFullscreen", "0" ) eq "1" ); $list .= " openApp:$apps" if( AttrVal( $name, "setOpenApp", "none" ) ne "none" ); $list .= " system:reboot,shutdown,airplanemodeON" if( AttrVal( $name, "root", "0" ) eq "1" ); $list .= " changetoBTDevice:$btdev" if( AttrVal( $name, "setBluetoothDevice", "none" ) ne "none" ); $list .= " volume:slider,0,1,$volMax"; $list .= " volumeNotification:slider,0,1,$notifyVolMax"; $list .= " volumeRingSound:slider,0,1,$ringSoundVolMax"; return "Unknown argument $cmd, choose one of $list"; } IOWrite($hash,$amad_id,$uri,$header,$method); Log3 $name, 5, "AMADDevice ($name) - IOWrite: $uri $method IODevHash=$hash->{IODev}"; return undef; } sub AMADDevice_Parse($$) { my ($io_hash,$json) = @_; my $name = $io_hash->{NAME}; my $decode_json = eval{decode_json(encode_utf8($json))}; if($@){ Log3 $name, 3, "AMADDevice ($name) - JSON error while request: $@"; return; } Log3 $name, 4, "AMADDevice ($name) - ParseFn was called"; Log3 $name, 5, "AMADDevice ($name) - ParseFn was called, !!! AMAD_ID: $decode_json->{amad}{amad_id}"; my $fhemDevice = $decode_json->{firstrun}{fhemdevice} if( defined($decode_json->{firstrun}) and defined($decode_json->{firstrun}{fhemdevice}) ); my $amad_id = $decode_json->{amad}{amad_id}; if( my $hash = $modules{AMADDevice}{defptr}{$amad_id} ) { my $name = $hash->{NAME}; AMADDevice_WriteReadings($hash,$decode_json); Log3 $name, 4, "AMADDevice ($name) - find logical device: $hash->{NAME}"; return $hash->{NAME}; } else { return "UNDEFINED $fhemDevice AMADDevice $decode_json->{firstrun}{'amaddevice_ip'} $decode_json->{amad}{'amad_id'} IODev=$name"; } } ################################## ################################## #### my little helpers ########### sub AMADDevice_checkDeviceState($) { my ( $hash ) = @_; my $name = $hash->{NAME}; Log3 $name, 4, "AMADDevice ($name) - AMADDevice_checkDeviceState: run Check"; if( ReadingsAge( $name, ".deviceState", 240 ) > 240 ) { AMADDevice_statusRequest( $hash ) if( $hash->{helper}{deviceStateErrorCounter} == 0 ); readingsSingleUpdate( $hash, "deviceState", "offline", 1 ) if( ReadingsAge( $name, ".deviceState", 300) > 300 and $hash->{helper}{deviceStateErrorCounter} > 0 and ReadingsVal($name,'deviceState','online') ne 'offline' ); $hash->{helper}{deviceStateErrorCounter} = ( $hash->{helper}{deviceStateErrorCounter} + 1 ); } InternalTimer( gettimeofday()+240, "AMADDevice_checkDeviceState", $hash, 0 ); Log3 $name, 4, "AMADDevice ($name) - AMADDevice_checkDeviceState: set new Timer"; } sub AMADDevice_encrypt($) { my ($decodedPIN) = @_; my $key = getUniqueId(); my $encodedPIN; return $decodedPIN if( $decodedPIN =~ /^crypt:(.*)/ ); for my $char (split //, $decodedPIN) { my $encode = chop($key); $encodedPIN .= sprintf("%.2x",ord($char)^ord($encode)); $key = $encode.$key; } return 'crypt:'. $encodedPIN; } sub AMADDevice_decrypt($) { my ($encodedPIN) = @_; my $key = getUniqueId(); my $decodedPIN; $encodedPIN = $1 if( $encodedPIN =~ /^crypt:(.*)/ ); for my $char (map { pack('C', hex($_)) } ($encodedPIN =~ /(..)/g)) { my $decode = chop($key); $decodedPIN .= chr(ord($char)^ord($decode)); $key = $decode.$key; } return $decodedPIN; } 1; =pod =item device =item summary Integrates Android devices into FHEM and displays several settings. =item summary_DE Integriert Android-Geräte in FHEM und zeigt verschiedene Einstellungen an. =begin html

AMADDevice

=end html =begin html_DE

AMADDevice

    AMADDevice - Automagic Android Device
    Dieses Modul liefert, in Verbindung mit der Android APP Automagic, diverse Informationen von Android Geräten. Die AndroidAPP Automagic (welche nicht von mir stammt und 2.90 Euro kostet) funktioniert wie Tasker, ist aber bei weitem User freundlicher.
    Mit etwas Einarbeitung können jegliche Informationen welche Automagic bereit stellt in FHEM angezeigt werden. Hierzu bedarf es lediglich eines eigenen Flows welcher seine Daten an die AMADDeviceCommBridge sendet. Das Modul gibt auch die Möglichkeit Androidgeräte zu steuern.
    Für all diese Aktionen und Informationen wird auf dem Androidgerät "Automagic" und ein so genannter Flow benötigt. Die App ist über den Google PlayStore zu beziehen. Das benötigte Flowset bekommt man aus dem FHEM Verzeichnis.

    Wie genau verwendet man nun AMADDevice?
    • stelle sicher das als aller erstes die AMADCommBridge in FHEM definiert wurde
    • installiere die App "Automagic Premium" aus dem PlayStore.
    • installiere das Flowset 74_AMADDeviceautomagicFlowset$VERSION.xml aus dem Ordner $INSTALLFHEM/FHEM/lib/ auf dem Androidgerät
    • aktiviere den Installationsassistanten Flow in Automagic. Wenn man nun Automagic in den Hintergrund schickt, z.B. Hometaste drücken, startet der Assistant und legt automatisch ein Device für das Androidgerät an.


    Ein AMADDevice Gerät von Hand anlegen.

    Define

      10.6.9.10 1496497380000 IODev=AMADBridge define <name> AMADDevice <IP-ADRESSE> <AMAD_ID> IODev=<IODEVICE>

      Beispiel:

        define WandTabletWohnzimmer AMADDevice 192.168.0.23 123456 IODev=NAME_des_AMADCommBridge_Devices

      In diesem Fall wird ein AMADDevice von Hand angelegt. Die AMAD_ID, hier 123456, muß auch exakt so als globale Variable in Automagic eingetragen sein.



    Readings
    • airplanemode - Status des Flugmodus
    • androidVersion - aktuell installierte Androidversion
    • automagicState - Statusmeldungen von der AutomagicApp (Voraussetzung Android >4.3). Ist Android größer 4.3 vorhanden und im Reading steht "wird nicht unterstützt", muß in den Androideinstellungen unter Ton und Benachrichtigungen -> Benachrichtigungszugriff ein Haken für Automagic gesetzt werden
    • batteryHealth - Zustand der Battery (1=unbekannt, 2=gut, 3=Überhitzt, 4=tot, 5=Überspannung, 6=unbekannter Fehler, 7=kalt)
    • batterytemperature - Temperatur der Batterie
    • bluetooth - on/off, Bluetooth Status an oder aus
    • checkActiveTask - Zustand einer zuvor definierten APP. 0=nicht aktiv oder nicht aktiv im Vordergrund, 1=aktiv im Vordergrund, siehe Hinweis unten
    • connectedBTdevices - eine Liste der verbundenen Gerät
    • connectedBTdevicesMAC - eine Liste der MAC Adressen aller verbundender BT Geräte
    • currentMusicAlbum - aktuell abgespieltes Musikalbum des verwendeten Mediaplayers
    • currentMusicApp - aktuell verwendeter Mediaplayer (Amazon Music, Google Play Music, Google Play Video, Spotify, YouTube, TuneIn Player, Aldi Life Music)
    • currentMusicArtist - aktuell abgespielter Musikinterpret des verwendeten Mediaplayers
    • currentMusicIcon - Cover vom aktuell abgespielten Album Noch nicht fertig implementiert
    • currentMusicState - Status des aktuellen/zuletzt verwendeten Mediaplayers
    • currentMusicTrack - aktuell abgespielter Musiktitel des verwendeten Mediaplayers
    • daydream - on/off, Daydream gestartet oder nicht
    • deviceState - Status des Androidgerätes. unknown, online, offline.
    • doNotDisturb - aktueller Status des nicht stören Modus
    • dockingState - undocked/docked Status ob sich das Gerät in einer Dockinstation befindet.
    • flow_SetCommands - active/inactive, Status des SetCommands Flow
    • flow_informations - active/inactive, Status des Informations Flow
    • flowsetVersionAtDevice - aktuell installierte Flowsetversion auf dem Device
    • incomingCallerName - Anrufername des eingehenden Anrufes
    • incomingCallerNumber - Anrufernummer des eingehenden Anrufes
    • incommingWhatsAppMessageFrom - letzte WhatsApp Nachricht
    • incommingWhatsTelegramMessageFrom - letzte Telegram Nachricht
    • intentRadioName - zuletzt gesrreamter Intent Radio Name
    • intentRadioState - Status des IntentRadio Players
    • keyguardSet - 0/1 Displaysperre gesetzt 0=nein 1=ja, bedeutet nicht das sie gerade aktiv ist
    • lastSetCommandError - letzte Fehlermeldung vom set Befehl
    • lastSetCommandState - letzter Status vom set Befehl, Befehl erfolgreich/nicht erfolgreich gesendet
    • lastStatusRequestError - letzte Fehlermeldung vom statusRequest Befehl
    • lastStatusRequestState - letzter Status vom statusRequest Befehl, Befehl erfolgreich/nicht erfolgreich gesendet
    • nextAlarmDay - aktiver Alarmtag
    • nextAlarmState - aktueller Status des "Androidinternen" Weckers
    • nextAlarmTime - aktive Alarmzeit
    • powerLevel - Status der Batterie in %
    • powerPlugged - Netzteil angeschlossen? 0=NEIN, 1|2=JA
    • screen - on locked/unlocked, off locked/unlocked gibt an ob der Bildschirm an oder aus ist und gleichzeitig gesperrt oder nicht gesperrt
    • screenBrightness - Bildschirmhelligkeit von 0-255
    • screenFullscreen - on/off, Vollbildmodus (An,Aus)
    • screenOrientation - Landscape,Portrait, Bildschirmausrichtung (Horizontal,Vertikal)
    • screenOrientationMode - auto/manual, Modus für die Ausrichtung (Automatisch, Manuell)
    • state - aktueller Status
    • userFlowState - aktueller Status eines Flows, festgelegt unter dem setUserFlowState Attribut
    • volume - Media Lautstärkewert
    • volumeNotification - Benachrichtigungs Lautstärke

      • Beim Reading checkActivTask muß zuvor der Packagename der zu prüfenden App als Attribut checkActiveTask angegeben werden. Beispiel: attr Nexus10Wohnzimmer checkActiveTask com.android.chrome für den Chrome Browser.



    Set
    • activateVoiceInput - aktiviert die Spracheingabe
    • bluetooth - on/off, aktiviert/deaktiviert Bluetooth
    • clearNotificationBar - All,Automagic, löscht alle Meldungen oder nur die Automagic Meldungen in der Statusleiste
    • closeCall - beendet einen laufenden Anruf
    • currentFlowsetUpdate - fürt ein Flowsetupdate auf dem Device durch
    • doNotDisturb - schaltet den nicht stören Modus, always immer stören, never niemals stören, alarmClockOnly nur Wecker darf stören, onlyImportant nur wichtige Störungen
    • installFlowSource - installiert einen Flow auf dem Device, das XML File muss unter /tmp/ liegen und die Endung xml haben. Bsp: set TabletWohnzimmer installFlowSource WlanUebwerwachen.xml
    • mediaAmazonMusic - play, stop, next, back ,steuert den Amazon Musik Mediaplayer
    • mediaGoogleMusic - play, stop, next, back ,steuert den Google Play Musik Mediaplayer
    • mediaSpotifyMusic - play, stop, next, back ,steuert den Spotify Mediaplayer
    • mediaTuneinRadio - play, stop, next, back ,steuert den TuneIn Radio Mediaplayer
    • mediaAldiMusic - play, stop, next, back ,steuert den Aldi Musik Mediaplayer
    • mediaAudible - play, stop, next, back ,steuert den Audible Mediaplayer
    • mediaYouTube - play, stop, next, back ,steuert den YouTube Mediaplayer
    • mediaVlcPlayer - play, stop, next, back ,steuert den VLC Mediaplayer
    • nextAlarmTime - setzt die Alarmzeit. gilt aber nur innerhalb der nächsten 24Std.
    • openCall - ruft eine Nummer an und legt optional nach X Sekunden auf / set DEVICE openCall 01736458 10 / ruft die Nummer an und beendet den Anruf nach 10s
    • screenBrightness - setzt die Bildschirmhelligkeit, von 0-255.
    • screenMsg - versendet eine Bildschirmnachricht
    • sendintent - sendet einen Intentstring Bsp: set $AMADDeviceDEVICE sendIntent org.smblott.intentradio.PLAY url http://stream.klassikradio.de/live/mp3-192/stream.klassikradio.de/play.m3u name Klassikradio, der erste Befehl ist die Aktion und der zweite das Extra. Es können immer zwei Extras mitgegeben werden.
    • sendSMS - sendet eine SMS an eine bestimmte Telefonnummer. Bsp.: sendSMS Dies ist ein Test|555487263
    • startDaydream - startet den Daydream
    • statusRequest - Fordert einen neuen Statusreport beim Device an. Es können nicht von allen Readings per statusRequest die Daten geholt werden. Einige wenige geben nur bei Statusänderung ihren Status wieder.
    • timer - setzt einen Timer innerhalb der als Standard definierten ClockAPP auf dem Device. Es können nur Sekunden angegeben werden.
    • ttsMsg - versendet eine Nachricht welche als Sprachnachricht ausgegeben wird
    • userFlowState - aktiviert oder deaktiviert einen oder mehrere Flows,set Nexus7Wohnzimmer Badezimmer vorheizen:inactive oder set Nexus7Wohnzimmer Badezimmer vorheizen,Nachtlicht Steven:inactive
    • vibrate - lässt das Androidgerät vibrieren
    • volume - setzt die Medialautstärke. Entweder die internen Lautsprecher oder sofern angeschlossen die Bluetoothlautsprecher und per Klinkenstecker angeschlossene Lautsprecher, + oder - vor dem Wert reduziert die aktuelle Lautstärke um den Wert. Der maximale Sliderwert kann über das Attribut setVolMax geregelt werden.
    • volumeUp - erhöh;t die Lautstärke um den angegeben Wert im entsprechenden Attribut. Ist kein Attribut angegeben wird per default 2 genommen.
    • volumeDown - reduziert die Lautstärke um den angegeben Wert im entsprechenden Attribut. Ist kein Attribut angegeben wird per default 2 genommen.
    • volumeNotification - setzt die Benachrichtigungslautstärke.

    Set abhängig von gesetzten Attributen
    • changetoBtDevice - wechselt zu einem anderen Bluetooth Gerät. Attribut setBluetoothDevice muß gesetzt sein. Siehe Hinweis unten!
    • notifySndFile - spielt die angegebene Mediadatei auf dem Androidgerät ab. Die aufzurufende Mediadatei sollte sich im Ordner /storage/emulated/0/Notifications/ befinden. Ist dies nicht der Fall kann man über das Attribut setNotifySndFilePath einen Pfad vorgeben.
    • openApp - öffnet eine ausgewählte App. Attribut setOpenApp
    • openURL - öffnet eine URL im Standardbrowser, sofern kein anderer Browser über das Attribut setOpenUrlBrowser ausgewählt wurde. Bsp: attr Tablet setOpenUrlBrowser de.ozerov.fully|de.ozerov.fully.MainActivity, das erste ist der Package Name und das zweite der Class Name
    • setAPSSID - setzt die AccessPoint SSID um ein WLAN sleep zu verhindern
    • screen - on/off/lock/unlock schaltet den Bildschirm ein/aus oder sperrt/entsperrt ihn, in den Automagic Einstellungen muss "Admin Funktion" gesetzt werden sonst funktioniert "Screen off" nicht. Attribut setScreenOnForTimer ändert die Zeit wie lange das Display an bleiben soll!
    • screenFullscreen - on/off, (aktiviert/deaktiviert) den Vollbildmodus. Attribut setFullscreen
    • screenLock - Sperrt den Bildschirm mit Pinabfrage. Attribut setScreenlockPIN - hier die Pin dafür eingeben. Erlaubt sind nur Zahlen. Es müßen mindestens 4, bis max 16 Zeichen verwendet werden.
    • screenOrientation - Auto,Landscape,Portait, aktiviert die Bildschirmausrichtung (Automatisch,Horizontal,Vertikal). Attribut setScreenOrientation
    • system - setzt Systembefehle ab (nur bei gerootetet Geräen). reboot,shutdown,airplanemodeON (kann nur aktiviert werden) Attribut root, in den Automagic Einstellungen muss "Root Funktion" gesetzt werden
    • setNotifySndFilePath - setzt den korrekten Systempfad zur Notifydatei (default ist /storage/emulated/0/Notifications/
    • setTtsMsgSpeed - setzt die Sprachgeschwindigkeit bei der Sprachausgabe(Werte zwischen 0.5 bis 4.0 in 0.5er Schritten) default ist 1.0
    • setTtsMsgSpeed - setzt die Sprache bei der Sprachausgabe, de oder en (default ist de)
    • setVolUpDownStep - setzt den Step für volumeUp und volumeDown
    • setVolMax - setzt die maximale Volume Gr&uoml;e für den Slider
    • setNotifyVolMax - setzt den maximalen Lautstärkewert für Benachrichtigungslautstärke für den Slider
    • setRingSoundVolMax - setzt den maximalen Lautstärkewert für Klingellautstärke für den Slider

      • Um openApp verwenden zu können, muss als Attribut der Package Name der App angegeben werden.

      Um zwischen Bluetoothgeräten wechseln zu können, muß das Attribut setBluetoothDevice mit folgender Syntax gesetzt werden. attr <DEVICE> BTdeviceName1|MAC,BTDeviceName2|MAC Es muss zwingend darauf geachtet werden das beim BTdeviceName kein Leerzeichen vorhanden ist. Am besten zusammen oder mit Unterstrich. Achtet bei der MAC darauf das Ihr wirklich nach jeder zweiten Zahl auch einen : drin habt
      Beispiel: attr Nexus10Wohnzimmer setBluetoothDevice Logitech_BT_Adapter|AB:12:CD:34:EF:32,Anker_A3565|GH:56:IJ:78:KL:76


    state
    • initialized - Ist der Status kurz nach einem define.
    • active - die Geräteinstanz ist im aktiven Status.
    • disabled - die Geräteinstanz wurde über das Attribut disable deaktiviert



    Anwendungsbeispiele:


=end html_DE =cut