This is part 2 and rather long awaited description of how to transcribe voicemails to email and deliver them with text and an attached MP3<\/p>\n
You will need to install the files from here\u00a0https:\/\/zaf.github.io\/asterisk-speech-recog\/ and also have a Google Developers account.<\/p>\n
Also create a directory:-<\/p>\n
\/var\/lib\/asterisk\/sounds\/catline<\/pre>\nLets begin.<\/p>\n
#!\/bin\/sh\r\nPATH=\/var\/spool\/asterisk\/voicemail\/default\/\r\ncallerchan=$1\r\ncallerid=$2\r\norigdate=$3\r\norigtime=$4\r\norigmailbox=$5\r\norigdir=$6\r\nduration=$7\r\napikey=YOUR GOOGLE SPEECH API KEY\r\nFILENUM=$(\/bin\/ls ${PATH}${origmailbox}\/INBOX |\/bin\/grep txt | \/usr\/bin\/wc -l)\r\n\r\n\r\n##Added to allow 999 messages\r\nif (( $FILENUM <= 9 ));\r\nthen\r\nFILENAME=msg000${FILENUM}\r\nelif (( $FILENUM <= 99 ));\r\nthen\r\nFILENAME=msg00${FILENUM}\r\nelse\r\nFILENAME=msg0${FILENUM}\r\nfi\r\n\r\nIN=$(\/bin\/grep \"${origmailbox} =>\" \/etc\/asterisk\/voicemail.conf)\r\nset -- \"$IN\"\r\nIFS=\",\"; declare -a Array=($*)\r\nemail=${Array[2]}\r\n\r\n\r\n\/bin\/echo \"[message]\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo origmailbox=${origmailbox} >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo \"context=demo\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo \"macrocontext=\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo \"exten=s\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo \"priority=11\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo callerchan=${callerchan} >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo callerid=${callerid} >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo origdate=${origdate} >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo origtime=${origtime} >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo \"category=\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\/bin\/echo \"duration=${duration}\" >> ${PATH}${origmailbox}\/INBOX\/${FILENAME}.txt\r\n\r\n\/bin\/nice \/usr\/bin\/sox \/var\/lib\/asterisk\/sounds\/catline\/${origdir}.wav ${PATH}${origmailbox}\/INBOX\/${FILENAME}.flac silence -l 1 0.1 1% -1 0.3 1% \r\n\r\n\/bin\/nice \/usr\/bin\/lame -b 16 -m m -q 9-resample \/var\/lib\/asterisk\/sounds\/catline\/${origdir}.wav ${PATH}${origmailbox}\/INBOX\/${FILENAME}.mp3\r\n\r\nvoicemailbody=$(\/usr\/bin\/perl -w \/usr\/src\/asterisk-speech-recog-cloud_api\/cli\/speech-recog-cli.pl -k $apikey -o detailed -r 8000 -n 1 \/var\/spool\/asterisk\/voicemail\/default\/${origmailbox}\/INBOX\/${FILENAME}.flac)\r\n\r\n\/bin\/cp \/var\/lib\/asterisk\/sounds\/catline\/${origdir}.wav ${PATH}${origmailbox}\/INBOX\/${FILENAME}.wav\r\n\r\necho \"You have a new voicemail from ${callerid} it was left on ${origdate} and is ${duration} seconds long ${voicemailbody}\" | \/bin\/mail -s \"A new voicemail has arrived from ${callerid}\" -a \"${PATH}${origmailbox}\/INBOX\/${FILENAME}.mp3\" \"$email\"\r\n\r\n\/bin\/rm -f ${PATH}${origmailbox}\/INBOX\/${FILENAME}.flac\r\n\/bin\/rm -f ${PATH}${origmailbox}\/INBOX\/${FILENAME}.mp3<\/pre>\n[vmail2text]\r\nexten => _XXXX,1,Set(__EXTTOCALL=${EXTEN})\r\nexten => _XXXX,n,Noop(${EXTTOCALL})\r\nexten => _XXXX,n,Goto(s,1)\r\n\r\nexten => s,1,Answer() ; Listen to ringing for 1 seconds\r\nexten => s,n,Noop(${EXTTOCALL} , ${DIALSTATUS} , ${SV_DIALSTATUS})\r\nexten => s,n,GotoIf($[\"${DIALSTATUS}\"=\"BUSY\"]?busy:bnext)\r\nexten => s,n(busy),Set(greeting=busy)\r\nexten => s,n,Goto(carryon)\r\nexten => s,n(bnext),GotoIf($[\"${DIALSTATUS}\"=\"NOANSWER\"]?unavail:unext)\r\nexten => s,n(unavail),Set(greeting=unavail)\r\nexten => s,n,Goto(carryon)\r\nexten => s,n(unext),Set(greeting=unavail)\r\nexten => s,n,Goto(carryon)\r\nexten => s,n(carryon),Set(origmailbox=${EXTTOCALL})\r\nexten => s,n,Set(msg=${STAT(e,${ASTSPOOLDIR}\/voicemail\/default\/${origmailbox}\/${greeting}.wav)})\r\nexten => s,n,Set(__start=0)\r\nexten => s,n,Set(__end=0)\r\nexten => s,n,NoOp(${UNIQUEID})\r\nexten => s,n,Set(origdate=${STRFTIME(${EPOCH},,%a %b %d %r %Z %G)})\r\nexten => s,n,Set(origtime=${EPOCH})\r\nexten => s,n,Set(callerchan=${CHANNEL})\r\nexten => s,n,Set(callerid=${CALLERID(num)})\r\nexten => s,n,Set(origmailbox=${origmailbox})\r\nexten => s,n,Answer()\r\nexten => s,n,GotoIf($[\"${msg}\"=\"1\"]?msgy:msgn)\r\nexten => s,n(msgy),Playback(${ASTSPOOLDIR}\/voicemail\/default\/${origmailbox}\/${greeting});(local\/catreq\/how_did)\r\nexten => s,n,Goto(beep)\r\nexten => s,n(msgn),Playback(vm-intro)\r\nexten => s,n(beep),System(\/bin\/touch \/var\/lib\/asterisk\/sounds\/catline\/${UNIQUEID}.wav)\r\nexten => s,n,Playback(beep)\r\nexten => s,n,Set(__start=${EPOCH})\r\nexten => s,n,Record(catline\/${UNIQUEID}.wav,3,60,kaq)\r\nexten => s,n,Playback(beep)\r\nexten => s,n,Hangup()\r\nexten => h,1,Noop(${start} ${end})\r\nexten => h,n,GotoIf($[\"${start}\"!=\"0\"]?ok:end)\r\nexten => h,n(ok),Set(end=${EPOCH})\r\nexten => h,n,Set(duration=${MATH(${end}-${start},int)})\r\nexten => h,n,System(\/usr\/local\/sbin\/makevmal.sh \"${callerchan}\" ${callerid} \"${origdate}\" ${origtime} ${origmailbox} ${UNIQUEID} ${duration})\r\nexten => h,n(end),Noop(finished)<\/pre>\n#!\/usr\/bin\/env perl\r\n\r\n#\r\n# Render speech to text using Google's Cloud Speech API.\r\n#\r\n# Copyright (C) 2011 - 2016, Lefteris Zafiris <zaf@fastmail.com>\r\n#\r\n# This program is free software, distributed under the terms of\r\n# the GNU General Public License Version 2. See the COPYING file\r\n# at the top of the source tree.\r\n#\r\n# This has been altered to work with Googles new Speech models\r\n#\r\n\r\nuse strict;\r\nuse warnings;\r\nuse File::Temp qw(tempfile);\r\nuse Getopt::Std;\r\nuse File::Basename;\r\nuse LWP::UserAgent;\r\nuse LWP::ConnCache;\r\nuse JSON;\r\nuse MIME::Base64;\r\n\r\nmy %options;\r\nmy $flac;\r\nmy $key;\r\nmy $url = \"https:\/\/speech.googleapis.com\/v1p1beta1\/speech\";\r\nmy $samplerate = 16000;\r\nmy $language = \"en-US\";\r\nmy $output = \"detailed\";\r\nmy $results = 1;\r\nmy $pro_filter = \"false\";\r\nmy $error = 0;\r\nmy $thetext = \".\";\r\nmy $score = \".\";\r\ngetopts('k:l:o:r:n:fhq', \\%options);\r\n\r\nVERSION_MESSAGE() if (defined $options{h} || !@ARGV);\r\n\r\nparse_options();\r\n\r\nmy %config = (\r\n \"encoding\" => \"FLAC\",\r\n \"sampleRateHertz\" => $samplerate,\r\n \"languageCode\" => $language,\r\n \"profanityFilter\" => $pro_filter,\r\n \"maxAlternatives\" => $results,\r\n \"model\" => \"phone_call\",\r\n \"useEnhanced\" => 'true' \r\n);\r\n\r\nmy $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 1});\r\n$ua->agent(\"CLI speech recognition script\");\r\n$ua->env_proxy;\r\n$ua->conn_cache(LWP::ConnCache->new());\r\n$ua->timeout(60);\r\n\r\n# send each sound file to Google and get the recognition results #\r\nforeach my $file (@ARGV) {\r\n my ($filename, $dir, $ext) = fileparse($file, qr\/\\.[^.]*\/);\r\n if ($ext ne \".flac\" && $ext ne \".wav\") {\r\n say_msg(\"Unsupported file-type: $ext\");\r\n ++$error;\r\n next;\r\n }\r\n if ($ext eq \".wav\") {\r\n if (($file = encode_flac($file)) eq '-1') {\r\n ++$error;\r\n next;\r\n }\r\n }\r\n# print(\"File $filename\\n\") if (!defined $options{q});\r\n my $audio;\r\n if (open(my $fh, \"<\", \"$file\")) {\r\n $audio = do { local $\/; <$fh> };\r\n close($fh);\r\n } else {\r\n say_msg(\"Cant read file $file\");\r\n ++$error;\r\n next;\r\n }\r\n my %audio = ( \"content\" => encode_base64($audio, \"\") );\r\n my %json = (\r\n \"config\" => \\%config,\r\n \"audio\" => \\%audio,\r\n );\r\n my $response = $ua->post(\r\n \"$url:recognize?key=$key\",\r\n Content_Type => \"application\/json\",\r\n Content => encode_json(\\%json),\r\n );\r\n if (!$response->is_success) {\r\n say_msg(\"Failed to get data for file: $file\");\r\n ++$error;\r\n next;\r\n }\r\n if ($output eq \"raw\") {\r\n print $response->content;\r\n next;\r\n }\r\n my $jdata = decode_json($response->content);\r\n if ($output eq \"detailed\") {\r\n foreach (@{$jdata->{\"results\"}[0]->{\"alternatives\"}}) {\r\n $score = $_->{\"confidence\"};\r\n $thetext = $_->{\"transcript\"};\r\n }\r\n } elsif ($output eq \"compact\") {\r\n print $_->{\"transcript\"}.\"\\n\" foreach (@{$jdata->{\"results\"}[0]->{\"alternatives\"}});\r\n }\r\n}\r\n\r\nprint \"\\n\\nThe transcription of message is below:\\n\\n$thetext\\n\\nWe are $score out of 1 sure its correct\\n\\nTranscribed using Googles Cloud Speech API \";\r\n\r\nexit(($error) ? 1 : 0);\r\n\r\nsub parse_options {\r\n# Command line options parsing #\r\n if (defined $options{k}) {\r\n # check API key #\r\n $key = $options{k};\r\n } else {\r\n say_msg(\"Invalid or missing API key.\\n\");\r\n exit 1;\r\n }\r\n if (defined $options{l}) {\r\n # check if language setting is valid #\r\n if ($options{l} =~ \/^[a-z]{2}(-[a-zA-Z]{2,6})?$\/) {\r\n $language = $options{l};\r\n } else {\r\n say_msg(\"Invalid language setting. Using default.\\n\");\r\n }\r\n }\r\n if (defined $options{o}) {\r\n # check if output setting is valid #\r\n if ($options{o} =~ \/^(detailed|compact|raw)$\/) {\r\n $output = $options{o};\r\n } else {\r\n say_msg(\"Invalid output formatting setting. Using default.\\n\");\r\n }\r\n }\r\n if (defined $options{n}) {\r\n # set number or results #\r\n $results = $options{n} if ($options{n} =~ \/\\d+\/);\r\n }\r\n if (defined $options{r}) {\r\n # set audio sampling rate #\r\n $samplerate = $options{r} if ($options{r} =~ \/\\d+\/);\r\n }\r\n # set profanity filter #\r\n $pro_filter = \"true\" if (defined $options{f});\r\n\r\n return;\r\n}\r\n\r\nsub say_msg {\r\n# Print messages to user if 'quiet' flag is not set #\r\n my @message = @_;\r\n warn @message if (!defined $options{q});\r\n return;\r\n}\r\n\r\nsub VERSION_MESSAGE {\r\n# Help message #\r\n print \"Speech recognition using Google Cloud Speech API.\\n\\n\",\r\n \"Usage: $0 [options] [file(s)]\\n\\n\",\r\n \"Supported options:\\n\",\r\n \" -k <key> specify the Speech API key\\n\",\r\n \" -l <lang> specify the language to use (default 'en-US')\\n\",\r\n \" -o <type> specify the type of output formatting\\n\",\r\n \" detailed print detailed output with info like confidence (default)\\n\",\r\n \" compact print only the transcripted string\\n\",\r\n \" raw raw JSON output\\n\",\r\n \" -r <rate> specify the audio sample rate in Hz (default 16000)\\n\",\r\n \" -n <number> specify the maximum number of results (default 1)\\n\",\r\n \" -f filter out profanities\\n\",\r\n \" -q don't print any error messages or warnings\\n\",\r\n \" -h this help message\\n\\n\";\r\n exit(1);\r\n}<\/pre>\nAnd thats it. Enjoy.<\/p>\n","protected":false},"excerpt":{"rendered":"
This is part 2 and rather long awaited description of how to transcribe voicemails to email and deliver them with text and an attached MP3 You will need to install the files from here\u00a0https:\/\/zaf.github.io\/asterisk-speech-recog\/ and also have a Google Developers account. Also create a directory:- \/var\/lib\/asterisk\/sounds\/catline Lets begin. Script to create the mp3 and the […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"content-type":"","advanced_seo_description":"","jetpack_seo_html_title":"","jetpack_seo_noindex":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[2,11],"tags":[],"class_list":["post-1978","post","type-post","status-publish","format-standard","hentry","category-blog","category-knowledge"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5daZy-vU","jetpack_sharing_enabled":true,"jetpack_likes_enabled":false,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=\/wp\/v2\/posts\/1978","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1978"}],"version-history":[{"count":5,"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=\/wp\/v2\/posts\/1978\/revisions"}],"predecessor-version":[{"id":1983,"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=\/wp\/v2\/posts\/1978\/revisions\/1983"}],"wp:attachment":[{"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1978"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1978"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.cyber-cottage.co.uk\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1978"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}