Geschafft!

Hinweis

Fehler

 
 
 
 
Budget

Kleines Projekt <800

Geposted am

2016-09-26 13:00:57.0

Kunde

twa***

Dieses Projekt wurde abgeschlossen

Schreiben Sie ein ähnliches Projekt aus und erhalten Sie Angebote von Freelancern. Unverbindlich. Kostenlos. Schnell.

Jetzt ähnliches Projekt einstellen

Beschreibung:

Hallo,

ich habe ein Problem bei der Umsetzung eines funktioneirenden SOAP-Calls via PHP auf Perl. Der Code nachstehend oder als Anhang.

Es wird nur eine Kleinigkeit sein und kein großes Projekt, welches zu realisieren ist. Ich habe keine Ahnung, ob ich hiermit hier richtig bin. Ein Versuch ist es wert. :-)

 

Gruß

 Heiko A.

 

define('USERNAME', 'myUsername'); define('PASSWORD', 'geheim');

define('WSDL', 'https://1.2.3.4/service/PartnerApi?wsdl'); define('WEBSERVICE_LOCATION', 'https://1.2.3.4/service/PartnerApi');

$getProductListRequest = array(     'requestHeader' => array(         'authToken'  => array(             'userName' => USERNAME,             'password' => PASSWORD         )     ),        'language' => 'EN' );

echo '

';

 

print_r($getStatementRequest);

$soapClient = new SoapClient(WSDL, array('location' => WEBSERVICE_LOCATION, 'exceptions' => true));

 

try {     $getProductList = $soapClient->getProductList($getProductListRequest); } catch (Exception $e) {     print_r($e); }

print_r($getProductList);

echo '

';

 

?>

 

#! /usr/bin/perl -w

use SOAP::Lite;# (+trace => 'all'); use Data::Dumper; use strict;

my ($client, $xml, $simple, $Data, $result);      my $WSDL     = 'https://1.2.3.4/service/PartnerApi?wsdl';    my $Location = 'https://1.2.3.4/service/PartnerApi';       $Data->{requestHeader}->{authToken}->{userName} = 'myUsername';    $Data->{requestHeader}->{authToken}->{password} = 'geheim';    $Data->{language} = 'EN';#

   $client = new SOAP::Lite uri => $Location, proxy => $Location;              $result = $client->getProductList($Data);   

   print Dumper($client->result), "\n";    print "-------------------------------------------\n";    print Dumper($Data), "\n";