Re^3: LWP and Digest Authentication

It applies to digest as well. I use the following in one of my programs for a site that uses digest:

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

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

credentials populates a hash which the base get_basic_credentials accesses. That's fine for most uses. If it isn't, overridding get_basic_credentials gives extra flexibility. In my case, the realm is fixed, but there's an unlimited number of subdomains being accessed.

Comment on Re^3: LWP and Digest Authentication Select or Download Code

Replies are listed 'Best First'.
Re^4: LWP and Digest Authentication by BrowserUk (Patriarch) on Feb 11, 2009 at 03:15 UTC
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."	[reply]
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]
Re^4: LWP and Digest Authentication by BrowserUk (Patriarch) on Feb 11, 2009 at 03:24 UTC
In your example, did you call `credentials()` also? 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."	[reply] [d/l]
Re^5: LWP and Digest Authentication by ikegami (Patriarch) on Feb 11, 2009 at 03:49 UTC
No. Notice I don't call the base class's `get_basic_credentials` for the domain of interest, so the info I would feed to `credentials` would never get used.	[reply] [d/l] [select]
Re^6: LWP and Digest Authentication by BrowserUk (Patriarch) on Feb 11, 2009 at 04:24 UTC
No. Notice I don't call the base class's get_basic_credentials for the domain of interest, No, but you return the user and pass from $self, so where did they get set up? 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."	[reply]
Re^7: LWP and Digest Authentication by ikegami (Patriarch) on Feb 11, 2009 at 05:12 UTC
Re^8: LWP and Digest Authentication by BrowserUk (Patriarch) on Feb 11, 2009 at 14:36 UTC
Some notes below your chosen depth have not been shown here