🚀 go-pugleaf

Giz wrote:

>> Czy komuś udało się to przeskoczyć?
> 
> 
> Jako że nikomu się nie udało stworzyć komunikacji SOAP w perlu z
> AllegroWebApi lub stworzył ale siedzi cicho.
> Wnioskuje to z tego że na grupach są tylko same pytania bez konkretnych
> odpowiedzi, także na forum WebApi na Allegro.
> Wklejam tu swoje rozwiązanie.
Dobrze że je zamieściłeś, co pobudziło mnie do zgłębienia tematu :) 

#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite +trace=>qw(debug);
sub create_range_int {
        my $fval_min_int=SOAP::Data->name("fvalue-range-int-min")->value(0);
        my $fval_max_int=SOAP::Data->name("fvalue-range-int-max")->value(0);
        my $ret=SOAP::Data->name("fvalue-range-date")->value($fval_min_int
$fval_max_int);
        return \$ret;
}
sub create_range_float {
        my
$fval_min_float=SOAP::Data->name("fvalue-range-float-min")->value(0);
        my
$fval_max_float=SOAP::Data->name("fvalue-range-float-max")->value(0);
        my
$ret=SOAP::Data->name("fvalue-range-float")->value($fval_min_float
$fval_max_float);
        return \$ret;

}
sub create_range_date {
        my
$fval_min_date=SOAP::Data->name("fvalue-range-date-min")->value('');
        my
$fval_max_date=SOAP::Data->name("fvalue-range-date-max")->value('');
        my $ret=SOAP::Data->name("fvalue-renge-date")->value($fval_min_date
$fval_max_date);
        return \$ret;

}
sub create_field {
        my (%params)=@_;
        my @values=(
        SOAP::Data->new(name=>"fid",value=>$params{fid}),
       
SOAP::Data->new(name=>"fvalue-string",value=>defined($params{fvalue_string})
$params{fvalue_string}:''),
       
SOAP::Data->new(name=>"fvalue-int",value=>defined($params{fvalue_int})
$params{fvalue_int}:0),
       
SOAP::Data->new(name=>"fvalue-float",value=>defined($params{fvalue_float})
$params{fvalue_float}:0),
       
SOAP::Data->new(name=>"fvalue-image",value=>defined($params{fvalue_image})
$params{fvalue_image}:0),
       
SOAP::Data->new(name=>"fvalue-datetime",value=>defined($params{fvalue_datetime})
$params{fvalue_datetime}:0),
       
SOAP::Data->new(name=>"fvalue-date",value=>defined($params{fvalue_date})
$params{fvalue_date}:''),
        create_range_int,
        create_range_float,
        create_range_date,
        );
        my $ret=SOAP::Data->value(@values);
        return \$ret;
}
my $soap=SOAP::Lite->proxy("http://webapi.allegro.pl/uploader.php");
my $method=SOAP::Data->name('doCheckNewAuctionExt');
my $session="bla_bla_228";
my $ses=SOAP::Data->name('session-handle')->value($session);
my $fields=SOAP::Data->name('fields')->value(\SOAP::Data->value(
                create_field(fid=>1,fvalue_string=>"testowa2"),
                create_field(fid=>2,fvalue_int=>1840),
                create_field(fid=>4,fvalue_int=>2),
                create_field(fid=>5,fvalue_int=>2),
                create_field(fid=>8,fvalue_float=>100),
                create_field(fid=>9,fvalue_int=>228),
                create_field(fid=>10,fvalue_int=>213),
                create_field(fid=>11,fvalue_string=>"NibyMaisto"),
                create_field(fid=>12,fvalue_int=>1),
                create_field(fid=>14,fvalue_int=>1),
                create_field(fid=>24,fvalue_string=>"test opis"),
                 create_field(fid=>32,fvalue_string=>"25-944"),
                 create_field(fid=>36,fvalue_float=>15.99),
        ));
my $result=$soap->call($method,$ses,$fields);



-- 
Pozdrawiam
Grzegorz Woźniak
xmpp:skinek_at_jabster_pl