view release on metacpan or  search on metacpan

DoCoMoProxy.pm  view on Meta::CPAN

}

sub proxy_handler
{
    my ($r) = @_;
    my($key,$val);

    my ($user,$ua) = split(m|,|,$r->connection->user);
    $ua ||= 'DoCoMo/1.0/N503i/c30';

    my $request = new HTTP::Request $r->method, get_filter($user,$r->uri);

    my(%headers_in) = $r->headers_in;
    while(($key,$val) = each %headers_in) {
        $request->header($key,$val);
    }

    $request->header('user-agent' => $ua);

    if ($r->method eq 'POST') {
        my $len = $headers_in{'Content-Length'};