FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +00:00
Code Issues Releases Wiki Activity

98_Text2Speech.pm: now working without mp3wrap too

Browse Source 
thanks to Mumpitzstuff


git-svn-id: https://svn.fhem.de/fhem/trunk@19238 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Tobias.Faust 2019-04-22 05:43:33 +00:00
parent 83724bc74b
commit 6ceb9b9c75
2 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -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.
- bugfix: 98_Text2Speech: now working without mp3wrap too
thanks to Mumpitzstuff
- feature: 70_BOTVAC: add cleaning statistics
- feature: 98_livetracking: CSV data from OwnTracks
- new: 98_Weather: add wundergroundAPI for Weather Underground

34
fhem/FHEM/98_Text2Speech.pm
View File

@ -573,7 +573,7 @@ sub Text2Speech_PrepareSpeech($$) {
Log3 $hash, 4, "$me: $i => ".$text[$i];
}
push( @{$hash->{helper}{Text2Speech}}, \@text );
push( @{$hash->{helper}{Text2Speech}}, @text );
}
#####################################
@ -814,7 +814,7 @@ sub Text2Speech_DoIt($) {
undef($TTS_SentenceAppendix) if($TTS_SentenceAppendix && (! -e $TTS_SentenceAppendix));
#Abspielliste erstellen
foreach my $t (@{$hash->{helper}{Text2Speech}->[0]}) {
foreach my $t (@{$hash->{helper}{Text2Speech}}) {
if(-e $t) {
# falls eine bestimmte mp3-Datei mit absolutem Pfad gespielt werden soll
$filename = $t;
@ -888,10 +888,10 @@ sub Text2Speech_DoIt($) {
}
Log3 $hash->{NAME}, 4, $hash->{NAME}.": Bearbeite jetzt den Text: ". join(" ",@{$hash->{helper}{Text2Speech}->[0]});
Log3 $hash->{NAME}, 4, $hash->{NAME}.": Bearbeite jetzt den Text: ". $hash->{helper}{Text2Speech}[0];
if(! -e $file) { # Datei existiert noch nicht im Cache
Text2Speech_Download($hash, $file, join(" ",@{$hash->{helper}{Text2Speech}->[0]}));
Text2Speech_Download($hash, $file, $hash->{helper}{Text2Speech}[0]);
} else {
Log3 $hash->{NAME}, 4, $hash->{NAME}.": $file gefunden, kein Download";
}
@ -929,28 +929,28 @@ sub Text2Speech_Done($) {
my $TTS_TimeOut = AttrVal($hash->{NAME}, "TTS_TimeOut", 60);
if($filename) {
my $text = $hash->{helper}{Text2Speech}[0];
Text2Speech_WriteStats($hash, 1, $filename, join(" ", @$text)) if (AttrVal($hash->{NAME},"TTS_noStatisticsLog", "0")==0);
my @text;
for(my $i=0; $i<$tts_done; $i++) {
push(@text, $hash->{helper}{Text2Speech}[$i]);
}
Text2Speech_WriteStats($hash, 1, $filename, join(" ", @text)) if (AttrVal($hash->{NAME},"TTS_noStatisticsLog", "0")==0);
readingsSingleUpdate($hash, "lastFilename", $filename, 1);
}
my $pre = @{$hash->{helper}{Text2Speech}->[0]};
if ($tts_done == $pre ) {
# alles wurde bearbeitet und kann komplett entfernt werden
Log3($hash,4, $hash->{NAME}.": Es wurden ". $pre ." Teile ausgegeben und der Befehl ist abgearbeitet.");
splice(@{$hash->{helper}{Text2Speech}}, 0, 1);
}else{
# es wurde nur ein Teil abgearbeitet und nur dieser kann entfernt werden
Log3($hash,4, $hash->{NAME}.": Es wurden ". $pre ." Teile ausgegeben und weitere folgen!");
splice(@{$hash->{helper}{Text2Speech}->[0]}, 0, $tts_done);
}
delete($hash->{helper}{RUNNING_PID});
splice(@{$hash->{helper}{Text2Speech}}, 0, $tts_done);
# erneutes aufrufen da ev. weiterer Text in der Warteschlange steht
if(@{$hash->{helper}{Text2Speech}} > 0) {
# es wurde nur ein Teil abgearbeitet
Log3($hash,4, $hash->{NAME}.": Es wurde nur ein Teil ausgegeben und weitere Teile folgen!");
$hash->{helper}{RUNNING_PID} = BlockingCall("Text2Speech_DoIt", $hash, "Text2Speech_Done", $TTS_TimeOut, "Text2Speech_AbortFn", $hash);
} else {
delete($hash->{helper}{RUNNING_PID});
# alles wurde bearbeitet
Log3($hash,4, $hash->{NAME}.": Es wurden alle Teile ausgegeben und der Befehl ist abgearbeitet.");
readingsSingleUpdate($hash, "playing", "0", 1);
}
}