X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/xhome.git/blobdiff_plain/916907cd9f98cd124a94c51b11386c699b652b7c..f932c487687edb1bebb4f3491784ebc3807891bb:/Turf/perl/99_myUtils.pm

diff --git a/Turf/perl/99_myUtils.pm b/Turf/perl/99_myUtils.pm
index dea0926..34af610 100644
--- 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);
+}