view release on metacpan or  search on metacpan

eg/nyaaproxy.psgi  view on Meta::CPAN

my $httpobject = Furl->new( 
    'agent' => 'Acme::Nyaa/nyaaproxy/'.$Acme::Nyaa::VERSION, 
    'timeout' => 10
);
my $htresponse = undef;
my $htcontents = undef;
my $servername = undef;
my $requesturl = undef;
my $nekonyaaaa = undef;

builder {
    sub {
        my $env = shift;
        my $url = $env->{'REQUEST_URI'} || $env->{'PATH_INFO'};
        my $req = Plack::Request->new( $env );
        my $res = undef;
        my $err = [ 'Failed to connect' ];
        my $cth = [ 'Content-Type' => 'text/plain' ];
        my $tmp = undef;

        if( length $url > 1 ) {

            if( $url =~ m|\A/(https?://)(.+?)/(.*)\z| ) {
                $servername = $1.$2;
                $requesturl = $servername.'/'.$3;

            } else {
                $requesturl = $servername.$url;
            }
            $htresponse = $httpobject->get( $requesturl );

            if( $htresponse->is_success ) {

                $htcontents = $htresponse->content;
                $nekonyaaaa = Acme::Nyaa->new;

                if( $htresponse->content_type =~ m{\Atext/(?:plain|html)} ) {

                    $tmp = [ split( "\n", $htcontents ) ];
                    map { $_ .= "\n" } @$tmp;
                    $htcontents = $nekonyaaaa->straycat( $tmp, 1 );
                }

                return [ 
                    $htresponse->status, 
                    [ 'Content-Type' => $htresponse->content_type ],
                    [ $htcontents ],
                ];

            } else {

                return [ 
                    $htresponse->status, 
                    [ 'Content-Type' => $htresponse->content_type ],
                    [ $htresponse->status_line ],
                ];
            }

        } else {
            return [ 
                404, 
                [ 'Content-Type' => 'text/plain' ],
                [ 'Usage: http://127.0.0.1:2222/http://ja.wikipedia.org/wiki/柴犬' ]
            ];
        }
    };
};