Hallo Zusammen,
derzeit arbeite ich an der Erstellung eine Grafik, welche auch Schaltspiele mit im Trend zeigt.
Bei mir wäre das Brenner, Umwälzpumpe mit ein/aus (0/1) als Rechteck.
Hier schon mal der Teil, welche in die LogDatei schreibt. Die entsprechende Trigger Routine ist noch im Test,
da ich derzeit das Signal nicht simulieren kann, warte ich immer, bis morgens die Heizung kurz anspringt.
#
# Append a line of data at the given file name
#
# Sample of call : MyFileLog("/media/usbstick/log/klHeizungTemperatur-%Y.log","klHeizungRuecklaufTemperatur","temperature","99.0")
#
sub MyFileLog($$$$)
{
my $LogFileName = shift;
my $Tagname = shift;
my $ReadingName = shift;
my $Value = shift;
my $Fname = "";
my $dt = strftime("%Y-%m-%d %H:%M:%S", localtime(time));
$Fname = strftime($LogFileName, localtime(time));
open(my $fd, ">>".$Fname);
print $fd "".$dt." ".$Tagname." ".$ReadingName.": ".$Value."\x0D\x0A";
close($fd);
}
Vielleicht kann das ja schon jemand gebrauchen.
Gruss R.