Re: SOAP timeout not working

It works for me


#!/usr/bin/perl --
use strict;
use warnings;

BEGIN {warn scalar gmtime,"\n";}
END {warn scalar gmtime,"\n";}

#~ use SOAP::Lite 0.65 +trace => 'debug';
use SOAP::Lite 0.65 
    on_fault => sub {
                    my $msg = "ERROR: ";
                    my ($soap, $result) = @_;
                    $msg .= ref $result
                          ? $result->faultstring
                          : $soap->transport->status;
                    print STDERR "\tFault -> $msg\n";
                };



my $soap =
  SOAP::Lite->uri("http://localhost/")
  ->proxy( 'http://localhost/blah/DummyService', timeout => 1 );

$soap->call(
    SOAP::Data->name('FooService'),
    SOAP::Data->name('FooVar')->value('$foo')->type('int'),
);

__END__

$ perl test.pl
Wed Aug 18 23:19:38 2010
        Fault -> ERROR: 500 Can't connect to localhost:80 (connect: ti
+meout)
Wed Aug 18 23:19:39 2010
[download]

Comment on Re: SOAP timeout not working Download Code

Replies are listed 'Best First'.
Re^2: SOAP timeout not working by Velaki (Chaplain) on Aug 19, 2010 at 13:35 UTC
Strangely enough, it's working now. I think a module was modified by the system people, because the version numbers are different. Thanks! "Perl. There is no substitute."	[reply]
Re^2: SOAP timeout not working by Anonymous Monk on Aug 28, 2020 at 12:05 UTC
But the following does not work: #!/usr/bin/perl -- use strict; use warnings; BEGIN {warn scalar gmtime,"\n";} END {warn scalar gmtime,"\n";} #~ use SOAP::Lite 0.65 +trace => 'debug'; use SOAP::Lite 0.65 on_fault => sub { my $msg = "ERROR: "; my ($soap, $result) = @_; $msg .= ref $result ? $result->faultstring : $soap->transport->status; print STDERR "\tFault -> $msg\n"; }; my $soap = SOAP::Lite->uri("http://host/") ->proxy( 'http://host/blah/DummyService', timeout => 1 ); $soap->call( SOAP::Data->name('FooService'), SOAP::Data->name('FooVar')->value('$foo')->type('int'), ); [download] No message after the timeout time.	[reply] [d/l]
Re^3: SOAP timeout not working by Anonymous Monk on Aug 28, 2020 at 19:40 UTC
And then what happened?	[reply]


P is for Practical
	PerlMonks