From f432a05c9d333113f855e243c809a858309dd171 Mon Sep 17 00:00:00 2001 From: rudolfkoenig Date: Sat, 1 Jun 2013 17:09:32 +0000 Subject: [PATCH] Some indent-fixing git-svn-id: https://svn.fhem.de/fhem/trunk@3233 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/Blocking.pm | 46 +++++++++++++++++++++---------------------- 1 file changed, 23 insertions(+), 23 deletions(-) diff --git a/fhem/FHEM/Blocking.pm b/fhem/FHEM/Blocking.pm index 1331180f5..c731aa931 100644 --- a/fhem/FHEM/Blocking.pm +++ b/fhem/FHEM/Blocking.pm @@ -30,34 +30,34 @@ BlockingCall($$@) # Look for the telnetport # must be done before forking to be able to create a temporary device - my $tName = "telnetForBlockingFn"; - $telnetDevice = $tName if($defs{$tName}); + my $tName = "telnetForBlockingFn"; + $telnetDevice = $tName if($defs{$tName}); - if(!$telnetDevice) { - foreach my $d (sort keys %defs) { - my $h = $defs{$d}; - next if(!$h->{TYPE} || $h->{TYPE} ne "telnet" || $h->{SNAME}); - next if($attr{$d}{SSL} || $attr{$d}{password}); - next if($h->{DEF} =~ m/IPV6/); - $telnetDevice = $d; - last; - } + if(!$telnetDevice) { + foreach my $d (sort keys %defs) { + my $h = $defs{$d}; + next if(!$h->{TYPE} || $h->{TYPE} ne "telnet" || $h->{SNAME}); + next if($attr{$d}{SSL} || $attr{$d}{password}); + next if($h->{DEF} =~ m/IPV6/); + $telnetDevice = $d; + last; } + } - # If not suitable telnet device found, create a temporary one - if(!$telnetDevice) { - if(!CommandDefine(undef, "$tName telnet 0")) { - CommandAttr(undef, "$tName room hidden"); - $telnetDevice = $tName; - $defs{$tName}{TEMPORARY} = 1; - } + # If not suitable telnet device found, create a temporary one + if(!$telnetDevice) { + if(!CommandDefine(undef, "$tName telnet 0")) { + CommandAttr(undef, "$tName room hidden"); + $telnetDevice = $tName; + $defs{$tName}{TEMPORARY} = 1; } + } - if(!$telnetDevice) { - my $msg = "CallBlockingFn: No telnet port found and cannot create one."; - Log 1, $msg; - return $msg; - } + if(!$telnetDevice) { + my $msg = "CallBlockingFn: No telnet port found and cannot create one."; + Log 1, $msg; + return $msg; + } # do fork my $pid = fork;