Debian 5.7 Fehler nach Umzug von AVM 5.x

Begonnen von boeho, 09 Dezember 2015, 12:48:06

Vorheriges Thema - Nächstes Thema

boeho

Hallo,
bin etwas ratlos.
Ich bin beim Umzug von Fritz auf Intel NUC und dort habe ich nach Anleitung 5.7 installiert.
Natürlich hatte ich auch aus früheren Codeschnipseln % in meinen cfg's.
Habe alles geändert auf $EVENT, auf der Fritzbox läuft alles nach der Änderung.
Auf Debian 5.7 nicht.
Hier mal Auszüge von cfg und 99_myUtil.pm  :
1. mit attr featurelevel 5.6:
eine Mail wird gesendet via notify

fhem.cfg Auszug
attr global backupdir ./backup
attr global featurelevel 5.6
attr global holiday2we myJK_holiday

in cfg:
define Mail_Test_N notify Mail_Test:send {\
      my $m_adr=$value{"mail_adr"};;\
      my $m_sub="Test_Mail";;\
      {{HTML_Mail("$m_adr", "$m_sub")}};;\
}

in .pm:
sub HTML_Mail(@) {
   my @val = @_;
   my $c=0;
   my $tmpfile = "fhem_mail_body.html";
   my $nas_msg_f1 = $tmpfile."_nas_f1";
    my $nas_msg_f2 = $tmpfile."_nas_f2";
    my ($rcpt, $subject, $trenner, @htmlbody) = @_;
   Log(3,"in HTML_Mail: Empfaenger:".$rcpt." Subj:".$subject);

im log:
2015.12.09 11:53:42 3: in HTML_Mail: Empfaenger:kemxxx@yahoo.de Subj:Test_Mail
2015.12.09 11:53:42 3: Mail_Test_N return value: -1
----------------------------------------------------------------------------------------------

jetzt das gleiche in 5.7 (attr featurelevel ist auskommentiert)
mail_adr ist ein DUMMY für alle zum Auslesen gedacht.

log:
2015.12.09 12:07:40 2: SecurityCheck:  WEB,WEBphone,WEBtablet has no basicAuth attribute. telnetPort has no password/globalpassword attribute.  Restart FHEM for a new check if the problem is fixed, or set the global attribute motd to none to supress this message.
2015.12.09 12:07:40 0: Featurelevel: 5.7
2015.12.09 12:07:40 0: Server started with 534 defined entities (version $Id: fhem.pl 9993 2015-11-24 18:40:02Z rudolfkoenig $, os linux, user fhem, pid 26479)
2015.12.09 12:07:40 2: CUL_0: unknown message A00
2015.12.09 12:07:40 5: CUL_HM WZ_Thermostat protEvent:CMDs_pending pending:1
2015.12.09 12:07:40 5: CUL_HM WZ_Thermostat protEvent:CMDs_pending pending:2
2015.12.09 12:07:40 5: CUL_HM WZ_Thermostat protEvent:CMDs_pending pending:3
2015.12.09 12:07:40 3: CUL_HM set WZ_Thermostat statusRequest
2015.12.09 12:07:40 5: CUL_HM WZ_Thermostat protEvent:CMDs_processing... pending:3
2015.12.09 12:07:42 4: CUL_HM_Resend: WZ_Thermostat nr 2
2015.12.09 12:07:42 5: CUL_HM WZ_Thermostat protEvent:CMDs_pending pending:3
2015.12.09 12:08:00 1: PERL WARNING: Use of uninitialized value $m_adr in string at (eval 51) line 4.
2015.12.09 12:08:00 3: eval: my $EVENT='send';my $EVTPART0='send';my $SELF='Mail_Test_N';my $TYPE='dummy';my $NAME='Mail_Test';{
      my $m_adr=$value{"mail_adr"};
      my $m_sub="Test_Mail";
      {{HTML_Mail("$m_adr", "$m_sub")}};
}
2015.12.09 12:08:00 3: in HTML_Mail: Empfaenger: Subj:Test_Mail
2015.12.09 12:08:00 1: PERL WARNING: Use of uninitialized value $mail_adr in concatenation (.) or string at ./FHEM/99_myUtils.pm line 165.

Ich kann nicht die Ursache erkennen.
Kann jemand helfen?
Danke für Eure Hilfe

marvin78

Bitte hier im Forum Codetags verwenden. Das kann so niemand lesen.

$value{} funktioniert nich mehr. Bitte verwende Value(). Das steht ebenfalls in den Hinweisen zu featurelevel 5.7.

boeho

Danke für die schnelle Antwort, es geht jetzt.
CodeTags muss ich dran denken.