fhem-mcp - FHEM-Steuerungs-Spielerei mit lokalem LLM

[Prof. Dr. Peter Henning]

Es ist mir eine große Freude, einem solchen Nichtswisser - laut eigener Bekundung hat er ja nur 1/100.000.000 des Wissens eines statistischen Sprachmodells - hier bei FHEM künftig nicht mehr über den Weg zu laufen.

Die Wirtschaft hat die Wissenschaft beim Thema KI - speziell LLM - schlichtweg überrrannt.

Das ist ein solch hanebüchener Unsinn, dass ich das gerne als Negativbeispiel in mein nächstes Buch aufnehme. Danke für den wertvollen Beitrag!

pah

[tobbse]

Fängt das Buch mit "Es war einmal..." an?

[rudolfkoenig]

Ich möchte hiermit alle Teilnehmer bitten den Streit privat weiterzufuehren.

[TomLee]

Mag mir gar nich ausmalen, wie lange ich ohne Agenten an den Koordinaten dieser Layout-Datei gesessen hätte.

Code Auswählen Erweitern

rgb 'FFFFFF'
rect 0 0 640 384 1
rgb '000000'
font /usr/share/fonts/truetype/msttcorefonts/Arial.ttf
pt 13
thalign 'center'
tvalign 'center'
rgb 000000
line 0 0 0 0 1

# --- Kopfzeile: raum-Spalte (ohne Titel) + Wochentage/Feiertage/Abfalltermine (dynamisch zentriert) ---
rect 0 0 15 32 0
rect 15 0 104 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.0','') eq '' && bla_wasteForDay(0) eq '' }
text 59 16 'Mo'
condition { ReadingsVal('Belegungsplan','holidays.0','') ne '' && bla_wasteForDay(0) eq '' }
text 59 11 'Mo'
pt 9
text 59 21 { substr(ReadingsVal('Belegungsplan','holidays.0',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.0','') eq '' && bla_wasteForDay(0) ne '' }
text 59 11 'Mo'
pt 9
text 59 21 { substr(bla_wasteForDay(0),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.0','') ne '' && bla_wasteForDay(0) ne '' }
text 59 5 'Mo'
pt 9
text 59 16 { substr(ReadingsVal('Belegungsplan','holidays.0',''),0,12) }
text 59 27 { substr(bla_wasteForDay(0),0,12) }
condition 1
pt 13
rect 104 0 192 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.1','') eq '' && bla_wasteForDay(1) eq '' }
text 148 16 'Di'
condition { ReadingsVal('Belegungsplan','holidays.1','') ne '' && bla_wasteForDay(1) eq '' }
text 148 11 'Di'
pt 9
text 148 21 { substr(ReadingsVal('Belegungsplan','holidays.1',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.1','') eq '' && bla_wasteForDay(1) ne '' }
text 148 11 'Di'
pt 9
text 148 21 { substr(bla_wasteForDay(1),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.1','') ne '' && bla_wasteForDay(1) ne '' }
text 148 5 'Di'
pt 9
text 148 16 { substr(ReadingsVal('Belegungsplan','holidays.1',''),0,12) }
text 148 27 { substr(bla_wasteForDay(1),0,12) }
condition 1
pt 13
rect 192 0 281 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.2','') eq '' && bla_wasteForDay(2) eq '' }
text 236 16 'Mi'
condition { ReadingsVal('Belegungsplan','holidays.2','') ne '' && bla_wasteForDay(2) eq '' }
text 236 11 'Mi'
pt 9
text 236 21 { substr(ReadingsVal('Belegungsplan','holidays.2',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.2','') eq '' && bla_wasteForDay(2) ne '' }
text 236 11 'Mi'
pt 9
text 236 21 { substr(bla_wasteForDay(2),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.2','') ne '' && bla_wasteForDay(2) ne '' }
text 236 5 'Mi'
pt 9
text 236 16 { substr(ReadingsVal('Belegungsplan','holidays.2',''),0,12) }
text 236 27 { substr(bla_wasteForDay(2),0,12) }
condition 1
pt 13
rect 281 0 369 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.3','') eq '' && bla_wasteForDay(3) eq '' }
text 325 16 'Do'
condition { ReadingsVal('Belegungsplan','holidays.3','') ne '' && bla_wasteForDay(3) eq '' }
text 325 11 'Do'
pt 9
text 325 21 { substr(ReadingsVal('Belegungsplan','holidays.3',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.3','') eq '' && bla_wasteForDay(3) ne '' }
text 325 11 'Do'
pt 9
text 325 21 { substr(bla_wasteForDay(3),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.3','') ne '' && bla_wasteForDay(3) ne '' }
text 325 5 'Do'
pt 9
text 325 16 { substr(ReadingsVal('Belegungsplan','holidays.3',''),0,12) }
text 325 27 { substr(bla_wasteForDay(3),0,12) }
condition 1
pt 13
rect 369 0 458 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.4','') eq '' && bla_wasteForDay(4) eq '' }
text 413 16 'Fr'
condition { ReadingsVal('Belegungsplan','holidays.4','') ne '' && bla_wasteForDay(4) eq '' }
text 413 11 'Fr'
pt 9
text 413 21 { substr(ReadingsVal('Belegungsplan','holidays.4',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.4','') eq '' && bla_wasteForDay(4) ne '' }
text 413 11 'Fr'
pt 9
text 413 21 { substr(bla_wasteForDay(4),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.4','') ne '' && bla_wasteForDay(4) ne '' }
text 413 5 'Fr'
pt 9
text 413 16 { substr(ReadingsVal('Belegungsplan','holidays.4',''),0,12) }
text 413 27 { substr(bla_wasteForDay(4),0,12) }
condition 1
pt 13
rect 458 0 546 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.5','') eq '' && bla_wasteForDay(5) eq '' }
text 502 16 'Sa'
condition { ReadingsVal('Belegungsplan','holidays.5','') ne '' && bla_wasteForDay(5) eq '' }
text 502 11 'Sa'
pt 9
text 502 21 { substr(ReadingsVal('Belegungsplan','holidays.5',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.5','') eq '' && bla_wasteForDay(5) ne '' }
text 502 11 'Sa'
pt 9
text 502 21 { substr(bla_wasteForDay(5),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.5','') ne '' && bla_wasteForDay(5) ne '' }
text 502 5 'Sa'
pt 9
text 502 16 { substr(ReadingsVal('Belegungsplan','holidays.5',''),0,12) }
text 502 27 { substr(bla_wasteForDay(5),0,12) }
condition 1
pt 13
rect 546 0 635 32 0
thalign 'center'
tvalign 'center'
pt 13
condition { ReadingsVal('Belegungsplan','holidays.6','') eq '' && bla_wasteForDay(6) eq '' }
text 590 16 'So'
condition { ReadingsVal('Belegungsplan','holidays.6','') ne '' && bla_wasteForDay(6) eq '' }
text 590 11 'So'
pt 9
text 590 21 { substr(ReadingsVal('Belegungsplan','holidays.6',''),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.6','') eq '' && bla_wasteForDay(6) ne '' }
text 590 11 'So'
pt 9
text 590 21 { substr(bla_wasteForDay(6),0,12) }
pt 13
condition { ReadingsVal('Belegungsplan','holidays.6','') ne '' && bla_wasteForDay(6) ne '' }
text 590 5 'So'
pt 9
text 590 16 { substr(ReadingsVal('Belegungsplan','holidays.6',''),0,12) }
text 590 27 { substr(bla_wasteForDay(6),0,12) }
condition 1
pt 13

# --- raum 1 ---
rect 0 32 15 76 0
thalign 'center'
tvalign 'center'
pt 13
text 8 54 '1'
pt 9
rect 15 32 104 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 72 92 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 32 93 76 1
line 93 54 104 54 1
thalign 'center'
tvalign 'center'
pt 8
text 99 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 65 { ReadingsVal('Belegungsplan','rooms.0.days.0.persons','') }
rect 104 32 192 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 72 180 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 32 181 76 1
line 181 54 192 54 1
thalign 'center'
tvalign 'center'
pt 8
text 187 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 65 { ReadingsVal('Belegungsplan','rooms.0.days.1.persons','') }
rect 192 32 281 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 72 269 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 32 270 76 1
line 270 54 281 54 1
thalign 'center'
tvalign 'center'
pt 8
text 276 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 65 { ReadingsVal('Belegungsplan','rooms.0.days.2.persons','') }
rect 281 32 369 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 72 357 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 32 358 76 1
line 358 54 369 54 1
thalign 'center'
tvalign 'center'
pt 8
text 364 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 65 { ReadingsVal('Belegungsplan','rooms.0.days.3.persons','') }
rect 369 32 458 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 72 446 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 32 447 76 1
line 447 54 458 54 1
thalign 'center'
tvalign 'center'
pt 8
text 453 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 65 { ReadingsVal('Belegungsplan','rooms.0.days.4.persons','') }
rect 458 32 546 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 72 534 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 32 535 76 1
line 535 54 546 54 1
thalign 'center'
tvalign 'center'
pt 8
text 541 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 65 { ReadingsVal('Belegungsplan','rooms.0.days.5.persons','') }
rect 546 32 635 76 0
condition { ReadingsVal('Belegungsplan','rooms.0.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 72 623 75 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 54 { my $t = ReadingsVal('Belegungsplan','rooms.0.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.0.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 32 624 76 1
line 624 54 635 54 1
thalign 'center'
tvalign 'center'
pt 8
text 630 43 { my $o = ReadingsVal('Belegungsplan','rooms.0.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 65 { ReadingsVal('Belegungsplan','rooms.0.days.6.persons','') }

# --- raum 2 ---
rect 0 76 15 120 0
thalign 'center'
tvalign 'center'
pt 13
text 8 98 '2'
pt 9
rect 15 76 104 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 116 92 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 76 93 120 1
line 93 98 104 98 1
thalign 'center'
tvalign 'center'
pt 8
text 99 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 109 { ReadingsVal('Belegungsplan','rooms.1.days.0.persons','') }
rect 104 76 192 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 116 180 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 76 181 120 1
line 181 98 192 98 1
thalign 'center'
tvalign 'center'
pt 8
text 187 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 109 { ReadingsVal('Belegungsplan','rooms.1.days.1.persons','') }
rect 192 76 281 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 116 269 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 76 270 120 1
line 270 98 281 98 1
thalign 'center'
tvalign 'center'
pt 8
text 276 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 109 { ReadingsVal('Belegungsplan','rooms.1.days.2.persons','') }
rect 281 76 369 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 116 357 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 76 358 120 1
line 358 98 369 98 1
thalign 'center'
tvalign 'center'
pt 8
text 364 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 109 { ReadingsVal('Belegungsplan','rooms.1.days.3.persons','') }
rect 369 76 458 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 116 446 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 76 447 120 1
line 447 98 458 98 1
thalign 'center'
tvalign 'center'
pt 8
text 453 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 109 { ReadingsVal('Belegungsplan','rooms.1.days.4.persons','') }
rect 458 76 546 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 116 534 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 76 535 120 1
line 535 98 546 98 1
thalign 'center'
tvalign 'center'
pt 8
text 541 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 109 { ReadingsVal('Belegungsplan','rooms.1.days.5.persons','') }
rect 546 76 635 120 0
condition { ReadingsVal('Belegungsplan','rooms.1.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 116 623 119 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 98 { my $t = ReadingsVal('Belegungsplan','rooms.1.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.1.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 76 624 120 1
line 624 98 635 98 1
thalign 'center'
tvalign 'center'
pt 8
text 630 87 { my $o = ReadingsVal('Belegungsplan','rooms.1.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 109 { ReadingsVal('Belegungsplan','rooms.1.days.6.persons','') }

# --- raum 3 ---
rect 0 120 15 164 0
thalign 'center'
tvalign 'center'
pt 13
text 8 142 '3'
pt 9
rect 15 120 104 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 160 92 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 120 93 164 1
line 93 142 104 142 1
thalign 'center'
tvalign 'center'
pt 8
text 99 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 153 { ReadingsVal('Belegungsplan','rooms.2.days.0.persons','') }
rect 104 120 192 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 160 180 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 120 181 164 1
line 181 142 192 142 1
thalign 'center'
tvalign 'center'
pt 8
text 187 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 153 { ReadingsVal('Belegungsplan','rooms.2.days.1.persons','') }
rect 192 120 281 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 160 269 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 120 270 164 1
line 270 142 281 142 1
thalign 'center'
tvalign 'center'
pt 8
text 276 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 153 { ReadingsVal('Belegungsplan','rooms.2.days.2.persons','') }
rect 281 120 369 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 160 357 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 120 358 164 1
line 358 142 369 142 1
thalign 'center'
tvalign 'center'
pt 8
text 364 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 153 { ReadingsVal('Belegungsplan','rooms.2.days.3.persons','') }
rect 369 120 458 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 160 446 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 120 447 164 1
line 447 142 458 142 1
thalign 'center'
tvalign 'center'
pt 8
text 453 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 153 { ReadingsVal('Belegungsplan','rooms.2.days.4.persons','') }
rect 458 120 546 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 160 534 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 120 535 164 1
line 535 142 546 142 1
thalign 'center'
tvalign 'center'
pt 8
text 541 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 153 { ReadingsVal('Belegungsplan','rooms.2.days.5.persons','') }
rect 546 120 635 164 0
condition { ReadingsVal('Belegungsplan','rooms.2.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 160 623 163 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 142 { my $t = ReadingsVal('Belegungsplan','rooms.2.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.2.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 120 624 164 1
line 624 142 635 142 1
thalign 'center'
tvalign 'center'
pt 8
text 630 131 { my $o = ReadingsVal('Belegungsplan','rooms.2.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 153 { ReadingsVal('Belegungsplan','rooms.2.days.6.persons','') }

# --- raum 5 ---
rect 0 164 15 208 0
thalign 'center'
tvalign 'center'
pt 13
text 8 186 '5'
pt 9
rect 15 164 104 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 204 92 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 164 93 208 1
line 93 186 104 186 1
thalign 'center'
tvalign 'center'
pt 8
text 99 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 197 { ReadingsVal('Belegungsplan','rooms.4.days.0.persons','') }
rect 104 164 192 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 204 180 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 164 181 208 1
line 181 186 192 186 1
thalign 'center'
tvalign 'center'
pt 8
text 187 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 197 { ReadingsVal('Belegungsplan','rooms.4.days.1.persons','') }
rect 192 164 281 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 204 269 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 164 270 208 1
line 270 186 281 186 1
thalign 'center'
tvalign 'center'
pt 8
text 276 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 197 { ReadingsVal('Belegungsplan','rooms.4.days.2.persons','') }
rect 281 164 369 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 204 357 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 164 358 208 1
line 358 186 369 186 1
thalign 'center'
tvalign 'center'
pt 8
text 364 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 197 { ReadingsVal('Belegungsplan','rooms.4.days.3.persons','') }
rect 369 164 458 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 204 446 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 164 447 208 1
line 447 186 458 186 1
thalign 'center'
tvalign 'center'
pt 8
text 453 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 197 { ReadingsVal('Belegungsplan','rooms.4.days.4.persons','') }
rect 458 164 546 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 204 534 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 164 535 208 1
line 535 186 546 186 1
thalign 'center'
tvalign 'center'
pt 8
text 541 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 197 { ReadingsVal('Belegungsplan','rooms.4.days.5.persons','') }
rect 546 164 635 208 0
condition { ReadingsVal('Belegungsplan','rooms.4.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 204 623 207 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 186 { my $t = ReadingsVal('Belegungsplan','rooms.4.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.4.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 164 624 208 1
line 624 186 635 186 1
thalign 'center'
tvalign 'center'
pt 8
text 630 175 { my $o = ReadingsVal('Belegungsplan','rooms.4.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 197 { ReadingsVal('Belegungsplan','rooms.4.days.6.persons','') }

# --- raum 6 ---
rect 0 208 15 252 0
thalign 'center'
tvalign 'center'
pt 13
text 8 230 '6'
pt 9
rect 15 208 104 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 248 92 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 208 93 252 1
line 93 230 104 230 1
thalign 'center'
tvalign 'center'
pt 8
text 99 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 241 { ReadingsVal('Belegungsplan','rooms.5.days.0.persons','') }
rect 104 208 192 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 248 180 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 208 181 252 1
line 181 230 192 230 1
thalign 'center'
tvalign 'center'
pt 8
text 187 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 241 { ReadingsVal('Belegungsplan','rooms.5.days.1.persons','') }
rect 192 208 281 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 248 269 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 208 270 252 1
line 270 230 281 230 1
thalign 'center'
tvalign 'center'
pt 8
text 276 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 241 { ReadingsVal('Belegungsplan','rooms.5.days.2.persons','') }
rect 281 208 369 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 248 357 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 208 358 252 1
line 358 230 369 230 1
thalign 'center'
tvalign 'center'
pt 8
text 364 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 241 { ReadingsVal('Belegungsplan','rooms.5.days.3.persons','') }
rect 369 208 458 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 248 446 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 208 447 252 1
line 447 230 458 230 1
thalign 'center'
tvalign 'center'
pt 8
text 453 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 241 { ReadingsVal('Belegungsplan','rooms.5.days.4.persons','') }
rect 458 208 546 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 248 534 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 208 535 252 1
line 535 230 546 230 1
thalign 'center'
tvalign 'center'
pt 8
text 541 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 241 { ReadingsVal('Belegungsplan','rooms.5.days.5.persons','') }
rect 546 208 635 252 0
condition { ReadingsVal('Belegungsplan','rooms.5.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 248 623 251 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 230 { my $t = ReadingsVal('Belegungsplan','rooms.5.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.5.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 208 624 252 1
line 624 230 635 230 1
thalign 'center'
tvalign 'center'
pt 8
text 630 219 { my $o = ReadingsVal('Belegungsplan','rooms.5.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 241 { ReadingsVal('Belegungsplan','rooms.5.days.6.persons','') }

# --- raum 7 ---
rect 0 252 15 296 0
thalign 'center'
tvalign 'center'
pt 13
text 8 274 '7'
pt 9
rect 15 252 104 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 292 92 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 252 93 296 1
line 93 274 104 274 1
thalign 'center'
tvalign 'center'
pt 8
text 99 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 285 { ReadingsVal('Belegungsplan','rooms.6.days.0.persons','') }
rect 104 252 192 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 292 180 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 252 181 296 1
line 181 274 192 274 1
thalign 'center'
tvalign 'center'
pt 8
text 187 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 285 { ReadingsVal('Belegungsplan','rooms.6.days.1.persons','') }
rect 192 252 281 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 292 269 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 252 270 296 1
line 270 274 281 274 1
thalign 'center'
tvalign 'center'
pt 8
text 276 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 285 { ReadingsVal('Belegungsplan','rooms.6.days.2.persons','') }
rect 281 252 369 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 292 357 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 252 358 296 1
line 358 274 369 274 1
thalign 'center'
tvalign 'center'
pt 8
text 364 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 285 { ReadingsVal('Belegungsplan','rooms.6.days.3.persons','') }
rect 369 252 458 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 292 446 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 252 447 296 1
line 447 274 458 274 1
thalign 'center'
tvalign 'center'
pt 8
text 453 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 285 { ReadingsVal('Belegungsplan','rooms.6.days.4.persons','') }
rect 458 252 546 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 292 534 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 252 535 296 1
line 535 274 546 274 1
thalign 'center'
tvalign 'center'
pt 8
text 541 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 285 { ReadingsVal('Belegungsplan','rooms.6.days.5.persons','') }
rect 546 252 635 296 0
condition { ReadingsVal('Belegungsplan','rooms.6.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 292 623 295 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 274 { my $t = ReadingsVal('Belegungsplan','rooms.6.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.6.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 252 624 296 1
line 624 274 635 274 1
thalign 'center'
tvalign 'center'
pt 8
text 630 263 { my $o = ReadingsVal('Belegungsplan','rooms.6.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 285 { ReadingsVal('Belegungsplan','rooms.6.days.6.persons','') }

# --- raum 8 ---
rect 0 296 15 340 0
thalign 'center'
tvalign 'center'
pt 13
text 8 318 '8'
pt 9
rect 15 296 104 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 336 92 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 296 93 340 1
line 93 318 104 318 1
thalign 'center'
tvalign 'center'
pt 8
text 99 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 329 { ReadingsVal('Belegungsplan','rooms.7.days.0.persons','') }
rect 104 296 192 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 336 180 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 296 181 340 1
line 181 318 192 318 1
thalign 'center'
tvalign 'center'
pt 8
text 187 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 329 { ReadingsVal('Belegungsplan','rooms.7.days.1.persons','') }
rect 192 296 281 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 336 269 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 296 270 340 1
line 270 318 281 318 1
thalign 'center'
tvalign 'center'
pt 8
text 276 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 329 { ReadingsVal('Belegungsplan','rooms.7.days.2.persons','') }
rect 281 296 369 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 336 357 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 296 358 340 1
line 358 318 369 318 1
thalign 'center'
tvalign 'center'
pt 8
text 364 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 329 { ReadingsVal('Belegungsplan','rooms.7.days.3.persons','') }
rect 369 296 458 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 336 446 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 296 447 340 1
line 447 318 458 318 1
thalign 'center'
tvalign 'center'
pt 8
text 453 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 329 { ReadingsVal('Belegungsplan','rooms.7.days.4.persons','') }
rect 458 296 546 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 336 534 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 296 535 340 1
line 535 318 546 318 1
thalign 'center'
tvalign 'center'
pt 8
text 541 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 329 { ReadingsVal('Belegungsplan','rooms.7.days.5.persons','') }
rect 546 296 635 340 0
condition { ReadingsVal('Belegungsplan','rooms.7.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 336 623 339 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 318 { my $t = ReadingsVal('Belegungsplan','rooms.7.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.7.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 296 624 340 1
line 624 318 635 318 1
thalign 'center'
tvalign 'center'
pt 8
text 630 307 { my $o = ReadingsVal('Belegungsplan','rooms.7.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 329 { ReadingsVal('Belegungsplan','rooms.7.days.6.persons','') }

# --- raum 9 ---
rect 0 340 15 384 0
thalign 'center'
tvalign 'center'
pt 13
text 8 362 '9'
pt 9
rect 15 340 104 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.0.text','') ne '' }
rgb 'FF0000'
rect 16 380 92 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 59 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.0.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.0.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 93 340 93 384 1
line 93 362 104 362 1
thalign 'center'
tvalign 'center'
pt 8
text 99 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.0.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 99 373 { ReadingsVal('Belegungsplan','rooms.8.days.0.persons','') }
rect 104 340 192 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.1.text','') ne '' }
rgb 'FF0000'
rect 105 380 180 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 148 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.1.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.1.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 181 340 181 384 1
line 181 362 192 362 1
thalign 'center'
tvalign 'center'
pt 8
text 187 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.1.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 187 373 { ReadingsVal('Belegungsplan','rooms.8.days.1.persons','') }
rect 192 340 281 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.2.text','') ne '' }
rgb 'FF0000'
rect 193 380 269 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 236 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.2.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.2.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 270 340 270 384 1
line 270 362 281 362 1
thalign 'center'
tvalign 'center'
pt 8
text 276 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.2.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 276 373 { ReadingsVal('Belegungsplan','rooms.8.days.2.persons','') }
rect 281 340 369 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.3.text','') ne '' }
rgb 'FF0000'
rect 282 380 357 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 325 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.3.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.3.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 358 340 358 384 1
line 358 362 369 362 1
thalign 'center'
tvalign 'center'
pt 8
text 364 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.3.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 364 373 { ReadingsVal('Belegungsplan','rooms.8.days.3.persons','') }
rect 369 340 458 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.4.text','') ne '' }
rgb 'FF0000'
rect 370 380 446 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 413 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.4.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.4.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 447 340 447 384 1
line 447 362 458 362 1
thalign 'center'
tvalign 'center'
pt 8
text 453 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.4.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 453 373 { ReadingsVal('Belegungsplan','rooms.8.days.4.persons','') }
rect 458 340 546 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.5.text','') ne '' }
rgb 'FF0000'
rect 459 380 534 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 502 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.5.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.5.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 535 340 535 384 1
line 535 362 546 362 1
thalign 'center'
tvalign 'center'
pt 8
text 541 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.5.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 541 373 { ReadingsVal('Belegungsplan','rooms.8.days.5.persons','') }
rect 546 340 635 384 0
condition { ReadingsVal('Belegungsplan','rooms.8.days.6.text','') ne '' }
rgb 'FF0000'
rect 547 380 623 383 1
rgb 000000
condition 1
thalign 'center'
tvalign 'center'
pt 9
text 590 362 { my $t = ReadingsVal('Belegungsplan','rooms.8.days.6.text',''); my $a = ReadingsVal('Belegungsplan','rooms.8.days.6.arrival',''); $t eq '' ? '' : ($a eq '1' ? (length($t) > 9 ? substr($t,0,8) . '...' : $t) : 'x') }
line 624 340 624 384 1
line 624 362 635 362 1
thalign 'center'
tvalign 'center'
pt 8
text 630 351 { my $o = ReadingsVal('Belegungsplan','rooms.8.days.6.origin',''); $o eq '' ? '' : substr($o,0,1) }
text 630 373 { ReadingsVal('Belegungsplan','rooms.8.days.6.persons','') }

[Prof. Dr. Peter Henning]

Das ist auch der richtige Weg: Ein LLM als Sparringspartner zu benutzen. Das ist heute Standard bei den meisten Programmierarbeiten, in allen Naturwissenschaften und vielen weiteren Bereichen.

Vor allem: Das unterscheidet sich um Lichtjahre von dem Unsinn, den dieser tobbse vorher geschrieben hat.

LG

pah