From 960e71edb60b6411829e52e14de8e6166c3729dc Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Tue, 28 Jul 2015 20:10:11 +0200
Subject: [PATCH] set ttsMsg implementiert

---
 98_AMAD.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/98_AMAD.pm b/98_AMAD.pm
index 979ac8d..e944066 100644
--- a/98_AMAD.pm
+++ b/98_AMAD.pm
@@ -258,7 +258,22 @@ sub AMAD_SetScreenMsg($@)
 }
 
 sub AMAD_SetTtsMsg($@) {
+    my ($hash, @msg) = @_;
+    my $name = $hash->{NAME};
+    my $host = $hash->{HOST};
+    my $port = $hash->{PORT};
+    my $url = "http://" . $host . ":" . $port . "/automagic/ttsMsg?message=@msg";
+    
+    my $response = HttpUtils_BlockingGet(
+			{
+			  url        => $url,
+			  timeout    => 5,
+			  #noshutdown => 0,
+			}
+			);
+	Log3 $name, 3, "AMAD ($name) - Send http Request TTS Message @msg with URL $url";
 
+    return undef;
 }
 
 sub AMAD_SetVolume($@) {