##
#!/usr/local/bin/perl
use SOAP::Lite;
my $soap = SOAP::Lite
-> uri('http://ws.cdyne.com/NotifyWS/')
-> on_action( sub { join '/', 'http://ws.cdyne.com/NotifyWS/phonenotify.asmx', $_[1] } )
-> proxy('http://ws.cdyne.com/NotifyWS/phonenotify.asmx');
my $method = SOAP::Data->name('NotifyPhoneBasic')
->attr({xmlns => 'http://ws.cdyne.com/NotifyWS/'});
my @params = ( SOAP::Data->name(PhoneNumberToDial => '99999999'),
SOAP::Data->name(TextToSay => 'Hello Test'),
SOAP::Data->name(CallerID => '18666654386'),
SOAP::Data->name(CallerIDname => 'Bob'),
SOAP::Data->name(VoiceID => '0'),
SOAP::Data->name(LicenseKey => 'key-1234-sample') );
print $soap->call($method => @params)->result;
####
This service is FREE to test. The system will attempt to call a number 1 time until it is answered (Can be modified with the TryCount property).
We now accept Extension numbers by using an 'x' in the phone number (ex:555-555-1000x3025).
A reminder about abuse: Threats and illegal activity can be shared with the authorities.To get a quick License Key for 9 cents a transaction go to : https://secure.cdyne.com/QuickNotifySignup
For Advanced TextToSay Commands Visit: http://wiki.cdyne.com/index.php/Notify_TextToSay_Commands
..
...
...
...