From b95fc5d8a463d03fa5cc8b6b4d0c4cd965554d9b Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Thu, 15 Oct 2015 06:10:00 +0200 Subject: [PATCH] =?UTF-8?q?l=C3=B6schen=20der=20Benachrichtigungen=20in=20?= =?UTF-8?q?der=20Statusbar=20hinzugef=C3=BCgt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 74_AMAD.pm | 55 +- ....7.8.xml => 74_AMADautomagicFlows0.7.9.xml | 548 +++++++++++------- 2 files changed, 380 insertions(+), 223 deletions(-) rename 74_AMADautomagicFlows0.7.8.xml => 74_AMADautomagicFlows0.7.9.xml (72%) diff --git a/74_AMAD.pm b/74_AMAD.pm index dce13ec..5e1532b 100644 --- a/74_AMAD.pm +++ b/74_AMAD.pm @@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday); use HttpUtils; use TcpServerUtils; -my $version = "0.7.8"; +my $version = "0.7.9"; @@ -459,6 +459,7 @@ sub AMAD_Set($$@) { $list .= "system:reboot " if( AttrVal( $name, "root", "1" ) eq "1" ); $list .= "bluetooth:on,off "; $list .= "notifySndFile "; + $list .= "clearNotificationBar:All,Automagic "; $list .= "changetoBTDevice:$btdev " if( AttrVal( $name, "setBluetoothDevice", "none" ) ne "none" ); if( lc $cmd eq 'screenmsg' @@ -477,6 +478,7 @@ sub AMAD_Set($$@) { || lc $cmd eq 'system' || lc $cmd eq 'notifysndfile' || lc $cmd eq 'changetobtdevice' + || lc $cmd eq 'clearnotificationbar' || lc $cmd eq 'statusrequest' ) { Log3 $name, 5, "AMAD ($name) - set $name $cmd ".join(" ", @val); @@ -669,6 +671,14 @@ sub AMAD_SelectSetCmd($$@) { return AMAD_HTTP_POST( $hash,$url ); } + + elsif( lc $cmd eq 'clearnotificationbar' ) { + my $appname = join( " ", @data ); + + my $url = "http://" . $host . ":" . $port . "/fhem-amad/setCommands/clearnotificationbar?app=$appname"; + + return AMAD_HTTP_POST( $hash,$url ); + } return undef; } @@ -1108,7 +1118,8 @@ sub AMAD_CommBridge_Read($) {

Fertig! Nach anlegen der Geräteinstanz sollten nach spätestens 3 Minuten bereits die ersten Readings reinkommen. +


+ + AMAD Communication Bridge +

Readings

Set