Duty_Cycle CCU2 als SysVar

[Tobias78]

Hallo Udo , könntest du beschreiben wie Du es in hpcl integriert hast wäre sicher für viele die hpcl verwenden interessant
Mit freundlichen Grüßen
Mikewolf
Sent from my iPhone 6 plus using Tapatalk

Habe es jetzt per Trial-and-Error bzw. mit dieser Quelle selbst herausgefunden, wie man nicht nur die Systemvariable schreibt sondern auch gleich die Info an Homeputer puscht.

Hierzu müssen vor der letzten "}" folgende Zeilen im TCL Skript eingefügt werden:

Code: Alles auswählen

 package require http
    proc callback {args} {
        set ::completed 1
    }  
    set t [http::geturl http://192.168.0.3/addons/contronics/CLWebI.ccc?SETVARBYNAME&ANZ_DUTYCYCLE=$dutycycle -command callback]
    vwait completed
     http::cleanup $t

==> IP der CCU natürlich vorher anpassen und ein "Gerät" vom Typ Zahl namens "ANZ_DUTYCYCLE" in HP CL anlegen. Am besten alles groß schreiben, sonst gibt es Probleme. Web-Server-CL muss hierfür ebenfalls installiert sein.

==> Wahrscheinlich kann die hälfte der Befehle weggelassen werden, es funktioniert so ohne Fehlermeldung (und ohne TCL Kenntnis).

Gruß, Tobias.

[apollon77]

Und noch eine Idee zur Diskussion: Die Uptime und Prozessorauslastung wären auch noch schön in einer Systemvariable zu haben

CUxD hat mal mindestens LOAD und CPU-Daten und so ...

[ubecker]

Hallo,
Ausgabe des DC in die Historiedatei von History CL

Tcl script

Code: Alles auswählen

    #!/bin/tclsh
    #
    # Ermitteln des duty cycle der CCU
    # =================================================
    # Michael Thelen aka Black in Juni 2016
    # Geändert Udo Becker 
    # Aufruf mit
    # tclsh dutyccu.tcl <SERNR> <HPCLvar> oder
    # =================================================

    load tclrpc.so
    load tclrega.so

    #Beide Übergabeparameter aus CMD holen
    set item1 [lindex $argv 0]
    set item2 [lindex $argv 1]
    # item1 enthält den Suchbegriff
    # item2 enthält den Namen der HPCL Variablen
    # Seriennummer ist item1 eingepackt in 2 "*"
    set sernr ""
    append sernr "*" $item1 "*"

    # Datum Uhrzeit setzen
    set date [clock seconds]
    set date [clock format $date -format {%d.%m.%Y/%T}] 
	# Sonderzeichen für Historydatei
    set KL {[11]}
    
    set r [xmlrpc http://127.0.0.1:2001/ listBidcosInterfaces ]
    set dutycycle -1
    set lines [split [string map [list "ADDRESS" "\x00"] $r] "\x00"]
        # und nun durch alle teile mal durch
       foreach line $lines {
          set treffer [string match $sernr $line]
          # Seriennummer wurde gefunden
          if {$treffer==1} {
              regexp "DUTY_CYCLE (.*?) " $line dummy dutycycle
             break
             #dann aber auch break der schleife
          }
    }
    # Es wurde ein Dutycycle gefunden ()
    if {$dutycycle != -1} {
   # Ausgabe in Datei history.hst und console ()
      set DC [open "/media/sd-mmcblk0/history.hst" a+] 
      puts $DC "$date;$item2;$dutycycle;$KL"
      puts "$date;$item2;$dutycycle;$KL"
      close $DC
    }

In HPCL Objekte Type Zahl erstellen damit diese in History CL sichtbar sind.
Ein Objekt alle 5 min aufrufen

Code: Alles auswählen

// DutyCycle der CCU2 ermitteln Ausgabe wird in Hystery File geschrieben

DC_Geraet1 := "KEQxxxxxxx"
DC_Geraet2 := "KEQxxxxxxx"
Ausgabevar1:= "DUTYCYCLE"
Ausgabevar2:= "DUTYGW"


Ausgabe := "tclsh /usr/local/DC/dutyccu.tcl " + DC_Geraet1 + " " + Ausgabevar1
Startprogramm(Ausgabe)
Ausgabe := "tclsh /usr/local/DC/dutyccu.tcl " + DC_Geraet2 + " " + Ausgabevar2
Startprogramm(Ausgabe)

nicht schön aber geht erstmal, schön kommt später
So kann ich dann in Histori CL den DC anzeigen lassen.
gruß Udo

[Herbert_Testmann]

Hallo

für die Ausgabe der Prozessorlast der letzten Minute / 5min / 15 min sollte es bereits in Tips & Tricks eine Anleitung geben, um diese letztendlich in der Startseite der WebUI anzeigen zu lassen.
Ebenso für die Anzeige des freien Speichers.
das geht natürlich beides über die Speicherung in SysVar und kann anderweitig genutzt werden.

Ich mache mit Historian oder ioBroker laufend Diagramme draus, die mir die Belastung der CCU2 anzeigen.

[alchy]

>> H I E R << das war aber vor der Möglichkeit, selbiges direkt per cuxd zu machen.

Alchy

[Tobias78]

Super!!! Vielen Dank für den Hinweis.

[hanan]

KEQ0101847 ist in dem fall von herbert die SerNr der CCU. hier musts du deine eintragen. hast du nur eine CCU2 und keine Lan gateways im Einsatz, reicht auch der Aufruf mit denm namen CCU2 als seriennummer dom.GetObject("CUxD.CUX2801001:1.CMD_EXEC").State("tclsh /usr/local/dutyccu.tcl CCU2 DC_CCU");

Hallo Black
Wie komme ich an die Serienummer meiner CCU2? Irgendwie stehe ich hier auf dem Schlauch.


Gruess Andy

[Daimler]

Hi,

Wie komme ich an die Serienummer meiner CCU2?

... hast du nur eine CCU2 und keine Lan gateways im Einsatz, reicht auch der Aufruf mit denm namen CCU2 als seriennummer..

Ansonsten über Devconfig --> RSSI - oder steht die dort bei der Original CCU2 nicht?

[Herbert_Testmann]

WebUi Einstellungen / lan gateway
nach dem Laden der Seite steht ganz kurz die Ser Nr der CCU dort, bevor diese durch "Standard" ersetzt wird.

- Packung der CCU Aufkleber
- CCU selbst. Ist da kein Aufkleber mit der Ser Nr drauf ?

[Daimler]

Hi,

- CCU selbst. Ist da kein Aufkleber mit der Ser Nr drauf ?

Dazu muss man doch u. U. aufstehen.