Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Sympa
Commits
68df048d
Commit
68df048d
authored
Dec 08, 2018
by
IKEDA Soji
Browse files
get rid of unused functions.
parent
b0c5977c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/lib/Sympa/DatabaseDriver/LDAP.pm
View file @
68df048d
...
...
@@ -43,7 +43,7 @@ use constant optional_parameters => [
use_tls ssl_version ssl_ciphers
ssl_cert ssl_key ca_verify ca_path ca_file)
];
use
constant
required_modules
=>
[
qw(Net::LDAP
Net::LDAP::Util
)
];
use
constant
required_modules
=>
[
qw(Net::LDAP)
];
use
constant
optional_modules
=>
[
qw(IO::Socket::SSL)
];
sub
_new
{
...
...
@@ -224,37 +224,10 @@ sub error {
return
undef
;
}
sub
canonical_dn
{
my
$self
=
shift
;
my
$dn
=
shift
;
my
$canonical
=
Net::LDAP::Util::
canonical_dn
(
$dn
);
return
undef
unless
defined
$canonical
;
# Some (e.g. Active Directory) may be fond of RFC1779 escaping.
# So we use that method (See RFC4514 2.4) as much as possible.
# N.B.: AD also allows it for LF (0A), CR (0D) and "/" (2F).
# But RFC1779 allows it for CR and RFC4514 does for neither.
$canonical
=~
s{\\(20|22|23|2B|2C|3B|3C|3D|3E|5C)}{
"\\" . (chr hex "0x$1")
}eg
;
return
$canonical
;
}
sub
escape_dn_value
{
my
$self
=
shift
;
my
$str
=
shift
;
return
Net::LDAP::Util::
escape_dn_value
(
$str
);
}
sub
escape_filter_value
{
my
$self
=
shift
;
my
$str
=
shift
;
return
Net::LDAP::Util::
escape_filter_value
(
$str
);
}
# Obsoleted. These turned out useless.
#sub canonical_dn;
#sub escape_dn_value;
#sub escape_filter_value;
1
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment