view release on metacpan or  search on metacpan

ProxyPass.pm  view on Meta::CPAN

        split;
	if (defined($_[0]) && defined($_[1]) && ($_[0] ne "") && ($_[1] ne "")) {
          $cfg{$_[0]} = $_[1];
          }
        }
     }
    my $from;
    foreach $from (keys %cfg) {
      if ($uri =~ /^$from/) {
        $uri=~s!^$from!$cfg{$from}!;
	last;
        }   
      }
    if ($uri ne $r->uri) {
      my(%headers) = $r->headers_in();
      my $query = $r->args() || '';
      $uri .= "?$query" if defined $query and length $query;
      my $request = new HTTP::Request($r->method, $uri);
      my(%headers) = $r->headers_in;
        for (keys(%headers)) {
        $request->header($_, $headers{$_});
      }

      my $res = (new LWP::UserAgent)->request($request);
      $r->content_type($res->header('Content-type'));
      #feed reponse back into our request_rec*
      $r->status($res->code);
      $r->status_line(join " ", $res->code, $res->message);
      $res->scan(sub {
	$r->header_out(@_);
      });

      $r->send_http_header();
      print $res->content;
      return OK;
      }
    else {
      return DECLINED
    }
}

1;

__END__


=head1 NAME

Apache::ProxyPass - implement ProxyPass in perl

=head1 SYNOPSIS

 #httpd.conf or some such
  PerlSetVar ProxyPass_filename /xxx/proxy.conf

<Location /foo>
  SetHandler perl-script
  PerlHandler Apache::ProxyPass
</Location>

#proxy.conf looks like

  /foo/apache http://www.apache.org
  /foo/perl http://www.perl.com


=head1 DESCRIPTION

Implement the apache mod_proxy module in perl.  Based on Apache::ProxyPassThru

=head1 AUTHOR

Michael Smith <mjs@iii.co.uk>

=cut