How can I write a simple HTTP proxy in Perl?

Question

I don't want to use the HTTP::Proxy package because I want to dump out a couple requests. My one liner looks like this, but breaks on trying to pass the header in:

perl -MData::Dumper -MHTTP::Daemon -MHTTP::Status -MLWP::UserAgent -e 'my $ua = LWP::UserAgent->new;my $d=new HTTP::Daemon(LocalPort=>1999);print "Please contact me at: <", $d->url, ">\n";while (my $c = $d->accept) {while (my $r = $c->get_request) {if ($r->method eq 'GET' and $r->url->path eq "/uploader") {$c->send_response("whatever.");print Dumper($r);}else{$response=$ua->request($r->method,"http://localhost:1996".$r->uri,$r->headers,$r->content);$c->send_response($response);}}}'

formatted, that's:

#perl -e '
use Data::Dumper;
use HTTP::Daemon;
use HTTP::Status;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $d=new HTTP::Daemon(LocalPort=>1999);
print "Please contact me at: < ", $d->url, " >\n";
while (my $c = $d->accept) {
  while (my $r = $c->get_request) {
    if ($r->method eq 'GET' and $r->url->path eq "/uploaded") {
      $c->send_response("whatever.");
      print Dumper($r);
    } else { 
      $response = $ua -> request(
        $r->method, 
        "http://localhost:1996" . $r->uri, 
        $r->headers, 
        $r->content);
      $c->send_response($response);
    }
  }
}#'

So I can't just pass in the request, because I need to change the host, and I can't just pass in the headers it seems... so what should I do to keep it short.

So can anyone make this a better one-liner?

dlamblin · Accepted Answer · 2008-11-17 17:38:55Z

7

Aw shoot, I fixed it with this:

#perl -e '
use Data::Dumper;
use HTTP::Daemon;
use HTTP::Status;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $d=new HTTP::Daemon(LocalPort=>1999);
print "Please contact me at: < ", $d->url, " >\n";
while (my $c = $d->accept) {
  while (my $r = $c->get_request) {
    if ($r->method eq "GET" and $r->url->path eq "/uploaded") {
      $c->send_response("whatever.");
      print Dumper($r);
    } else { 
      $response = $ua -> request( HTTP::Request->new(
        $r->method, 
        "http://localhost:1996" . $r->uri, 
        $r->headers, 
        $r->content));
      $c->send_response($response);
    }
  }
}#'

note the HTTP::Request->new yeah... so it works, it's a tad slow. but that's okay

edited Nov 17, 2008 at 17:38

answered Nov 7, 2008 at 21:50

dlamblin

45.6k22 gold badges105 silver badges144 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

Leon Timmermans Over a year ago

You probably don't want to use single quotes around GET. It works in this case, but not for the reasons you think it works (try turning on strict mode to see what I mean).

Max Lybbert Over a year ago

I'm lost on why not to use single quotes. The single quotes simply mean "no variable interpolation." In fact, I would recommend changing the other strings to single-quotes just to be consistent.

Leon Timmermans Over a year ago

Because he is also using them on the command line. Due to luck this works in this case, but in other cases it won't.

dlamblin Over a year ago

I didn't even notice that the GET string was not right. Thanks.

Collectives™ on Stack Overflow

How can I write a simple HTTP proxy in Perl?

1 Answer 1

4 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related