From d8d34eeb52c933b1428f1bfd701c807460c4b968 Mon Sep 17 00:00:00 2001
From: pahenning <pahenning@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 4 May 2016 10:31:34 +0000
Subject: [PATCH] DoorPi.pm: 1.0beta5

git-svn-id: https://svn.fhem.de/fhem/trunk@11385 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DoorPi/70_DoorPi.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/fhem/contrib/DoorPi/70_DoorPi.pm b/fhem/contrib/DoorPi/70_DoorPi.pm
index a67ac585a..42aabeb65 100644
--- a/fhem/contrib/DoorPi/70_DoorPi.pm
+++ b/fhem/contrib/DoorPi/70_DoorPi.pm
@@ -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)){