FHEM Forum

FHEM - Hausautomations-Systeme => Unterstützende Dienste => Thema gestartet von: franky08 am 06 März 2016, 13:10:43

Titel: [erledigt] "PERL WARNING: Use of uninitialized value", Kalender sub
Beitrag von: franky08 am 06 März 2016, 13:10:43
Hallo, ich erhalte seit kurzem folgende Warnung im Log
PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 53.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 56.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 59.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 62.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 65.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 68.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 71.
2016.03.06 11:36:56 1: PERL WARNING: Use of uninitialized value $Kalendertext in pattern match (m//) at ./FHEM/99_myicalUtils.pm line 74.


Die betreffende sub:
sub Kalenderende ($) {
my ($Ereignis) = @_;
my @Ereignisarray = split(/.*:\s/,$Ereignis);
my $Ereignisteil1 = $Ereignisarray[1];
my @uids=split(/;/,$Ereignisteil1);
foreach my $uid (@uids) {
my $Kalendertext = fhem("get Kalender_Frank summary $uid");
if ($Kalendertext =~ /Blaue Tonne/) {
fhem("set Blaue_dummy nein");
}
if ($Kalendertext =~ /Restabfallsammlung .*/) {
fhem("set Restabfall_dummy nein");
}
                if ($Kalendertext =~ /Tonne/) {
fhem("set Abfall_dummy nein");
                }
                if ($Kalendertext =~ /Abfall_morgen/) {
fhem("set Abfall_dummy_morgen nein");
}
                if ($Kalendertext =~ /DbLog_aufr/) {
fhem("set DbLog_dummy off");
}
                if ($Kalendertext =~ /bl.Tonne/) {
fhem("set Blauetonne_dummy nein");
                }
                if ($Kalendertext =~ /Blauetonne_morgen/) {
fhem("set Blauetonne_dummy_morgen nein");
}
                if ($Kalendertext =~ /Gelbersack_morgen/) {
fhem("set Gelbersack_dummy_morgen nein");
}
}
}


Das funktionierte bis zu einem der letzten updates ohne Probleme, wo liegt mein Fehler? Hat sich da irgendwas geändert?

VG
Frank
Titel: Antw:Seit einiger Zeit "PERL WARNING: Use of uninitialized value", Kalender sub
Beitrag von: franky08 am 06 März 2016, 15:10:42
Ahh, habe jetzt folgendes gefunden:
Zitat von: chris1284 am 27 Februar 2016, 18:57:23
das problem ist
define Abfall_Update notify Abfall:(modeUpcoming|modeAlarmOrStart).* {Abfalltermine("$EVENT")}
attr Abfall_Update room Kalender


das event beinhaltet keine uids mehr wie früher die ihr an eure my utils übergeben könntet sondern nur eine, ds wort "triggered".

nutz doch einfach das abfall modul, wer das nicht will muss sein notfy auf calender triggered setzen und in myutils mit get calendar uid next erstmal selbt alle uids holen und dann wie gehabt den text dazu den ihr dann in eure dummys schreiben könnt.

modul ABFALL ist definitiv einfacher  bzw diese und calview könnt ihr im code analysieren und in eure utils übernehmen

Muss ich dann wohl umbauen.

VG
Frank