FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 19:04:20 +00:00
Code Issues Releases Wiki Activity

39_alexa.pm: allow slots in fhemIntents

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13467 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2017-02-20 10:25:04 +00:00
parent ac59825b12
commit 239f9b3337
1 changed files with 38 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
fhem/FHEM/39_alexa.pm
View File

@ -397,6 +397,8 @@ Log 1, Dumper $characteristicsOfIntent;
next if( !$entry );
next if( $entry =~ /^#/ );
my $slots = [];
my ($intent, $remainder) = split( /:|=/, $entry, 2 );
my @parts = split( /,/, $remainder );
my $utterance = $parts[$#parts];
@ -411,20 +413,53 @@ Log 1, Dumper $characteristicsOfIntent;
}
} elsif( $intent =~ m/^{.*}$/ ) {
$intent_name = 'FHEMperlCodeIntent';
my $nr = '';
my $i = 1;
while( defined($intents{$intent_name}) ) {
if( $i < 26 ) {
$intent_name = "FHEMperlCodeIntent".chr(65+$i);
$nr = chr(65+$i);
} else {
$intent_name = "FHEMperlCodeIntent".chr(64+int($i/26)).chr(65+$i%26);
$nr = chr(64+int($i/26)).chr(65+$i%26);
}
++$i;
$intent_name = "FHEMperlCodeIntent$nr";
}
Log 1, $intent_name;
my $u = $utterance;
while( $u =~ /\{(.*?)\}/g ) {
my $slot = $1;
my ($name, $values) = split( /:|=/, $slot, 2 );
my $slot_name = "${intent_name}_${name}";
if( $values ) {
if( $values && $values =~ /^AMAZON/ ) {
push @{$slots}, { name => $slot_name, type => $values };
} else {
push @{$slots}, { name => $slot_name, type => "${intent_name}_${name}_Value" };
$values =~ s/\+/ /g;
my @values = split(';', $values );
$types->{"${intent_name}_${name}_Value"} = \@values if( $values[0] );
}
$slot =~ s/\+/\\\+/;
$utterance =~ s/\{$slot\}/\{$slot_name\}/;
} else {
push @{$slots}, { name => $name, type => "FHEM_$name" };
}
}
}
$intent_name =~ s/ //g;
$intents{$intent_name} = $intent;
push @{$schema->{intents}}, {intent => $intent_name, };
if( @{$slots} ) {
push @{$schema->{intents}}, {intent => $intent_name, slots => $slots };
} else {
push @{$schema->{intents}}, {intent => $intent_name };
}
$samples .= "\n$intent_name $utterance";
}