Mini Proxy

Ein ganz kleiner Proxy in Perl. Man gibt nur den Port an auf dem er lauschen soll. Wenn er als Proxy im Browser angegeben wird leitet er alle Anfragen weiter.

#!/usr/bin/perl
use strict;
use warnings;
my $PORT = shift(@ARGV) || 8017;
use HTTP::Daemon;
use LWP::UserAgent;
my $proxy = HTTP::Daemon->new( LocalPort => $PORT );
die "@_" unless defined $proxy;
print "Listening on port $PORT\n";
my $ua = LWP::UserAgent->new;
$ua->agent("miniproxy/1.0");
while (my $conn = $proxy->accept)
{
  while (my $request = $conn->get_request)
  {
    my $response = $ua->simple_request($request);
    print "REQUEST:".localtime()."\n";
    $conn->send_response($response);
  }
  $conn->close;
}

ToPeG