From 293ac1c944e7a831ea9ec1f74e87a7623bd5bfc8 Mon Sep 17 00:00:00 2001 From: "Tobias.Faust" <> Date: Wed, 1 May 2019 15:34:00 +0000 Subject: [PATCH] 98_Text2Speech.pm: add Amazon Polly as new suggested TTS-Engine due best quality git-svn-id: https://svn.fhem.de/fhem/trunk@19307 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 2 + fhem/FHEM/98_Text2Speech.pm | 481 +++++++++++++++++++++++++----------- 2 files changed, 344 insertions(+), 139 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 9287aa7a3..0ea769eea 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - feature: 98_Text2Speech: add Amazon Polly as new suggested TTS-Engine + due best quality - bugfix: 73_AutoShuttersControl: fix shading absent and coming home, fix Reading ASC_Time_PrivacyDriveDown, fix blocking shutter then shading drive and terrace door open diff --git a/fhem/FHEM/98_Text2Speech.pm b/fhem/FHEM/98_Text2Speech.pm index 22f6bcb9f..6ed00a821 100644 --- a/fhem/FHEM/98_Text2Speech.pm +++ b/fhem/FHEM/98_Text2Speech.pm @@ -25,9 +25,14 @@ use IO::File; use HttpUtils; use Digest::MD5 qw(md5_hex); use URI::Escape; +use Text::Iconv; +#use Encode::Detect::Detector; use Data::Dumper; use lib ('./FHEM/lib', './lib'); +# loading in attr function of TTS_RESSOURCE if Paws is really needed +# require Paws::Polly + sub Text2Speech_OpenDev($); sub Text2Speech_CloseDev($); @@ -39,12 +44,11 @@ my %sets = ( ); # path to mplayer -my $mplayer = 'sudo /usr/bin/mplayer'; -#my $mplayerOpts = '-nolirc -noconsolecontrols -http-header-fields "User-Agent:Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.22 (KHTML, like Gecko) Chrome/25.0.1364.172 Safari/537.22m"'; -my $mplayerOpts = '-nolirc -noconsolecontrols'; -my $mplayerNoDebug = '-really-quiet'; -my $mplayerAudioOpts = '-ao alsa:device='; -#my $ttsAddr = 'http://translate.google.com/translate_tts?tl=de&q='; +my $mplayer = 'sudo /usr/bin/mplayer'; +my $mplayerOpts = '-nolirc -noconsolecontrols'; +my $mplayerNoDebug = '-really-quiet'; +my $mplayerAudioOpts = '-ao alsa:device='; + my %ttsHost = ("Google" => "translate.google.com", "VoiceRSS" => "api.voicerss.org" ); @@ -57,7 +61,7 @@ my %ttsQuery = ("Google" => "q=", my %ttsPath = ("Google" => "/translate_tts?", "VoiceRSS" => "/?" ); -my %ttsAddon = ("Google" => "client=tw-ob", +my %ttsAddon = ("Google" => "client=tw-ob&ie=UTF-8", "VoiceRSS" => "" ); my %ttsAPIKey = ("Google" => "", # kein APIKey nötig @@ -74,38 +78,41 @@ my %ttsQuality = ("Google" => "", ); my %ttsMaxChar = ("Google" => 100, "VoiceRSS" => 300, - "SVOX-pico" => 1000 + "SVOX-pico" => 1000, + "Amazon-Polly" => 3000 ); -my %language = ("Google" => {"Deutsch" => "de", - "English-US" => "en-us", - "Schwedisch" => "sv", - "Indian-Hindi" => "hi", - "Arabic" => "ar", - "France" => "fr", - "Spain" => "es", - "Italian" => "it", - "Chinese" => "cn", - "Dutch" => "nl" +my %language = ("Google" => { "Deutsch" => "de", + "English-US" => "en-us", + "Schwedisch" => "sv", + "France" => "fr", + "Spain" => "es", + "Italian" => "it", + "Chinese" => "cn", + "Dutch" => "nl" }, - "VoiceRSS" => {"Deutsch" => "de-de", - "English-US" => "en-us", - "Schwedisch" => "sv-se", - "Indian-Hindi" => "en-in", # gibts nicht - "Arabic" => "en-us", # gibts nicht - "France" => "fr-fr", - "Spain" => "es-es", - "Italian" => "it-it", - "Chinese" => "zh-cn" + "VoiceRSS" => { "Deutsch" => "de-de", + "English-US" => "en-us", + "Schwedisch" => "sv-se", + "France" => "fr-fr", + "Spain" => "es-es", + "Italian" => "it-it", + "Chinese" => "zh-cn", + "Dutch" => "nl-nl" }, - "SVOX-pico" => {"Deutsch" => "de-DE", - "English-US" => "en-US", - "Schwedisch" => "en-US", # gibts nicht - "Indian-Hindi" => "en-US", # gibts nicht - "Arabic" => "en-US", # gibts nicht - "France" => "fr-FR", - "Spain" => "es-ES", - "Italian" => "it-IT", - "Chinese" => "en-US" # gibts nicht + "SVOX-pico" => { "Deutsch" => "de-DE", + "English-US" => "en-US", + "France" => "fr-FR", + "Spain" => "es-ES", + "Italian" => "it-IT" + }, + "Amazon-Polly"=> {"Deutsch" => "Marlene", + "English-US" => "Joanna", + "Schwedisch" => "Astrid", + "France" => "Celine", + "Spain" => "Conchita", + "Italian" => "Carla", + "Chinese" => "Zhiyu", + "Dutch" => "Lotte" } ); @@ -120,8 +127,8 @@ sub Text2Speech_Initialize($) $hash->{UndefFn} = "Text2Speech_Undefine"; $hash->{AttrFn} = "Text2Speech_Attr"; $hash->{AttrList} = "disable:0,1". - " TTS_Delemiter". - " TTS_Ressource:ESpeak,SVOX-pico,". join(",", sort keys %ttsHost). + " TTS_Delimiter". + " TTS_Ressource:ESpeak,SVOX-pico,Amazon-Polly,". join(",", sort keys %ttsHost). " TTS_APIKey". " TTS_User". " TTS_Quality:". @@ -164,7 +171,9 @@ sub Text2Speech_Initialize($) " TTS_VolumeAdjust". " TTS_noStatisticsLog:1,0". " TTS_Language:".join(",", sort keys %{$language{"Google"}}). + " TTS_Language_Custom". " TTS_SpeakAsFastAsPossible:1,0". + " TTS_OutputFile". " ".$readingFnAttributes; } @@ -237,15 +246,6 @@ sub Text2Speech_Undefine($$) return undef; } -################################### -# Angabe des Delemiters: zb.: +af~ -# + -> erzwinge das Trennen, auch wenn Textbaustein < 100Zeichen -# - -> Trenne nur wenn Textbaustein > 100Zeichen -# af -> add first -> füge den Delemiter am Satzanfang wieder hinzu -# al -> add last -> füge den Delemiter am Satzende wieder hinzu -# an -> add nothing -> Delemiter nicht wieder hinzufügen -# ~ -> der Delemiter -################################### sub Text2Speech_Attr(@) { my @a = @_; my $do = 0; @@ -256,12 +256,30 @@ sub Text2Speech_Attr(@) { my $TTS_CacheFileDir = AttrVal($hash->{NAME}, "TTS_CacheFileDir", "cache"); my $TTS_FileMapping = AttrVal($hash->{NAME}, "TTS_FileMapping", ""); # zb, silence:silence.mp3 ring:myringtone.mp3; - if($a[2] eq "TTS_Delemiter" && $a[0] ne "del") { - return "wrong delemiter syntax: [+-]a[lfn]. \n". + if($a[2] eq "TTS_Delimiter" && $a[0] ne "del") { + return "wrong Delimiter syntax: [+-]a[lfn]. Please see CommandRef for Notation. \n". " Example 1: +an~\n". " Example 2: +al." if($value !~ m/^([+-]a[lfn]){0,1}(.){1}$/i); return "This Attribute is only available in direct or server mode" if($hash->{MODE} !~ m/(DIRECT|SERVER)/ ); + } elsif ($a[2] eq "TTS_Ressource" && $value eq "Amazon-Polly") { + Log3 $hash->{NAME}, 4, "Wechsele auf Amazon Polly, Lade Librarys nach."; + eval { + require Paws::Polly; + Paws::Polly->import; + 1; + } or return "Paws Module not installed. Please install, goto https://metacpan.org/source/JLMARTIN/Paws-0.39"; + + eval { + require File::HomeDir; + File::HomeDir->import; + 1; + } or return "File::HomeDir Module not installed. Please install"; + + if (! -e File::HomeDir->my_home."/.aws/credentials"){ + return "No AWS credentials in FHEM Homedir found, please check ".File::HomeDir->my_home."/.aws/credentials
please refer https://metacpan.org/pod/Paws#AUTHENTICATION"; + } + } elsif ($a[2] eq "TTS_Ressource") { return "This Attribute is only available in direct or server mode" if($hash->{MODE} !~ m/(DIRECT|SERVER)/ ); @@ -292,7 +310,7 @@ sub Text2Speech_Attr(@) { return "Could not create directory: <$value>"; } - } elsif ($a[2] eq "TTS_TimeOut") { + } elsif ($a[0] eq "set" && $a[2] eq "TTS_TimeOut") { return "Only Numbers allowed" if ($value !~ m/[0-9]+/); } elsif ($a[2] eq "TTS_FileMapping") { @@ -437,8 +455,8 @@ sub Text2Speech_Set($@) return "no set argument specified" if(int(@a) < 2); - return "No APIKey specified" if (length($ttsAPIKey{$TTS_Ressource})>0 && !defined($TTS_APIKey)); - return "No Username for TTS Access specified" if (length($ttsUser{$TTS_Ressource})>0 && !defined($TTS_User)); + return "No APIKey specified" if (!defined($TTS_APIKey) && ($ttsAPIKey{$TTS_Ressource} || length($ttsAPIKey{$TTS_Ressource})>0)); + return "No Username for TTS Access specified" if (!defined($TTS_User) && ($ttsUser{$TTS_Ressource} || length($ttsUser{$TTS_Ressource})>0)); my $cmd = shift(@a); # Dummy $cmd = shift(@a); # DevName @@ -458,6 +476,7 @@ sub Text2Speech_Set($@) if($cmd eq "tts") { if($hash->{MODE} eq "DIRECT" || $hash->{MODE} eq "SERVER") { + $hash->{VOLUME} = ReadingsNum($me, "volume", 100); readingsSingleUpdate($hash, "playing", "1", 1); Text2Speech_PrepareSpeech($hash, join(" ", @a)); $hash->{helper}{RUNNING_PID} = BlockingCall("Text2Speech_DoIt", $hash, "Text2Speech_Done", $TTS_TimeOut, "Text2Speech_AbortFn", $hash) unless(exists($hash->{helper}{RUNNING_PID})); @@ -474,6 +493,7 @@ sub Text2Speech_Set($@) } elsif ($hash->{MODE} eq "REMOTE") { Text2Speech_Write($hash, "volume $vol"); } else {return undef;} + readingsSingleUpdate($hash, "volume", (($vol>100)?0:$vol), 1); } @@ -490,41 +510,62 @@ sub Text2Speech_Set($@) # param2: string to speech # ##################################### +################################### +# Angabe des Delimiters: zb.: +af~ +# + -> erzwinge das Trennen, auch wenn Textbaustein < 100Zeichen +# - -> Trenne nur wenn Textbaustein > 100Zeichen +# af -> add first -> füge den Delimiter am Satzanfang wieder hinzu +# al -> add last -> füge den Delimiter am Satzende wieder hinzu +# an -> add nothing -> Delimiter nicht wieder hinzufügen +# ~ -> der Delimiter +################################### sub Text2Speech_PrepareSpeech($$) { my ($hash, $t) = @_; my $me = $hash->{NAME}; my $TTS_Ressource = AttrVal($hash->{NAME}, "TTS_Ressource", "Google"); - my $TTS_Delemiter = AttrVal($hash->{NAME}, "TTS_Delemiter", undef); + my $TTS_Delimiter = AttrVal($hash->{NAME}, "TTS_Delimiter", undef); my $TTS_FileTpl = AttrVal($hash->{NAME}, "TTS_FileMapping", ""); # zb, silence:silence.mp3 ring:myringtone.mp3; im Text: mein Klingelton :ring: ist laut. my $TTS_FileTemplateDir = AttrVal($hash->{NAME}, "TTS_FileTemplateDir", "templates"); my $TTS_ForceSplit = 0; - my $TTS_AddDelemiter; + my $TTS_AddDelimiter; - if($TTS_Delemiter && $TTS_Delemiter =~ m/^[+-]a[lfn]/i) { - $TTS_ForceSplit = 1 if(substr($TTS_Delemiter,0,1) eq "+"); - $TTS_ForceSplit = 0 if(substr($TTS_Delemiter,0,1) eq "-"); + if($TTS_Delimiter && $TTS_Delimiter =~ m/^[+-]a[lfn]/i) { + $TTS_ForceSplit = 1 if(substr($TTS_Delimiter,0,1) eq "+"); + $TTS_ForceSplit = 0 if(substr($TTS_Delimiter,0,1) eq "-"); - $TTS_AddDelemiter = substr($TTS_Delemiter,1,2); # af, al oder an + $TTS_AddDelimiter = substr($TTS_Delimiter,1,2); # af, al oder an - $TTS_Delemiter = substr($TTS_Delemiter,3); + $TTS_Delimiter = substr($TTS_Delimiter,3); - } elsif (!$TTS_Delemiter) { # Default wenn Attr nicht gesetzt - $TTS_Delemiter = "(?<=[\\.!?])\\s*"; - $TTS_ForceSplit = 1; - $TTS_AddDelemiter = ""; + } elsif (!$TTS_Delimiter) { # Default wenn Attr nicht gesetzt + $TTS_Delimiter = "(?<=[\\.!?])\\s*"; + $TTS_ForceSplit = 0; + $TTS_AddDelimiter = ""; } + #-- we may have problems with umlaut characters # ersetze Sonderzeichen die Google nicht auflösen kann + my $converter; if($TTS_Ressource eq "Google") { - $t =~ s/ä/ae/g; - $t =~ s/ö/oe/g; - $t =~ s/ü/ue/g; - $t =~ s/Ä/Ae/g; - $t =~ s/Ö/Oe/g; - $t =~ s/Ü/Ue/g; - $t =~ s/ß/ss/g; + # Google benötigt UTF-8 + # $t =~ s/ä/ae/g; + # $t =~ s/ö/oe/g; + # $t =~ s/ü/ue/g; + # $t =~ s/Ä/Ae/g; + # $t =~ s/Ö/Oe/g; + # $t =~ s/Ü/Ue/g; + # $t =~ s/ß/ss/g; + + # -> use Encode::Detect::Detector; + #Log3 $hash, 4, "$me: ermittelte CodePage: " .detect($t). " , konvertiere nach UTF-8"; + #$converter = Text::Iconv->new(detect($t), "utf-8"); + #$t = $converter->convert($t); + } elsif ($TTS_Ressource eq "Amazon-Polly") { + # Amazon benötigt ISO-8859-1 bei Nutzung Region eu-central-1 + $converter = Text::Iconv->new("utf-8", "iso-8859-1"); + $t = $converter->convert($t); } my @text; @@ -536,7 +577,7 @@ sub Text2Speech_PrepareSpeech($$) { # bei Angabe direkter MP3-Files wird hier ein temporäres Template vergeben for(my $i=0; $i<(@text); $i++) { - @FileTplPc = ($text[$i] =~ /\:([^:]+\.(?|mp3|ogg|wav))\:/g); + @FileTplPc = ($text[$i] =~ /:(\w+?\.(?:mp3|ogg|wav)):/g); for(my $j=0; $j<(@FileTplPc); $j++) { my $tpl = "FileTpl_#".$i."_".$j; #eindeutige Templatedefinition schaffen Log3 $hash, 4, "$me: Angabe einer direkten MP3-Datei gefunden: $FileTplPc[$j] => $tpl"; @@ -547,7 +588,7 @@ sub Text2Speech_PrepareSpeech($$) { #iteriere durch die Sprachbausteine und splitte den Text bei den Filetemplates auf for(my $i=0; $i<(@text); $i++) { - my $cutter = '#!#'; #eindeutigen Cutter als Delemiter bei den Filetemplates vergeben + my $cutter = '#!#'; #eindeutigen Cutter als Delimiter bei den Filetemplates vergeben @FileTplPc = ($text[$i] =~ /:([^:]+):/g); for(my $j=0; $j<(@FileTplPc); $j++) { $text[$i] =~ s/:$FileTplPc[$j]:/$cutter$FileTplPc[$j]$cutter/g; @@ -555,11 +596,16 @@ sub Text2Speech_PrepareSpeech($$) { @text = Text2Speech_SplitString(\@text, 0, $cutter, 1, ""); } - @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, $TTS_Delemiter, $TTS_ForceSplit, $TTS_AddDelemiter); - @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, "(?<=[\\.!?])\\s*", 0, ""); + Log3 $hash, 4, "$me: MaxChar = $ttsMaxChar{$TTS_Ressource}, Delimiter = $TTS_Delimiter, ForceSplit = $TTS_ForceSplit, AddDelimiter = $TTS_AddDelimiter"; + + @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, $TTS_Delimiter, $TTS_ForceSplit, $TTS_AddDelimiter); + @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, "(?<=[.!?])\\s*", 0, ""); @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, ",", 0, "al"); @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, ";", 0, "al"); @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, "und", 0, "af"); + @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, ":", 0, "al"); + @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, "\\bund\\b", 0, "af"); + @text = Text2Speech_SplitString(\@text, $ttsMaxChar{$TTS_Ressource}, " ", 0, ""); Log3 $hash, 4, "$me: Auflistung der Textbausteine nach Aufbereitung:"; for(my $i=0; $i<(@text); $i++) { @@ -579,22 +625,22 @@ sub Text2Speech_PrepareSpeech($$) { ##################################### # param1: array : Text 2 Speech # param2: string: MaxChar -# param3: string: Delemiter -# param4: int : 1 -> es wird am Delemiter gesplittet +# param3: string: Delimiter +# param4: int : 1 -> es wird am Delimiter gesplittet # 0 -> es wird nur gesplittet, wenn Stringlänge länger als MaxChar -# param5: string: Add Delemiter to String? [al|af|] (AddLast/AddFirst) +# param5: string: Add Delimiter to String? [al|af|] (AddLast/AddFirst) # # Splittet die Texte aus $hash->{helper}->{Text2Speech} anhand des -# Delemiters, wenn die Stringlänge MaxChars übersteigt. -# Ist "AddDelemiter" angegeben, so wird der Delemiter an den +# Delimiters, wenn die Stringlänge MaxChars übersteigt. +# Ist "AddDelimiter" angegeben, so wird der Delimiter an den # String wieder angefügt ##################################### sub Text2Speech_SplitString($$$$$){ my @text = @{shift()}; my $MaxChar = shift; - my $Delemiter = shift; + my $Delimiter = shift; my $ForceSplit = shift; - my $AddDelemiter = shift; + my $AddDelimiter = shift; my @newText; for(my $i=0; $i<(@text); $i++) { @@ -603,20 +649,43 @@ sub Text2Speech_SplitString($$$$$){ next; } - my @b = split(/$Delemiter/, $text[$i]); - for(my $j=0; $j<(@b); $j++) { - $b[$j] = $b[$j] . $Delemiter if($AddDelemiter eq "al"); # Am Satzende wieder hinzufügen. - $b[$j+1] = $Delemiter . $b[$j+1] if(($AddDelemiter eq "af") && ($b[$j+1])); # Am Satzanfang des nächsten Satzes wieder hinzufügen. - push(@newText, $b[$j]); + my @b; + if($Delimiter =~/^ $/) { + @b = split(' ', $text[$i]); } + else { + @b = split(/$Delimiter/, $text[$i]); + } + if((@b)>1) { + # setze zu kleine Textbausteine wieder zusammen bis MaxChar erreicht ist + if(length($Delimiter)==1) { + for(my $k=0; $k<(@b); ) { + if($k+1<(@b) && length($b[$k])+length($b[$k+1]) <= $MaxChar) { + $b[$k] = join($Delimiter, $b[$k], $b[$k+1]); + splice(@b, $k+1, 1); + } + else { + $k++; + } + } + } + for(my $j=0; $j<(@b); $j++) { + (my $boundaryDelimiter = $Delimiter) =~ s/^\\b(.+)\\b$/$1/g; + $b[$j] = $b[$j] . $boundaryDelimiter if($AddDelimiter eq "al"); # Am Satzende wieder hinzufügen. + $b[$j+1] = $boundaryDelimiter . $b[$j+1] if(($AddDelimiter eq "af") && ($b[$j+1])); # Am Satzanfang des nächsten Satzes wieder hinzufügen. + push(@newText, $b[$j]); + } + } + elsif((@b)==1) { + push(@newText, $text[$i]); + } } return @newText; } ##################################### # param1: hash : Hash -# param2: string: Typ (mplayer oder mp3wrap oder ....) -# param3: string: Datei +# param2: string: Datei # # Erstellt den Commandstring für den Systemaufruf ##################################### @@ -638,18 +707,21 @@ sub Text2Speech_BuildMplayerCmdString($$) { $mplayerAudioOpts = ""; } - # anstatt mplayer wird ein anderer Player verwendet - if ($TTS_MplayerCall !~ m/mplayer/) { - $AlsaDevice = ""; - $mplayerAudioOpts = ""; - $mplayerNoDebug = ""; - $mplayerOpts = ""; - } - my $NoDebug = $mplayerNoDebug; $NoDebug = "" if($verbose >= 5); - $cmd = $TTS_MplayerCall . " " . $mplayerAudioOpts . $AlsaDevice . " " .$NoDebug. " " . $mplayerOpts . " " . $file; + # anstatt mplayer wird ein anderer Player verwendet + if ($TTS_MplayerCall !~ m/mplayer/) { + $TTS_MplayerCall =~ s/{device}/$AlsaDevice/g; + $TTS_MplayerCall =~ s/{volume}/$hash->{VOLUME}/g; + $TTS_MplayerCall =~ s/{volumeadjust}/$TTS_VolumeAdjust/g; + $TTS_MplayerCall =~ s/{file}/$file/g; + + $cmd = $TTS_MplayerCall; + } else { + $cmd = $TTS_MplayerCall . " " . $mplayerAudioOpts . $AlsaDevice . " " .$NoDebug. " " . $mplayerOpts . " " . $file; + } + my $mp3Duration = Text2Speech_CalcMP3Duration($hash, $file); BlockingInformParent("Text2Speech_readingsSingleUpdateByName", [$hash->{NAME}, "duration", "$mp3Duration"], 0); @@ -664,8 +736,8 @@ sub Text2Speech_BuildMplayerCmdString($$) { sub Text2Speech_readingsSingleUpdateByName($$$) { my ($devName, $readingName, $readingVal) = @_; my $hash = $defs{$devName}; - #Log3 $hash, 4, "Text2Speech_readingsSingleUpdateByName: Dev:$devName Reading:$readingName Val:$readingVal"; - readingsSingleUpdate($defs{$devName}, $readingName, $readingVal, 1); + Log3 $hash, 5, $hash->{NAME}.": readingsSingleUpdateByName: Dev:$devName Reading:$readingName Val:$readingVal"; + readingsSingleUpdate($hash, $readingName, $readingVal, 1); } ##################################### @@ -707,7 +779,7 @@ sub Text2Speech_Download($$$) { my $TTS_Ressource = AttrVal($hash->{NAME}, "TTS_Ressource", "Google"); my $TTS_User = AttrVal($hash->{NAME}, "TTS_User", ""); my $TTS_APIKey = AttrVal($hash->{NAME}, "TTS_APIKey", ""); - my $TTS_Language = AttrVal($hash->{NAME}, "TTS_Language", "Deutsch"); + my $TTS_Language = AttrVal($hash->{NAME}, "TTS_Language_Custom", $language{$TTS_Ressource}{AttrVal($hash->{NAME}, "TTS_Language", "Deutsch")}); my $TTS_Quality = AttrVal($hash->{NAME}, "TTS_Quality", ""); my $TTS_Speed = AttrVal($hash->{NAME}, "TTS_Speed", ""); my $cmd; @@ -718,8 +790,7 @@ sub Text2Speech_Download($$$) { my $fh; my $url = "http://" . $ttsHost{$TTS_Ressource} . $ttsPath{$TTS_Ressource}; - $url .= $ttsLang{$TTS_Ressource}; - $url .= $language{$TTS_Ressource}{$TTS_Language}; + $url .= $ttsLang{$TTS_Ressource} . $TTS_Language; $url .= "&" . $ttsAddon{$TTS_Ressource} if(length($ttsAddon{$TTS_Ressource})>0); $url .= "&" . $ttsUser{$TTS_Ressource} . $TTS_User if(length($ttsUser{$TTS_Ressource})>0); $url .= "&" . $ttsAPIKey{$TTS_Ressource} . $TTS_APIKey if(length($ttsAPIKey{$TTS_Ressource})>0); @@ -729,7 +800,7 @@ sub Text2Speech_Download($$$) { Log3 $hash->{NAME}, 4, $hash->{NAME}.": Verwende ".$TTS_Ressource." OnlineResource zum Download"; Log3 $hash->{NAME}, 4, $hash->{NAME}.": Hole URL: ". $url; - #$HttpResponse = GetHttpFile($ttsHost, $ttsPath . $ttsLang . $language{$TTS_Ressource}{$TTS_Language} . "&" . $ttsQuery . uri_escape($text)); + #$HttpResponse = GetHttpFile($ttsHost, $ttsPath . $ttsLang . $TTS_Language . "&" . $ttsQuery . uri_escape($text)); my $param = { url => $url, timeout => 5, @@ -755,21 +826,23 @@ sub Text2Speech_Download($$$) { $fh->print($HttpResponse); Log3 $hash->{NAME}, 4, $hash->{NAME}.": Schreibe mp3 in die Datei $file mit ".length($HttpResponse)." Bytes"; close($fh); - } elsif ($TTS_Ressource eq "ESpeak") { + } + elsif ($TTS_Ressource eq "ESpeak") { + my $FileWav = $file . ".wav"; + + $cmd = "sudo espeak -vde+f3 -k5 -s150 \"" . $text . "\" -w \"" . $FileWav . "\""; + Log3 $hash, 4, $hash->{NAME}.":" .$cmd; + system($cmd); + + $cmd = "lame \"" . $FileWav . "\" \"" . $file . "\""; + Log3 $hash, 4, $hash->{NAME}.":" .$cmd; + system($cmd); + unlink $FileWav; + } + elsif ($TTS_Ressource eq "SVOX-pico") { my $FileWav = $file . ".wav"; - $cmd = "sudo espeak -vde+f3 -k5 -s150 \"" . $text . "\">\"" . $FileWav . "\""; - Log3 $hash, 4, $hash->{NAME}.":" .$cmd; - system($cmd); - - $cmd = "lame \"" . $FileWav . "\" \"" . $file . "\""; - Log3 $hash, 4, $hash->{NAME}.":" .$cmd; - system($cmd); - unlink $FileWav; - } elsif ($TTS_Ressource eq "SVOX-pico") { - my $FileWav = $file . ".wav"; - - $cmd = "pico2wave --lang=" . $language{$TTS_Ressource}{$TTS_Language} . " --wave=\"" . $FileWav . "\" \"" . $text . "\""; + $cmd = "pico2wave --lang=" . $TTS_Language . " --wave=\"" . $FileWav . "\" \"" . $text . "\""; Log3 $hash, 4, $hash->{NAME}.":" .$cmd; system($cmd); @@ -778,6 +851,30 @@ sub Text2Speech_Download($$$) { system($cmd); unlink $FileWav; } + elsif ($TTS_Ressource eq "Amazon-Polly") { + # with awscli + # aws polly synthesize-speech --output-format mp3 --voice-id Marlene --text '%text%' abc.mp3 + #$cmd = "aws polly synthesize-speech --output-format json --speech-mark-types='[\"viseme\"]' --voice-id " . $TTS_Language . " --text '" . $text . "' " . $file; + #Log3 $hash, 4, $hash->{NAME}.":" .$cmd; + #system($cmd); + my $fh; + my $polly = Paws->service('Polly', region => 'eu-central-1'); + my $res = $polly->SynthesizeSpeech( + VoiceId => $TTS_Language, + Text => $text, + OutputFormat => 'mp3', + ); + + $fh = new IO::File ">$file"; + if(!defined($fh)) { + Log3 $hash->{NAME}, 2, $hash->{NAME}.": mp3 Datei <$file> konnte nicht angelegt werden."; + return undef; + } + + $fh->print($res->AudioStream); + Log3 $hash->{NAME}, 4, $hash->{NAME}.": Schreibe mp3 in die Datei $file mit ". $res->RequestCharacters ." Chars"; + close($fh); + } } ##################################### @@ -789,6 +886,7 @@ sub Text2Speech_DoIt($) { my $TTS_Language = AttrVal($hash->{NAME}, "TTS_Language", "Deutsch"); my $TTS_SentenceAppendix = AttrVal($hash->{NAME}, "TTS_SentenceAppendix", undef); #muss eine mp3-Datei sein, ohne Pfadangabe my $TTS_FileTemplateDir = AttrVal($hash->{NAME}, "TTS_FileTemplateDir", "templates"); + my $TTS_OutputFile = AttrVal($hash->{NAME}, "TTS_OutputFile", undef); my $myFileTemplateDir; if($TTS_FileTemplateDir =~ m/^\/.*/) { $myFileTemplateDir = $TTS_FileTemplateDir; } else { $myFileTemplateDir = $TTS_CacheFileDir ."/". $TTS_FileTemplateDir;} @@ -814,6 +912,7 @@ sub Text2Speech_DoIt($) { undef($TTS_SentenceAppendix) if($TTS_SentenceAppendix && (! -e $TTS_SentenceAppendix)); #Abspielliste erstellen + my $AnzahlDownloads = 0; foreach my $t (@{$hash->{helper}{Text2Speech}}) { if(-e $t) { # falls eine bestimmte mp3-Datei mit absolutem Pfad gespielt werden soll @@ -836,8 +935,10 @@ sub Text2Speech_DoIt($) { push(@Mp3WrapText, $t); } else { # es befindet sich noch Text zum Download in der Queue - if (AttrVal($hash->{NAME}, "TTS_SpeakAsFastAsPossible", 0) == 0) { + if (AttrVal($hash->{NAME}, "TTS_SpeakAsFastAsPossible", 0) == 0 || (AttrVal($hash->{NAME}, "TTS_SpeakAsFastAsPossible", 0) == 1 && $AnzahlDownloads == 0)) { + # nur Download wenn kein TTS_SpeakAsFastAsPossible gesetzt ist oder der erste Download erfolgen soll Text2Speech_Download($hash, $file, $t); + $AnzahlDownloads ++; if(-e $file) { push(@Mp3WrapFiles, $file); push(@Mp3WrapText, $t); @@ -853,32 +954,57 @@ sub Text2Speech_DoIt($) { push(@Mp3WrapFiles, $TTS_SentenceAppendix) if($TTS_SentenceAppendix); - if(scalar(@Mp3WrapFiles) >= 2 && AttrVal($hash->{NAME}, "TTS_UseMP3Wrap", 0) == 1) { + if (AttrVal($hash->{NAME}, "TTS_UseMP3Wrap", 0) == 1) { # benutze das Tool MP3Wrap um bereits einzelne vorhandene Sprachdateien # zusammenzuführen. Ziel: sauberer Sprachfluss Log3 $hash->{NAME}, 4, $hash->{NAME}.": Bearbeite per MP3Wrap jetzt den Text: ". join(" ", @Mp3WrapText); - my $Mp3WrapPrefix = md5_hex(join("|", @Mp3WrapFiles)); - my $Mp3WrapFile = $TTS_CacheFileDir ."/". $Mp3WrapPrefix . "_MP3WRAP.mp3"; + my $Mp3WrapFile; + my $Mp3WrapPrefix; + $Mp3WrapPrefix = md5_hex(join("|", @Mp3WrapFiles)); - if(! -e $Mp3WrapFile) { - $cmd = "mp3wrap " .$TTS_CacheFileDir. "/" .$Mp3WrapPrefix. ".mp3 " .join(" ", @Mp3WrapFiles); + if ($TTS_OutputFile) { + if ($TTS_OutputFile !~ m/^\//) { + $TTS_OutputFile = $TTS_CacheFileDir ."/".$TTS_OutputFile; + } + Log3 $hash->{NAME}, 4, $hash->{NAME}.": Verwende fixen Dateinamen: $TTS_OutputFile"; + $Mp3WrapFile = $TTS_OutputFile; + unlink($Mp3WrapFile); + } else { + $Mp3WrapFile = $TTS_CacheFileDir ."/". $Mp3WrapPrefix . ".mp3"; + } + + if (scalar(@Mp3WrapFiles) == 1) { + # wenn nur eine Datei, dann wird diese genutzt + $Mp3WrapFile = $Mp3WrapFiles[0]; + } elsif(! -e $Mp3WrapFile) { + $cmd = "mp3wrap " .$Mp3WrapFile. " " .join(" ", @Mp3WrapFiles); $cmd .= " >/dev/null" if($verbose < 5); Log3 $hash->{NAME}, 4, $hash->{NAME}.": " .$cmd; system($cmd); + + my $t = substr($Mp3WrapFile, 0, length($Mp3WrapFile)-4)."_MP3WRAP.mp3"; + Log3 $hash->{NAME}, 4, $hash->{NAME}.": Benenne Datei um von <".$t."> nach <".$Mp3WrapFile.">"; + rename($t, $Mp3WrapFile); + } + + if ($TTS_OutputFile && $TTS_OutputFile ne $Mp3WrapFile) { + Log3 $hash->{NAME}, 4, $hash->{NAME}.": Benenne Datei um von <".$Mp3WrapFile."> nach <".$TTS_OutputFile.">"; + rename($Mp3WrapFile, $TTS_OutputFile); + $Mp3WrapFile = $TTS_OutputFile; } if ($hash->{MODE} ne "SERVER") { - # im Falls Server, nicht die Datei abspielen + # im Server Mode, nicht die Datei abspielen if(-e $Mp3WrapFile) { $cmd = Text2Speech_BuildMplayerCmdString($hash, $Mp3WrapFile); $cmd .= " >/dev/null" if($verbose < 5); - Log3 $hash->{NAME}, 4, $hash->{NAME}.":" .$cmd; + Log3 $hash->{NAME}, 4, $hash->{NAME}.": " .$cmd; system($cmd); } else { - Log3 $hash->{NAME}, 2, $hash->{NAME}.": Mp3Wrap Datei konnte nicht angelegt werden."; + Log3 $hash->{NAME}, 2, $hash->{NAME}.": Mp3Wrap Datei konnte nicht gefunden werden."; } } @@ -1010,7 +1136,7 @@ sub Text2Speech_WriteStats($$$$){ =pod =item helper =item summary speaks given text via loudspeaker -=item summary_DE wandelt uebergebenen Text um fuer Ausgabe auf Lautsprecher +=item summary_DE wandelt Text in Sprache um zur Ausgabe auf Lautsprecher =begin html @@ -1100,9 +1226,9 @@ sub Text2Speech_WriteStats($$$$){ Attributes +
  • TTS_Language
    + Selection of different languages +
    • + +
  • TTS_Language_Custom
    + if you want another engine and speech of default languages, you can insert this here.
    + The definition is dependent of used engine. This attribute overrides an TTS_Language attribute.
    + Please refer the specific API reference. +
    • +
  • TTS_APIKey
    An APIKey its needed if you want to use VoiceRSS. You have to register at the following page:
    http://www.voicerss.org/registration.aspx
    @@ -1293,6 +1439,10 @@ sub Text2Speech_WriteStats($$$$){ hier das Attribut TTS_speakAsFastAsPossible zu verwenden. Die Verwendung des Attributes TTS_useMP3Wrap wird dringend empfohlen. Ansonsten wird hier nur der letzte Teiltext als mp3 Datei im Reading dargestellt. +

    + Beispiel:
    + define MyTTS Text2Speech none +

    • @@ -1319,13 +1469,22 @@ sub Text2Speech_WriteStats($$$$){ Attribute - + +
  • TTS_Language
    + Auswahl verschiendener Standardsprachen +
    • + +
  • TTS_Language_Custom
    + Möchte man eine Spreche und Stimme abweichend der Standardspreachen verwenden, so kann man diese hier eintragen.
    + Die Definition ist abhängig der verwendeten Sprachengine. Diesea Attribut überschreibt ein ev. vorhandenes TTS_Langugae Attribut.
    + Siehe in die jeweilige API Referenz +
    • +
  • TTS_APIKey
    Wenn VoiceRSS genutzt wird, ist ein APIKey notwendig. Um diesen zu erhalten ist eine vorherige Registrierung notwendig. Anschließend erhält man den APIKey
    @@ -1373,13 +1552,13 @@ sub Text2Speech_WriteStats($$$$){
  • TTS_CacheFileDir
    Optional: Die per Google geladenen Sprachbausteine werden in diesem Verzeichnis zur Wiedeverwendung abgelegt. - Es findet zurZEit keine automatisierte Löschung statt.
    + Es findet zurZeit keine automatisierte Löschung statt.
    Default: cache/
    Achtung: Nur bei einem lokal definierter Text2Speech Instanz möglich!
  • TTS_UseMP3Wrap
    - Optional: Für eine flüssige Sprachausgabe ist es zu empfehlen, die einzelnen vorher per Google + Optional: Für eine flüssige Sprachausgabe ist es zu empfehlen, die einzelnen vorher geladenen Sprachbausteine zu einem einzelnen Sprachbaustein zusammenfassen zu lassen bevor dieses per Mplayer ausgegeben werden. Dazu muss Mp3Wrap installiert werden.
    apt-get install mp3wrap
    @@ -1387,8 +1566,17 @@ sub Text2Speech_WriteStats($$$$){
  • TTS_MplayerCall
    - Optional: Angabe der Systemaufrufes zu Mplayer. Das folgende Beispiel ist der Standardaufruf.
    - Beispiel: sudo /usr/bin/mplayer + Optional: Angabe des Systemaufrufes zu Mplayer oder einem anderem Tool. Wird ein anderes Tool als mplayer
    + dort verwendet gelten folgende Templates:
    +
      +
    • {device}
      • +
    • {volume}
      • +
    • {volumeadjust}
      • +
    • {file}
      • +
    + Beispiele:
    + attr myTTS TTS_MplayerCall sudo /usr/bin/mplayer + attr myTTS TTS_MplayerCall AUDIODEV={device} play -q -v {volume} {file}
  • TTS_SentenceAppendix
    @@ -1432,6 +1620,15 @@ sub Text2Speech_WriteStats($$$$){ Attribut nur verfügbar bei einer lokalen oder Server Instanz
    • +
  • TTS_OutputFile
    + Angabe eines fixen Dateinamens als mp3 Output. Das Attribut ist nur relevant in Verbindung mit TTS_UseMP3Wrap.
    + Wenn ein Dateinamen angegeben wird, so wird zusätzlich TTS_CacheFileDir beachtet. Bei einer absoluten Pfadangabe
    + muss der Dateipfad durch FHEM schreibbar sein.
    + attr myTTS TTS_OutputFile output.mp3
    + attr myTTS TTS_OutputFile /media/miniDLNA/output.mp3
    +
    • + +
  • readingFnAttributes

    • @@ -1451,6 +1648,12 @@ sub Text2Speech_WriteStats($$$$){ Beispiele