On Mon, Mar 29, 2010 at 11:57 AM, Jeff Peng <jeffp...@netzero.net> wrote:
> Thanks Rob. > I have enabled "trace => all" when new the object, so I have been able > to look what was happened. > I think what I don't know is that how to built-up that a XML request > package with the format they required for posting. > > Jeff. > > On Mon, Mar 29, 2010 at 5:49 PM, Rob Coops <rco...@gmail.com> wrote: > > > > > > On Mon, Mar 29, 2010 at 11:36 AM, Jeff Peng <jeffp...@netzero.net> > wrote: > >> > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > Fair enough. :-) Try the following: use SOAP::Lite +trace => 'all'; my $soap = SOAP::Lite->new( proxy => 'http://192.168.1.100/Service/IndicatorsService.asmx'); $soap->default_ns('http://tempuri.org/'); $soap->on_action(sub { join '', @_ }); my $method = SOAP::Data->name('DataUpLoad') ->attr({xmlns => 'http://tempuri.org/'}); my $test = ( SOAP::Data->name('input')->value( SOAP::Data->name('user')->value(string) ) ); my @param = ( $test, SOAP::Data->name('INDICATORSNUMBER')->value('1010101010101210'), SOAP::Data->name('FVALUE')->value(50), ); my $run = $soap->call($method => @param); That way you can build the whole thing exactly as the asked you to. SOAP::Lite is maybe no longer supported but it is the simplest way of working with SOAP I have found so far.
