Spritpreismonitor: Unterschied zwischen den Versionen

Aus FHEMWiki
KKeine Bearbeitungszusammenfassung
 
(29 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
Die hier vorgestellten Fragmente ermöglichen es, mit Hilfe von [[HTTPMOD]] bei [http://www.clever-tanken.de clever-tanken.de] von Wunschtankstellen die Spritpreise zu protokollieren. Die Credits dafür gehen an Forum-Benutzer {{Link2FU|1774|Phil__}}. Die Original Diskussion im Forum ist {{Link2Forum|Topic=22554|Message=210795|LinkText=hier}}.
Die hier vorgestellten Geräte-Definitionen ermöglichen es, mit Hilfe von [[HTTPMOD]] bei [http://www.clever-tanken.de clever-tanken.de] die Kraftstoffpreise von gewünschten Tankstellen zu protokollieren. Die Credits dafür gehen an Forum-Benutzer {{Link2FU|1774|Phil__}}. Die Original Diskussion im Forum ist {{Link2Forum|Topic=22554|Message=210795|LinkText=hier}}.


Alternativ können die Kraftstoffpreise auch über die Webseite tankerkönig.de bezogen werden. Die Vorgehensweise dafür ist im Detail in [http://www.cyberwulf.de/2016/fhem-spritpreise-von-tankerkoenig-de/ diesem Blog] beschrieben.
Alternativ dazu können die Kraftstoffpreise auch über die Webseite [https://www.tankerkoenig.de tankerkoenig.de] bezogen werden. Die Vorgehensweise dafür ist im Detail in [http://www.cyberwulf.de/2016/fhem-spritpreise-von-tankerkoenig-de/ diesem Blog] beschrieben.


== Einleitung ==
== Einleitung ==
{{Randnotiz|RNTyp=y|RNText=Die gezeigten Anweisungen basieren noch auf einer alten Version (vor Februar 2016) des Moduls HTTPMOD. Das betrifft insbesondere die gewählten ''readings...''-Namen. Dieses Namensschema wird u.U. in Zukunft nicht mehr unterstützt.
Zur Umstellung auf das aktuelle Namensschema (am Beispiel ''Shell'') bitte folgende Aktionen (Eingabe in das Befehlsfenster!) ausführen:
:<code>attr Shell enableControlSet 1</code>
:<code>set Shell upgradeAttributes</code>
Im FHEM-Log sollten dann Meldungen auftauchen nach dem Schema
:''Shell: upgraded attribute ... to new syntax ...''
:''Shell: dropping readings... from userattr list''
}}


Im folgenden wird mit Hilfe des Moduls HTTPMOD der Spritpreis von ausgewählten Tankstellen abgerufen. Die Daten werden [[Regulärer Ausdruck|gefiltert]], gespeichert und als Diagramm aufbereitet.
Im Folgenden wird mit Hilfe des Moduls HTTPMOD der Kraftstoffpreis von ausgewählten Tankstellen abgerufen. Die Daten werden [[Regulärer Ausdruck|gefiltert]], gespeichert und als Diagramm aufbereitet.


Zum Nachbau ist es erforderlich, "seine" Wunschtankstellen bei Clever-Tanken zu suchen. Jede Tankstelle hat eine eigene Nummer:
Zum Nachbau ist es erforderlich, die persönlich gewünschten Tankstellen bei Clever-Tanken zu suchen. Jede Tankstelle hat eine eigene Nummer:
:<code>/tankstelle_details/0815</code>
:<code>/tankstelle_details/0815</code>


Zeile 21: Zeile 13:


== Konfiguration ==
== Konfiguration ==
Die erforderlichen Definitionen in der FHEM [[Konfiguration]] bestehen aus mehreren Teilen. Zunächst die erforderlichen Einstellungen, um die Daten der gewünschten Tankstellen abzuholen:
Die erforderlichen Definitionen in der FHEM [[Konfiguration]] bestehen aus mehreren Teilen. Zunächst die erforderlichen Einstellungen um die Daten der gewünschten Tankstellen abzuholen.


Beispielkonfiguration für eine Shell Tankstelle inkl. Sondersorten:
<pre>
<pre>
define Shell HTTPMOD http://www.clever-tanken.de/tankstelle_details/4871 600
define Tankstelle_Shell HTTPMOD http://www.clever-tanken.de/tankstelle_details/4871 600
attr Shell group Spritpreise
attr Tankstelle_Shell enableControlSet 1
attr Shell icon tanken
attr Tankstelle_Shell reading01Name Diesel
attr Shell reading01Name Diesel
attr Tankstelle_Shell reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Shell reading02Name SuperE5
attr Tankstelle_Shell reading02Name SuperE5
attr Shell reading03Name SuperE10
attr Tankstelle_Shell reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Shell reading04Name SuperPlus
attr Tankstelle_Shell reading03Name SuperE10
attr Shell reading01Regex "price-type-name">Diesel<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Shell reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Shell reading02Regex "price-type-name">Super.E5<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Shell reading04Name SuperPlus
attr Shell reading03Regex "price-type-name">Super.E10<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Shell reading04Regex "price-type-name">SuperPlus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Shell reading04Regex "price-type-name">SuperPlus<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Shell reading05Name ShellVPowerRacing
attr Shell room Spritpreise
attr Tankstelle_Shell reading05Regex "price-type-name">Shell.V-Power.Racing<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Shell stateFormat E5: SuperE5, E10: SuperE10, D: Diesel, SP: SuperPlus
attr Tankstelle_Shell reading06Name ShellVPowerDiesel
attr Shell timeout 5
attr Tankstelle_Shell reading06Regex "price-type-name">Shell.V-Power.Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading07Name street
attr Tankstelle_Shell reading07Regex "streetAddress">(.*)<
attr Tankstelle_Shell reading08Name zip
attr Tankstelle_Shell reading08Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Shell reading09Name city
attr Tankstelle_Shell reading09Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Shell readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Shell stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Shell timeout 10
</pre>


define Total HTTPMOD http://www.clever-tanken.de/tankstelle_details/4870 600
Beispielkonfiguration für eine Total Tankstelle:
attr Total group Spritpreise
<pre>
attr Total icon tanken
define Tankstelle_Total HTTPMOD http://www.clever-tanken.de/tankstelle_details/4870 600
attr Total reading01Name Diesel
attr Tankstelle_Total enableControlSet 1
attr Total reading02Name SuperE5
attr Tankstelle_Total reading01Name Diesel
attr Total reading03Name SuperE10
attr Tankstelle_Total reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Total reading04Name SuperPlus
attr Tankstelle_Total reading02Name SuperE5
attr Total reading01Regex "price-type-name">Diesel<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Total reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Total reading02Regex "price-type-name">Super.E5<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Total reading03Name SuperE10
attr Total reading03Regex "price-type-name">Super.E10<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Total reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Total reading04Regex "price-type-name">SuperPlus<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Total reading04Name SuperPlus
attr Total room Spritpreise
attr Tankstelle_Total reading04Regex "price-type-name">Total.Excellium.Super.Plus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Total stateFormat E5: SuperE5, E10: SuperE10, D: Diesel, SP: SuperPlus
attr Tankstelle_Total reading05Name street
attr Total timeout 5
attr Tankstelle_Total reading05Regex "streetAddress">(.*)<
attr Tankstelle_Total reading06Name zip
attr Tankstelle_Total reading06Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Total reading07Name city
attr Tankstelle_Total reading07Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Total readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Total stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Total timeout 10
</pre>


define Aral HTTPMOD http://www.clever-tanken.de/tankstelle_details/4869 600
Beispielkonfiguration für eine Aral Tankstelle inkl. Sondersorten:
attr Aral group Spritpreise
<pre>
attr Aral icon tanken
define Tankstelle_Aral HTTPMOD http://www.clever-tanken.de/tankstelle_details/4869 600
attr Aral reading01Name Diesel
attr Tankstelle_Aral enableControlSet 1
attr Aral reading02Name SuperE5
attr Tankstelle_Aral reading01Name Diesel
attr Aral reading03Name SuperE10
attr Tankstelle_Aral reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Aral reading04Name SuperPlus
attr Tankstelle_Aral reading02Name SuperE5
attr Aral reading01Regex "price-type-name">Diesel<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Aral reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Aral reading02Regex "price-type-name">Super.E5<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Aral reading03Name SuperE10
attr Aral reading03Regex "price-type-name">Super.E10<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Aral reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Aral reading04Regex "price-type-name">SuperPlus<[\d\D]{700,900}"current-price-.">(\d.\d\d)
attr Tankstelle_Aral reading04Name Ultimate102
attr Aral room Spritpreise
attr Tankstelle_Aral reading04Regex "price-type-name">ARAL.Ultimate.102<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Aral stateFormat E5: SuperE5, E10: SuperE10, D: Diesel, SP: SuperPlus
attr Tankstelle_Aral reading05Name UltimateDiesel
attr Aral timeout 5
attr Tankstelle_Aral reading05Regex "price-type-name">ARAL.Ultimate.Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Aral reading06Name street
attr Tankstelle_Aral reading06Regex "streetAddress">(.*)<
attr Tankstelle_Aral reading07Name zip
attr Tankstelle_Aral reading07Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Aral reading08Name city
attr Tankstelle_Aral reading08Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Aral readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Aral stateFormat E5: SuperE5, E10: SuperE10, SP: Ultimate102, D: Diesel
attr Tankstelle_Aral timeout 10
</pre>
</pre>


Wer die Anzeige der Benzinpreise inklusive der obligatorisch abschließenden "9" möchte, muss zu jedem readingsName einen entsprechenden Zusatzzeile hinzufügen:
Beispielkonfiguration für eine Esso Tankstelle inkl. Sondersorten:
<pre>
define Tankstelle_Esso HTTPMOD http://www.clever-tanken.de/tankstelle_details/17413 600
attr Tankstelle_Esso enableControlSet 1
attr Tankstelle_Esso reading01Name Diesel
attr Tankstelle_Esso reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading02Name SuperE5
attr Tankstelle_Esso reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading03Name SuperE10
attr Tankstelle_Esso reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading04Name SuperPlus
attr Tankstelle_Esso reading04Regex "price-type-name">Esso.Superplus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading05Name Autogas
attr Tankstelle_Esso reading05Regex "price-type-name">Autogas<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading06Name street
attr Tankstelle_Esso reading06Regex "streetAddress">(.*)<
attr Tankstelle_Esso reading07Name zip
attr Tankstelle_Esso reading07Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Esso reading08Name city
attr Tankstelle_Esso reading08Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Esso readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Esso stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Esso timeout 10
</pre>


Beispielkonfiguration für eine Agip Tankstelle:
<pre>
<pre>
# Addiert zum Wert ($val) des Readings (readingsName_Diesel) den Wert 0.009
define Tankstelle_Agip HTTPMOD http://www.clever-tanken.de/tankstelle_details/34459 600
attr Shell reading01OExpr $val + 0.009
attr Tankstelle_Agip enableControlSet 1
attr Tankstelle_Agip reading01Name Diesel
attr Tankstelle_Agip reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading02Name SuperE5
attr Tankstelle_Agip reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading03Name SuperE10
attr Tankstelle_Agip reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading04Name SuperPlus
attr Tankstelle_Agip reading04Regex "price-type-name">SuperPlus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading05Name street
attr Tankstelle_Agip reading05Regex "streetAddress">(.*)<
attr Tankstelle_Agip reading06Name zip
attr Tankstelle_Agip reading06Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Agip reading07Name city
attr Tankstelle_Agip reading07Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Agip readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Agip stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Agip timeout 10
</pre>
</pre>


Diese Zeile fügt dem Dieselpreis der Shell-Tankstelle bei einem Literpreis von 1.29 die Ziffer "9" hinzu und ergibt 1.299.
Eine [[readingsGroup]] mit farblicher Hervorhebung des Tiefstpreises der jeweiligen Kraftstoffsorte und hochgestellter letzter Ziffer beim Kraftstoffpreis:
 
 
Dazu kommen noch die Definitionen für das [[FileLog]]:
<pre>
<pre>
define FileLog_Spritpreise FileLog /media/usblog/fhem/log/spritpreise-langen-%Y-%m.log (Shell|Total|Aral):(SuperE5|Diesel).*
define rg_Kraftstoffpreise readingsGroup <Tankstelle>,<Diesel>,<Super E5>,<Super E10>,<Super Plus>,<PLZ>,<Ort>,<Straße> Tankstelle_.*:Diesel,SuperE5,SuperE10,SuperPlus,zip,city,street
attr FileLog_Spritpreise alias Log Spritpreise
attr rg_Kraftstoffpreise alias Kraftstoffpreisübersicht
attr FileLog_Spritpreise group Logfile
attr rg_Kraftstoffpreise cellStyle {"r:1" => 'style="font-weight:bold"'}
attr FileLog_Spritpreise logtype text
attr rg_Kraftstoffpreise valueFormat {"$1<sup>$2</sup> €" if ($READING=~/^Super|Diesel/ && $VALUE=~/^(\d\.\d\d)(\d)$/)}
attr FileLog_Spritpreise room Spritpreise
attr rg_Kraftstoffpreise valueStyle {'style="color:green;;font-weight:bold"' if ($READING=~/^Super|Diesel/ && $VALUE eq KraftstoffLP($READING))}
</pre>
</pre>




Sowie eine passende [[readingsGroup]]:
Hier noch eine mögliche Definition für das [[FileLog]]. Es werden von allen definierten Tankstellen (Namen beginnend mit "Tankstelle_") die Werte für Super (E5, E10 und Plus) und Diesel gespeichert:
<pre>
<pre>
define Spritpreise readingsGroup (Shell|Total|Aral):(SuperE5|Diesel).*
define FileLog_Kraftstoffpreise FileLog ./log/Kraftstoffpreise-%Y-%m.log Tankstelle_.*:(Super|Diesel).*
attr Spritpreise group Spritpreisuebersicht
attr Spritpreise notime 1
attr Spritpreise room Spritpreise
#attr Spritpreise style style="font-size:16px"    # führt ggf. zu einem PERL WARNING
attr Spritpreise valueFormat {'%.2f €'}
#attr Spritpreise valueStyle {Werte($READING,$VALUE)}    # führt ggf. zu einem PERL WARNING
</pre>
</pre>


Zeile 104: Zeile 156:
Und eine [[SVG|Plotdefinition]]
Und eine [[SVG|Plotdefinition]]
<pre>
<pre>
define SVG_FileLog_Spritpreise_1 SVG FileLog_Spritpreise:SVG_FileLog_Spritpreise_1:CURRENT
define SVG_FileLog_Kraftstoffpreise_1 SVG FileLog_Kraftstoffpreise:SVG_FileLog_Kraftstoffpreise_1:CURRENT
attr SVG_FileLog_Spritpreise_1 group Spritpreisverlauf
attr SVG_FileLog_Spritpreise_1 room Spritpreise
</pre>
</pre>


== Farbliche Hervorhebung ==
== Farbliche Hervorhebung ==
Folgender Code gehört in [[99 myUtils anlegen|99_myUtils.pm]]; die Werte können natürlich entsprechend eigener Wünsche und Vorlieben angepasst werden.
Folgender Code kommt in [[99 myUtils anlegen|99_myUtils.pm]]
<pre>
<pre>
###################################################
###########################################################################################
###     Spritpreisübersicht - Farbsortierung    ###
### Funktion für Ermittlung vom niedrigsten Preis für readingsGroup rg_Kraftstoffpreise ###
###################################################
###########################################################################################
# damit die Funktion richtig funktioniert müssen alle Tankstellennamen mit "Tankstelle_"
# beginnen oder entsprechend devspec2array auf die eigenen Namen anpassen


sub Werte($$) {
sub KraftstoffLP($) {
   my ($name, $wert) = @_;
   my ($r) = @_;
# Log(3,"$name $wert");
   return (sort map {ReadingsNum($_,$r,999)} devspec2array("Tankstelle_.*"))[0];
   if ($name eq "Diesel") {
    return 'style="color:red"' if($wert >= 1.39);
    return 'style="color:blue"' if(($wert >= 1.33) && ($wert < 1.39));
    return 'style="color:green;;font-weight:bold"' if($wert <= 1.32);
  }elsif ($name eq "SuperE10") {
    return 'style="color:crimson"' if($wert >= 1.70);
    return 'style="color:yellow"' if(($wert >= 1.55) && ($wert < 1.70));
    return 'style="color:lightgreen;;font-weight:bold"' if($wert < 1.55);
  }elsif ($name eq "SuperE5") {
    return 'style="color:red"' if($wert >= 1.59);
    return 'style="color:blue"' if(($wert >= 1.49) && ($wert < 1.59));
    return 'style="color:green;;font-weight:bold"' if($wert <= 1.48);
  } 
}
}
</pre>
</pre>


=== Die zugehörige .gplot Datei ===
=== Die zugehörige .gplot Datei ===
SVG_FileLog_Spritpreise_1.gplot
SVG_FileLog_Kraftstoffpreise_1.gplot
<pre>
<pre>
# Created by FHEM/98_SVG.pm, 2014-10-22 12:57:34
# Created by FHEM/98_SVG.pm, 2014-10-22 12:57:34
Zeile 144: Zeile 184:
set timefmt "%Y-%m-%d_%H:%M:%S"
set timefmt "%Y-%m-%d_%H:%M:%S"
set xlabel " "
set xlabel " "
set title 'Spritpreise'
set title 'Kraftstoffpreise'
set ytics  
set ytics  
set y2tics  
set y2tics  
Zeile 165: Zeile 205:
     "<IN>" using 1:2 axes x1y2 title 'Total Super' ls l5 lw 1 with lines
     "<IN>" using 1:2 axes x1y2 title 'Total Super' ls l5 lw 1 with lines
</pre>
</pre>


== Tricks für HTTPMOD ==
== Tricks für HTTPMOD ==
Zeile 170: Zeile 211:


Eine Lösung dazu wäre, die Daten vorher mit wget auf einem eigenen Webserver zu speichern (z.B. ein lokaler Apache) und HTTPMOD auf diesen zugreifen zu lassen.  
Eine Lösung dazu wäre, die Daten vorher mit wget auf einem eigenen Webserver zu speichern (z.B. ein lokaler Apache) und HTTPMOD auf diesen zugreifen zu lassen.  


== Links ==
== Links ==

Aktuelle Version vom 10. Februar 2021, 10:12 Uhr

Die hier vorgestellten Geräte-Definitionen ermöglichen es, mit Hilfe von HTTPMOD bei clever-tanken.de die Kraftstoffpreise von gewünschten Tankstellen zu protokollieren. Die Credits dafür gehen an Forum-Benutzer Phil__ . Die Original Diskussion im Forum ist hier.

Alternativ dazu können die Kraftstoffpreise auch über die Webseite tankerkoenig.de bezogen werden. Die Vorgehensweise dafür ist im Detail in diesem Blog beschrieben.

Einleitung

Im Folgenden wird mit Hilfe des Moduls HTTPMOD der Kraftstoffpreis von ausgewählten Tankstellen abgerufen. Die Daten werden gefiltert, gespeichert und als Diagramm aufbereitet.

Zum Nachbau ist es erforderlich, die persönlich gewünschten Tankstellen bei Clever-Tanken zu suchen. Jede Tankstelle hat eine eigene Nummer:

/tankstelle_details/0815

Die 600 in den Beispielen gibt das Abrufintervall in Sekunden an.

Konfiguration

Die erforderlichen Definitionen in der FHEM Konfiguration bestehen aus mehreren Teilen. Zunächst die erforderlichen Einstellungen um die Daten der gewünschten Tankstellen abzuholen.

Beispielkonfiguration für eine Shell Tankstelle inkl. Sondersorten:

define Tankstelle_Shell HTTPMOD http://www.clever-tanken.de/tankstelle_details/4871 600
attr Tankstelle_Shell enableControlSet 1
attr Tankstelle_Shell reading01Name Diesel
attr Tankstelle_Shell reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading02Name SuperE5
attr Tankstelle_Shell reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading03Name SuperE10
attr Tankstelle_Shell reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading04Name SuperPlus
attr Tankstelle_Shell reading04Regex "price-type-name">SuperPlus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading05Name ShellVPowerRacing
attr Tankstelle_Shell reading05Regex "price-type-name">Shell.V-Power.Racing<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading06Name ShellVPowerDiesel
attr Tankstelle_Shell reading06Regex "price-type-name">Shell.V-Power.Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Shell reading07Name street
attr Tankstelle_Shell reading07Regex "streetAddress">(.*)<
attr Tankstelle_Shell reading08Name zip
attr Tankstelle_Shell reading08Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Shell reading09Name city
attr Tankstelle_Shell reading09Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Shell readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Shell stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Shell timeout 10

Beispielkonfiguration für eine Total Tankstelle:

define Tankstelle_Total HTTPMOD http://www.clever-tanken.de/tankstelle_details/4870 600
attr Tankstelle_Total enableControlSet 1
attr Tankstelle_Total reading01Name Diesel
attr Tankstelle_Total reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Total reading02Name SuperE5
attr Tankstelle_Total reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Total reading03Name SuperE10
attr Tankstelle_Total reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Total reading04Name SuperPlus
attr Tankstelle_Total reading04Regex "price-type-name">Total.Excellium.Super.Plus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Total reading05Name street
attr Tankstelle_Total reading05Regex "streetAddress">(.*)<
attr Tankstelle_Total reading06Name zip
attr Tankstelle_Total reading06Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Total reading07Name city
attr Tankstelle_Total reading07Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Total readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Total stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Total timeout 10

Beispielkonfiguration für eine Aral Tankstelle inkl. Sondersorten:

define Tankstelle_Aral HTTPMOD http://www.clever-tanken.de/tankstelle_details/4869 600
attr Tankstelle_Aral enableControlSet 1
attr Tankstelle_Aral reading01Name Diesel
attr Tankstelle_Aral reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Aral reading02Name SuperE5
attr Tankstelle_Aral reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Aral reading03Name SuperE10
attr Tankstelle_Aral reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Aral reading04Name Ultimate102
attr Tankstelle_Aral reading04Regex "price-type-name">ARAL.Ultimate.102<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Aral reading05Name UltimateDiesel
attr Tankstelle_Aral reading05Regex "price-type-name">ARAL.Ultimate.Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Aral reading06Name street
attr Tankstelle_Aral reading06Regex "streetAddress">(.*)<
attr Tankstelle_Aral reading07Name zip
attr Tankstelle_Aral reading07Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Aral reading08Name city
attr Tankstelle_Aral reading08Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Aral readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Aral stateFormat E5: SuperE5, E10: SuperE10, SP: Ultimate102, D: Diesel
attr Tankstelle_Aral timeout 10

Beispielkonfiguration für eine Esso Tankstelle inkl. Sondersorten:

define Tankstelle_Esso HTTPMOD http://www.clever-tanken.de/tankstelle_details/17413 600
attr Tankstelle_Esso enableControlSet 1
attr Tankstelle_Esso reading01Name Diesel
attr Tankstelle_Esso reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading02Name SuperE5
attr Tankstelle_Esso reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading03Name SuperE10
attr Tankstelle_Esso reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading04Name SuperPlus
attr Tankstelle_Esso reading04Regex "price-type-name">Esso.Superplus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading05Name Autogas
attr Tankstelle_Esso reading05Regex "price-type-name">Autogas<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Esso reading06Name street
attr Tankstelle_Esso reading06Regex "streetAddress">(.*)<
attr Tankstelle_Esso reading07Name zip
attr Tankstelle_Esso reading07Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Esso reading08Name city
attr Tankstelle_Esso reading08Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Esso readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Esso stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Esso timeout 10

Beispielkonfiguration für eine Agip Tankstelle:

define Tankstelle_Agip HTTPMOD http://www.clever-tanken.de/tankstelle_details/34459 600
attr Tankstelle_Agip enableControlSet 1
attr Tankstelle_Agip reading01Name Diesel
attr Tankstelle_Agip reading01Regex "price-type-name">Diesel<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading02Name SuperE5
attr Tankstelle_Agip reading02Regex "price-type-name">Super.E5<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading03Name SuperE10
attr Tankstelle_Agip reading03Regex "price-type-name">Super.E10<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading04Name SuperPlus
attr Tankstelle_Agip reading04Regex "price-type-name">SuperPlus<[\S\s\r\n]*?"current-price-\d+">(\d.\d{2}<[\S\s\r\n]*?"suffix-price-\d">\d)
attr Tankstelle_Agip reading05Name street
attr Tankstelle_Agip reading05Regex "streetAddress">(.*)<
attr Tankstelle_Agip reading06Name zip
attr Tankstelle_Agip reading06Regex "http://schema.org/postalCode">(.*)<
attr Tankstelle_Agip reading07Name city
attr Tankstelle_Agip reading07Regex "http://schema.org/addressCountry">(.*)<
attr Tankstelle_Agip readingOExpr $val =~ s/<[\d\D]+>//;;$val
attr Tankstelle_Agip stateFormat E5: SuperE5, E10: SuperE10, SP: SuperPlus, D: Diesel
attr Tankstelle_Agip timeout 10

Eine readingsGroup mit farblicher Hervorhebung des Tiefstpreises der jeweiligen Kraftstoffsorte und hochgestellter letzter Ziffer beim Kraftstoffpreis:

define rg_Kraftstoffpreise readingsGroup <Tankstelle>,<Diesel>,<Super E5>,<Super E10>,<Super Plus>,<PLZ>,<Ort>,<Straße> Tankstelle_.*:Diesel,SuperE5,SuperE10,SuperPlus,zip,city,street
attr rg_Kraftstoffpreise alias Kraftstoffpreisübersicht
attr rg_Kraftstoffpreise cellStyle {"r:1" => 'style="font-weight:bold"'}
attr rg_Kraftstoffpreise valueFormat {"$1<sup>$2</sup> €" if ($READING=~/^Super|Diesel/ && $VALUE=~/^(\d\.\d\d)(\d)$/)}
attr rg_Kraftstoffpreise valueStyle {'style="color:green;;font-weight:bold"' if ($READING=~/^Super|Diesel/ && $VALUE eq KraftstoffLP($READING))}


Hier noch eine mögliche Definition für das FileLog. Es werden von allen definierten Tankstellen (Namen beginnend mit "Tankstelle_") die Werte für Super (E5, E10 und Plus) und Diesel gespeichert:

define FileLog_Kraftstoffpreise FileLog ./log/Kraftstoffpreise-%Y-%m.log Tankstelle_.*:(Super|Diesel).*


Und eine Plotdefinition

define SVG_FileLog_Kraftstoffpreise_1 SVG FileLog_Kraftstoffpreise:SVG_FileLog_Kraftstoffpreise_1:CURRENT

Farbliche Hervorhebung

Folgender Code kommt in 99_myUtils.pm

###########################################################################################
### Funktion für Ermittlung vom niedrigsten Preis für readingsGroup rg_Kraftstoffpreise ###
###########################################################################################
# damit die Funktion richtig funktioniert müssen alle Tankstellennamen mit "Tankstelle_"
# beginnen oder entsprechend devspec2array auf die eigenen Namen anpassen

sub KraftstoffLP($) {
  my ($r) = @_;
  return (sort map {ReadingsNum($_,$r,999)} devspec2array("Tankstelle_.*"))[0];
}


Die zugehörige .gplot Datei

SVG_FileLog_Kraftstoffpreise_1.gplot

# Created by FHEM/98_SVG.pm, 2014-10-22 12:57:34
set terminal png transparent size <SIZE> crop
set output '<OUT>.png'
set xdata time
set timefmt "%Y-%m-%d_%H:%M:%S"
set xlabel " "
set title 'Kraftstoffpreise'
set ytics 
set y2tics 
set grid
set ylabel "Preise (€/Liter)"
set y2label "Preise (€/Liter)"

#FileLog 4:Aral.Diesel\x3a:1:
#FileLog 4:Shell.Diesel\x3a:1:
#FileLog 4:Total.Diesel\x3a:1:
#FileLog 4:Aral.SuperE5\x3a:1:
#FileLog 4:Shell.SuperE5\x3a:1:
#FileLog 4:Total.SuperE5\x3a:1:

plot "<IN>" using 1:2 axes x1y2 title 'Aral Diesel' ls l2 lw 1 with lines,\
     "<IN>" using 1:2 axes x1y2 title 'Shell Diesel' ls l1 lw 1 with lines,\
     "<IN>" using 1:2 axes x1y2 title 'Total Diesel' ls l0 lw 1 with lines,\
     "<IN>" using 1:2 axes x1y2 title 'Aral Super' ls l3 lw 1 with lines,\
     "<IN>" using 1:2 axes x1y2 title 'Shell Super' ls l4 lw 1 with lines,\
     "<IN>" using 1:2 axes x1y2 title 'Total Super' ls l5 lw 1 with lines


Tricks für HTTPMOD

Je nach Internetverbindung und Geschwindigkeit des FHEM Rechners kann das Modul manchmal Probleme haben, die Daten schnell genug zu verarbeiten.

Eine Lösung dazu wäre, die Daten vorher mit wget auf einem eigenen Webserver zu speichern (z.B. ein lokaler Apache) und HTTPMOD auf diesen zugreifen zu lassen.


Links