2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00

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:
justme-1968 2017-02-18 15:28:59 +00:00
parent 1cb2876956
commit 6efd548053

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;
}
}