FHEM Forum

FHEM => Anfängerfragen => Thema gestartet von: MichaelT am 25 Januar 2022, 06:53:17

Titel: (Verschoben) UPNPController funktionieren nach update (fhem.pl) nicht mehr
Beitrag von: MichaelT am 25 Januar 2022, 06:53:17
Hallo,

ich habe die Module von KölnSolar https://forum.fhem.de/index.php/topic,118837.0.html (https://forum.fhem.de/index.php/topic,118837.0.html) im Einsatz und seit dem Update von gestern funktionieren sie nicht mehr (immer offline).
Wenn ich fhem.pl zurück ändere, geht es wieder.

Ggf. kann rudolfkoenig oder KölnSolar dazu was sagen.

Danke und Gruß
Michael


fhem2@nucHome:~ $ diff fhem.pl restoreDir/update/2022-01-24/fhem.pl
22c22
< # $Id: fhem.pl 25544 2022-01-22 15:42:45Z rudolfkoenig $
---
> # $Id: fhem.pl 25450 2022-01-10 14:49:44Z rudolfkoenig $
158d157
< sub setNotifyDev($$);
277c276
< my $cvsid = '$Id: fhem.pl 25544 2022-01-22 15:42:45Z rudolfkoenig $';
---
> my $cvsid = '$Id: fhem.pl 25450 2022-01-10 14:49:44Z rudolfkoenig $';
4112,4113d4110
<         my ($order, $mname) = split(":", $m);
<         next if($modules{$mname}{LOADED}); # checked in the loop above, #125292
4114a4112,4113
>           my ($order, $mname) = split(":", $m);
>
4123d4121
<               delete($hash->{".clientArray"});
4144a4143
>           delete($hash->{".clientArray"});
5178d5176
<     my @cmRe = map { qr/^$_$/ } @mRe;  # 125292, precompile, speedup 5x for CUL
5181,5182c5179,5180
<       foreach my $re (@cmRe) {
<         if($m =~ $re) {
---
>       foreach my $re (@mRe) {
>         if($m =~ m/^$re$/) {
5355c5353
<       while($in2 =~ m/^\s*"([^"]*)"\s*:\s*(.*)$/s) { # 125340
---
>       while($in2 =~ m/^\s*"([^"]+)"\s*:\s*(.*)$/s) {
5381,5382c5379
<     } elsif($val =~ m/^((-?[0-9.]+)([eE][+-]?[0-9]+)?)(.*)$/ && # 125340
<             looks_like_number($1)) {
---
>     } elsif($val =~ m/^([0-9.-]+)(.*)$/s) {
5384c5381
<       $in = $4;
---
>       $in = $2;
5607,5619d5603
< }
<
< sub
< setNotifyDev($$)
< {
<   my ($hash, $ntfydev) = @_;
<
<   if($ntfydev) {
<     $hash->{NOTIFYDEV} = $ntfydev;
<   } else {
<     delete($hash->{NOTIFYDEV});
<   }
<   %ntfyHash = ();