The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::Proxy::Connector::dual - Y-shaped Net::Proxy connector

DESCRIPTION

Net::Proxy::Connecter::dual is a Net::Proxy::Connector that can forward the connection to two distinct services, based on the client connection, before any data is exchanged.

CONNECTOR OPTIONS

This connector can only work as an in connector.

The server_first and client_first options are required: they are hashrefs containing the options necessary to create two out Net::Proxy::Connector objects that will be used to connect to the requested service.

The Net::Proxy::Connector::dual object decides between the two services by waiting during a short timeout. If the client sends some data directly, then it is connected via the client_first connector. Otherwise, at the end of the timeout, it is connected via the server_first connector.

host

The hostname on which the connector will listen for client connections. Default is localhost.

port

The port on which the connector will listen for client connections.

server_first

Typically an out connector to a SSH server or any service that sends a banner line.

client_first

Typically an out connectrot to a web server or SSL server.

timeout

The timeout in seconds (can be decimal) to make a decision. Default is 1 second.

AUTHOR

Philippe 'BooK' Bruhat, <book@cpan.org>.

ACKNOWLEDGMENTS

This module is based on a script named sslh, which I wrote with Frédéric Plé <frederic.ple+sslh@gmail.com> (who had the original insight about the fact that not all servers speak first on the wire).

Frédéric wrote a C program, while I wrote a Perl script (based on my experience with connect-tunnel).

Now that Net::Proxy is available, I've ported the Perl script to use it.

COPYRIGHT

Copyright 2006-2014 Philippe 'BooK' Bruhat, All Rights Reserved.

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.