On Mon, Mar 29, 2010 at 12:16 PM, Rob Coops <rco...@gmail.com> wrote:
> > > 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/'}<http://tempuri.org/'%7D> > ); > 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. > Ok never mind that... I though that is what I was doing last time I used SOAP::Lite (its been a few years...) I'll have another look I can't stand not remembering this anymore :-)
