Tag Archives | TTS

Text to Speech AGI

#!/usr/bin/perl #————————- #Text to Speech AGI #Mod by V #ver 0.03 #http://www.deepthought.ws #————————————————————————— #Standard Usage # Usage: exten => s,n,AGI(tts.pl,TEXT,VOICEENGINE,BACKGROUND,DELFILE) #Background Usage # exten => s,n,AGI(tts.pl,TEXT,VOICEENGINE,1,1) # exten => s,3,Background(${MY_VOICEFILE}) #-Optional: # exten => s,n,System(rm /var/lib/asterisk/sounds/tts/${MY_VOICEFILE}) #————————————————————————— use Asterisk::AGI; use File::Basename; use Digest::MD5 qw(md5_hex); $AGI = new Asterisk::AGI; my %input = $AGI->ReadParse(); my ($text)=$ARGV[0]; my […]

Continue Reading 0

Powered by recycled bites and bytes.