[erledigt] "PERL WARNING: Use of uninitialized value", Kalender sub

[franky08]

Hallo, ich erhalte seit kurzem folgende Warnung im Log

Code Auswählen Erweitern

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:

Code Auswählen Erweitern

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

[franky08]

Ahh, habe jetzt folgendes gefunden:

das problem ist

Code Auswählen Erweitern

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