search

KES777 / mojo

Mojolicious - Perl real-time web framework
http://mojolicio.us
Artistic License 2.0
0 stars 0 forks source link

Send 'Referer' header #5

Open KES777 opened 7 years ago

KES777 commented 7 years ago 
curl -vL --referer ";auto" artcoin:3000/api/v1/remind?contact=kes-kes@yandex.ru

Work around:

;$ua->on( start => sub {
    my $tx = shift;
    return   unless my $previous =   $tx->previous;
    $tx->req->headers->referer( $previous->req->url );
})