Hallo Forum,
ich habe ein Problem mit dem Muellkalender.
Die Notifier funktionieren nicht.
Im Log sieht man, dass der Kalender funktioniert:
2016.11.22 00:00:00 3: get Muelltonnen_Kalender summary gwa_327BT2_20161122 : Biotonne
In der 99_myUtils.pm habe ich mit den Kalendertexten BT2 und Biotonne experimentiert. Beides funktioniert nicht.
Ich hoffe es kann mir jemand hier helfen . Vielen Danke im Vorraus
##############################################
# $Id: myUtilsTemplate.pm 7570 2015-01-14 18:31:44Z rudolfkoenig $
#
# Save this file as 99_myUtils.pm, and create your own functions in the new
# file. They are then available in every Perl expression.
package main;
use strict;
use warnings;
use POSIX;
sub
myUtils_Initialize($$)
{
my ($hash) = @_;
}
# Enter you functions below _this_ line.
sub Kalenderstart ($)
{
my ($Ereignis) = @_;
my @Ereignisarray = split(/.*:\s/,$Ereignis);
my $Ereignisteil1 = $Ereignisarray[1];
my @uids=split(/;/,$Ereignisteil1);
foreach my $uid (@uids) {
my $Kalendertext = fhem("get Muelltonnen_Kalender summary $uid");
if ($Kalendertext =~ /BT2/) {
fhem("set Bio_Tonne ja");
};
if ($Kalendertext =~ /RM22/) {
fhem("set Restmuell_Tonne ja");
};
if ($Kalendertext =~ /PTD/) {
fhem("set Papier_Tonne ja");
};
if ($Kalendertext =~ /SM7/) {
fhem("set Gelbe_Tonne ja");
};
};
}
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 Muelltonnen_Kalender summary $uid");
if ($Kalendertext =~ /BT2/) {
fhem("set Bio_Tonne nein");
};
if ($Kalendertext =~ /RM22/) {
fhem("set Restmuell_Tonne nein");
};
if ($Kalendertext =~ /PTD/) {
fhem("set Papier_Tonne nein");
};
if ($Kalendertext =~ /SM7/) {
fhem("set Gelbe_Tonne nein");
};
};
}
1;