require Sesse::pr0n::Config_local;
};
- $VERSION = "v2.70";
+ $VERSION = "v2.71";
@ISA = qw(Exporter);
@EXPORT = qw(&error &dberror);
%EXPORT_TAGS = qw();
$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
my ($a, $b) = ($1, $2);
my $gcd = gcd($a, $b);
push @classic_fields, [ $a/$gcd . "/" . $b/$gcd . "s", $shutter_priority ];
- } elsif (defined($info->{'ExposureTime'}) && $info->{'ExposureTime'} =~ /^(\d+(?:\.\d+))$/) {
+ } elsif (defined($info->{'ExposureTime'}) && $info->{'ExposureTime'} =~ /^(\d+(?:\.\d+)?)$/) {
push @classic_fields, [ $1 . "s", $shutter_priority ];
}
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 ];
}