From b16f8fab5e0b6b08aa76b68a65b099705151b144 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Fri, 20 Jan 2017 15:07:35 +0000
Subject: [PATCH] 39_alexa.pm: first preparation to return an answer from a
 fhemIntent

git-svn-id: https://svn.fhem.de/fhem/trunk@13153 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/39_alexa.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/39_alexa.pm b/fhem/FHEM/39_alexa.pm
index ae58aef2a..d1c4110b9 100644
--- a/fhem/FHEM/39_alexa.pm
+++ b/fhem/FHEM/39_alexa.pm
@@ -399,9 +399,17 @@ Log 1, Dumper $characteristicsOfIntent;
         my @parts = split( /,/, $remainder );
         my $utterance = $parts[$#parts];
 
-        push @{$schema->{intents}}, {intent => "FHEM${intent}Intent", };
+        my $intent_name = "FHEM${intent}Intent";
+        if( $intent =~ m/^(set|get|attr)\s/ ) {
+          $intent_name = "FHEM${1}Intent";
+        } elsif( $intent =~ m/^{.*}$/ ) {
+          $intent_name = 'FHEMperlCodeInent';
+        }
+        #$intent_name =~ s/ //g;
 
-        $samples .= "\nFHEM${intent}Intent $utterance";
+        push @{$schema->{intents}}, {intent => $intent_name, };
+
+        $samples .= "\n$intent_name $utterance";
       }
       $samples .= "\n";
     }