Zapytanie o Allegro WebAPI + SOAP::Lite

Thread View: pl.comp.lang.perl

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by mp Mon, 15 Feb 2010 11:09

#51777

Author: mp
Date: Mon, 15 Feb 2010 11:09

42 lines
2206 bytes

Witam.
Chciałbym za pomoca skryptu Perla wywołać funkcje Allegro WebApi, sluzaca do 
wyszukiwanie przedmiotow na aukcjach Allegro. Problem w tym, ze funkcja 
odpowiedzialna za to (tj. doSearch()) nie wyświetla żadnych informacji 
(wyników, błędów). Podejrzewam, ze gdzies po drodze do niej popelnilem 
bledy. Z gory dziekuje za wszelka pomoc i dolaczam swoj kod.

use strict;
use SOAP::Lite;
use Data::Dumper;
use DBI;

#dane dostepowe do Allegro API
my $CONFIG_LOGIN = "...";
my $CONFIG_PASSWORD = "...";
my $CONFIG_APIKEY ="...";
my $CONFIG_COUNTRY = "1";
my $CONFIG_WSDL ="http://localhost/allegro.wsdl";

my $Klient = SOAP::Lite->service($CONFIG_WSDL);
my @wersja = $Klient->doQuerySysStatus(1, $CONFIG_COUNTRY, $CONFIG_APIKEY);

my @sesja = $Klient->doLogin($CONFIG_LOGIN, $CONFIG_PASSWORD, 
$CONFIG_COUNTRY, $CONFIG_APIKEY, $wersja['ver-key']);

my %parametry = (
  'search-string'    => 'slowo',
  'search-options'    => '1',
  'search-order'    => '2',
  'search-order-type'    => '0',
  'search-country'    => '0',
  'search-category'    => '0',
  'search-city'    => '',
  'search-state'    => '',
  'search-price-from'    => '0',
  'search-price-to'    => '300',
  'search-offset'    => '0',
  'search-limit'    => '50'
);

my @wynik = $Klient->doSearch($sesja['session-handle-part'],%parametry);
print @wynik

Re: Zapytanie o Allegro WebAPI + SOAP::Lite

#51778

Author: Paweł Matejski
Date: Thu, 18 Feb 2010 14:16

18 lines
1482 bytes

mp wrote:
> Witam.
> Chciałbym za pomoca skryptu Perla wywołać funkcje Allegro WebApi, sluzaca do 
> wyszukiwanie przedmiotow na aukcjach Allegro. Problem w tym, ze funkcja 
> odpowiedzialna za to (tj. doSearch()) nie wyświetla żadnych informacji 
> (wyników, błędów). Podejrzewam, ze gdzies po drodze do niej popelnilem 
> bledy. Z gory dziekuje za wszelka pomoc i dolaczam swoj kod.
> 
> use strict;
> use SOAP::Lite;

use SOAP::Lite +trace => qw( debug );

Zamień na powyższą, to będziesz widział XML'e jakimi się komunikują.


-- 
P.M.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads