Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: SOAP::Lite Servers and inetd

by rob_au (Abbot)
on Apr 16, 2004 at 02:53 UTC ( #345614=note: print w/ replies, xml ) Need Help??


in reply to SOAP::Lite Servers and inetd

By default SOAP::Transport::IO uses STDIN and STDOUT for input and output and as such it should be quite trivial to implement an inetd based SOAP server - The following is an untested inetd-based SOAP server based upon some existing code which I had on hand.

#!/opt/bin/perl package main; # For Perl 6 forward-compatability # The following constants are used to define server timeout and sock +et # timeout behaviour. sub TIMEOUT_PEER () { 60 } sub TIMEOUT_SERVER () { 300 } use IO::Socket; use POSIX qw( WNOHANG ); use SOAP::Transport::IO; use Socket qw( :crlf ); use vars qw( $VERSION ); $VERSION = sprintf( "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/ ); # Define signal handlers for timeout and child events $SIG{'ALRM'} = sub { exit 0 }; $SIG{'CHLD'} = sub { while ( waitpid( -1, WNOHANG ) > 0) {} }; # Create IO socket from STDIN file descriptor on which the network # communication socket is duplicated for the server process by the i +netd # daemon. my $socket = IO::Socket->new_from_fd( STDIN, 'r+' ); unless ( defined $socket ) { croak( 'Cannot create socket from STDIN -- ', $! ); } while ( my $connection = $socket->accept ) { my $child = undef; unless ( defined ( $child = fork() ) ) { croak( 'Cannot fork process to handle new connection -- ', $! +); } if ( $child == 0 ) { # Clear the alarm timeout, close the parent socket and initi +ate # communication with POP3 client. alarm(0); $socket->close; STDIN->fdopen( $connection, 'r' ) or croak( 'Cannot re-open STDIN for input -- ', $! ); STDOUT->fdopen( $connection, 'w' ) or croak( 'Cannot re-open STDOUT for output -- ', $! ); STDERR->fdopen( $connection, 'w' ) or croak( 'Cannot re-open STDERR for output -- ', $! ); STDOUT->autoflush(1); SOAP::Transport::IO::Server ->new ->dispatch_to('/path/to/modules', 'Local::Module') ->handle; } } continue { $connection->close; alarm( TIMEOUT_SERVER ); exit 0; } 1; __END__

 

perl -le "print unpack'N', pack'B32', '00000000000000000000001011010001'"


Comment on Re: SOAP::Lite Servers and inetd
Select or Download Code
Re: Re: SOAP::Lite Servers and inetd
by tektsu (Acolyte) on Apr 16, 2004 at 15:05 UTC
    Excellent! This is just what I was looking for (I guess I should have looked a little harder...).

    Thanks!



    tektsu
    kiku wa ittoki no haji kikanu wa matsudai no haji

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://345614]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2014-08-21 10:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (133 votes), past polls