From ff9e647dfc4536d9496df0a968eafb0bb4a6ece8 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 13 Dec 2017 21:39:28 +0100
Subject: [PATCH] fix iodev error on autocreate

---
 74_AMADDevice.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm
index fcbf5dd..7d4e971 100644
--- a/74_AMADDevice.pm
+++ b/74_AMADDevice.pm
@@ -140,18 +140,18 @@ sub AMADDevice_Define($$) {
     my $i = 0;
 
     ######## Kann in kommenden Versionen gelöscht werden ###############
-    #foreach my $param ( @a ) {
-    #    if( $param =~ m/IODev=([^\s]*)/ ) {
+    foreach my $param ( @a ) {
+        if( $param =~ m/IODev=([^\s]*)/ ) {
         
-    #        $iodev = $1;
-    #        splice( @a, $i, 3 );
-    #        last;
-    #    }
+            $iodev = $1;
+            splice( @a, $i, 4 );
+            last;
+        }
         
-    #    $i++;
-    #}
+        $i++;
+    }
     
-    return "too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>" if( @a != 5 );
+    return "too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>" if( @a != 4 );
     return "Cannot define a AMAD device. Perl modul $missingModul is missing." if ( $missingModul );