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

Edit

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

DB<3> p $req->as_string() GET http://search.cpan.org/dist/libwww%E2%88%92perl/ Accept: text/html

nope..

p $req->dump GET http://search.cpan.org/dist/libwww%E2%88%92perl/ 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/http.pm:226): 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: search.cpan.org User-Agent: lwpcooktest.pl/0.1 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 :)