How do I add headers using WWW::Mechanize?

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Threaded View
Consider my code snippet:

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(' ');
die "Error at \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";

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?


Re: How do I add headers using WWW::Mechanize?

You're adding header to the request, but you're printing response
headers. The server may or may not use those headers in the response,
but if it's a web server it probably won't.

By the way, those look like LDAP fields. What are you trying to do?

Joost Diepenmaat | blog: | work: /

Site Timeline