Moderator: Co-Administratoren
So hats geklappt vielen Dank.JRiemann hat geschrieben:Oder per WinSCP für Windows auf der CCU einloggen, den Ordner /usr/local/ öffnen, Mausklick rechte Taste, neu > Datei, ein Editorfenster öffnet sich, Skript einfügen, speichern. Rechtsklick auf die Datei, Eigenschaften, Schreibrechte auf 755 stellen. Fertig.
!
Code: Alles auswählen
object o = dom.GetObject("$src$");
if (o) {
dom.GetObject("CUxD.CUX2801001:1.LOGIT").State(o.Name()#";"#o.Value());
}Vielen Dank für den Tipp. Das war noch ein anderes Problem auf der zweiten CCU2, wo der Wert DC_LAN_1 gar nicht aktualisiert wurde. Vielen Dank - da habe ich den Wald vor lauter Bäumen nicht gesehen.BadenPower hat geschrieben:DC_LAN1 lößt das Programm auch nie aus, da der Trigger auf "bei Änderung" steht und der Wert von der Systemvariable im Regelfall immer "größer oder gleich 0" ist.
Code: Alles auswählen
#!/bin/tclsh
#
# Ermitteln des duty cycle der CCU
# =================================================
# Michael Thelen aka Black in Juni 2016
#
# Aufruf mit
# tclsh dutyccu.tcl KEQXXX DC_CCU oder
# Wenn nur eine CCU da ist mit
# tclsh dutyccu.tcl CCU2 <SYSVAR>
# =================================================
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 Systemvariablen
# Seriennummer ist item2 eingepackt in 2 "*"
set sernr ""
append sernr "*" $item1 "*"
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} {
set rega_cmd ""
append rega_cmd "dom.GetObject('$item2').State('$dutycycle');"
rega_script $rega_cmd
puts "Success - Duty Cycle: $dutycycle"
}
Code: Alles auswählen
dom.GetObject("CUxD.CUX2801001:1.CMD_SETS").State("tclsh /usr/local/dutyccu.tcl KEQ0XXXX DC_CCU");
dom.GetObject("CUxD.CUX2801001:1.CMD_QUERY_RET").State(1);
WriteLine("Rückgabe: " #dom.GetObject("CUxD.CUX2801001:1.CMD_RETS").State());