perl/perl-Apache-AuthNetLDAP
SHA256
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Apache-AuthNetLDAP?expand=0&rev=18

Browse Source
This commit is contained in:
Dirk Stoecker
2014-02-20 09:32:31 +00:00
committed by Git OBS Bridge
commit 211d85c1a8
8 changed files with 489 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
Apache-AuthNetLDAP-0.29-apache2.diff Normal file
View File

@@ -0,0 +1,108 @@
--- Apache-AuthNetLDAP-0.29/AuthNetLDAP.pm
+++ Apache-AuthNetLDAP-0.29/AuthNetLDAP.pm
@@ -4,7 +4,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use Net::LDAP;
-use mod_perl;
+use mod_perl2;
require Exporter;
@@ -19,18 +19,18 @@
# setting the constants to help identify which version of mod_perl
# is installed
-use constant MP2 => ($mod_perl::VERSION >= 1.99);
+use constant MP2 => 1;
# test for the version of mod_perl, and use the appropriate libraries
BEGIN {
if (MP2) {
- require Apache::Const;
- require Apache::Access;
- require Apache::Connection;
- require Apache::Log;
- require Apache::RequestRec;
- require Apache::RequestUtil;
- Apache::Const->import(-compile => 'HTTP_UNAUTHORIZED','OK','DECLINED');
+ require Apache2::Const;
+ require Apache2::Access;
+ require Apache2::Connection;
+ require Apache2::Log;
+ require Apache2::RequestRec;
+ require Apache2::RequestUtil;
+ Apache2::Const->import(-compile => 'HTTP_UNAUTHORIZED','OK','DECLINED');
} else {
require Apache::Constants;
Apache::Constants->import('HTTP_UNAUTHORIZED','OK','DECLINED');
@@ -72,7 +72,7 @@
if ($password eq "") {
$r->note_basic_auth_failure;
MP2 ? $r->log_error("user $user: no password supplied",$r->uri) : $r->log_reason("user $user: no password supplied",$r->uri);
- return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
+ return MP2 ? Apache2::Const::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
@@ -128,7 +128,7 @@
{
$r->note_basic_auth_failure;
MP2 ? $r->log_error("user $user: LDAP Connection Failed: $error",$r->uri) : $r->log_reason("user $user: LDAP Connection Failed: $error",$r->uri);
- return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
+ return MP2 ? Apache2::Const::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
unless ($mesg->count())
@@ -138,11 +138,11 @@
# If user is not found in ldap database, check for the next auth handler before failing
if (lc($allowaltauth) eq "yes")
{
- return MP2 ? Apache::DECLINED : Apache::Constants::DECLINED;
+ return MP2 ? Apache2::Const::DECLINED : Apache::Constants::DECLINED;
}
else
{
- return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
+ return MP2 ? Apache2::Const::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
}
@@ -156,18 +156,18 @@
$altfieldvalue =~ s/\s+$//;
if ($altfieldvalue eq $password)
{
- return MP2 ? Apache::OK : Apache::Constants::OK;
+ return MP2 ? Apache2::Const::OK : Apache::Constants::OK;
}
else
{
# If user is not found in ldap database, check for the next auth handler before failing
if (lc($allowaltauth) eq "yes")
{
- return MP2 ? Apache::DECLINED : Apache::Constants::DECLINED;
+ return MP2 ? Apache2::Const::DECLINED : Apache::Constants::DECLINED;
}
else
{
- return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
+ return MP2 ? Apache2::Const::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
}
}
@@ -180,13 +180,13 @@
{
$r->note_basic_auth_failure;
MP2 ? $r->log_error("user $user: failed bind: $error",$r->uri) : $r->log_reason("user $user: failed bind: $error",$r->uri);
- return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
+ return MP2 ? Apache2::Const::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
my $error = $mesg->code();
my $dn = $entry->dn();
# MP2 ? $r->log_error("AUTHDEBUG user $dn:$password bind: $error",$r->uri) : $r->log_reason("AUTHDEBUG user $dn:$password bind: $error",$r->uri);
- return MP2 ? Apache::OK : Apache::Constants::OK;
+ return MP2 ? Apache2::Const::OK : Apache::Constants::OK;
}
# Autoload methods go after =cut, and are processed by the autosplit program.