FHEM

[Beta-User]

...my $foo = 'ba' if $baz?!?

Vielleicht eher caller?
https://kb.wisc.edu/iam/page.php?id=4309

(und ergänzend mal ein grep nach der sub über die cfg laufen lassen kann auch nicht schaden)

[CoolTux]

...my $foo = 'ba' if $baz?!?

Vielleicht eher caller?
https://kb.wisc.edu/iam/page.php?id=4309

(und ergänzend mal ein grep nach der sub über die cfg laufen lassen kann auch nicht schaden)

Können wir dann auch gerne noch probieren.

[Beta-User]

irgendwie sieht mir das nach einer verwaisten myUtils-Geschichte aus, das grep sollte daher auch die myUtisl-Dateien umfassen.

Ansonsten: qed...

[CoolTux]

Code Auswählen Erweitern

sub GetUpdate {
    my ( $package, $filename, $line ) = caller();
    Log3( $name, 1, qq{DEBUG!!! myUtils Name ist $filename, $package, $line} );
}

Hoffe das geht so. Ungetestet

[Beta-User]

eher:

Code Auswählen Erweitern

sub GetUpdate {
    my $parent = ( caller(1) )[3];   
    my $file = ( caller(1) )[2];
    Log3( $name, 1, qq{DEBUG! myUtils Name ist $file, $parent} );
}Aber es sieht so aus, als käme man der Sache auch so näher...
Oder den caller-Stack noch um eines erhöhen.

Aber wenn es aus fhem.pl aufgerufen wird, klingt das danach, als wäre der Aufruf in der cfg zu finden.

[Beta-User]

Code Auswählen Erweitern

Global symbol "$name" requires explicit package name (did you forget to declare "my $name"?) at ./FHEM/99_myUtils.pm line 35.

Ah, sorry, einfach undef statt $name (ohne Quotes).

[CoolTux]

Hab den Fehler gefunden. Steckt im 98_ComfoAir.pm.
Moment bitte.

[CoolTux]

ändere Zeile 395 in 98_ComfoAir.pm.

Code Auswählen Erweitern

InternalTimer(gettimeofday()+1, "ComfoAir::GetUpdate", $hash, 0);

Ändere Zeile 804

Code Auswählen Erweitern

InternalTimer(gettimeofday()+$hash->{INTERVAL}, "ComfoAir::GetUpdate", $hash, 0)

[CoolTux]

Ich werde Stefan einen Patch zukommen lassen

[Beta-User]

Ähm, das ist doch gepackaged!?!

Dann paßt dieser Befund mAn. nicht zu der Fehlermeldung aus dem ersten Post:

Code Auswählen Erweitern

&main::GetUpdate
Oder findet da ein Export statt?

[CoolTux]

Ok, DANKE ! , geändert, scheint zu laufen 

Wie war Deine ERSTE Version des subGetUpdate () ? um

Code Auswählen Erweitern

2021.04.12 14:01:46 1: DEBUG!!! myUtils Name ist KWL

Dein Beitrag um 13:59 VOR der Änderung ? dabei kam der Hinweis auf KWL bzw. 98_ComfoAir ...

Keine Ahnung mehr.
Aber nun lösche erstmal die myUtils Funktion und dann schauen wir mal ob es noch läuft

[Beta-User]

Wo kommt KWL her?

Nochmal: Diese Funktion von Stefan ist es vermutlich eher nicht, und es macht beim Starten ggf. Sinn, direkt ein update anzufordern.

Falls KWL die Vorgängerversion war von dem ComfAir-Ding: Diese (99-utils?) Datei umbenennen!

[Beta-User]

schau mal, ob du noch ein "WHR962" definiert hattest.

Ah, sorry, das deckt sich nicht mit dem patch:

ändere Zeile 395 in 98_ComfoAir.pm.

Code Auswählen Erweitern

InternalTimer(gettimeofday()+1, "ComfoAir::GetUpdate", $hash, 0);

Ändere Zeile 804

Code Auswählen Erweitern

InternalTimer(gettimeofday()+$hash->{INTERVAL}, "ComfoAir::GetUpdate", $hash, 0)

Da scheint im Original die erste Fassung so gestanden zu haben:

Code Auswählen Erweitern

InternalTimer(gettimeofday()+1, "GetUpdate", $hash, 0);

@CoolTux: Vermutlich ist das mit +1 schon gewollt, nur der Verweis geht ins Leere und sollte entweder mit dem Package-Prefix sein wie vorgeschlagen, oder eben dann als Funktionsreferenz übergeben werden:

Code Auswählen Erweitern

InternalTimer(gettimeofday()+1, \&GetUpdate, $hash, 0);

[Beta-User]

...dachte ich mir auch, nachdem ich die Diskrepanz zwischen dem Post hier und dem Patch gesehen habe - siehe meinen editierten Vorpost...

[CoolTux]

Code Auswählen Erweitern


InternalTimer(gettimeofday()+1, "GetUpdate", $hash, 0);


Dieser Aufruf der Funktion InternalTimer sorgt dafür das die Funktion GetUpdate im main Kontext aufgerufen wird. Das ist aber falsch. Denn die Funktion liegt im package Kontext von ComfoAir

ACHTUNG!!! Das sind 2 unterschiedliche Zeilen welche geändert werden müssen