Skip Menu |
 

This queue is for tickets about the libwww-perl CPAN distribution.

Report information
The Basics
Id: 43354
Status: open
Priority: 0/
Queue: libwww-perl

People
Owner: Nobody in particular
Requestors: mijkenator [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: 6.08



Subject: Error in Authentication Digest Implementation()
Download (untitled) / with headers
text/plain 530b
LWP send auth request Proxy-Authorization: Digest ....... nc="00000001", ..... but RFC 2617 required for attribute nc following syntax: nonce-count = "nc" "=" nc-value nc-value = 8LHEX (unquoted-string) error in LWP::Authen::Digest : for (@order) { next unless defined $resp{$_}; push(@pairs, "$_=" . qq("$resp{$_}")) } change it to for (@order) { next unless defined $resp{$_}; if($_ eq 'nc'){ push(@pairs, "$_=" .qq($resp{$_})) }else{ push(@pairs, "$_=" . qq("$resp{$_}")) } }
From: chiborator [...] gmail.com
Download (untitled) / with headers
text/plain 557b
Hi, the bug is still present in the current version of the library - 6.02. It effectively prevents GET requests to resources protected with Digest authentication using LWP::UserAgent. A possible fix is: (the diff is for libwww 5.837) LWP/Authen/Digest.pm @@ -58,7 +58,7 @@ my @pairs; for (@order) { next unless defined $resp{$_}; - push(@pairs, "$_=" . qq("$resp{$_}")); + push(@pairs, "$_=" . ($_ eq 'nc' ? $resp{$_} : qq("$resp{$_}"))); } my $auth_value = "Digest " . join(", ", @pairs); Thank you for the efforts! Stoian
Download (untitled) / with headers
text/plain 690b
On Fri May 20 07:28:17 2011, chiborator wrote: Show quoted text
> Hi, > the bug is still present in the current version of the library - 6.02. > It effectively prevents GET requests to resources protected with Digest > authentication using LWP::UserAgent. > > A possible fix is: > (the diff is for libwww 5.837) > > LWP/Authen/Digest.pm > > @@ -58,7 +58,7 @@ > my @pairs; > for (@order) { > next unless defined $resp{$_}; > - push(@pairs, "$_=" . qq("$resp{$_}")); > + push(@pairs, "$_=" . ($_ eq 'nc' ? $resp{$_} : qq("$resp{$_}"))); > } > > my $auth_value = "Digest " . join(", ", @pairs); > > > > Thank you for the efforts! > > Stoian
Hi, The bug is fixed in LWP 6.08


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.