soap::lite question

soap::lite question

am 24.12.2008 18:44:46 von John DePasquale

--===============0586927618==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_E89BB53E33CBDA43BB99E7ED011C7C150BC511EEAAxch angejimsok_"

--_000_E89BB53E33CBDA43BB99E7ED011C7C150BC511EEAAxchangejims ok_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

greetings and merry Christmas to all,
I'm using SOAP::Lite in a perl app on a windows server running perl 5.10.0,=
to connect to a web service. it mostly works fine except i sometimes am ge=
tting a 400 Bad Request error sent back by the web service. I'm not too fam=
iliar with the use of SOAP, and my question involves the following snippet:

my $soap =3D SOAP::Lite
-> uri('https://services.websiteurl.com/')
-> on_action( sub { join '/', 'https://services.websiteurl.com', $_[1] =
} )
-> proxy('https://services.websiteurl.com/ReferralServices/Warm xfer.asm=
x');

my $method =3D SOAP::Data->name('service_name')
->attr({xmlns =3D> 'https://services.websiteurl.com/'});

note the $_[1] reference in the ON_ACTION line. I can't figure out what the=
value of $_[1] is or when it's being resolved to determine its value. it a=
ppears to have no value immediately preceding the snippet above, nor does i=
t have a value immediately preceding this line of code later in the program=
:
eval { $result =3D $soap->call($method =3D> @params=
) };

please let me know if you know how I can determine the value of $_[1]. much=
thanks.

John DePasquale
IT Manager
Law Offices of James Sokolove
1340 Centre Street - Suite 102
Newton, MA 02459
Direct line: 617-467-6932
Fax: 617-964-4336
This email is intended solely for the use of the individual to whom it is a=
ddressed and may contain information that is privileged, confidential or ot=
herwise exempt from disclosure under applicable law. If the reader of this =
email is not the intended recipient or the employee or agent responsible fo=
r delivering the message to the intended recipient, you are hereby notified=
that any dissemination, distribution, or copying of this communication is =
strictly prohibited. If you have received this communication in error, plea=
se immediately notify us by telephone and return the original message to us=
at the listed email address. Thank You.


--_000_E89BB53E33CBDA43BB99E7ED011C7C150BC511EEAAxchangejims ok_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

hemas-microsoft-com:office:word" xmlns:st1=3D"urn:schemas-microsoft-com:off=
ice:smarttags" xmlns=3D"http://www.w3.org/TR/REC-html40">


>

name=3D"place"/>
name=3D"PostalCode"/>
name=3D"State"/>
name=3D"City"/>
name=3D"Street"/>
name=3D"address"/>
name=3D"PersonName"/>









0.0pt;
font-family:Arial'>greetings and merry Christmas to all,
<=
/font>



0.0pt;
font-family:Arial'>I’m using SOAP::Lite in a perl app on a windows se=
rver
running perl 5.10.0, to connect to a web service. it mostly works fine exce=
pt i
sometimes am getting a 400 Bad Request error sent back by the web service. =
I’m
not too familiar with the use of SOAP, and my question involves the followi=
ng
snippet:



0.0pt;
font-family:Arial'> 



0.0pt;
font-family:Arial'>my $soap =3D SOAP::Lite



0.0pt;
font-family:Arial'>    -> uri('https://services.websiteur=
l.com/')



0.0pt;
font-family:Arial'>    -> on_action( sub { join '/', 'htt=
ps://services.websiteurl.com',
$_[1] } )



0.0pt;
font-family:Arial'>    -> proxy('https://services.website=
url.com/ReferralServices/Warmxfer.asmx');



0.0pt;
font-family:Arial'> 



0.0pt;
font-family:Arial'>my $method =3D SOAP::Data->name('service_name')<=
/o:p>



0.0pt;
font-family:Arial'>      ->attr({xmlns =3D> =
'https://services.websiteurl.com/'});



0.0pt;
font-family:Arial'> 



0.0pt;
font-family:Arial'>note the $_[1] reference in the ON_ACTION line. I can=
217;t
figure out what the value of $_[1] is or when it’s being resolved to
determine its value. it appears to have no value immediately preceding the
snippet above, nor does it have a value immediately preceding this line of =
code
later in the program:



0.0pt;
font-family:Arial'>         &n=
bsp;            =
;  eval { $result =3D
$soap->call($method =3D> @params) };



0.0pt;
font-family:Arial'> 



0.0pt;
font-family:Arial'>please let me know if you know how I can determine the v=
alue
of $_[1]. much thanks.



0.0pt;
font-family:Arial'> 



y
face=3D"Times New Roman">John
DePasquale
style=3D'color:navy'>



<=
span
style=3D'font-size:10.0pt;color:navy'>IT Manager
=3Dnavy> style=3D'color:navy'>



<=
span
style=3D'font-size:10.0pt;color:navy'>Law Offices of James Sokolove<=
/font> color=3Dnavy>



style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: url(res://iet=
ag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
w:st=3D"on"> style=3D'font-size:10.0pt;color:navy'>1340 Centre Street t1:address>
size=3D2 color=3Dnavy> – =
tabIndex=3D"0"
style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: url(res://ieta=
g.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
w:st=3D"on">Suite 102 pan>
color=3Dnavy>



e=3D2
color=3Dnavy face=3D"Times New Roman"> or:navy'>Newton
size=3D2 color=3Dnavy>, tate
w:st=3D"on">MA 02459 de>
color=3Dnavy>



<=
span
style=3D'font-size:10.0pt;color:navy'>Direct line: 617-467-6932 t>



<=
span
style=3D'font-size:10.0pt;color:navy'>Fax: 617-964-4336
color=3Dnavy>



style=3D'font-size:7.5pt;font-family:"Microsoft Sans Serif"'>This email is
intended solely for the use of the individual to whom it is addressed and m=
ay
contain information that is privileged, confidential or otherwise exempt fr=
om
disclosure under applicable law. If the reader of this email is not the
intended recipient or the employee or agent responsible for delivering the
message to the intended recipient, you are hereby notified that any dissemi=
nation,
distribution, or copying of this communication is strictly prohibited. If y=
ou
have received this communication in error, please immediately notify us by
telephone and return the original message to us at the listed email address=
..
Thank You.
style=3D'font-size:7.5pt;font-family:"Microsoft Sans Serif"'> pan>



'font-size:
12.0pt'> 









--_000_E89BB53E33CBDA43BB99E7ED011C7C150BC511EEAAxchangejims ok_--

--===============0586927618==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0586927618==--