http://www.perlmonks.org?node_id=955141


in reply to Re^3: Trouble getting started with SOAP (SOAP::Lite, SOAP::WSDL), translating from PHP to Perl
in thread Trouble getting started with SOAP (SOAP::Lite, SOAP::WSDL), translating from PHP to Perl

Well, the class definitions and initializations are trivially simple (brain dead relative to C++):

class CreditCardType { var $cc_id = null; var $cc_type = null; var $cc_currency = null; var $cc_holder_name = null; var $cc_number = null; var $cc_month = null; var $cc_year = null; var $cc_cvv = null; var $cc_default = null; var $cc_status = null; var $cc_status_infos = null; var $cc_creation = null; var $cc_lastupdate = null; } echo "Processing Credit Card Transaction\n"; $CreditCard = new CreditCardType(); $CreditCard->cc_type = "VISA"; // mandatory $CreditCard->cc_holder_name = "DEMO USER"; // mandatory $CreditCard->cc_number = "4444333322221111"; // mandatory $CreditCard->cc_cvv = "123"; // mandatory $CreditCard->cc_month = "12"; // mandatory $CreditCard->cc_year = "2014"; // mandatory

The call to SOAPClient is, again:

$soap = new SoapClient("https://merchant.paytoo.info/api/merchant?wsdl +", array("classmap"=>array("AccountType"=>"AccountType", "CreditCardT +ype"=>"PaytooCreditCardType")));

And then it is used (with instances of other classes) like:

$response = $soap->CreditCardSingleTransaction($CreditCard, $Customer, + $amount, $currency, $ref_id, $description, $addinfo);

I do have the full wsdl file, but I don't know that I can post any of it since I did not write any of it. For that matter, it would be handy to locate a decent WSDL editor (my favourite eitors don't provide any supports for it beyond what any braindead Notepad clone would do).

I am so frustrated with this, I am sorely tempted to make a PHP file template that my Perl CGI programs can edit to have the right data, and then ran that using php and parse the output that results in order to get the result. :-(