[PATCH v3 0/1] MR10609: adsldp: Add support for ADS_OPTION_REFERRALS.

[Dmitry Timoshkov (＠dmitry)]

--
  v3: adsldp: Add support for ADS_OPTION_REFERRALS.
 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10609

[PATCH v3 1/1] adsldp: Add support for ADS_OPTION_REFERRALS.

[Dmitry Timoshkov]

From: Dmitry Timoshkov <[e-mail]>

Signed-off-by: Dmitry Timoshkov <[e-mail]>
---
 dlls/adsldp/adsldp.c | 40 ++++++++++++++++++++++++++++++++++++++--
 include/iads.idl     |  8 ++++++++
 include/winldap.h    |  3 +++
 3 files changed, 49 insertions(+), 2 deletions(-)

diff --git a/dlls/adsldp/adsldp.c b/dlls/adsldp/adsldp.c
index 675ca83d03f..7b958a586a6 100644
--- a/dlls/adsldp/adsldp.c
+++ b/dlls/adsldp/adsldp.c
@@ -2280,6 +2280,20 @@ static HRESULT WINAPI options_GetOption(IADsObjectOptions *iface, LONG option, V
         return S_OK;
     }
 
+    case ADS_OPTION_REFERRALS:
+    {
+        ULONG val;
+
+        err = ldap_get_optionW(ldap->ld, LDAP_OPT_REFERRALS, &val);
+        if (err != LDAP_SUCCESS)
+            return HRESULT_FROM_WIN32(map_ldap_error(err));
+
+        V_VT(var) = VT_I4;
+        /* LDAP values are equal to ADS_CHASE_REFERRALS_ constants. */
+        V_I4(var) = val;
+        return S_OK;
+    }
+
     case ADS_OPTION_ACCUMULATIVE_MODIFICATION:
         V_VT(var) = VT_BOOL;
         V_BOOL(var) = VARIANT_FALSE;
@@ -2295,18 +2309,40 @@ static HRESULT WINAPI options_GetOption(IADsObjectOptions *iface, LONG option, V
 
 static HRESULT WINAPI options_SetOption(IADsObjectOptions *iface, LONG option, VARIANT var)
 {
-    FIXME("%p,%ld,%s: stub\n", iface, option, wine_dbgstr_variant(&var));
+    LDAP_namespace *ldap = impl_from_IADsObjectOptions(iface);
+    LONG err;
+
+    TRACE("%p,%ld,%s\n", iface, option, wine_dbgstr_variant(&var));
+
+    if (!ldap->ld) return E_NOTIMPL;
 
     switch (option)
     {
+    case ADS_OPTION_REFERRALS:
+    {
+        ULONG val;
+
+        if (V_VT(&var) != VT_I4 || (V_I4(&var) & ~ADS_CHASE_REFERRALS_ALWAYS))
+            return E_ADS_BAD_PARAMETER;
+
+        /* LDAP values are equal to ADS_CHASE_REFERRALS_ constants. */
+        val = V_I4(&var);
+        err = ldap_set_optionW(ldap->ld, LDAP_OPT_REFERRALS, &val);
+        if (err != LDAP_SUCCESS)
+            return HRESULT_FROM_WIN32(map_ldap_error(err));
+
+        return S_OK;
+    }
+
     case ADS_OPTION_ACCUMULATIVE_MODIFICATION:
         return S_OK;
 
     default:
+        FIXME("%p,%ld,%s: stub\n", iface, option, wine_dbgstr_variant(&var));
         break;
     }
 
-    return E_NOTIMPL;
+    return E_ADS_BAD_PARAMETER;
 }
 
 static const IADsObjectOptionsVtbl IADsObjectOptions_vtbl =
diff --git a/include/iads.idl b/include/iads.idl
index c6c72a28761..a6733ed1570 100644
--- a/include/iads.idl
+++ b/include/iads.idl
@@ -99,6 +99,14 @@ typedef enum
     ADS_SEARCHPREF_EXTENDED_DN
 } ADS_SEARCHPREF_ENUM;
 
+typedef enum
+{
+    ADS_CHASE_REFERRALS_NEVER,
+    ADS_CHASE_REFERRALS_SUBORDINATE = 0x20,
+    ADS_CHASE_REFERRALS_EXTERNAL    = 0x40,
+    ADS_CHASE_REFERRALS_ALWAYS      = ADS_CHASE_REFERRALS_SUBORDINATE | ADS_CHASE_REFERRALS_EXTERNAL
+} ADS_CHASE_REFERRALS_ENUM;
+
 typedef enum
 {
     ADS_STATUS_S_OK,
diff --git a/include/winldap.h b/include/winldap.h
index 4f2543a05aa..8ac6b26e6cb 100644
--- a/include/winldap.h
+++ b/include/winldap.h
@@ -164,6 +164,9 @@ typedef struct berelement
 #define LDAP_OPT_ON                     ((void *)1)
 #define LDAP_OPT_OFF                    ((void *)0)
 
+#define LDAP_CHASE_SUBORDINATE_REFERRALS 0x20
+#define LDAP_CHASE_EXTERNAL_REFERRALS    0x40
+
 #define LDAP_VERSION1   1
 #define LDAP_VERSION2   2
 #define LDAP_VERSION3   3
-- 
GitLab

https://gitlab.winehq.org/wine/wine/-/merge_requests/10609