Re^4: LWP and Digest Authentication

In my case, the realm is fixed,

What you appear to be suggesting is that I should parse the realm out of the 401 manually and then supply it back to LWP via a calback?

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Comment on Re^4: LWP and Digest Authentication

Replies are listed 'Best First'.
Re^5: LWP and Digest Authentication by ikegami (Patriarch) on Feb 11, 2009 at 03:51 UTC
No, it's available as an argument. But you shouldn't even have to look at it unless you wish to limit sending the credentials to a specific realm. `sub get_basic_credentials { my ($self, $realm, $uri, $isproxy) = @_; if ($uri->host_port() eq =~ /^(?:www\.)?example\.com:80\z/i) { return ($self->{user}, $self->{passwd}); } return $self->SUPER::get_basic_credentials($realm, $uri, $isproxy); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: LWP and Digest Authentication
by ikegami (Patriarch) on Feb 11, 2009 at 03:51 UTC

sub get_basic_credentials {
   my ($self, $realm, $uri, $isproxy) = @_;
   if ($uri->host_port() eq =~ /^(?:www\.)?example\.com:80\z/i) {
      return ($self->{user}, $self->{passwd});
   }

   return $self->SUPER::get_basic_credentials($realm, $uri, $isproxy);
}
[download]

[reply]
[d/l]