view release on metacpan or  search on metacpan

ProxyPass.pm  view on Meta::CPAN

    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);