FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

Blocking.pm: Filter for password in Authenticate (Forum #46380)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10329 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-01-02 13:55:33 +00:00
parent 0b68b24ea1
commit 6035ace0ce
1 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
fhem/FHEM/Blocking.pm
View File

@ -33,38 +33,37 @@ BlockingCall($$@)
{
my ($blockingFn, $arg, $finishFn, $timeout, $abortFn, $abortArg) = @_;
# 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});
# Look for the telnetport. Must be done before forking to be able to create a
# temporary device. Do it each time, as the old telnet may got a password
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} ||
AttrVal($d, "allowfrom", "127.0.0.1") ne "127.0.0.1");
next if($h->{DEF} !~ m/^\d+( global)?$/);
next if($h->{DEF} =~ m/IPV6/);
$telnetDevice = $d;
last;
}
$telnetDevice = undef;
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} ||
AttrVal($d, "allowfrom", "127.0.0.1") ne "127.0.0.1");
next if($h->{DEF} !~ m/^\d+( global)?$/);
next if($h->{DEF} =~ m/IPV6/);
my %cDev = ( SNAME=>$d, TYPE=>$h->{TYPE}, NAME=>$d.time() );
next if(Authenticate(\%cDev, undef) == 2); # Needs password
$telnetDevice = $d;
last;
}
# If not suitable telnet device found, create a temporary one
if(!$telnetDevice) {
my $ret = CommandDefine(undef, "$tName telnet 0");
$telnetDevice = "telnetForBlockingFn_".time();
my $ret = CommandDefine(undef, "$telnetDevice telnet 0");
if($ret) {
$ret = "BlockingCall ($blockingFn): ".
"No telnet port found and cannot create one: $ret";
Log 1, $ret;
return $ret;
}
CommandAttr(undef, "$tName room hidden");
$telnetDevice = $tName;
$defs{$tName}{TEMPORARY} = 1;
$attr{$tName}{allowfrom} = "127.0.0.1";
CommandAttr(undef, "$telnetDevice room hidden");
$defs{$telnetDevice}{TEMPORARY} = 1;
$attr{$telnetDevice}{allowfrom} = "127.0.0.1";
}
# do fork
@ -75,8 +74,8 @@ BlockingCall($$@)
}
if($pid) {
Log 4, "BlockingCall ($blockingFn) created child ($pid), ".
"uses $tName to connect back";
Log 4, "BlockingCall ($blockingFn): created child ($pid), ".
"uses $telnetDevice to connect back";
my %h = ( pid=>$pid, fn=>$blockingFn, finishFn=>$finishFn,
abortFn=>$abortFn, abortArg=>$abortArg );
if($timeout) {