sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-03-08 04:58:40 +03:00
Code

r23818: support LDAP_SERVER_SEARCH_OPTIONS_OID in adssearch.

Browse Source 
Guenther
(This used to be commit 0f0200c43cdf3f7ced17e2dffdce7f4a4e8f533f)
This commit is contained in:
Günther Deschner 2007-07-10 15:14:32 +00:00 committed by Gerald (Jerry) Carter
parent f406b6677c
commit b8d696ebf0
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
examples/misc/adssearch.pl
View File

@ -77,6 +77,7 @@ my (
$opt_port,
$opt_realm,
$opt_saslmech,
$opt_search_opt,
$opt_scope,
$opt_simpleauth,
$opt_starttls,
@ -108,6 +109,7 @@ GetOptions(
'saslmech|Y=s' => \$opt_saslmech,
'schema|c' => \$opt_dump_schema,
'scope|s=s' => \$opt_scope,
'searchopt:i' => \$opt_search_opt,
'simpleauth|x' => \$opt_simpleauth,
'tls|Z' => \$opt_starttls,
'user|U=s' => \$opt_user,
@ -1464,6 +1466,21 @@ sub gen_controls {
critical => 'true',
value => $opt_display_extendeddn ? $ctl_extended_dn_val : "");
# setup search options
my $search_opt = Convert::ASN1->new;
$search_opt->prepare(
q< searchopt ::= SEQUENCE {
flags INTEGER
}
>
);
my $tmp = $search_opt->encode( flags => $opt_search_opt);
my $ctl_search_opt = Net::LDAP::Control->new(
type => $ads_controls{'LDAP_SERVER_SEARCH_OPTIONS_OID'},
critical => 'true',
value => $tmp);
# setup notify control
my $ctl_notification = Net::LDAP::Control->new(
type => $ads_controls{'LDAP_SERVER_NOTIFICATION_OID'},
@ -1506,6 +1523,11 @@ sub gen_controls {
push(@ctrls_s, "LDAP_SERVER_DOMAIN_SCOPE_OID");
}
if ($opt_search_opt) {
push(@ctrls, $ctl_search_opt);
push(@ctrls_s, "LDAP_SERVER_SEARCH_OPTIONS_OID");
}
return @ctrls;
}