FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 17:26:34 +00:00
Code Issues Releases Wiki Activity

DoorPi.pm: 1.0beta5

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11385 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
pahenning 2016-05-04 10:31:34 +00:00
parent 121ece7942
commit 118409a5b2
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/contrib/DoorPi/70_DoorPi.pm
View File

@ -39,7 +39,7 @@ use vars qw{%attr %defs};
sub Log($$);
#-- globals on start
my $version = "1.0beta4";
my $version = "1.0beta5";
#-- these we may get on request
my %gets = (
@ -153,11 +153,11 @@ sub DoorPi_Attr(@) {
my $hash = $main::defs{$name};
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
# TODO
}
}
#if ( $do eq "set") {
# ARGUMENT_HANDLER: {
# # TODO
# }
#}
return
}
@ -240,12 +240,12 @@ sub DoorPi_Set ($@) {
$value = shift @a;
return "[DoorPi_Set] With unknown argument $key, choose one of " . join(" ", @{$hash->{HELPER}->{CMDS}})
if ( !grep( /$key/, @{$hash->{HELPER}->{CMDS}} ) && ($key ne "call") && ($key n "door") );
if ( !grep( /$key/, @{$hash->{HELPER}->{CMDS}} ) && ($key ne "call") && ($key ne "door") );
#-- hidden command to be used by DoorPi for adding a new call
if( $key eq "call" ){
if( $value eq "start" ){
readingsSingleUpdate($hash,"call","started",1);e
readingsSingleUpdate($hash,"call","started",1);
}elsif( $value eq "end" ){
readingsSingleUpdate($hash,"call","ended",1);
DoorPi_GetHistory($hash);
@ -257,7 +257,7 @@ sub DoorPi_Set ($@) {
DoorPi_GetHistory($hash);
}
#-- door opening - either from FHEM, or just as message from DoorPi
}elsif( ($key eq "$door")||($key eq "door" ){
}elsif( ($key eq "$door")||($key eq "door") ){
if( $value eq "open" ){
$v=DoorPi_Cmd($hash,"door");
if(AttrVal($name, "dooropencmd",undef)){