Phil Powell
2008-02-19 21:09:48 UTC
Consider my code snippet:
<code>
use strict;
use warnings;
use HTTP::Cookies;
use WWW::Mechanize;
use LWP::Debug qw(+);
my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');
$mech->cookie_jar(HTTP::Cookies->new(autosave => 1));
$mech->add_header('UID' => 'phil', 'cn' => 'CN', 'id' => '777');
my $response = $mech->get('https://www.example.com');
die "Error at https://www.example.com\n", $response->status_line, "\n
Aborting" unless $response->is_success;
$response = $mech->response;
for my $key ($response->header_field_names()) {
print "response[$key] = ", $response->header($key), "\n";
}
</code>
I am trying to add new headers into the HTTP headers and yet I do not
see 'UID' nor 'cn' nor 'id' whenever I list all of the returned
headers even though I added them. What might I be doing wrong, and
thus, how can I fix it so that these three addtitional fields are
added to the HTTP headers?
Thanks
Phil
<code>
use strict;
use warnings;
use HTTP::Cookies;
use WWW::Mechanize;
use LWP::Debug qw(+);
my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');
$mech->cookie_jar(HTTP::Cookies->new(autosave => 1));
$mech->add_header('UID' => 'phil', 'cn' => 'CN', 'id' => '777');
my $response = $mech->get('https://www.example.com');
die "Error at https://www.example.com\n", $response->status_line, "\n
Aborting" unless $response->is_success;
$response = $mech->response;
for my $key ($response->header_field_names()) {
print "response[$key] = ", $response->header($key), "\n";
}
</code>
I am trying to add new headers into the HTTP headers and yet I do not
see 'UID' nor 'cn' nor 'id' whenever I list all of the returned
headers even though I added them. What might I be doing wrong, and
thus, how can I fix it so that these three addtitional fields are
added to the HTTP headers?
Thanks
Phil