FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-30 18:12:28 +00:00
Code Issues Releases Wiki Activity

Some indent-fixing

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3233 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-06-01 17:09:32 +00:00
parent 0ab9207915
commit ea094c57ba
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
fhem/FHEM/Blocking.pm
View File

@ -30,34 +30,34 @@ BlockingCall($$@)
# Look for the telnetport # Look for the telnetport
# must be done before forking to be able to create a temporary device # must be done before forking to be able to create a temporary device
my $tName = "telnetForBlockingFn"; my $tName = "telnetForBlockingFn";
$telnetDevice = $tName if($defs{$tName}); $telnetDevice = $tName if($defs{$tName});
if(!$telnetDevice) { if(!$telnetDevice) {
foreach my $d (sort keys %defs) { foreach my $d (sort keys %defs) {
my $h = $defs{$d}; my $h = $defs{$d};
next if(!$h->{TYPE} || $h->{TYPE} ne "telnet" || $h->{SNAME}); next if(!$h->{TYPE} || $h->{TYPE} ne "telnet" || $h->{SNAME});
next if($attr{$d}{SSL} || $attr{$d}{password}); next if($attr{$d}{SSL} || $attr{$d}{password});
next if($h->{DEF} =~ m/IPV6/); next if($h->{DEF} =~ m/IPV6/);
$telnetDevice = $d; $telnetDevice = $d;
last; last;
}
} }
}
# If not suitable telnet device found, create a temporary one # If not suitable telnet device found, create a temporary one
if(!$telnetDevice) { if(!$telnetDevice) {
if(!CommandDefine(undef, "$tName telnet 0")) { if(!CommandDefine(undef, "$tName telnet 0")) {
CommandAttr(undef, "$tName room hidden"); CommandAttr(undef, "$tName room hidden");
$telnetDevice = $tName; $telnetDevice = $tName;
$defs{$tName}{TEMPORARY} = 1; $defs{$tName}{TEMPORARY} = 1;
}
} }
}
if(!$telnetDevice) { if(!$telnetDevice) {
my $msg = "CallBlockingFn: No telnet port found and cannot create one."; my $msg = "CallBlockingFn: No telnet port found and cannot create one.";
Log 1, $msg; Log 1, $msg;
return $msg; return $msg;
} }
# do fork # do fork
my $pid = fork; my $pid = fork;