last_call0000644000175000017500000000305110713672621011027 0ustar mdamdaUser-Agent: SOAP::Lite/Perl/0.66 Content-Length: 405 Content-Type: text/xml; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8; charset=utf-8 last_call_hacked0000644000175000017500000000007310713672621012327 0ustar mdamdaContent-Length: 445 Content-Type: text/xml; charset=utf-8 mini_client0000644000175000017500000000075210713672626011375 0ustar mdamdause strict; use warnings; use SOAP::Lite +trace => qw( all ); use SOAP::Transport::HTTP; $|=1; my $c = SOAP::Lite ->xmlschema(2001) ->default_ns( '/Teste' ) ->proxy( "http://localhost:8080/", timeout => 10, keep_alive => 0 ); my ( $Result, $call ); for( my $i=0; $i < 100; $i++ ) { $call = $c->call('Ping'); $Result = $call->valueof('//PingResponse'); if ( exists($Result->{PONG}) ) { printf "\r%10s ", $Result->{PONG}; next; } print "\rFalhou ... "; } mini_server0000644000175000017500000000074010713672626011422 0ustar mdamdause strict; use warnings; use SOAP::Lite; # +trace => qw( all ); use SOAP::Transport::HTTP; my $d = SOAP::Transport::HTTP::Daemon -> new ( LocalAddr=> '0.0.0.0', LocalPort=> '8080', Listen=> '8080', Timeout=> 60, Reuse=>1, Debug=>1, ) -> dispatch_to( qw( Teste ) ); # $d->default_ns( 'http://localhost' ); $d->handle; package Teste; use strict; our $Count = 0; sub Ping { return SOAP::Data->new( name => 'PONG', value => $Count++ ); }