In my attempt to learn POE I wrote this simple single-process proxy: 

#!/usr/bin/perl

use warnings;
use strict;

use POE qw(Component::Server::TCP Component::Client::HTTP
           Filter::HTTPD Filter::Stream);

POE::Component::Client::HTTP->spawn(Alias     => 'user_agent',
                                    Streaming => 1024);

POE::Component::Server::TCP->new
    ( Alias        => 'web_server',
      Port         => 8000,
      ClientFilter => 'POE::Filter::HTTPD',
      ClientInput  => \&client_input,
      InlineStates => { proxy_response => \&proxy_response }
    );

$poe_kernel->run();

sub client_input {
    my ($kernel, $heap, $request) = @_[KERNEL, HEAP, ARG0];

    # if request is actually response it just means that we've got an
    # error
    if($request->isa('HTTP::Response')) {
        $heap->{client}->put($request);
        $kernel->yield('shutdown');
        return;
    }

    $request->header(Connection => 'close');
    $kernel->post(user_agent => request => proxy_response => $request)
+;
}

sub proxy_response {
    my ($kernel, $heap, $request_packet, $response_packet)
        = @_[KERNEL, HEAP, ARG0, ARG1];

    my $request           = $request_packet->[0];
    my ($response, $data) = @$response_packet;

    unless($heap->{got_headers}) {
        $response->header(Connection => 'close');
        $heap->{client}->put($response);
        $heap->{got_headers}++;
    }

    if(defined $data) {
        $heap->{client}->set_output_filter(POE::Filter::Stream->new())
+;
        $heap->{client}->put($data);
    } else {
        $kernel->yield("shutdown");
    }
}

[download]
Note that at the time of writing it requires patched POE::Component::Client::HTTP.

--
Ilya Martynov, ilya@iponweb.net
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

In reply to Re: Pass through perl http proxy server (no code, just advice) by IlyaM
in thread Pass through perl http proxy server (no code, just advice) by tachyon

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.