Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: LWP is there any way to get "real" outgoing headers?

by InfiniteSilence (Curate)
on May 24, 2014 at 03:56 UTC ( #1087290=note: print w/replies, xml ) Need Help??

in reply to LWP is there any way to get "real" outgoing headers?


My previous response was wrong -- I had not read your question correctly. You want the complete request.

DB<3> p $req->as_string() GET Accept: text/html


p $req->dump GET Accept: text/html (no content)

Not there either...

If you debug waaaay down into the code you'll find it in an object stored in a variable but nothing you can access externally:

LWP::Protocol::http::request(/usr/lib/perl5/site_perl/5.10.0/LWP/Proto +col/ 226: if (!$has_content || $write_wait || $has_content > 8*1024) + { DB<17> p $req_buf GET /dist/libwww%E2%88%92perl/ HTTP/1.1 TE: deflate,gzip;q=0.3 Connection: TE, close Accept: text/html Host: User-Agent: libwww-perl/6.03

The previous response about capturing the request with an echo server of some kind is the safest way to go.

Celebrate Intellectual Diversity

Replies are listed 'Best First'.
Re^2: LWP is there any way to get "real" outgoing headers?
by Anonymous Monk on May 24, 2014 at 04:15 UTC
    Thank you, yep, exactly :( I spend few hours trying various ways... I read somewhere in man long time ago - it don't give full control on outgoing headers. So that behavior predictable. But since I'm not looking to get any additional control and just want to get headers, which was already sent I hope there is some way to achieve that. So that's why I'm seeking for Perl wisdom here :)

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1087290]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2022-01-28 20:35 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (73 votes). Check out past polls.