Ankündigung

**makki** · 21.01.2013, 02:16

Es ist nicht immer leicht alle Beiträge in der richtigen Reihenfolge zu lesen

Also, geht doch, HTML-paren ist k***

Makki

**makki** · 21.01.2013, 02:21

PS: irgendwann brauch ich das noch, weil meine Heizungsregelung ist immernoch kompletter Kernschrott und das beste was mir einfällt um diese komplett zu ersetzen - ist eine UVR1611

(oder doch ein Arduino - nein ich hab keine Zeit für sowas

)

Makki

**henfri** · 22.01.2013, 21:05

Zitat von makki Beitrag anzeigen

Also, geht doch, HTML-paren ist k***

Missverständnis:
Es gibt zwei Aufgabenstellungen:
a) Konfiguration, welche Werte gelesen werden sollen, welchen Datentyp, Namen und Einheit(DPT) sie haben
b) Die Werte aus dem Web-IF auslesen

a) wurde bisher komplett manuell gemacht. Durch meine Modifikationen funktioniert dies jetzt über das Auslesen der xml des Visu-Mal-Programms des Herstellers

b) wurde bisher und wird weiterhin folgendermaßen gemacht:
Die Visu enthält bestimmte Codes ("Hex-Code"), die vom Webserver der Regelung ("BL-Net") durch die Temperaturen/Stellgrößen/... ersetzt werden.

Das Visu-Mal Programm setzt diese Hex-Codes in <div> Tags die durchnummeriert sind. Die Nummerierung entspricht der Nummerierung der XML.
Momentan wird dies nicht genutzt. Stattdessen erzeugt das Plugin einen String in dem die Hex-Codes Pipe (|) getrennt vorkommen.
Dieser wird vom User als Kommentar in die HTML gepackt, auf den Webserver hoch geladen und vom Plugin ausgelesen (bedenke: die Hex-Codes sind jetzt durch die Werte ersetzt).

Also: Momentan wird eine Pipe-Separierte-Liste geparst. Die Alternative wäre eine HTML-Datei. Pest oder Cholera.
Vorteil der Pipe-Liste: Es ist genau die Reihenfolge, die das Plugin erwartet, da die Liste ja vom Plugin erstellt wird.
Vorteil der HTML: Die HTML wird so direkt vom Visu-Designer geschrieben. Die Datei wird auch regelmäßig überschrieben. Da der Pipe-String jedesmal manuell wieder eintransplantiert werden muss ist das etwas nervig/fehleranfällig. Geht aber.

Zitat von makki Beitrag anzeigen

PS: irgendwann brauch ich das noch, weil meine Heizungsregelung ist immernoch kompletter Kernschrott und das beste was mir einfällt um diese komplett zu ersetzen - ist eine UVR1611

Na, dann freue ich mich darauf, auch dir persönlich mal etwas zurück geben zu können/dir zu helfen ;-)

Gruß,
Hendrik

**swiss** · 22.01.2013, 22:18

Hallo Hendrik.

Sorry. Ich habe jetzt das ganze 6 mal gelesen und versucht zu verstehen. Kurz dachte ich sogar mal, ich hätte es begriffen aber irgendwie stehe ich gerade total auf dem Schlauch

Wie genau funktioniert mit dem aktuellen Plugin das auslesen der Werte?

Was muss der User machen? und vorallem wiso (Zusammenhang...)? -> Hier reicht mir der grobe Zusammenhang.

Was willst du mit dem Inhalt der HTML? Dort stehen ja keine Werte sondern nur die Zuordnung von pos zu HEX-String... Aber entspricht diese Zuordnung nicht genau der Reihenfolge der Objekte im XML?

...ich bin total verwirrt...

**henfri** · 24.01.2013, 10:18

Hallo,

@swiss: ich versucher es -später.
Hier erstmal ein bugfix:

Code:

#!/usr/bin/perl
use strict;

# ******************************************************************************
# by Hendrik Friedel (henfri) basierend auf Plugin von micha218 erweitert um XML-Einlesen
# Vielen Dank für die Hilfe von swiss beim XML.
# Das Plugin liest Werte der UVR 1611 über BL-Net ein, legt sie in RRDs ab und 
# sendet sie auf den Bus.
# Im Onlineschema des BL-Net müssen die Variabeln der zu lesenden Ein-/Ausgänge
# innerhalb der Tags [UVR1611DATEN] [/UVR1611DATEN] eingetragen sein. Dies kann
# z.B. im META Tag "Description" manuell vor dem Übertragen mit dem Memory
# Manager hinzugefügt werden.
# Beispiel:
# <!-- [UVR1611DATEN]$n1a0|$n1a1|$n1a2|$n1d0|$n1d1[/UVR1611DATEN] -->
# Info zum Schema: http://doku.uvr1611.at/doku.php/de/onlineschema/onlineschema 
# Der String wird im Plugin-Log angegeben. Bitte daraus in die HTML kopieren. 
# Konfiguration:
# Das Plugin benötigt als Input lediglich die XML des TA-Designer (http://www.ta.co.at/download/datenblaumltter/volumenstromgeber-fts-vfs-vsg/fts-dl/index.php?option=com_jdownloads&Itemid=103&task=viewcategory&catid=153)
# Hierzu bitte im Designer alle Größen, die eingelesen werden sollen per Drag&Drop in das Schema ziehen. 
# Die Positionierung der Elemente ist nicht relevant -es bietet sich aber an, gleich die Visualisierung 
# mit zu erstellen.
# Die Gruppenadressen und DPT werden ebenfalls im TA-Designer definiert.
# Hierzu wird der "Test-Text" (Doppelklick auf Feld) genutzt.
# 1/2/3;9.001 (GA;DPT)
# Die Daten werden zugleich in einen RRD gespeichert. Der Name entspricht der Bezeichnung in der XML
# In der Plugin-Datei (dem Code, dieser Datei) muss nur die URL ($uvrURL) angepasst werden
# *****************VORSICHT***************************
# ****Die XML darf keine Sonderzeichen enthalten******
# *****************VORSICHT***************************
# Idee zur Vereinfachung: in der XML haben alle Zeilen eine ID/sind nummeriert.
# Diese IDs sind auch in der HTML vorhanden (div-Elemente)
# Hierüber können die Daten zugeordnet werden, ohne dass der String in die HTML eingefügt werden muss.
# ******************************************************************************

my $uvrUrl = 'http://192.168.178.5/GRAFIK1.htm';

my @rrdName;
my @knxGA;
my @knxDPT;

# Alternative Konfiguration ohne XML:
# my @knxGA = ('1/6/100','1/6/101','1/6/102','1/7/100','1/7/101');
# my @knxDPT = (9.001,9.001,9.001,1.001,1.001);
# my @rrdName = ('aussen_temp','innen_temp','vorlauf_temp','ventilHzRL_bool','anforderungBrenner_bool');



# vorübergehedes disablen des Plugins:
# return "disabled";

# plugin nicht zyklisch ausführen
# $plugin_info{$plugname.'_cycle'} = 0;
# plugin zyklisch ausführen
$plugin_info{$plugname.'_cycle'} = $wg_config{''}{'rrd_interval'};

# Eine KNX GA abonnieren: Plugin wird aufgerufen, sobald ein Paket an diese GA
# kommt. Der Inhalt des Pakets steht dann in $msg.
# $plugin_subscribe{'7/0/15'}{$plugname} = 1;


#Ab hier nichts mehr ändern. Läuft automatisch
my %umlaute = ("ä" => "ae", "Ä" => "Ae", "ü" => "ue", "Ü" => "Ue", "ö" => "oe", "Ö" => "Oe", "ß" => "ss" );
my $umlautkeys = join ("|", keys(%umlaute));
my $i = 0;


if (@knxGA) {
  plugin_log($plugname, 'Manuelle Konfiguration ohne XML via Variablen im Plugin-Code')
} else
{
# XML darf keine ÄÖÜ so wie andere Sonderzeichen oder das scharfe doppel S enthalten!!!!



use XML::Simple;
use Encode qw(encode decode);

my $xml = new XML::Simple;

my $xml_file = '/etc/wiregate/plugin/generic/conf.d/'.basename($plugname,'.pl').'.conf';

my @objekt;
my @tmpText;
my $tmpStr;
my $value;
my $htmlStr='';
my $GAStr='';
my $rrdNameStr='';
my $DPTStr='';




my $xmlStr= do {
    local $/ = undef;
    open my $fh, "<", $xml_file
        or die "could not open $xml_file: $!";
    <$fh>;
};

$xmlStr=~ s/($umlautkeys)/$umlaute{$1}/g;

$value = $xml->XMLin(encode("utf8","$xmlStr"),GroupTags=>{RequestedTerminations=>'String'})->{Seiten}->{Seite_0}->{Objekte}; #lese alle Elemente zwischen <Objekte> und </Objekte> aus der xml

while ((my $key) = each %{$value}) {        
    my $can_subindex = $value->{$key}->{can_subindex};
    my $can_index = $value->{$key}->{can_index};
    my $can_knoten = $value->{$key}->{can_knoten};            
        
    $can_subindex = sprintf ("%x" , $can_subindex); #Mache aus Integer HEX
    $can_index = sprintf ("%x" , $can_index); #Mache aus Integer HEX
    $can_knoten = sprintf ("%x" , $can_knoten); #Mache aus Integer HEX
        
    my $hilfsvariabel = substr($can_index,0,2); #Speichere die ersten beiden Stellen von can_index
    $can_index = substr($can_index,2) . $hilfsvariabel; #Stelle die ersten beiden Stellen hinten an
        
    $objekt[$i] = '$X'.$can_index.'0'.$can_subindex.'0'.$can_knoten; # $ausgabe enthält den gewünschten Wert
    

    $tmpStr = $value->{$key}->{Bezeichnung};
    #$tmpStr  =~ tr/:s+/__/;
    @tmpText = split(/.dat: /,$tmpStr);
    $tmpStr = @tmpText[1];
    #Replace Umlaute
    $tmpStr =~ s/($umlautkeys)/$umlaute{$1}/g;
    #Convert RRD Names to be compatible to Filename
    $tmpStr =~ s/[^A-Za-z0-9\-\.]/_/g;
    $rrdName[$i] = 'UVR_'.$tmpStr;   
    
    $tmpStr = $value->{$key}->{Text};
    plugin_log($plugname, 'DEBUG tmpStr Text'.$tmpStr);
    @tmpText = split(/\;/,$tmpStr);
    $knxGA[$i] = @tmpText[0]; 
    $knxDPT[$i] =  @tmpText[1];    
    plugin_log($plugname, 'DEBUG GA_DPT'.$knxGA[$i].'_'.$knxDPT[$i]);
    $htmlStr = $htmlStr.'|'.$objekt[$i]; 
    $GAStr = $GAStr.'|'.$knxGA[$i];
    $DPTStr = $DPTStr.'|'.$knxDPT[$i];
    $rrdNameStr = $rrdNameStr.'|'.$rrdName[$i];
    $i++;
}

#Convert HTML-String for Online-Schema to UpperCase
$htmlStr=~ tr/A-Za-z/a-zA-Z/;


plugin_log($plugname, 'Konfiguration eingelesen.');
plugin_log($plugname, 'Namen:'.$rrdNameStr);
plugin_log($plugname, 'Gruppenadressen:'.$GAStr);
plugin_log($plugname, 'DPTs:'.$DPTStr);
plugin_log($plugname, 'UVR Variablen:'.$htmlStr);
$htmlStr='<!-- [UVR1611DATEN]'.$htmlStr.'[/UVR1611DATEN] -->';
plugin_log($plugname, 'Der String in der HTML sollte so aussehen:');
plugin_log($plugname, $htmlStr);
}





# Falls keine Zahl vom BL-Net übertragen wird sollten folgende Werte als boolean true (1) erkannt werden
my @booleanTrue = ('EIN','ON','ein','true');
my $tempValue;

use LWP::Simple;
my $urlContent = get($uvrUrl);
return 'UVR-Datenabfrage fehlgeschlagen für $uvrUrl' unless defined $urlContent;
$urlContent =~ /\[UVR1611DATEN\](.+)\[\/UVR1611DATEN\]/;
  plugin_log($plugname, 'Rueckgabe aus HTML');
  plugin_log($plugname, $1 );
my @uvrVars = split(/\|/,$1);
my $counter = 0;
my $rrd_counter = 0;
my $knx_counter = 0;

my $dbgOut;

foreach (@knxGA){
  plugin_log($plugname, '------Bearbeite Nr'.$counter.' Name='.$rrdName[$counter].'-------');
  $tempValue = $uvrVars[$counter+1]; 
  plugin_log($plugname, 'RückgabeUVR='.$tempValue);
  $tempValue =~ s/EIN/1/g;
  $tempValue =~ s/\ //g;
  $tempValue =~ s/AUS/0/g;
  $tempValue =~ s/\,/./g; # , durch . ersetzen
  $tempValue =~ s/([-+]?[0-9]*\.[0-9]+|[0-9]+)//g;
  $tempValue = $1;
  plugin_log($plugname, 'Nachbehandelter Text='.$tempValue);
  if ($tempValue !~ /[+-]?\d+[.,]?d*/) {
     plugin_log($plugname, 'Nachbehandelter Text ist keine Zahl');
    foreach my $x (@booleanTrue) {
      if ($tempValue eq $x) {
        $tempValue = '1';
         plugin_log($plugname, 'tempValue wird 1 zugewiesen');
        last;
      }
    }
    if ($tempValue ne '1') {
      $tempValue = '0';
       plugin_log($plugname, 'tempValue wird 0 zugewiesen');
    }
  }
  if(($_ ne '')&&($_ ne 'xxx')){
    knx_write($_, $tempValue, $knxDPT[$counter]);
    plugin_log($plugname, "knx_write($_, $tempValue, $knxDPT[$counter])");
    $knx_counter++;
    }
  if($rrdName[$counter] ne ''){
    update_rrd($rrdName[$counter],'',$tempValue);
    plugin_log($plugname, "update_rrd($rrdName[$counter],'',$tempValue)");
    $rrd_counter++;
    }
   #plugin_log($plugname, $dbgOut.'--- '.$counter.':'.$rrdName[$counter].'*'.$uvrVars[$counter].'*'.$tempValue.'*'.$_.'*'.$knxDPT[$counter]);
  $counter++;
  }
  
# plugin_log($plugname, "@uvrVars -- @knxGA");
return $counter." Werte von UVR abgefragt, ".$rrd_counter." Werte als RRD gespeichert und ".$knx_counter." Werte an KNX gesendet";

# Copyright (C) 2012 Michael Schneider
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>

Gruß,
Hendrik

**henfri** · 24.01.2013, 13:32

Ich versuche es nochmal:

An der UVR hängt ein Gerät namens BL-Net (BootLoader-Net). Dieses ist quasi dessen IP-Schnittstelle mit Webserver.

Auf diesen BL-Net kann man einen HTML Datei hochladen (über ein spezielles Programm)

Lädt man diese HTML Datei über http wieder runter, so hat der BL-Net alle darin vorkommenden Hex-Codes durch die Messwerte ersetzt. Soweit klar?
Das dient dazu eine Visualisierung zu erstellen.

Um das Erstellen der Visu zu erleichtern gibt es den TA-Designer. Hier können die Messwerte per Drag&Drop auf ein Hintergrund Bild gezogen werden. Der TA-Designer speichert dies als Projektdatei (die bekannte XML). Außerdem wird die HTML erzeugt.

Die XML wird NUR für den TA-Designer benötigt. Den muss man nicht nutzen, sondern kann die HTML auch selbst tippern.
Die XML wird nicht für die Programmierung der UVR oder für die Visu benötigt. Es ist lediglich die Projekt-Datei des TA-Designers (vergleichbar eib.db?!)

Soweit klar?

Jetzt kommt das Plugin ins Spiel:
Es liest die XML ein, extrahiert daraus:
Namen des Messwertes
Hex-Code
GA
DPT

(für die letzten beiden werden Text-Felder im TA-Designer missbraucht).
und verwendet diese Infos als Config für das Plugin

Im Plugin-Log werden die Hex-Codes dann pipe-getrennt ausgegeben.

Der User muss diesen String jetzt -in einem HTML-Kommentar(1) verpackt- in die HTML seiner Visu (UVR1611 Visu) kopieren und die so geänderte HTML hochladen.

Das Plugin ruft regelmäßig die HTML vom BL-Net ab, extrahiert die Werte, speichert sie als rrd und sendet an KNX.

Zitat von swiss Beitrag anzeigen

Wie genau funktioniert mit dem aktuellen Plugin das auslesen der Werte?

Was muss der User machen? und vorallem wiso (Zusammenhang...)? -> Hier reicht mir der grobe Zusammenhang.

Ich hoffe das ist jetzt klar?

Was willst du mit dem Inhalt der HTML? Dort stehen ja keine Werte sondern nur die Zuordnung von pos zu HEX-String... Aber entspricht diese Zuordnung nicht genau der Reihenfolge der Objekte im XML?

Hier liegt das Missverständnis vor. In der HTML stehen auch heute ja schon die Werte drin -ohne den HTML-Kommentar(1). Denn die Visu stellt die Werte ja da.
Die Reihenfolge der Div-Tags entspricht der XML. Genau. Und das möchte ich nutzen um von dem HTML-Kommentar(1) weg zu kommen, damit der User den nicht jedes mal wenn er die Visu ändert wieder rein-kopieren muss.

Gruß,
Hendrik

**swiss** · 24.01.2013, 17:20

Ach sooo... Also willst du kurz gesagt folgendes machen...

- Name, GA, DPT und Pos aus der XML lesen
- Aus der HTML Visu mit Hilfe der Pos angabe die zugehörigen Werte einlesen
- Das ganze auf den BUS und ins RRD

Ok. Das hilft mir bei der Suche nach einem geeigneten Verfaren zum Parsen der HTML Seite schon enorm weiter.

Dann wäre vieleicht HTML::SimpleParse ein guter Weg. Die Syntax scheint mir wesentlich einfacher und sollte eigentlich zu diesem Zweck ausreichen... Am Ende der Doku unter ToDo steht im zweiten codeschnipsel ein interessantes Beispiel dass hier funktionierne könnte

**henfri** · 17.02.2013, 10:22

Hallo,

da hier bisher niemand geflucht hat, hab ich das Plugin jetzt eingecheckt.

Gruß,
Hendrik

Ankündigung

UVR1611 über BL-NET auslesen Jetzt einfacher

[wiregate] UVR1611 über BL-NET auslesen Jetzt einfacher

Kommentar

Kommentar

Kommentar

Kommentar

Kommentar

Kommentar

Kommentar

Kommentar