mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 12:49:34 +00:00
Some indent-fixing
git-svn-id: https://svn.fhem.de/fhem/trunk@3233 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
0ab9207915
commit
ea094c57ba
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user