[gelöst] Wie die Tage jetzt ohne Komma ?

TomLee · 21 April 2021, 23:18:27

Dein letzter Code

{
my $t = fhem('get cal_example1 events format:custom="$S" limit:from=0,count=5',1);;
my @a= split("\n",$t);;
my $i=0;;
for (@a) {fhem("setreading cal_example1 t00".$i."_summary $_");;
          $i++;;}

my $t = fhem('get cal_example1 events format:custom="$T1" limit:from=0,count=5',1);;
my @a= split("\n",$t);;
my $i=0;;
for (@a) {fhem("setreading cal_example1 t00".$i."_btime ".(split ' ' ,$_)[1]);;
          fhem("setreading cal_example1 t00".$i."_bdate ".(split ' ' ,$_)[0]);;
          $i++;;}

my $t = fhem('get cal_example1 events timeFormat:"%F" format:custom="$T1" limit:from=0,count=5',1);;
my @a= split("\n",$t);;
my $i=0;;
for (@a) {fhem("setreading cal_example1 t00".$i."_daysleft ".(time_str2num($_) - time_str2num(strftime('%F',localtime(time))))/86400);;
          $i++;;}
}

ergibt die Meldung im Log:

Code Auswählen

2021.04.21 23:13:54 1: PERL WARNING: "my" variable $t masks earlier declaration in same scope at (eval 278681) line 1.
2021.04.21 23:13:54 3: eval: { my $t = fhem('get cal_example1 events format:custom="$S" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_summary $_");           $i++;}  my $t = fhem('get cal_example1 events format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_btime ".(split ' ' ,$_)[1]);           fhem("setreading cal_example1 t00".$i."_bdate ".(split ' ' ,$_)[0]);           $i++;}  my $t = fhem('get cal_example1 events timeFormat:"%F" format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_daysleft ".(time_str2num($_) - time_str2num(strftime('%F',localtime(time))))/86400);           $i++;} }
2021.04.21 23:13:54 1: PERL WARNING: "my" variable @a masks earlier declaration in same scope at (eval 278681) line 1.
2021.04.21 23:13:54 3: eval: { my $t = fhem('get cal_example1 events format:custom="$S" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_summary $_");           $i++;}  my $t = fhem('get cal_example1 events format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_btime ".(split ' ' ,$_)[1]);           fhem("setreading cal_example1 t00".$i."_bdate ".(split ' ' ,$_)[0]);           $i++;}  my $t = fhem('get cal_example1 events timeFormat:"%F" format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_daysleft ".(time_str2num($_) - time_str2num(strftime('%F',localtime(time))))/86400);           $i++;} }
2021.04.21 23:13:54 1: PERL WARNING: "my" variable $i masks earlier declaration in same scope at (eval 278681) line 1.
2021.04.21 23:13:54 3: eval: { my $t = fhem('get cal_example1 events format:custom="$S" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_summary $_");           $i++;}  my $t = fhem('get cal_example1 events format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_btime ".(split ' ' ,$_)[1]);           fhem("setreading cal_example1 t00".$i."_bdate ".(split ' ' ,$_)[0]);           $i++;}  my $t = fhem('get cal_example1 events timeFormat:"%F" format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_daysleft ".(time_str2num($_) - time_str2num(strftime('%F',localtime(time))))/86400);           $i++;} }
2021.04.21 23:13:54 1: PERL WARNING: Use of uninitialized value $t in split at (eval 278681) line 1.
2021.04.21 23:13:54 3: eval: { my $t = fhem('get cal_example1 events format:custom="$S" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_summary $_");           $i++;}  my $t = fhem('get cal_example1 events format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_btime ".(split ' ' ,$_)[1]);           fhem("setreading cal_example1 t00".$i."_bdate ".(split ' ' ,$_)[0]);           $i++;}  my $t = fhem('get cal_example1 events timeFormat:"%F" format:custom="$T1" limit:from=0,count=5',1); my @a= split("\n",$t); my $i=0; for (@a) {fhem("setreading cal_example1 t00".$i."_daysleft ".(time_str2num($_) - time_str2num(strftime('%F',localtime(time))))/86400);           $i++;} }

Hab mich nicht weiter mit beschäftigt $:-\$

Otto123 · 21 April 2021, 23:21:01

Ok, irgendwo stand in meinem Kopf es geht immer um 5 Termine - falsch verstanden.

Dann einfach ein deletereading TestKalender t00.* in der Runde vornweg? Nicht schön, aber wenn es mal mehr und weniger sind muss es ja sein.

Ja mit der Warnung, da muss einfach das my wieder raus - habe ja gesagt:

ZitatErstmal einfach steif dreimal untereinander, damit man die Beziehung noch sieht

Habe es oben editiert

TomLee · 21 April 2021, 23:38:44

ZitatDann einfach ein deletereading TestKalender t00.* in der Runde vornweg?

Genau nur das fällt mir zu dem letzten verlinkten Code ein, steif immer löschen und wieder neu anlegen. Aber macht man das so ?

Mit dem deletereading bei dem userReadings-Beispiel war ich bisher der Meinung dass das so korrekt gelöst war, es werden nur die Readings gelöscht zu denen es auch kein Termin mehr gibt. $:-\$

Schon irgendwo merkwürdig das wir uns hier Gedanken machen zu einem Thema was mMn. viele gerne hätten aber dann einfach zu CalView greifen, hat sich denn noch nie jemand mit diesem Thema beschäftigt ? Die Tonne ist doch das gleiche, alle greifen aber auf das Modul zurück.

Otto123 · 21 April 2021, 23:49:27

Naja, sicher geht das mit ein paar Zeilen mehr etwas sanfter. Calview ist doch auch ok? Ich hatte noch nie den Bedarf den Kalender in FHEM darzustellen. Ich will nur Termine verarbeiten.

TomLee · 01 Mai 2021, 20:50:53

Zitat von: Otto123 am 17 April 2021, 00:19:59
Ich weiß nicht ob man das darf? noch ein userReadings
Code Auswählen Erweitern
sync:triggered {my $t='05:00:00';if (ReadingsVal($name,'nextUpdate','') !~ $t) {fhem("defmod a_$name at $t set $name update");'define'} else {'done'}}
Die Idee dahinter: Zu einem beliebigen Zeitpunkt wird der Kalender definiert und ein initiales update gemacht (neustart fhem) dadurch wird ein einmaliges at zum festgelegten Zeitpunkt ($t='05:00:00') definiert und dadurch ein update zu dieser Zeit ausgeführt. Ab da triggert der Kalender selbständig zu diesem Zeitpunkt einmal am Tag (86400).

Danke, Otto. Ob man das darf oder nicht, mir passt das ganz genauso und nicht anders.

Hatte mir jetzt 1 1/2 Tage über das Thema Gedanken gemacht und zu dem Zeitpunkt deines Post nicht registriert wie das gemeint war (dauert immer etwas länger bei mir

und gestern erst nochmal die letzten Posts gelesen), rd. 1 1/2 Jahre (nach Eröffnung dieses Threads) später hab ich das Gefühl <-

das jetzt alles passt.

Code Auswählen

defmod cal_Abfallkalender Calendar ical file ./Abfall.ics 86400
attr cal_Abfallkalender defaultFormat "$T1 $T2 $S"
attr cal_Abfallkalender devStateIcon 1.Restabfall/Wertstoffe:muelltonne@grey 1.Bioabfall:muelltonne@brown 1.Schadstoffmobil:muelltonne@red 1.Hecken-undBaumschnitt:muelltonne@green
attr cal_Abfallkalender hideOlderThan 1
attr cal_Abfallkalender room Kalender
attr cal_Abfallkalender stateFormat 1:nextWaste\
nextWaste am nextWastedate
attr cal_Abfallkalender userReadings nextWaste:triggered {au_nw($NAME)},\
nextWastedate:triggered {au_nwda($NAME)},\
nextWastedays:triggered {au_nwd($NAME)},\
nextWaste_ftui:triggered {au_nwf($NAME)},\
ftui-hide:triggered {au_fh($NAME)},\
sync:triggered {my $t='05:00:00';;if (ReadingsVal($name,'nextUpdate','') !~ $t) {fhem("defmod a_$name at $t set $name update");;'defined'} else {'done'}}

setstate cal_Abfallkalender 1:Restabfall/Wertstoffe\
Restabfall/Wertstoffe am 05.05.2021
setstate cal_Abfallkalender 2021-05-02 05:00:02 ftui-hide 1
setstate cal_Abfallkalender 2021-05-02 05:00:01 lastUpdate 2021-05-02 05:00:00
setstate cal_Abfallkalender 2021-05-02 05:00:01 nextUpdate 2021-05-03 05:00:00
setstate cal_Abfallkalender 2021-05-02 05:00:02 nextWakeup 2021-05-03 05:00:00
setstate cal_Abfallkalender 2021-05-02 05:00:02 nextWaste Restabfall/Wertstoffe
setstate cal_Abfallkalender 2021-05-02 05:00:02 nextWaste_ftui Restabfall/Wertstoffe_3
setstate cal_Abfallkalender 2021-05-02 05:00:02 nextWastedate 05.05.2021
setstate cal_Abfallkalender 2021-05-02 05:00:02 nextWastedays 3
setstate cal_Abfallkalender 2021-05-02 05:00:02 state triggered
setstate cal_Abfallkalender 2021-05-02 05:00:02 sync done

fiedel · 02 Mai 2021, 09:42:19

Hallo ihr Zwei,

ich hab jetzt hier nicht alles verstanden, aber öfter gelesen "eine Stunde zu viel" und verwendet wurde immer "localtime".
Da dämmert mir was aus der Erinnerung an die Kalenderwoche: Man musste statt localtime gmtime verwenden.
Hilft euch das ggf?

TomLee · 22 Mai 2021, 11:47:03

Otto, das sync userreadings soll jetzt auch ausgelagert werden, mit if /else klappt das problemlos, kannst du mir sagen wie die Syntax genau sein müsste wenn ich es mit dem ternären Operator-if umsetzen wollte, wenn da das defined noch zurückgegeben werden soll?

So:

Code Auswählen

sub au_sync {
	my $NAME = shift;
	my $rnu = shift;
	my $t='05:00:00';
	$rnu !~ $t ? return fhem("defmod a_$NAME at $t set $NAME update"); 'defined' : return 'done';
	#if ($rnu !~ $t)
	#{fhem("defmod a_$NAME at $t set $NAME update");'defined'}
	#else {'done'}
		}

kommts beim speichern zu

Code Auswählen

ERROR:
syntax error at ./FHEM/99_Calendar_Utils.pm line 58, near ");"

Otto123 · 22 Mai 2021, 16:57:15

ehrlich gesagt, habe ich da auch schon viel versucht. Mir ist es bisher nur gelungen etwas zurückzugeben. Einen Anweisungsblock ausführen ist mir noch nicht gelungen, ein einzelner Befehl funktioniert.
Wie war das mit der anonymen sub?
Sowas probiert in der Kommandozeile:

Code Auswählen

{my $ref_sub = sub { my $t = 4+5 ;; return "wahr" };; 1 ? &$ref_sub : 'falsch'}

Gruß Otto

Beta-User · 22 Mai 2021, 18:26:21

Wieso in dem Fall per ternärem Operator?
Match passt => return 'done', sonst einfach weiter....?
Geht doch um Lesbarkeit...

TomLee · 22 Mai 2021, 19:21:16

Weiß ich selbst nicht genau.

Seitdem ich das mit dem auslagern (und generell mehr mit Perl beschäftigt habe) gelernt habe und jetzt mal kurz alles überfliege was ich bisher umgesetzt habe (das ist nicht die Welt), gibts, mein ich, nicht einmal die Variante mit if/else.

Entweder ist es mit einem Hash umgesetzt worden oder es ist die if (..){...} if (..){...}-Variante oder die return ... if ...; return ... if ...;-Variante.

Da ist die ? :- Variante die kürzeste oder ? Evt. war ich erstmal -unbewusst- irritiert von der Else und wollte es darum erstmal damit umsetzen wollte,

TomLee · 08 Januar 2022, 18:26:47

Hey Otto oder jeder der weiterhelfen kann/mag,

beim Start von FHEM hab ich noch diese zwei Meldungen, hab ich heute erst bemerkt:

Code Auswählen

2022.01.08 17:46:12 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 17:46:12 3: eval: {au_nwd($NAME)}

In der 99_Utils.pm steht das an der Stelle:

Code Auswählen

14	sub
15	time_str2num($)
16	{
17	  my ($str) = @_;
18	  my @a;
19	  return time() if(!$str);
20	  @a = split("[T: -]", $str); # 31652, 110545,
21	  return mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1);
22	}

Im Calendar-Device erfolgt ja der Aufruf der Sub in einem userReadings:

Code Auswählen

nextWastedays:triggered {au_nwd($NAME)}

Die Definition der Sub:

Code Auswählen

sub au_nwd {
	my $NAME = shift;
	my $t = fhem('get '.$NAME.' events timeFormat:"%F" format:custom="$T1" limit:from=0,count=1',1);
 	my $day=(time_str2num(fhem('get '.$NAME.' events timeFormat:"%F" format:custom="$T1" limit:from=0,count=1',1)) - time_str2num(strftime '%F',localtime))/86400;
	return $day;
	}

Ich meine das es nicht an der zu frühen Initialisierung des Kalenders liegt wie es hier der Fall war : https://forum.fhem.de/index.php/topic,103238.msg1010494.html#msg1010494

Ich hab das umgebaut:

Code Auswählen

sub au_nwd {
	my $NAME = shift;
	my $t = fhem('get '.$NAME.' events timeFormat:"%F" format:custom="$T1" limit:from=0,count=1',1);
	if (!defined $t) {$t=0};
	$t=(time_str2num($t) - time_str2num(strftime '%F',localtime))/86400;
#	my $day=(time_str2num(fhem('get '.$NAME.' events timeFormat:"%F" format:custom="$T1" limit:from=0,count=1',1)) - time_str2num(strftime '%F',localtime))/86400;
	return $t;
	}

und die zwei Meldungen kommen weiterhin, kann es mit localtime zusammenhängen das die zu dem Zeitpunkt nicht abgerufen werden kann ?

Otto123 · 08 Januar 2022, 18:45:09

Hi,

ich kann erstmal bestätigen, ich habe die Meldung auch

mit direktem Verweis auf mein userReadings

Zitat2021.12.06 15:21:29 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2021.12.06 15:21:29 3: eval: {my $day=(time_str2num(fhem('get '.$name.' events timeFormat:"%F" format:custom="$T1" limit:from=0,count=1',1)) - time_str2num(strftime '%F',localtime))/86400;
$day>1?$day:$day?"morgen":"heute"}

ich begebe mich dann mal auf die Suche ...

TomLee · 08 Januar 2022, 19:35:37

Nur mal so zur Info, weiß nicht obs was bringt.
Ich hab mal das auf Null setzen bei einer Funktion rausgenommen das die Meldung wieder kommt, mein FHEM braucht etwa 2 Minuten zum starten, das sind die letzten 9 Sekunden:

Code Auswählen

2022.01.08 19:21:44 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 19:21:44 3: eval: {au_nwd($NAME)}
2022.01.08 19:21:46 3: SIGNALESP: SimpleWrite_XQ, disable receiver (XQ)
2022.01.08 19:21:46 3: SIGNALESP: StartInit, get version, retry = 0
2022.01.08 19:21:46 2: SIGNALESP: CheckVersionResp, initialized v3.4.4
2022.01.08 19:21:46 3: SIGNALESP: CheckVersionResp, enable receiver (XE) 
2022.01.08 19:21:47 2: AttrTemplates: got 256 entries
2022.01.08 19:21:48 2: sduino: CheckVersionResp, initialized v3.4.4
2022.01.08 19:21:48 3: sduino: CheckVersionResp, enable receiver (XE) 
2022.01.08 19:21:51 3: sduino: CheckCcpatableResponse, patable: 84
2022.01.08 19:21:52 2: After sleep: done
2022.01.08 19:21:52 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 19:21:52 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 19:21:52 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 19:21:52 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 19:21:53 3: SIGNALESP: CheckCcpatableResponse, patable: 84

Die jetzt angesprochene Meldung kommt also schon 8 Sekunden vor der anderen (sprich vor der Initialisierung des Kalenders).

Otto123 · 08 Januar 2022, 21:26:42

wenn ich mit attr delay den Kalender um 30 sec verzögere dann kommt die Meldung 30 sec nach "Server started". Sonst kommt sie 10 sec nach "Server started".
Da müsste doch die Utils längst geladen sein?

TomLee · 08 Januar 2022, 23:14:03

Kann ich leider nicht so bestätigen, bei mir sinds merkwürdigerweise immer rd. 30 Sekunden ohne viel zu erklären sieht das stark gekürzt bei mir so aus, ich hab extra drei mal getestet und nein ich hab nicht zwischendurch vergessen zu speichern.

Code Auswählen

# ohne delay 30
2022.01.08 22:45:42 0: Server shutdown
2022.01.08 22:46:39 0: Server started with 451 defined entities (fhem.pl:25359/2021-12-20 perl:5.028001 os:linux user:fhem pid:16712)
2022.01.08 22:47:10 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 22:47:10 3: eval: {au_nwd($NAME)}
2022.01.08 22:47:18 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 22:47:18 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 22:47:18 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 22:47:18 3: eval: {pc_cb2r($NAME,'1','1')}

Code Auswählen

# mit delay 30
2022.01.08 22:48:33 1: Server shutdown
2022.01.08 22:49:28 0: Server started with 451 defined entities (fhem.pl:25359/2021-12-20 perl:5.028001 os:linux user:fhem pid:16781)
2022.01.08 22:49:59 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 22:49:59 3: eval: {au_nwd($NAME)}
2022.01.08 22:50:06 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 22:50:06 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 22:50:06 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 22:50:06 3: eval: {pc_cb2r($NAME,'1','1')

Code Auswählen

# ohne delay 30
2022.01.08 22:50:48 1: Server shutdown
2022.01.08 22:51:45 0: Featurelevel: 6.1
2022.01.08 22:51:45 0: Server started with 451 defined entities (fhem.pl:25359/2021-12-20 perl:5.028001 os:linux user:fhem pid:16831)
2022.01.08 22:52:15 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 22:52:15 3: eval: {au_nwd($NAME)}
2022.01.08 22:52:24 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 22:52:24 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 22:52:24 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 22:52:24 3: eval: {pc_cb2r($NAME,'1','1')}

Code Auswählen

# mit delay 30
2022.01.08 22:53:36 1: Server shutdown
2022.01.08 22:54:31 0: Server started with 451 defined entities (fhem.pl:25359/2021-12-20 perl:5.028001 os:linux user:fhem pid:16904)
2022.01.08 22:55:02 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 22:55:02 3: eval: {au_nwd($NAME)}
2022.01.08 22:55:09 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 22:55:09 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 22:55:09 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 22:55:09 3: eval: {pc_cb2r($NAME,'1','1')}

Code Auswählen

# ohne delay 30
2022.01.08 22:55:45 1: Server shutdown
2022.01.08 22:56:48 0: Server started with 451 defined entities (fhem.pl:25359/2021-12-20 perl:5.028001 os:linux user:fhem pid:16952)
2022.01.08 22:57:18 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 22:57:18 3: eval: {au_nwd($NAME)}
2022.01.08 22:57:27 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 22:57:27 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 22:57:27 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 22:57:27 3: eval: {pc_cb2r($NAME,'1','1')}

Code Auswählen

# mit delay 30
2022.01.08 22:59:11 1: Server shutdown
2022.01.08 23:00:49 0: Server started with 451 defined entities (fhem.pl:25359/2021-12-20 perl:5.028001 os:linux user:fhem pid:17024)
2022.01.08 23:01:18 1: PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_Utils.pm line 21.
2022.01.08 23:01:18 3: eval: {au_nwd($NAME)}
2022.01.08 23:01:26 1: PERL WARNING: Use of uninitialized value $t in substitution (s///) at ./FHEM/99_Calendar_Utils.pm line 103.
2022.01.08 23:01:26 3: eval: {pc_cb2r($NAME,'1','1')}
2022.01.08 23:01:26 1: PERL WARNING: Use of uninitialized value $t in split at ./FHEM/99_Calendar_Utils.pm line 104.
2022.01.08 23:01:26 3: eval: {pc_cb2r($NAME,'1','1')}