o Does not handle multiple simultaneous connections. o Reads are asynchronous, writes are synchronous. o Messages larger than 64K will be segmented. EndUsage } use vars qw($opt_i $opt_o $opt_1 $opt_v); getopts(’i:o:1:v’) and $opt_o or die usage; my $proxy_port = $opt_i or die usage; my ($server_host, $server_port) = $opt_o =~ /^(.+):(d+)$/ or die usage; my $verbose = 1 if $opt_v; my $only_one = 1 if $opt_1; $SIG{TERM} = $SIG{INT} = $SIG{HUP} = &shutdown; my $proxy = IO::Socket::INET->new(LocalPort => $proxy_port, Type => SOCK_STREAM, Proto => ‘tcp’, Reuse => 1, Listen => 1) or die “Can’t listen on port $proxy_port: $!n”; print “[listening on port $proxy_port]n” if $verbose; my ($client, $server); OUTER: while ($client = $proxy->accept) { my ($client_host, $client_port) = (gethostbyaddr($client->peeraddr, AF_INET) || $client->peerhost, $client->peerport); print “[connection from $client_host on $client_port]n” if $verbose; $server = IO::Socket::INET->new(PeerAddr => $server_host, PeerPort => $server_port, Proto => ‘tcp’, Type => SOCK_STREAM) or die “Can’t connect to $server_host:$server_portn”; print “[connected to server $server_host:$server_port]n” if $verbose; my $selector = IO::Select->new($client, $server); CONNECTION: while (my @ready = $selector->can_read) {
Note: If you are looking for cheap and reliable provider to host and run your servlet application check Vision servlet hosting services