How can I see *exactly* what HTTP headers are sent when I create a UserAgent object, a Request object, and make the request using the user-agent?
e.g. in this code: >>> use strict; use LWP::UserAgent;
my $ua = new LWP::UserAgent; $ua->agent("Netscape/4.75");
my $url = 'http://www.yahoo.com/';
my $req = HTTP::Request->new('GET', $url); print "Request headers: " . $req->as_string . "\n"; my $res = $ua->request($req); >>>
the $req->as_string part doesn't show the headers that will be sent with the request. But then, how could it anyway, because there are some headers, like "User-Agent: Netscape/4.75", that would be due to properties I'd set on the UserAgent object, and the Request object would have no way of knowing about them.
From using a network sniffer, I know that when I run this code on my PC, the headers it sends out are:
GET / HTTP/1.1 TE: deflate,gzip;q=0.3 Connection: TE, close Host: www.yahoo.com User-Agent: Netscape/4.75
However, I know that when I run the script on a UNIX machine, the headers are different, because for some servers, I get different results if I run the perl script to fetch the URL, vs. telnetting to port 80 on the Web server and typing in the headers manually.
Therefore, I need a way to find out *exactly* what HTTP headers are being sent out by the perl script on the UNIX server when I run the perl script, and I don't have a network sniffer on that machine. How can I do that?
-Bennett
[EMAIL PROTECTED] http://www.peacefire.org (425) 497 9002
_______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs