Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

772 lines
17 KiB

//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992 - 1996
//
// File: cgenobj.cxx
//
// Contents: Microsoft ADs LDAP Provider Generic Object
//
//
// History: 08-30-96 yihsins Created.
//
//----------------------------------------------------------------------------
#include "ldap.hxx"
#pragma hdrstop
HRESULT
CLDAPGenObject::get_PropertyCount(
THIS_ long FAR *plCount
)
{
HRESULT hr = E_FAIL;
BSTR bstrProperty = NULL;
SAFEARRAY *psaProperty = NULL;
SAFEARRAYBOUND rgsabound[1];
long lsaDim[1];
VARIANT varProperty;
// ??? _pPropertyCache canNOT be NULL or bailed out during
// CLDAPGenObject creation already
// assert(_PropertyCache);
if (_pPropertyCache) {
hr = _pPropertyCache->get_PropertyCount((PDWORD)plCount);
}
RRETURN_EXP_IF_ERR(hr);
}
////////////////////////////////////////////////////////////////////////////
//
// - Return the "next" item (item with the current index) in cache, if any,
// in a property entry [*pVariant].
// - Return E_ADS_PROPERTY_NOT_FOUND when current index is out of bound.
//
////////////////////////////////////////////////////////////////////////////
STDMETHODIMP
CLDAPGenObject::Next(
THIS_ VARIANT FAR *pVariant
)
{
HRESULT hr = E_FAIL;
DWORD dwSyntaxId = 0;
DWORD dwNumValues = 0;
LDAPOBJECTARRAY ldapSrcObjects;
IDispatch * pDispatch = NULL;
DWORD dwNumAdsValues = 0;
DWORD dwAdsType = 0;
DWORD dwPropStatus = 0;
DWORD dwCtrlCode = 0;
if(!_pPropertyCache->index_valid())
RRETURN_EXP_IF_ERR(E_FAIL);
LDAPOBJECTARRAY_INIT(ldapSrcObjects);
hr = _pPropertyCache->unboundgetproperty(
_pPropertyCache->get_CurrentIndex(),
&dwSyntaxId,
&dwPropStatus,
&ldapSrcObjects
);
BAIL_ON_FAILURE(hr);
dwCtrlCode = MapPropCacheFlagToControlCode(dwPropStatus);
//
// translate the LDAP objects to variants
//
hr = ConvertLdapValuesToVariant(
_pPropertyCache->get_CurrentPropName(),
&ldapSrcObjects,
dwSyntaxId,
dwCtrlCode,
pVariant,
_pszLDAPServer,
&_Credentials
);
BAIL_ON_FAILURE(hr);
error:
//
// - goto next one even if error to avoid infinite looping at a property
// which we cannot convert (e.g. schemaless server property.)
// - do not return the result of Skip() as current operation does not
// depend on the sucess of Skip().
//
Skip(1);
LdapTypeFreeLdapObjects(&ldapSrcObjects);
RRETURN_EXP_IF_ERR(hr);
}
STDMETHODIMP
CLDAPGenObject::Skip(
THIS_ long cElements
)
{
HRESULT hr = S_OK;
hr = _pPropertyCache->skip_propindex(
cElements
);
RRETURN_EXP_IF_ERR(hr);
}
STDMETHODIMP
CLDAPGenObject::Reset(
)
{
_pPropertyCache->reset_propindex();
RRETURN_EXP_IF_ERR(S_OK);
}
STDMETHODIMP
CLDAPGenObject::ResetPropertyItem(THIS_ VARIANT varEntry)
{
HRESULT hr = S_OK;
DWORD dwIndex = 0;
switch (V_VT(&varEntry)) {
case VT_BSTR:
hr = _pPropertyCache->findproperty(
V_BSTR(&varEntry),
&dwIndex
);
BAIL_ON_FAILURE(hr);
break;
case VT_I4:
dwIndex = V_I4(&varEntry);
break;
case VT_I2:
dwIndex = V_I2(&varEntry);
break;
default:
hr = E_FAIL;
BAIL_ON_FAILURE(hr);
}
hr = _pPropertyCache->deleteproperty(
dwIndex
);
error:
RRETURN_EXP_IF_ERR(hr);
}
//////////////////////////////////////////////////////////////////////////
//
// Retrieve property [bstrName] from the cache (only, no wire calls) as
// a PropertyEntry.
//
// [*pVariant]
// - store ptr to IDispatch of the PropertyEntry.
//
// If the property in cache has control code = ADS_PROPERTY_DELETE,
// - PropertyEntry will contain an empty variant and
// - adstype = ADSTYPE_INVALID.
//
// If property in cache has UNKNWON type, (not deleted, for schemaless-server
// property which is not in ADSI default schema)
// - [lnAdsType] must be a valid type (NO ADSTYPE_UNKNWON/INVALID)
// - property will be retrieved as [lnADsType]
//
// If property in cache has KNOWN type,
// - [lnADsType] must either match type in cache or == ADSTYPE_UNKNOWN
// - property will be retreived as the type in cache.
//
/////////////////////////////////////////////////////////////////////////////
STDMETHODIMP
CLDAPGenObject::GetPropertyItem(
THIS_
IN BSTR bstrName,
IN LONG lnADsType,
IN OUT VARIANT * pVariant
)
{
HRESULT hr = S_OK;
DWORD dwCachedSyntax = LDAPTYPE_UNKNOWN;
DWORD dwUserSyntax = LDAPTYPE_UNKNOWN;
DWORD dwSyntaxUsed = LDAPTYPE_UNKNOWN; // extra, make code easier to read
DWORD dwPropStatus = 0;
DWORD dwCtrlCode = 0;
LDAPOBJECTARRAY ldapSrcObjects;
LDAPOBJECTARRAY ldapSrc2Objects;
LDAPOBJECTARRAY * pLdapSrcObjects = NULL;
LDAPOBJECTARRAY_INIT(ldapSrcObjects);
LDAPOBJECTARRAY_INIT(ldapSrc2Objects);
if (!bstrName || !pVariant)
RRETURN(E_ADS_BAD_PARAMETER);
//
// retrieve property from cache; CONTINUE if property exist but
// has no value (control code flag as a DELETE)
//
hr = _pPropertyCache->unboundgetproperty(
bstrName,
&dwCachedSyntax,
&dwPropStatus,
&ldapSrcObjects
);
BAIL_ON_FAILURE(hr);
// For backward compatibility -- no issue as you
// need to return a value even if it is delete.
//
// map adstype from client to ldap type;
//
dwUserSyntax = MapADSTypeToLDAPType((ADSTYPE)lnADsType);
//
// determine the syntax to retrieve property in
//
if ( (dwCachedSyntax == LDAPTYPE_UNKNOWN)
||
(dwCachedSyntax == 0) // should NOT be 0, but misuse of 0 everywhere
) // and in case i didn't clean up all
{
//
// syntax not stored in cache, user must spcify a valid sytax
// Exception: cleared property values have LDAPTYPE_UNKNOWN, and we
// return them as ADSTYPE_UNKNOWN
//
if ((dwUserSyntax == LDAPTYPE_UNKNOWN) && (dwPropStatus != PROPERTY_DELETE))
{
hr = E_ADS_CANT_CONVERT_DATATYPE;
BAIL_ON_FAILURE(hr);
}
dwSyntaxUsed = dwUserSyntax;
//
// convert from cached data from ldap binary format to ldap string
// IFF necessary based on dwUserSyntax
//
hr = LdapTypeBinaryToString(
dwSyntaxUsed,
&ldapSrcObjects,
&ldapSrc2Objects
);
//
// dwSyntaxUsed (dwUserSyntax) must be valid from
// MapADSTypeToLDAPType() or code bug in MapADsTypeToLDAPType() !!
//
ADsAssert(SUCCEEDED(hr));
if (hr==S_OK)
{
pLdapSrcObjects = &ldapSrc2Objects; // conversion done
}
else // hr == S_FALSE
{
pLdapSrcObjects = &ldapSrcObjects; // no conversion
}
}
else // dwCachedSyntax known and valid
{
//
// syntax stored in cache, user MUST either specify
// 1) ADSTYPE_UNKNWON or
// 2) a syntax which matches the one in cache. The comparision must
// be done in ADsType, not LdapType, since LdapType To ADSType
// is n to 1 mapping and as long as ADsType match, ok.
//
if ( ! (
(dwUserSyntax == LDAPTYPE_UNKNOWN)
||
( (ADSTYPE) lnADsType == MapLDAPTypeToADSType(dwCachedSyntax))
)
)
{
if (dwUserSyntax != dwCachedSyntax) {
//
// Check if the user wants the data back for the
// security descriptor as an octet or vice versa
//
if ( (dwUserSyntax == LDAPTYPE_OCTETSTRING
&& dwCachedSyntax == LDAPTYPE_SECURITY_DESCRIPTOR)
||(dwUserSyntax == LDAPTYPE_SECURITY_DESCRIPTOR
&& dwCachedSyntax == LDAPTYPE_OCTETSTRING))
{
dwCachedSyntax = dwUserSyntax;
} else {
//
// Check for UTC/GenTime mismatch before ret error.
//
if (!((dwCachedSyntax == LDAPTYPE_GENERALIZEDTIME)
&& (dwUserSyntax == LDAPTYPE_UTCTIME))) {
hr = E_ADS_CANT_CONVERT_DATATYPE;
BAIL_ON_FAILURE(hr);
}
}
} // if dwUserSyntax != dwCachedSyntax
}
dwSyntaxUsed = dwCachedSyntax;
pLdapSrcObjects = &ldapSrcObjects; // no conversion needed
}
//
// translate ldap prop status to ads control code
//
dwCtrlCode = MapPropCacheFlagToControlCode(dwPropStatus);
//
// translate the property from Ldap objects to a PropertyEntry
//
hr = ConvertLdapValuesToVariant(
bstrName,
pLdapSrcObjects,
dwSyntaxUsed,
dwCtrlCode,
pVariant,
_pszLDAPServer,
&_Credentials
);
error:
LdapTypeFreeLdapObjects( &ldapSrcObjects );
LdapTypeFreeLdapObjects( &ldapSrc2Objects );
RRETURN_EXP_IF_ERR(hr);
}
STDMETHODIMP
CLDAPGenObject::PutPropertyItem(
THIS_ VARIANT varData
)
{
HRESULT hr = S_OK;
DWORD dwFlags = 0;
DWORD dwIndex = 0;
DWORD dwControlCode = 0;
LDAPOBJECTARRAY ldapDestObjects;
WCHAR szPropertyName[MAX_PATH];
DWORD dwSyntaxId = 0;
LDAPOBJECTARRAY_INIT(ldapDestObjects);
hr = ConvertVariantToLdapValues(
varData,
szPropertyName,
&dwControlCode,
&ldapDestObjects,
&dwSyntaxId,
_pszLDAPServer,
&_Credentials,
_dwPort
);
BAIL_ON_FAILURE(hr);
switch ( dwControlCode ) {
case 0 :
//
// Users better know what they are doing here,
// This the property as cleared so we do not send it
// on the wire on th next SetInfo.
//
dwFlags = PROPERTY_INIT;
break;
case ADS_PROPERTY_CLEAR:
//
// Clears an entire property
//
dwFlags = PROPERTY_DELETE;
break;
case ADS_PROPERTY_UPDATE:
//
// Updates the entire property
//
dwFlags = PROPERTY_UPDATE;
break;
case ADS_PROPERTY_APPEND:
//
// Appends a set of values to the property
//
dwFlags = PROPERTY_ADD;
break;
case ADS_PROPERTY_DELETE:
//
// Delete a value(s) from the property
dwFlags = PROPERTY_DELETE_VALUE;
break;
default:
BAIL_ON_FAILURE(hr = E_ADS_BAD_PARAMETER);
}
//
// Find this property in the cache
//
hr = _pPropertyCache->findproperty(
szPropertyName,
&dwIndex
);
//
// If this property does not exist in the
// cache, add this property into the cache.
//
if (FAILED(hr)) {
hr = _pPropertyCache->addproperty( szPropertyName );
//
// If dwNumValues == 0 ( delete the property ) but couldn't find
// the property, or if the add operation fails, return the error.
//
BAIL_ON_FAILURE(hr);
}
//
// Now update the property in the cache
//
hr = _pPropertyCache->putproperty(
szPropertyName,
dwFlags,
dwSyntaxId,
ldapDestObjects
);
BAIL_ON_FAILURE(hr);
error:
LdapTypeFreeLdapObjects( &ldapDestObjects );
RRETURN_EXP_IF_ERR(hr);
}
HRESULT
CreatePropEntry(
LPWSTR szPropName,
DWORD ADsType,
DWORD numValues,
DWORD dwOperation,
VARIANT varData,
REFIID riid,
LPVOID * ppDispatch
)
{
HRESULT hr = S_OK;
IADsPropertyEntry * pPropEntry = NULL;
hr = CoCreateInstance(
CLSID_PropertyEntry,
NULL,
CLSCTX_INPROC_SERVER,
IID_IADsPropertyEntry,
(void **)&pPropEntry
);
BAIL_ON_FAILURE(hr);
hr = pPropEntry->put_Name(szPropName);
BAIL_ON_FAILURE(hr);
hr = pPropEntry->put_ADsType(ADsType);
BAIL_ON_FAILURE(hr);
hr = pPropEntry->put_Values(varData);
BAIL_ON_FAILURE(hr);
if (dwOperation) {
hr = pPropEntry->put_ControlCode((long)dwOperation);
}
BAIL_ON_FAILURE(hr);
hr = pPropEntry->QueryInterface(
riid,
ppDispatch
);
BAIL_ON_FAILURE(hr);
error:
if (pPropEntry) {
pPropEntry->Release();
}
RRETURN(hr);
}
STDMETHODIMP
CLDAPGenObject::Item(
THIS_ VARIANT varIndex,
VARIANT * pVariant
)
{
HRESULT hr = S_OK;
DWORD dwSyntaxId;
LDAPOBJECTARRAY ldapSrcObjects;
PADSVALUE pAdsValues = NULL;
DWORD dwNumAdsValues = 0;
DWORD dwAdsType = 0;
DWORD dwNumValues = 0;
LPWSTR szPropName = NULL;
DWORD dwPropStatus = 0;
DWORD dwCtrlCode = (DWORD) -1;
VARIANT * pvVar = &varIndex;
LDAPOBJECTARRAY_INIT(ldapSrcObjects);
//
// retrieve data object from cache; if one exis
//
// If the object has been deleted (and is in the cache
// marked for deletion), we return
// the item with DELETE ctrl code in all
// the cases below. This is consistent with GetPropertyItem's
// behavior as well.
if (V_VT(pvVar) == (VT_BYREF|VT_VARIANT)) {
//
// The value is being passed in byref so we need to
// deref it for vbs stuff to work
//
pvVar = V_VARIANTREF(&varIndex);
}
switch (V_VT(pvVar)) {
case VT_BSTR:
//
// retrieve data object from cache; if one exists
//
hr = _pPropertyCache->unboundgetproperty(
V_BSTR(pvVar),
&dwSyntaxId,
&dwPropStatus,
&ldapSrcObjects
);
BAIL_ON_FAILURE(hr);
dwCtrlCode = MapPropCacheFlagToControlCode(dwPropStatus);
hr = ConvertLdapValuesToVariant(
V_BSTR(pvVar),
&ldapSrcObjects,
dwSyntaxId,
dwCtrlCode,
pVariant,
_pszLDAPServer,
&_Credentials
);
BAIL_ON_FAILURE(hr);
break;
case VT_I4:
hr = _pPropertyCache->unboundgetproperty(
(DWORD)V_I4(pvVar),
&dwSyntaxId,
&dwPropStatus,
&ldapSrcObjects
);
BAIL_ON_FAILURE(hr);
szPropName = _pPropertyCache->get_PropName(
(DWORD)V_I4(pvVar)
);
dwCtrlCode = MapPropCacheFlagToControlCode(dwPropStatus);
hr = ConvertLdapValuesToVariant(
szPropName,
&ldapSrcObjects,
dwSyntaxId,
dwCtrlCode,
pVariant,
_pszLDAPServer,
&_Credentials
);
BAIL_ON_FAILURE(hr);
break;
case VT_I2:
hr = _pPropertyCache->unboundgetproperty(
(DWORD)V_I2(pvVar),
&dwSyntaxId,
&dwPropStatus,
&ldapSrcObjects
);
BAIL_ON_FAILURE(hr);
szPropName = _pPropertyCache->get_PropName(
(DWORD)V_I2(pvVar)
);
dwCtrlCode = MapPropCacheFlagToControlCode(dwPropStatus);
hr = ConvertLdapValuesToVariant(
szPropName,
&ldapSrcObjects,
dwSyntaxId,
dwCtrlCode,
pVariant,
_pszLDAPServer,
&_Credentials
);
BAIL_ON_FAILURE(hr);
break;
default:
hr = E_FAIL;
BAIL_ON_FAILURE(hr);
}
//
// translate the Ldap objects to variants
//
error:
LdapTypeFreeLdapObjects( &ldapSrcObjects );
RRETURN_EXP_IF_ERR(hr);
}
STDMETHODIMP
CLDAPGenObject::PurgePropertyList()
{
_pPropertyCache->flushpropertycache();
RRETURN(S_OK);
}
DWORD
MapPropCacheFlagToControlCode(
DWORD dwPropStatus
)
{
DWORD dwADsCtrlCode = (DWORD) -1;
switch (dwPropStatus) {
case PROPERTY_INIT:
//
// 0 is not defined as any of the ADS_PROPERTY_ flags
// use it to indicate that property is in init state
//
dwADsCtrlCode = 0;
break;
case PROPERTY_UPDATE:
dwADsCtrlCode = ADS_PROPERTY_UPDATE;
break;
case PROPERTY_ADD:
dwADsCtrlCode = ADS_PROPERTY_APPEND;
break;
case PROPERTY_DELETE:
dwADsCtrlCode = ADS_PROPERTY_CLEAR;
break;
case PROPERTY_DELETE_VALUE:
dwADsCtrlCode = ADS_PROPERTY_DELETE;
break;
default:
// set to speical value to indicate unknow code
dwADsCtrlCode = (DWORD) -1;
break;
}
return dwADsCtrlCode;
}