Advanced Search

Return to Snippet

Revision: 30137
at August 8, 2010 16:52 by smsmatrix
Initial Code 
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON();

my $msg =
{
 username => '[email protected]',
 password => 'mypass',
 phone    => '12502012503',    # comma delimited list
 language => 'us',             # optional
 gender   => 'male',           # optional
 callerid => '12501112233',    # optional
 response => 0,                # optional
 msg      => [ 'http://www.myserver.com/voices/welcome_prompt.wav',
               'This text will be converted to voice by TTS engine.',
               'http://www.myserver.com/voices/segment2.mp3' ]
};
my $ua = new LWP::UserAgent;
my $res = $ua->request
(
 POST 'http://www.smsmatrix.com/matrix_vtts',
      Content_Type => 'application/json',
      Content      => JSON::to_json ($msg)
);
if ($res->is_error) { die "HTTP Error\n"; }
print "Matrix API Response:\n" . $res->content . "\n\n";
Initial URL 
http://www.smsmatrix.com/?sms-gateway
Initial Description 

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Send mixed voice and TTS message via www.smsmatrix.com SMS Gateway using Perl

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl