BenzinpreisMonitor

[stenny73]

hallo

Ja, Mail klappt soweit - aus irgend einem Grund hatte aber wohl der Rechner gehangen?!? Neustart i.o.

Mails kommen jetzt - aber nicht auf die Readings Div_Diesel und Div_SuperE10....

Also mit Diesel, SuperE10,

Nochmal das Def aus den Notify

Code Auswählen Erweitern

Preismonitor*.*:Div*.* {if("%" !~ m/0/){
DebianMail('werauchimmer@@googlemail.com','FHEM Preisänderung')};
}

den letzten Teil mit '@ %' natürlich entfernt.... war ein Überbleibsel aus der Batterieüberwachung

[Puschel74]

Hallo,

lass mal das

Code Auswählen Erweitern

{if("%" !~ m/0/)
weg.
Was passiert dann?

Grüße

[stenny73]

Erst mal meine Fragen vergessen.......

IRGENDWIE spinnt das ganze System. Werde wohl erst mal alles durchschauen müssen....
Es fehlen einige Abfragen undsoweiter....

Danke erstmal....

stenny

[PeMue]

Hallo zusammen,

gibt es die Möglichkeit (außer per attr <name> sortDevices 1) Dinge in der readingsGroup zu sortieren?
Bei mir sieht es (ohne das "Einfärbeskript") so aus:
(http://forum.fhem.de/index.php?action=dlattach;topic=22554.0;attach=18240;image)
Aber es wäre m.E. besser, wenn E10 untereinander und Diesel untereinander stünden.
Mir ist klar, dass ich mit geeigneter Namenswahl umsortieren kann, allerdings würde ich dann für eine Tankstelle zwei HTTPMOD Instanzen aufmachen, und das macht m.E. keinen Sinn (ich würde zweimal dieselben Daten abholen und irgendwo speichern bzw. das, was ich will, herausfieseln).

Vielen Dank im voraus für einen kleinen Tipp.

Gruß PeMue

[justme1968]

wenn du die devices nicht per regex auswählst sondern im define der readingsGroup explizit einzeln hin schreibst (jeweils mit leerzeichen getrennt) und das sortDevices weg lässt werden sie in der angegeben reihenfolge angezeigt.

nur wenn die devices per regex ausgewählt werden ist die reihenfolge unbestimmt.

gruss
  andre

[PeMue]

wow, ging das schnell 
Also statt

Code Auswählen Erweitern

define Spritpreis readingsGroup (SpritSpathelf|SpritHagelauer|SpritShellIlsfeld):(Diesel|SuperE10).*
sehr händisch mit

Code Auswählen Erweitern

define Spritpreis readingsGroup SpritSpathelf:Diesel.* SpritHagelauer:Diesel.* SpritShellIlsfeld:Diesel.* SpritSpathelf:SuperE10.* SpritHagelauer:SuperE10 SpritShellIlsfeld:SuperE10.*

Ich vermute mal, eine Klammer um die Readings würde nur stören, oder?

Danke + Gruß

PeMue

[Bennemannc]

Hallo,

ich hätte da mal zwei Fragen:
1) gibt es irgendwo eine Zsammenfassung, Wiki, TUT ?
2) kann das auch auf einer Fritzbox laufen oder benötige ich dafür einen Einplatinencomputer ?

Gruß Christoph

[PeMue]

Hallo Christoph,

das läuft bei mir auf der Fritz Box 7490.

Gruß PeMue

[justme1968]

ja genau so. klammern um die regex für die readings würden hier keinen unterschied machen.

je nach dem wie due die reihenfolge genau haben möchtest reicht aber vielleicht schon so etwas:

Code Auswählen Erweitern

define Spritpreis readingsGroup Sprit.*:Diesel.* Sprit.*:SuperE10.* oder sogar:

Code Auswählen Erweitern

define Spritpreis readingsGroup .*:Diesel .*:SuperE10

gruss
  andre

[PeMue]

<offtopic?>
das Ganze geht auch für den Ölpreis (halt mit einer Webseite, die keine Skripte hat oder diese schon gerechnet hat):

Code Auswählen Erweitern

# Oelpreis
define Oelpreis HTTPMOD http://www.preiseheizoel.org/heizoelpreisvergleich/?rechner=heizoel&prod=8&short_vehicle=&hose=&payment_type=0&calculate=Rechnen&zipcode=74360&amount=3000&up=1&prod=8 86400
attr Oelpreis readingsName_Oel Oel
# nimmt den Oelpreis für den ersten dargestellten Preis (derzeit esyoil-Partner)
attr Oelpreis readingsRegex_Oel <span class="price-gross"[^0-9]+([0-9\,]+)
# jetzt muss nur noch das Komma durch einen Punkt ersetzt werden, bzw. durch 100 geteilt werden
attr Oelpreis userReadings Oel_l { my $val = (ReadingsVal("$name", "Oel", 0));; $val =~ s/\,/\./g;; $val = $val /100;; }
Das mit dem Komma ersetzen sollte ich auch noch irgendwie hinbekommen (userReadings?).
Auf jeden Fall habe ich beim Thema regex wieder an Wissen gewonnen (das mit den runden Klammer musste ich doch relativ lange suchen).
Viel Hilfe hatte ich auch hier.
</offtopic?>

Viele Grüße

PeMue

Edit 1:
Zeile mit userReadings eingefügt.

Edit 2:
So einfach geht es mit den RegEx nicht, Kommentar aktualisiert.

[Puschel74]

Hallo,

ich lass mir zur Zeit die gleichen Preise bei 2 Tankstellen gelb färben - der billigste wird grün und der teuerste logischerweise rot.

Und hier der Code dazu:

Code Auswählen Erweitern

sub Abfrage($$$) {
  my ($DEVICE, $READING, $VALUE) = @_;
  my $Gehring_Diesel = ReadingsVal("Gehring","Diesel",99);
  my $Gehring_SuperE10 = ReadingsVal("Gehring","SuperE10",99);
  my $Gehring_SuperE5 = ReadingsVal("Gehring","SuperE5",99);
  my $Shell_Diesel = ReadingsVal("Shell","Diesel",99);
  my $Shell_SuperE10 = ReadingsVal("Shell","SuperE10",99);
  my $Shell_SuperE5 = ReadingsVal("Shell","SuperE5",99);
  if ($DEVICE eq "Shell") {
    if ($READING eq "Diesel") {
      if ($Shell_Diesel < $Gehring_Diesel) {
        return 'style="color:lightgreen;;font-weight:bold"'
      } elsif ($Shell_Diesel > $Gehring_Diesel) {
        return 'style="color:red"'
  } elsif ($Shell_Diesel = $Gehring_Diesel) {
    return 'style="color:yellow"'
      }
}
    if ($READING eq "SuperE10") {
      if ($Shell_SuperE10 < $Gehring_SuperE10) {
        return 'style="color:lightgreen;;font-weight:bold"'
      } elsif ($Shell_SuperE10 > $Gehring_SuperE10) {
        return 'style="color:red"'
  } elsif ($Shell_SuperE10 = $Gehring_SuperE10) {
        return 'style="color:yellow"'
  }
    }
    if ($READING eq "SuperE5") {
      if ($Shell_SuperE5 < $Gehring_SuperE5) {
        return 'style="color:lightgreen;;font-weight:bold"'
      } elsif ($Shell_SuperE5 > $Gehring_SuperE5) {
        return 'style="color:red"'
  }  elsif ($Shell_SuperE5 = $Gehring_SuperE5) {
        return 'style="color:yellow"'
  }
    }
  }
  if ($DEVICE eq "Gehring") {
    if ($READING eq "Diesel") {
      if ($Shell_Diesel < $Gehring_Diesel) {
        return 'style="color:red"'
      } elsif ($Shell_Diesel > $Gehring_Diesel) {
        return 'style="color:lightgreen;;font-weight:bold"'
  }  elsif ($Shell_Diesel = $Gehring_Diesel) {
        return 'style="color:yellow"'
  }
    }
    if ($READING eq "SuperE10") {
      if ($Shell_SuperE10 < $Gehring_SuperE10) {
        return 'style="color:red"'
      } elsif ($Shell_SuperE10 > $Gehring_SuperE10) {
        return 'style="color:lightgreen;;font-weight:bold"'
  }  elsif ($Shell_SuperE10 = $Gehring_SuperE10) {
        return 'style="color:yellow"'
  }
    }
    if ($READING eq "SuperE5") {
      if ($Shell_SuperE5 < $Gehring_SuperE5) {
        return 'style="color:red"'
      } elsif ($Shell_SuperE5 > $Gehring_SuperE5) {
        return 'style="color:lightgreen;;font-weight:bold"'
  }  elsif ($Shell_SuperE5 = $Gehring_SuperE5) {
        return 'style="color:yellow"'
  }
    }
  }
}
Sorry aber anders hab ich das noch nicht geschafft - für Perl hab ich zur Zeit leider zuwenig Zeit 
Ich denke mal das sich das auch auf einen einfacheren Nenner bringen lässt.

Grüße

[moonsorrox]

das sieht doch gut aus...  so in etwa habe ich das auch, aber du hast komische Sprünge drin. also so eckig 
Ich dachte das dürfen die nicht mehr so machen....

OK ich bin erst mal zufrieden....

[Jojo11]

Ich denke das liegt an der zeitlichen Auflösung des Plots
[OT] Ich frage mich, warum die Preise abends immer so stark angehoben werden, um dann im Laufe des Tages wieder zu sinken.

schöne Grüße
Jo

[stenny73]

@jojo11

Das ist unterer anderem Angebot und Nachfrage.....

Bei mir in der Umgebung ziehen die Preise ab ca. 23:00 an, zu dieser Zeit haben die meisten Tankstellen schon zu - also wer da noch tanken will muss Zahlen.... desweiteren bekommt das Personal an machen Tankstellen Nachts auch mehr Geld und das muss ja auch irgendwoher kommen.

Da wir schon um 22:00 Uhr schließen können wir den Preis auch morgens noch unten halten.

Stenny

[moonsorrox]

Ich denke das liegt an der zeitlichen Auflösung des Plots

jo recht haste, habe ich gar nicht drauf geachtet...!