gitarre

[xhome.git] / Turf / perl / 99_myUtils.pm

diff --git a/Turf/perl/99_myUtils.pm b/Turf/perl/99_myUtils.pm
index dea0926e986c089c87cdea7ad175274c70ac2c86..34af6102bbffde545411e9125c40b1db21c45fef 100644 (file)
--- a/Turf/perl/99_myUtils.pm
+++ b/Turf/perl/99_myUtils.pm
@@ -36,3 +36,11 @@ sub write_temp_knx {
   #print("$cmd\n");
   system($cmd);
 }
+
+sub write_temp_xevent {
+  my $temp = ReadingsVal("Aussentemperatur","temperature",10);
+  my $cmd = "xsendevent LuftungRegelwerk SET -D Aussentemp:f:$temp -t a";
+  #print("$temp\n");
+  #print("$cmd\n");
+  system($cmd);
+}