X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=277d699a4a768d1c2584304fe1e6eff1dd690531;hb=a45b4dbe94250612732fc8c06168b6e1cf6c6d31;hp=dc8813c2fc65d8506635586d54b82cea2a36af1f;hpb=830768cf2319c9570c9e936ecc71314427fe5086;p=pr0n diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index dc8813c..277d699 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -338,7 +338,8 @@ sub output_401 { $r->status(401); $r->headers_out->{'www-authenticate'} = 'Basic realm="pr0n.sesse.net"'; - if ($options{'DigestAuth'} // 1) { + # Digest auth is disabled for now, due to various client problems. + if (0 && ($options{'DigestAuth'} // 1)) { # We make our nonce similar to the scheme of RFC2069 section 2.1.1, # with some changes: We don't care about client IP (these have a nasty # tendency to change from request to request when load-balancing @@ -914,7 +915,7 @@ sub make_infobox { if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} ne "0") { push @classic_fields, [ $info->{'ExposureBiasValue'} . " EV", 0 ]; - } elsif (defined($info->{'ExposureCompensation'}) && $info->{'ExposureCompensation'} != 0) { + } elsif (defined($info->{'ExposureCompensation'}) && $info->{'ExposureCompensation'} ne "0") { push @classic_fields, [ $info->{'ExposureCompensation'} . " EV", 0 ]; }