Ladestation (öffentlich) Zustandabfrage per HTTPMOD

[betateilchen]

Im Prinzip müsste es möglich sein, das "count()" mehrstufig anzulegen.

Das ist die Sache mit den verschachtelten arrays...

Noch cooler wäre aber sowas:

Code Auswählen Erweitern

jsonPath('$.[chargePoints].[connectors]')

[Prof. Dr. Peter Henning]

Immerhin geht das hier:

Code Auswählen Erweitern

multi(jsonPath('$.chargePoints.[*]'),concat('test_',count()),concat(property('state.value'),',  ',property('connectors.0.maxPowerInKw'),'kW, ',property('connectors.0.tariffInfo.tariffGroup'),', ',property('connectors.0.tariffInfo.tariffDescription')))
Man könnte also tatsächlich für jeden Ladepunkt eine schöne Zeile machen. Heute aber nicht mehr, hier ist gleich Wahlparty.

Ach ja, noch etwas: Zumindest in Vahrn sind das Doppelsäulen mit je ZWEI Kabeln, jedes wird als eigener Connector angezeigt. Wir können also ziemlich sicher davon ausgehen, dass das connectors-array nur eine Rolle spielt, wenn wirklich an einem Ladepunkt unterschiedliche Stecker angeboten werden.

LG

pah

[Prof. Dr. Peter Henning]

Hier die Tabelle:

Code Auswählen Erweitern

attr Ladestation_xxx readingList single(jsonPath('$.additionalInfo'),'location','?') single(jsonPath('$.numberOfChargePoints'),'cports') single(jsonPath('$.availableChargePoints'),'cports_avail')  single(jsonPath('$.unknownStateChargePoints'),'cports_unknown') multi(jsonPath('$.chargePoints.[*]'),concat('port_',count()),concat(property('state.value'),'|',property('connectors.0.maxPowerInKw'),'|',property('connectors.0.tariffInfo.tariffGroup'),'|',property('connectors.0.tariffInfo.tariffDescription')))

attr Ladestation_xxx stateFormat {my $n=ReadingsVal("$name","cports",0);;my $ret="<table border=\"1\"><tr><td>Status</td><td>Leistung</td><td>Typ</td><td>Preis ab</td></tr>";;for(my $i=0;;$i<$n;;$i++){my @s=split('\|',ReadingsVal("$name","port_$i","UNKNOWN|||"));;my $t1=($s[0]=~/^A/)?"frei":(($s[0]=~/^O/)?"belegt":"?");;my $t2=$s[1].'kW';;my $t3=($s[2]=~/^D/)?"DC":(($s[2]=~/^A/)?"AC":"?");;$s[3]=~/(\d,\d\d) €/;;my $t4="$1  €";;$ret.="<tr><td>$t1</td><td>$t2</td><td>$t3</td><td>$t4</td></tr>\n"};;$ret.="</table>";;$ret}
LG

pah

[rabehd]

Danke für die Arbeit!

Code Auswählen Erweitern

{my $n=ReadingsVal("$name","cports",0);;my $ret="<table border=\"1\"><tr><td>Status</td><td>Leistung</td><td>Typ</td><td>Preis ab</td></tr>";;for(my $i=0;;$i<$n;;$i++){my @s=split('\|',ReadingsVal("$name","port_$i","UNKNOWN|||"));;my $t1=($s[0]=~/^A/)?"frei":(($s[0]=~/^O/)?"belegt":"?");;my $t2=$s[1].'kW';;my $t3=($s[2]=~/^D/)?"DC":(($s[2]=~/^A/)?"AC":"?");;$s[3]=~/(\d,\d\d) €/;;my $t4="$1  €";;$ret.="<tr><td>$t1</td><td>$t2</td><td>$t3</td><td>$t4</td></tr>\n"};;$ret.="</table>";;$ret}Das meldet mir einen Syntaxfehler.

Code Auswählen Erweitern

{my $n=ReadingsVal("$name","cports",0);;my $ret="<table border=\"1\"><tr><td>Status</td><td>Leistung</td><td>Typ</td><td>Preis ab</td></tr>";;for(my $i=0;$i<$n;$i++){my @s=split('\|',ReadingsVal("$name","port_$i","UNKNOWN|||"));;my $t1=($s[0]=~/^A/)?"frei":(($s[0]=~/^O/)?"belegt":"?");;my $t2=$s[1].'kW';;my $t3=($s[2]=~/^D/)?"DC":(($s[2]=~/^A/)?"AC":"?");;$s[3]=~/(\d,\d\d) €/;;my $t4="$1  €";;$ret.="<tr><td>$t1</td><td>$t2</td><td>$t3</td><td>$t4</td></tr>\n"};;$ret.="</table>";;$ret}So funktioniert es

[betateilchen]

Danke für die Arbeit!
...
Das meldet mir einen Syntaxfehler.

Vermutlich kommt es darauf an, wo Du den Code eingibst und ob dort die Anzahl der Semikolon passt.
Bei mir funktioniert Peters Code einwandfrei, wenn ich in in das große Eingabefeld hinter dem + Zeichen paste.
Welchen Syntaxfehler bekommst Du denn?

[Prof. Dr. Peter Henning]

Vermutlich kommt es darauf an, wo Du den Code eingibst und ob dort die Anzahl der Semikolon passt.

Sehe ich auch so.

LG

pah

[rabehd]

Bei mir funktioniert Peters Code einwandfrei, wenn ich in in das große Eingabefeld hinter dem + Zeichen paste.

bei mir nicht, aber egal, für mich gelöst und anschließend angepasst.

[Prof. Dr. Peter Henning]

Das meldet mir einen Syntaxfehler.

Wundert mich etwas. Wenn man den Code in die Kommandozeile eingeben will, statt in das textField-long Editierfeld, muss man die Semikola verdoppeln. Aber eben auch im "for"-Befehl.

Code Auswählen Erweitern

{for(my $i=0;$i<10;$i++){Log 1,"xyz"}}liefert einen Fehler

Code Auswählen Erweitern

{for(my $i=0;;$i<10;;$i++){Log 1,"xyz"}}wird ausgeführt.

LG

pah

[Prof. Dr. Peter Henning]

Die API liefert hier (natürlich ohne gesetzte Filter) genau eine von drei vorhandenen öffentlichen Ladesäulen.
So richtig hilfreich scheint das nicht zu sein.

Stimmt, das Dingens kennt nicht die Hälfte der Ladestationen.

LG

pah

[rabehd]

Ich habe es nicht in die Kommandozeile eingegeben, sondern in das Feld mit dem Plus-Zeichen.

, wenn ich in in das große Eingabefeld hinter dem + Zeichen

Was meinst Du damit? Die Kommandozeile? Haben ich Dich mißverstanden?