ppowell has asked for the wisdom of the Perl Monks concerning the following question:
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 Philuse 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"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How do I add headers using WWW::Mechanize?
by NetWallah (Canon) on Feb 19, 2008 at 21:46 UTC | |
by ppowell (Initiate) on Feb 20, 2008 at 14:23 UTC | |
by NetWallah (Canon) on Feb 20, 2008 at 17:12 UTC | |
by ppowell (Initiate) on Feb 21, 2008 at 19:41 UTC | |
by Corion (Patriarch) on Feb 21, 2008 at 19:45 UTC |