S
surf
I found this soap web service here to call a phone with a message:
http://ws.cdyne.com/NotifyWS/phonenotify.asmx?op=NotifyPhoneBasic
If you scroll down the page it lists the xml content. When I run my
script
(listed below here) I get the following fault error that seems to
indicate SOAP::Lite
stuck a "#" character at the beggining of my method, but the xml
listing on the site above does not show that for SOAPAction ??? What
can I try, what did I do wrong ?
C:\play\soap>tst.pl
soap:Client : Server did not recognize the value of HTTP Header
SOAPAction: http
://ws.cdyne.com/NotifyWS/#NotifyPhoneBasic.
====================================
#!/bin/perl
use SOAP::Lite;
$site = "http://ws.cdyne.com/NotifyWS/";
$prx = "http://ws.cdyne.com/NotifyWS/phonenotify.asmx";
$svc = SOAP::Lite->new(uri => $site,
proxy => $prx);
$res = $svc->call(SOAP:ata->name("NotifyPhoneBasic")->attr({ xmlns =>
$site}),
SOAP:ata->name(PhoneNumberToDial => "1-781-555-6665"),
SOAP:ata->name(TextToSay => "hey Larry, it worked"),
SOAP:ata->name(CallerID => "508-872-0555"),
SOAP:ata->name(VoiceID => "bird man"),
SOAP:ata->name(LicenseKey => "0"));
if ($res->fault)
{
$cd = $res->faultcode;
$str = $res->faultstring;
print("$cd : $str \n");
}
http://ws.cdyne.com/NotifyWS/phonenotify.asmx?op=NotifyPhoneBasic
If you scroll down the page it lists the xml content. When I run my
script
(listed below here) I get the following fault error that seems to
indicate SOAP::Lite
stuck a "#" character at the beggining of my method, but the xml
listing on the site above does not show that for SOAPAction ??? What
can I try, what did I do wrong ?
C:\play\soap>tst.pl
soap:Client : Server did not recognize the value of HTTP Header
SOAPAction: http
://ws.cdyne.com/NotifyWS/#NotifyPhoneBasic.
====================================
#!/bin/perl
use SOAP::Lite;
$site = "http://ws.cdyne.com/NotifyWS/";
$prx = "http://ws.cdyne.com/NotifyWS/phonenotify.asmx";
$svc = SOAP::Lite->new(uri => $site,
proxy => $prx);
$res = $svc->call(SOAP:ata->name("NotifyPhoneBasic")->attr({ xmlns =>
$site}),
SOAP:ata->name(PhoneNumberToDial => "1-781-555-6665"),
SOAP:ata->name(TextToSay => "hey Larry, it worked"),
SOAP:ata->name(CallerID => "508-872-0555"),
SOAP:ata->name(VoiceID => "bird man"),
SOAP:ata->name(LicenseKey => "0"));
if ($res->fault)
{
$cd = $res->faultcode;
$str = $res->faultstring;
print("$cd : $str \n");
}