39_alexa.pm: allow > 25 perl code intents after next alexa-fhem update

git-svn-id: https://svn.fhem.de/fhem/trunk@13433 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme1968
2017-02-18 15:28:59 +00:00
parent e70d91209e
commit 038cddffa9

View File

@@ -412,7 +412,11 @@ Log 1, Dumper $characteristicsOfIntent;
$intent_name = 'FHEMperlCodeIntent';
my $i = 1;
while( defined($intents{$intent_name}) ) {
$intent_name = "FHEMperlCodeIntent".chr(65+$i);
if( $i < 26 ) {
$intent_name = "FHEMperlCodeIntent".chr(65+$i);
} else {
$intent_name = "FHEMperlCodeIntent".chr(64+int($i/26)).chr(65+$i%26);
}
++$i;
}
}