view release on metacpan or  search on metacpan

AuthDBI.pm  view on Meta::CPAN

        print STDERR "$prefix return OK\n" if $Apache::AuthDBI::DEBUG > 1;
        return MP2 ? Apache2::Const::OK() : Apache::Constants::OK();
    }

    # otherwise fall through
    print STDERR "$prefix fall through, return DECLINED\n" if $Apache::AuthDBI::DEBUG > 1;
    return MP2 ? Apache2::Const::DECLINED() : Apache::Constants::DECLINED();
}


sub dec2hex($) {
    my ($dec) = @_;

    return sprintf("%lx", $dec );
}

# The PerlChildInitHandler initializes the shared memory segment (first child)
# or increments the child counter. 
# Note: this handler runs in every child server, but not in the main server.

sub childinit {