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

Greetings.

Have you taken the time to read the man pages (perldoc) that comes with the module?
I actually created an online application, simply by modifying, and expanding on the examples given in the pod.

Perhaps the following will be enough to get you going: 

#!/usr/bin/perl -w

use Modern::Perl;
use strict;
use CGI qw/:standard/;
use LWP;

my $opt = ('http://');
my $url = param('url') || '';
my $product_id = ('MS-DOS/3.2');
my $agent    = LWP::UserAgent->new(agent=> $product_id);
my $ua = 'MS-DOS/3.2';
my $request  = HTTP::Request->new(HEAD => $opt.$url);
my $response = $agent->request($request);

if($url) {
&resp2;
} else {
&resp1;
}

[download]
Mind you. This is part of an online Perl script I use. So I haven't included the HTML form stuff, just the routines, and functions for the form input, and all else. But what I've omitted should be trivial for anyone even slightly familiar with form handling, and basic HTML skills. :)

Best wishes.

--Chris

¡λɐp ʇɑəɹ⅁ ɐ əʌɐɥ puɐ ʻꜱdləɥ ꜱᴉɥʇ ədoH

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:17 UTC
    Thank you, but I guess, you don't understand my question or didn't read it :(
    Yes, of course I read man.
    I omit all extra code (including generating of extra headers from code, I posted in question).
    LWP generating correct headers, which I could check using any sniffer (I posted them in my question).
    My problem is how I can catch them using LWP itself, to be able to save them in logs, since it giving me out different headers (I posted them as well).
    And unless I'm complete idiot I don't understand how your code could help me :(
[reply]
      Oh. I deffinately read the question. I also took the time to read the link you cited in your OP. The question I now have is; What's your question?

      If I understood what was being attempted here, was that you're looking to make the HTTP (0.9|1.0|1.1) HEAD request. (RFC2616 && RFC2616 HTTP-1.0)

      It also appears that you need to send a specialized UA response?

      I know I can easily prepare a complete script in response to your question, in these regards. But I grow weary of attempting to provide you a solution. Only to be told I didn't even bother to read your OP.
      Insults are not the best way to solicit help from anyone -- anywhere.

      l8r

      --Chris

      ¡λɐp ʇɑəɹ⅁ ɐ əʌɐɥ puɐ ʻꜱdləɥ ꜱᴉɥʇ ədoH

[reply]

        First - I wasn't trying to insult you. Since you answered on different question, I assumed you either didn't read my question or didn't understand it (same did 3 three others, but they later correct their reply, maybe this due my terrible English). Nothing more.

        I'll quote my original question:
        "I'm looking for a way to get "real" outgoing headers, generated by LWP (I need them for logging/debugging purpose)."
        "Real" - means headers, which LWP sent out, not which it return to me.

        > If I understood what was being attempted here, was that you're looking to make the HTTP (0.9|1.0|1.1) HEAD request. (RFC2616 && RFC2616 HTTP-1.0)

        Nope. Since you read my question, it's more than clear - my example script sending HTTP 1.1 requests.
        That's visible both from code, where I forced it to use HTTP 1.1 (and actually that was overkill, since it use it by default for over decade):
        PeerHTTPVersion => "1.1"

        And from sniffer logs:

        GET / HTTP/1.1
Host: example.com

        [download]

        I posted more detailed reply below, where you told - my question make no sense.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom