|Just another Perl shrine|
Help finding relevant modules to write a port forwarder from poolby mje (Curate)
|on Oct 08, 2009 at 15:02 UTC||Need Help??|
mje has asked for the
wisdom of the Perl Monks concerning the following question:
Anyone know of any modules on CPAN that I could use to implement the following:
Machine A using inetd or a standalone server listens on port N and knows of a pool of servers on machine B listening on ports p1..pn. For each connection on port N on machine A, the server picks an unused (or the next in sequence if all used) pn on machine B and forwards all data.
The incoming connections on port N and machine A, all connect, send small amount of data, wait for a response and disconnect.
I cannot afford to have this running in a single process because connections may block, i.e. the server processes on machine B may accept data, and take some time processing it before returning an answer.
I'm quite happy writing this myself with the low level socket modules but I thought someone must have done most of this in a CPAN module somewhere - just struggling to find relevant ones.