From e59539d42a03cc0506b677ae9dbeb9a66d34a8af Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 1 Jul 2016 07:25:42 +0000
Subject: [PATCH] DevIo.pm: add optional $hash->{nextOpenDelay} (Forum #53309)

git-svn-id: https://svn.fhem.de/fhem/trunk@11727 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/DevIo.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/DevIo.pm b/fhem/FHEM/DevIo.pm
index 3bc294bd0..047065004 100644
--- a/fhem/FHEM/DevIo.pm
+++ b/fhem/FHEM/DevIo.pm
@@ -200,6 +200,7 @@ DevIo_OpenDev($$$;$)
   my $baudrate;
   ($dev, $baudrate) = split("@", $dev);
   my ($databits, $parity, $stopbits) = (8, 'none', 1);
+  my $nextOpenDelay = ($hash->{nextOpenDelay} ? $hash->{nextOpenDelay} : 60);
 
   my $doCb = sub ($) {
     my ($r) = @_;
@@ -217,7 +218,7 @@ DevIo_OpenDev($$$;$)
       if($ret) {
         if($hadFD && !defined($hash->{FD})) { # Forum #54732 / ser2net
           DevIo_Disconnected($hash);
-          $hash->{NEXT_OPEN} = time()+60;
+          $hash->{NEXT_OPEN} = time() + $nextOpenDelay;
 
         } else {
           DevIo_CloseDev($hash);
@@ -316,7 +317,7 @@ DevIo_OpenDev($$$;$)
         Log3 $name, 3, "Can't connect to $dev: $!" if(!$reopen);
         $readyfnlist{"$name.$dev"} = $hash;
         DevIo_setStates($hash, "disconnected");
-        $hash->{NEXT_OPEN} = time()+60;
+        $hash->{NEXT_OPEN} = time() + $nextOpenDelay;
         return 0;
       }