Init package
This commit is contained in:
misaka00251
parent
0a1a626bf0
commit
ae46b03a3f
189
perl-LDAP.spec
Normal file
189
perl-LDAP.spec
Normal file
@ -0,0 +1,189 @@
|
||||
%bcond_with perl_LDAP_enables_optional_test
|
||||
# Support XML serialization of LDAP schemata (DSML languge)
|
||||
%bcond_with perl_LDAP_enables_xml
|
||||
|
||||
Name: perl-LDAP
|
||||
Version: 0.68
|
||||
Release: 1
|
||||
Summary: LDAP Perl module
|
||||
License: GPL+ or Artistic
|
||||
URL: https://metacpan.org/release/perl-ldap
|
||||
Source0: https://cpan.metacpan.org/authors/id/M/MA/MARSCHAP/perl-ldap-%{version}.tar.gz
|
||||
# Optional tests need to know a location of an LDAP server executable
|
||||
Patch0: perl-ldap-0.65-Configure-usr-sbin-slapd-for-tests.patch
|
||||
# Remove an unreliable cancelling test
|
||||
Patch1: perl-ldap-0.66-test-Remove-a-test-for-cancelling-asynchronous-calls.patch
|
||||
# Fix resolving localhost on loopback-only machines
|
||||
Patch2: perl-ldap-0.68-Do-not-default-IO-Socket-IP-to-AI_ADDRCONFIG-flag.patch
|
||||
BuildArch: noarch
|
||||
BuildRequires: coreutils
|
||||
BuildRequires: make
|
||||
BuildRequires: perl-generators
|
||||
BuildRequires: perl-interpreter
|
||||
BuildRequires: perl(Config)
|
||||
BuildRequires: perl(inc::Module::Install)
|
||||
BuildRequires: perl(Module::Install::AutoInstall)
|
||||
BuildRequires: perl(Module::Install::Metadata)
|
||||
BuildRequires: perl(Module::Install::WriteAll)
|
||||
# Run-time:
|
||||
BuildRequires: perl(base)
|
||||
BuildRequires: perl(Carp)
|
||||
BuildRequires: perl(constant)
|
||||
BuildRequires: perl(Convert::ASN1) >= 0.2
|
||||
BuildRequires: perl(Encode)
|
||||
BuildRequires: perl(Exporter)
|
||||
BuildRequires: perl(IO::Select)
|
||||
BuildRequires: perl(IO::Socket)
|
||||
%if %{with perl_LDAP_enables_optional_test}
|
||||
BuildRequires: perl(IO::Socket::SSL) >= 1.26
|
||||
%endif
|
||||
BuildRequires: perl(Socket)
|
||||
BuildRequires: perl(strict)
|
||||
BuildRequires: perl(Text::Soundex)
|
||||
BuildRequires: perl(Time::Local)
|
||||
%if %{with perl_LDAP_enables_xml}
|
||||
BuildRequires: perl(XML::SAX::Base)
|
||||
BuildRequires: perl(XML::SAX::Writer)
|
||||
%endif
|
||||
# Tests:
|
||||
BuildRequires: perl(File::Basename)
|
||||
BuildRequires: perl(File::Compare)
|
||||
BuildRequires: perl(File::Path)
|
||||
BuildRequires: perl(File::Spec)
|
||||
BuildRequires: perl(IO::File)
|
||||
BuildRequires: perl(Test::More)
|
||||
%if %{with perl_LDAP_enables_optional_test}
|
||||
# Optional tests:
|
||||
BuildRequires: openldap-servers
|
||||
BuildRequires: perl(LWP::UserAgent)
|
||||
%endif
|
||||
Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
|
||||
Requires: perl(Authen::SASL) >= 2.00
|
||||
Requires: perl(Convert::ASN1) >= 0.2
|
||||
Requires: perl(IO::Socket::SSL) >= 1.26
|
||||
Requires: perl(JSON)
|
||||
%if %{with perl_LDAP_enables_xml}
|
||||
Suggests: perl(Net::LDAP::DSML)
|
||||
%endif
|
||||
Requires: perl(MIME::Base64)
|
||||
# Prefer core Text::Soundex
|
||||
Requires: perl(Text::Soundex)
|
||||
Requires: perl(Time::Local)
|
||||
|
||||
# Remove under-specified dependencies
|
||||
%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Net::LDAP::Filter\\)$
|
||||
%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Convert::ASN1\\)$
|
||||
|
||||
%description
|
||||
Net::LDAP is a collection of modules that implements an LDAP services API
|
||||
for Perl programs. The module may be used to search directories or perform
|
||||
maintenance functions such as adding, deleting or modifying entries.
|
||||
|
||||
%if %{with perl_LDAP_enables_xml}
|
||||
%package -n perl-Net-LDAP-DSML
|
||||
Summary: DSML Writer for Net::LDAP
|
||||
Requires: perl-LDAP = %{?epoch:%{epoch}:}%{version}-%{release}
|
||||
Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
|
||||
Requires: perl(MIME::Base64)
|
||||
Requires: perl(Net::LDAP::Schema)
|
||||
Requires: perl(XML::SAX::Writer)
|
||||
|
||||
%description -n perl-Net-LDAP-DSML
|
||||
Directory Service Markup Language (DSML) is the XML standard for representing
|
||||
directory service information in XML. At the moment this Perl module only
|
||||
writes DSML entry and schema entities. Reading DSML entities is a future
|
||||
project.
|
||||
%endif
|
||||
|
||||
%package tests
|
||||
Summary: Tests for %{name}
|
||||
Requires: coreutils
|
||||
Requires: perl-LDAP = %{?epoch:%{epoch}:}%{version}-%{release}
|
||||
Requires: perl-Test-Harness
|
||||
Requires: perl(Convert::ASN1) >= 0.2
|
||||
Requires: perl(File::Spec)
|
||||
Requires: perl(Net::LDAPI)
|
||||
Requires: perl(Text::Soundex)
|
||||
%if %{with perl_LDAP_enables_xml}
|
||||
Requires: perl(XML::SAX::Base)
|
||||
Requires: perl(XML::SAX::Writer)
|
||||
%endif
|
||||
%if %{with perl_LDAP_enables_optional_test}
|
||||
# Optional tests:
|
||||
Requires: openldap-servers
|
||||
Requires: perl(IO::Socket::SSL) >= 1.26
|
||||
Requires: perl(Net::LDAPS)
|
||||
Requires: perl(LWP::UserAgent)
|
||||
%endif
|
||||
|
||||
%description tests
|
||||
Tests from %{name}-%{version}. Execute them with "%{_libexecdir}/%{name}/test".
|
||||
|
||||
|
||||
%prep
|
||||
%setup -q -n perl-ldap-%{version}
|
||||
%patch0 -p1
|
||||
%patch1 -p1
|
||||
%patch2 -p1
|
||||
chmod -c 644 bin/* contrib/* lib/Net/LDAP/DSML.pm
|
||||
perl -pi -e 's|^#!/usr/local/bin/perl\b|#!%{__perl}|' contrib/*
|
||||
|
||||
rm -rf inc
|
||||
perl -i -ne 'print $_ unless m{^inc/}' MANIFEST
|
||||
|
||||
%if !%{with perl_LDAP_enables_xml}
|
||||
rm t/05dsml.t
|
||||
perl -i -ne 'print $_ unless m{^t/05dsml\.t}' MANIFEST
|
||||
%endif
|
||||
find -type f \! -name 'regenerate_cert.sh' -exec chmod -x {} +
|
||||
for F in t/*; do
|
||||
perl -i -MConfig -pe 's/\A#!perl\b/$Config{startperl}/' "$F"
|
||||
chmod +x "$F"
|
||||
done
|
||||
|
||||
%build
|
||||
perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 < /dev/null
|
||||
%{make_build}
|
||||
|
||||
%install
|
||||
%{make_install}
|
||||
mkdir -p %{buildroot}/%{_libexecdir}/%{name}
|
||||
cp -a data t test.cfg %{buildroot}/%{_libexecdir}/%{name}
|
||||
cat > %{buildroot}/%{_libexecdir}/%{name}/test <<'EOF'
|
||||
#!/bin/bash
|
||||
set -e
|
||||
DIR=$(mktemp -d)
|
||||
pushd "$DIR"
|
||||
cp -a %{_libexecdir}/%{name}/* ./
|
||||
prove -I .
|
||||
popd
|
||||
rm -rf "$DIR"
|
||||
EOF
|
||||
chmod +x %{buildroot}/%{_libexecdir}/%{name}/test
|
||||
%{_fixperms} %{buildroot}/*
|
||||
|
||||
%check
|
||||
make test
|
||||
|
||||
%files
|
||||
%doc Changes CREDITS
|
||||
%doc contrib/ bin/
|
||||
%{perl_vendorlib}/Bundle/
|
||||
%{perl_vendorlib}/LWP/
|
||||
%{perl_vendorlib}/Net/
|
||||
%exclude %{perl_vendorlib}/Net/LDAP/DSML.pm
|
||||
%{_mandir}/man3/*.3pm*
|
||||
%exclude %{_mandir}/man3/Net::LDAP::DSML.3pm*
|
||||
|
||||
%if %{with perl_LDAP_enables_xml}
|
||||
%files -n perl-Net-LDAP-DSML
|
||||
%{perl_vendorlib}/Net/LDAP/DSML.pm
|
||||
%{_mandir}/man3/Net::LDAP::DSML.3pm*
|
||||
%endif
|
||||
|
||||
%files tests
|
||||
%{_libexecdir}/%{name}
|
||||
|
||||
%changelog
|
||||
* Thu Jun 30 2022 misaka00251 <misaka00251@misakanet.cn> - 0.68-1
|
||||
- Init package (Thanks to fedora team)
|
||||
58
perl-ldap-0.65-Configure-usr-sbin-slapd-for-tests.patch
Normal file
58
perl-ldap-0.65-Configure-usr-sbin-slapd-for-tests.patch
Normal file
@ -0,0 +1,58 @@
|
||||
From d35a08a77306210ed95a797d5a6ed1160df84b95 Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Thu, 4 Apr 2019 17:03:01 +0200
|
||||
Subject: [PATCH] Configure /usr/sbin/slapd for tests
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
The tests need to know slapd executable file name.
|
||||
|
||||
The tests uses sssvlv overlay without loading its module. That's maybe
|
||||
for statically built openldap. However, we have a dynamically built
|
||||
server and we want to rely on a default module path because it varies
|
||||
among architectures. Thus we just uncomment loading the module.
|
||||
|
||||
Also enable SSL and IPC tests.
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
data/slapd.conf.in | 2 +-
|
||||
test.cfg | 4 ++--
|
||||
2 files changed, 3 insertions(+), 3 deletions(-)
|
||||
|
||||
diff --git a/data/slapd.conf.in b/data/slapd.conf.in
|
||||
index c6c06a3..3c7b6fb 100644
|
||||
--- a/data/slapd.conf.in
|
||||
+++ b/data/slapd.conf.in
|
||||
@@ -11,7 +11,7 @@ include $SLAPD_SCHEMA_DIR/openldap.schema
|
||||
# get required dynmaic modules
|
||||
#modulepath $SLAPD_MODULE_DIR
|
||||
#moduleload back_$SLAPD_DB
|
||||
-#moduleload sssvlv
|
||||
+moduleload sssvlv
|
||||
|
||||
# PID & args file
|
||||
pidfile $TESTDB/slapd.pid
|
||||
diff --git a/test.cfg b/test.cfg
|
||||
index 0f951f6..ea5a50c 100644
|
||||
--- a/test.cfg
|
||||
+++ b/test.cfg
|
||||
@@ -4,12 +4,12 @@
|
||||
|
||||
# Set this to the full path of your LDAP server executable
|
||||
# (e.g '/usr/sbin/slapd')
|
||||
-$SERVER_EXE = '<path to ldap server executable>';
|
||||
+$SERVER_EXE = '/usr/sbin/slapd';
|
||||
|
||||
# This should be one of
|
||||
# * openldap[+ssl][+ipc][+sasl]
|
||||
# options are appended with '+' signs
|
||||
-$SERVER_TYPE = 'openldap';
|
||||
+$SERVER_TYPE = 'openldap+ssl+ipc';
|
||||
|
||||
# Change this if your host cannot be contacted as localhost
|
||||
# Some tests may fail if the name does not resolve to an IPv4 and an IPv6 address
|
||||
--
|
||||
2.20.1
|
||||
|
||||
@ -0,0 +1,65 @@
|
||||
From 5a2388c895cfd7db5f6ca1cc4acb062dfde336bf Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Thu, 25 Apr 2019 14:23:55 +0200
|
||||
Subject: [PATCH] test: Remove a test for cancelling asynchronous calls
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
t/60cancel.t performed a racy test when it started an asynchronous query, then
|
||||
it canceled it and tested that the cancelling succeeded. However, if a server
|
||||
finished the search before the cancelling order was issued, the cancel itself
|
||||
failed because it referred an not running and thus then nonexisting query:
|
||||
|
||||
t/60cancel.t .. 1/7
|
||||
# Failed test 'cancel a running operation: 119: message ID not found'
|
||||
# at t/60cancel.t line 63.
|
||||
# This test may have failed because the server was too fast
|
||||
|
||||
The race was actually admitted in the diag message.
|
||||
|
||||
This patch removes the unreliable test to prevent from false negatives.
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
t/60cancel.t | 17 +----------------
|
||||
1 file changed, 1 insertion(+), 16 deletions(-)
|
||||
|
||||
diff --git a/t/60cancel.t b/t/60cancel.t
|
||||
index c72bfa5..8a3074c 100644
|
||||
--- a/t/60cancel.t
|
||||
+++ b/t/60cancel.t
|
||||
@@ -11,7 +11,7 @@ BEGIN { require "t/common.pl" }
|
||||
|
||||
|
||||
start_server()
|
||||
-? plan tests => 7
|
||||
+? plan tests => 6
|
||||
: plan skip_all => 'no server';
|
||||
|
||||
|
||||
@@ -47,21 +47,6 @@ SKIP: {
|
||||
# cancel the finished search => should fail
|
||||
$cancel = $ldap->cancel($search);
|
||||
ok($cancel->code, "cancel a finished operation: " . $cancel->code . ": " . $cancel->error);
|
||||
-
|
||||
- # switch to async mode
|
||||
- $ldap->async(1);
|
||||
-
|
||||
- # perform a search (asynchronously)
|
||||
- $search = $ldap->search(
|
||||
- base => $BASEDN,
|
||||
- filter => '(objectclass=*)',
|
||||
- callback => \&process_entry, # Call this sub for each entry
|
||||
- );
|
||||
-
|
||||
- # cancel the running search => should work [may fail, as it depends on the server's speed]
|
||||
- $cancel = $ldap->cancel($search);
|
||||
- ok(!$cancel->code, "cancel a running operation: " . $cancel->code . ": " . $cancel->error)
|
||||
- or diag("This test may have failed because the server was too fast");
|
||||
}
|
||||
|
||||
|
||||
--
|
||||
2.20.1
|
||||
|
||||
@ -0,0 +1,51 @@
|
||||
From 957a39309fa2f8a85a6b8a0a2c5b1751a151cb8b Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Tue, 16 Feb 2021 15:29:58 +0100
|
||||
Subject: [PATCH] Do not default IO::Socket::IP to AI_ADDRCONFIG flag
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
t/40connect.t fails if the only available network interface is
|
||||
loopback and IO::Socket::IP is installed:
|
||||
|
||||
# perl -Ilib -I. t/40connect.t
|
||||
1..3
|
||||
ok 1 - client with IPv4/IPv6 auto-selection, bound to ::1
|
||||
ldap://localhost:9009/ Name or service not known at t/common.pl line 157.
|
||||
# Looks like your test exited with 22 just after 1.
|
||||
|
||||
The reason is that IO::Socket::IP by default resolves host names with
|
||||
AI_ADDRCONFIG flag and in the particular case (no interfaces other
|
||||
than loopback) a system resolver (glibc in my case) hides both IPv4
|
||||
and IPv6 addreses of the hostname (e.g. localhost).
|
||||
|
||||
See <https://rt.cpan.org/Ticket/Display.html?id=104793> for more
|
||||
details.
|
||||
|
||||
I applied a workaround similar to one found in IO-Socket-SSL.
|
||||
I believe that other Socket implementations perl-ldap can use do not
|
||||
suffer from this problem.
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
lib/Net/LDAP.pm | 3 +++
|
||||
1 file changed, 3 insertions(+)
|
||||
|
||||
diff --git a/lib/Net/LDAP.pm b/lib/Net/LDAP.pm
|
||||
index 5dfe3e3..be11d12 100644
|
||||
--- a/lib/Net/LDAP.pm
|
||||
+++ b/lib/Net/LDAP.pm
|
||||
@@ -167,6 +167,9 @@ sub connect_ldap {
|
||||
LocalAddr => $arg->{localaddr} || undef,
|
||||
Proto => 'tcp',
|
||||
($class eq 'IO::Socket::IP' ? 'Family' : 'Domain') => $domain,
|
||||
+ # Work around IO::Socket::IP defaulting to AI_ADDRCONFIG which breaks
|
||||
+ # resolution if only a loopback interface is available. CPAN RT#104793.
|
||||
+ ($class eq 'IO::Socket::IP' and $domain ne AF_UNSPEC ? ('GetAddrInfoFlags' => 0) : ()),
|
||||
MultiHomed => $arg->{multihomed},
|
||||
Timeout => defined $arg->{timeout}
|
||||
? $arg->{timeout}
|
||||
--
|
||||
2.26.2
|
||||
|
||||
BIN
perl-ldap-0.68.tar.gz
Normal file
BIN
perl-ldap-0.68.tar.gz
Normal file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user