r23818: support LDAP_SERVER_SEARCH_OPTIONS_OID in adssearch.

Guenther
(This used to be commit 0f0200c43cdf3f7ced17e2dffdce7f4a4e8f533f)

diff --git a/examples/misc/adssearch.pl b/examples/misc/adssearch.pl
index bf9f75f8997cc8c11a6e81aaf4bac4e4e71ea6b2..b880366c88208c219f6255e8a94c2d4578d060f0 100755 (executable)
--- a/examples/misc/adssearch.pl
+++ b/examples/misc/adssearch.pl
@@ -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;
 }