coralized-proxy

#!/usr/bin/env perl

use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;

my $proxy = HTTP::Proxy->new(port => 3128);

$proxy->push_filter(
    request =>HTTP::Proxy::HeaderFilter::simple->new(
        sub {
            my ( $self, $headers, $message ) = @_;
            my $host = $message->uri()->host();

            unless (
                $message->uri()->port() != 80 ||
                    $host =~ /(
                                  \.nyud\.net
                              | (   google-analytics
                                  | google
                                  | googlesyndication
                                  | flickr
                                  | mac )\.com
                              )$/x
                          ) {
                $host .= ".nyud.net";
                $message->uri()->host($host);
                $headers->header(Host => $host);

                print "==> " . $message->uri()->as_string . "\n";
            }

        }
    ),
    response => HTTP::Proxy::HeaderFilter::simple->new(
        sub {
            my ($self, $headers, $message) = @_;
            if ($message->code == 302) {
                my $location = $headers->header('Location');
                $location =~ s/\.nyud\.net//;
                $headers->header(Location => $location);
            }
        }
    )
);
$proxy->start;