<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2912" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Olá à todos, </FONT></DIV>
<DIV><FONT face=Arial size=2>Se alguém puder colaborar com uma
dica....</FONT></DIV>
<DIV><FONT face=Arial size=2>Tenho que fazer uma conexão com um web service que
usa SOAP wsdl.</FONT></DIV>
<DIV><FONT face=Arial size=2>Tenho um exemplo deles em PHP mas preciso em PERL.
</FONT></DIV>
<DIV><FONT face=Arial size=2>Pelo que vi o módulo SOAP::Lite resolve o caso, mas
não sei ao certo como aplicar.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>O que tenho como exemplo em PHP é:</FONT></DIV>
<DIV><FONT face=Arial size=2> if
(isset($_REQUEST['step']))<BR> {<BR>
$cardId = $_REQUEST['cardId'];<BR> $cardIdType =
$_REQUEST['cardIdType'];<BR> $ani =
$_REQUEST['ani'];<BR>
<BR> $client = new soapclient("CCPServiceV1.wsdl"
, true);<BR>
$client->setCredentials($_SESSION['username'],
$_SESSION['password']);<BR> $params =
array();<BR> $params['cardId'] =
$cardId;<BR> $params['cardIdType'] =
$cardIdType;<BR> $params['ani'] =
$ani;<BR> <BR>
$result = $client->call('registerANI', $params);</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>E a URL de trabalho é: <A
href="http://ws.telehumana.com:8080/services/CCPServiceV1Port?wsdl">http://ws.telehumana.com:8080/services/CCPServiceV1Port?wsdl</A></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Alguma idéia de como fazer isto com o
SOAP::Lite?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Grato por qualquer ajuda.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Sds,</FONT></DIV>
<DIV><FONT face=Arial size=2>Marcio Mello.</FONT></DIV></BODY></HTML>