Moderator: Co-Administratoren
Also hier gilt allgemein der gut gemeinete Ansatz vorhandene Informationen nicht unnötig zu vervielfältigen. Wenn die Suchfunktion des Forum (zugegebenermaßen) nicht hilfreich ist, dann geht es aber über google sehr gut.
Code: Alles auswählen
#!/bin/tclsh
load tclrega.so
array set HM [rega_script "
var Servicemeldungen = dom.GetObject('Servicemeldungen').Value();
var temp_aussen = dom.GetObject(ID_SYSTEM_VARIABLES).Get('Aussen_Temp').Value().ToString(1);
var temp_wz = dom.GetObject(ID_SYSTEM_VARIABLES).Get('WZ_Temp').Value().ToString(1);
var BadHeizstrahler = dom.GetObject( 'BidCos-RF.LEQ0562527:1.STATE' ).Value();
var BadHeizstrahler_TM = ( system.Date( '%F %X' ).ToTime().ToInteger() -
dom.GetObject( 'BidCos-RF.LEQ0562527:1.STATE' ).Timestamp().ToInteger() ) / 60;
var HKT_OG_Bad_Ts = dom.GetObject( 'BidCos-RF.'
# (dom.GetObject(ID_DEVICES).Get('HKT-OG_Bad').Address())
# ':4.SET_TEMPERATURE' ).Value().ToString(1);
var HKT_OG_Bad_Ta = dom.GetObject( 'BidCos-RF.'
# (dom.GetObject(ID_DEVICES).Get('HKT-OG_Bad').Address())
# ':4.ACTUAL_TEMPERATURE' ).Value().ToString(1);
var HKT_OG_Bad_Va = dom.GetObject( 'BidCos-RF.'
# (dom.GetObject(ID_DEVICES).Get('HKT-OG_Bad').Address())
# ':4.VALVE_STATE' ).Value().ToInteger();
"]
puts "Content-type: text/html\n"
puts "<!DOCTYPE html>"
puts "<html>\n<body>\n"
puts "Temperaturen, innen/aussen: $HM(temp_wz)/$HM(temp_aussen)C<p>"
puts "<pre>"
parray HM
puts "</pre>"
puts "</body>\n</html>"Code: Alles auswählen
<!DOCTYPE html>
<html>
<body>
Temperaturen, innen/aussen: 20.7/7.6C<p>
<pre>
HM(BadHeizstrahler) = false
HM(BadHeizstrahler_TM) = 342
HM(HKT_OG_Bad_Ta) = 22.5
HM(HKT_OG_Bad_Ts) = 21.0
HM(HKT_OG_Bad_Va) = 32
HM(STDOUT) =
HM(Servicemeldungen) = 1
HM(httpUserAgent) =
HM(sessionId) =
HM(temp_aussen) = 7.6
HM(temp_wz) = 20.7
</pre>
</body>
</html>
Und dann bedankst du dich für das:
Bleichgesicht?
