Leaked source code of windows server 2003
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.
 
 
 
 
 
 

1022 lines
23 KiB

/* ----------------------------------------------------------------------
Module: ULS.DLL (Service Provider)
File: splmtg.cpp
Content: This file contains the local meeting object.
History:
10/15/96 Chu, Lon-Chan [lonchanc]
Created.
Copyright (c) Microsoft Corporation 1996-1997
---------------------------------------------------------------------- */
#include "ulsp.h"
#include "spinc.h"
#ifdef ENABLE_MEETING_PLACE
// Array of constant strings for user object's attribute names
//
const TCHAR *c_apszMtgStdAttrNames[COUNT_ENUM_MTGATTR] =
{
TEXT ("CN"), // Meeting ID
TEXT ("ConfType"), // Meeting Type
TEXT ("ConfMemberType"), // Attendee Type
TEXT ("ConfDesc"), // Description
TEXT ("ConfHostName"), // Host Name
TEXT ("ConfHostAddress"), // IP Address
TEXT ("ConfMemberList"), // Members
TEXT ("ssecurity"),
TEXT ("sttl"),
TEXT ("objectClass"),
TEXT ("o"),
TEXT ("c"),
};
const TCHAR c_szMtgDefC[] = TEXT ("us");
/* ---------- public methods ----------- */
SP_CMeeting::
SP_CMeeting ( DWORD dwContext )
:
m_cRefs (0), // Reference count
m_uSignature (MTGOBJ_SIGNATURE), // Mtg object's signature
m_pszMtgName (NULL), // Clean the meeting name
m_pszDN (NULL), // Clean DN
m_pszRefreshFilter (NULL), // Clean up the refresh search filter
m_dwIPAddress (0), // Clean local IP address
m_uTTL (ILS_DEF_REFRESH_MINUTE) // Reset time to live value (min)
{
m_dwContext = dwContext;
// Clean up attached server info structure
//
::ZeroMemory (&m_ServerInfo, sizeof (m_ServerInfo));
// Clean up the scratch buffer for caching pointers to attribute values
//
::ZeroMemory (&m_MtgInfo, sizeof (m_MtgInfo));
// Indicate this user is not registered yet
//
SetRegNone ();
}
SP_CMeeting::
~SP_CMeeting ( VOID )
{
// Invalidate the user object's signature
//
m_uSignature = (ULONG) -1;
// Free server info structure
//
::IlsFreeServerInfo (&m_ServerInfo);
// Free meeting name
//
MemFree (m_pszMtgName);
// Free DN
//
MemFree (m_pszDN);
// Free the refresh search filter
//
MemFree (m_pszRefreshFilter);
// Release the previous prefix for extended attribute names
//
::IlsReleaseAnyAttrsPrefix (&(m_MtgInfo.AnyAttrs));
}
ULONG
SP_CMeeting::
AddRef ( VOID )
{
::InterlockedIncrement (&m_cRefs);
return m_cRefs;
}
ULONG
SP_CMeeting::
Release ( VOID )
{
MyAssert (m_cRefs != 0);
::InterlockedDecrement (&m_cRefs);
ULONG cRefs = m_cRefs;
if (cRefs == 0)
delete this;
return cRefs;
}
HRESULT SP_CMeeting::
Register (
ULONG uRespID,
SERVER_INFO *pServerInfo,
LDAP_MEETINFO *pInfo )
{
MyAssert (pInfo != NULL);
MyAssert (MyIsGoodString (pServerInfo->pszServerName));
// Cache the server info
//
HRESULT hr = ::IlsCopyServerInfo (&m_ServerInfo, pServerInfo);
if (hr != S_OK)
return hr;
// Cache the meeting info
// lonchanc: CacheInfo() is not a method in the meeting object
// because we pass in meeting name in SetMeetingInfo()
// rather than meeting object handle.
//
hr = ::MtgCacheInfo (pInfo, &m_MtgInfo);
if (hr != S_OK)
return hr;
// If the application sets an IP address,
// then we will use what the app provides,
// otherwise, we will get the IP address via winsock.
//
if (pInfo->uOffsetHostIPAddress == INVALID_OFFSET)
{
// Get local IP address
//
m_dwIPAddress = 0;
hr = ::GetLocalIPAddress (&m_dwIPAddress);
if (hr != S_OK)
return hr;
// Create IP address string
//
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_IP_ADDRESS] = &m_MtgInfo.szIPAddress[0];
::GetLongString (m_dwIPAddress, &m_MtgInfo.szIPAddress[0]);
}
// Create client signature string
//
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_CLIENT_SIG] = &m_MtgInfo.szClientSig[0];
::GetLongString (g_dwClientSig, &m_MtgInfo.szClientSig[0]);
// Create TTL string
//
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_TTL] = &m_MtgInfo.szTTL[0];
::GetLongString (m_uTTL, &m_MtgInfo.szTTL[0]);
// Ideally, o= and c= should be read in from registiry
// but for now, we simply hard code it
//
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_OBJECT_CLASS] = (TCHAR *) &c_szRTConf[0];
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_O] = (TCHAR *) &c_szDefO[0];
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_C] = (TCHAR *) &c_szMtgDefC[0];
// Duplicate the mtg name
//
m_pszMtgName = My_strdup (m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_CN]);
if (m_pszMtgName == NULL)
return ILS_E_MEMORY;
// Build DN
//
m_pszDN = ::IlsBuildDN (m_ServerInfo.pszBaseDN,
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_C],
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_O],
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_CN],
m_MtgInfo.apszStdAttrValues[ENUM_MTGATTR_OBJECT_CLASS]);
if (m_pszDN == NULL)
return ILS_E_MEMORY;
// Build refreh filter
//
m_pszRefreshFilter = ::MtgCreateRefreshFilter (m_pszMtgName);
if (m_pszRefreshFilter == NULL)
return ILS_E_MEMORY;
// Build modify array for ldap_add()
//
LDAPMod **ppMod = NULL;
hr = CreateRegModArr (&ppMod);
if (hr != S_OK)
return hr;
MyAssert (ppMod != NULL);
// so far, we are done with local preparation
//
// Get the connection object
//
SP_CSession *pSession = NULL;
LDAP *ld;
ULONG uMsgID = (ULONG) -1;
hr = g_pSessionContainer->GetSession (&pSession, &m_ServerInfo);
if (hr == S_OK)
{
MyAssert (pSession != NULL);
// Get the ldap session
//
ld = pSession->GetLd ();
MyAssert (ld != NULL);
// Send the data over the wire
//
uMsgID = ldap_add (ld, m_pszDN, ppMod);
if (uMsgID == -1)
{
hr = ::LdapError2Hresult (ld->ld_errno);
}
}
// Free modify array
//
MemFree (ppMod);
// Report failure if so
//
if (hr != S_OK)
goto MyExit;
// Construct a pending info
//
RESP_INFO ri;
::FillDefRespInfo (&ri, uRespID, ld, uMsgID, INVALID_MSG_ID);
ri.uNotifyMsg = WM_ILS_REGISTER_MEETING;
ri.hObject = (HANDLE) this;
// Remember the pending result
//
hr = g_pRespQueue->EnterRequest (pSession, &ri);
if (hr != S_OK)
{
MyAssert (FALSE);
goto MyExit;
}
MyExit:
if (hr != S_OK)
{
if (uMsgID != (ULONG) -1)
::ldap_abandon (ld, uMsgID);
if (pSession != NULL)
pSession->Disconnect ();
}
return hr;
}
HRESULT SP_CMeeting::
UnRegister ( ULONG uRespID )
{
MyAssert (MyIsGoodString (m_pszDN));
// Make sure that there is not refresh scheduled for this object
//
if (g_pRefreshScheduler != NULL)
{
g_pRefreshScheduler->RemoveMtgObject (this);
}
else
{
MyAssert (FALSE);
}
// If it is not registered on the server,
// the simply report success
//
if (! IsRegRemotely ())
{
SetRegNone ();
::PostMessage (g_hWndNotify, WM_ILS_UNREGISTER_MEETING, uRespID, S_OK);
return S_OK;
}
// Indicate that we are not registered at all
//
SetRegNone ();
// Get the session object
//
SP_CSession *pSession = NULL;
LDAP *ld;
ULONG uMsgID = (ULONG) -1;
HRESULT hr = g_pSessionContainer->GetSession (&pSession, &m_ServerInfo);
if (hr == S_OK)
{
// Get the ldap session
//
MyAssert (pSession != NULL);
ld = pSession->GetLd ();
MyAssert (ld != NULL);
// Send the data over the wire
//
MyAssert (MyIsGoodString (m_pszDN));
uMsgID = ::ldap_delete (ld, m_pszDN);
if (uMsgID == -1)
{
hr = ::LdapError2Hresult (ld->ld_errno);
}
}
// Report failure if so
//
if (hr != S_OK)
goto MyExit;
// Construct a pending info
//
RESP_INFO ri;
::FillDefRespInfo (&ri, uRespID, ld, uMsgID, INVALID_MSG_ID);
ri.uNotifyMsg = WM_ILS_UNREGISTER_MEETING;
// Remember the pending request
//
hr = g_pRespQueue->EnterRequest (pSession, &ri);
if (hr != S_OK)
{
MyAssert (FALSE);
goto MyExit;
}
MyExit:
if (hr != S_OK)
{
if (uMsgID != (ULONG) -1)
::ldap_abandon (ld, uMsgID);
if (pSession != NULL)
pSession->Disconnect ();
}
return hr;
}
HRESULT SP_CMeeting::
UpdateIPAddress ( VOID )
{
MyAssert (MyIsGoodString (m_pszDN));
// Update cached ip address
//
HRESULT hr = ::GetLocalIPAddress (&m_dwIPAddress);
if (hr != S_OK)
return hr;
// Update the ip address string
//
::GetLongString (m_dwIPAddress, &m_MtgInfo.szIPAddress[0]);
// Update IP address in the server
//
return ::IlsUpdateIPAddress ( &m_ServerInfo,
m_pszDN,
STR_MTG_IP_ADDR,
&m_MtgInfo.szIPAddress[0],
ISBU_MODOP_MODIFY_USER,
MtgGetPrefixCount (),
MtgGetPrefixString ());
}
/* ---------- protected methods ----------- */
HRESULT SP_CMeeting::
SendRefreshMsg ( VOID )
{
MyAssert (m_pszRefreshFilter != NULL);
// Get local IP address
//
DWORD dwIPAddress = 0;
HRESULT hr = ::GetLocalIPAddress (&dwIPAddress);
if (hr != S_OK)
{
MyDebugMsg ((ZONE_KA, "KA(Mtg): cannot get my ip address\r\n"));
// Indicate that I am not connected to the server anymore
//
SetRegLocally ();
// Second, notify this app of the network being down
//
::PostMessage (g_hWndNotify, WM_ILS_MEETING_NETWORK_DOWN,
(WPARAM) this, (LPARAM) m_dwContext);
// Report error
//
return ILS_E_NETWORK_DOWN;
}
// If dwIPAddress is 0, then we are not on the network any more
// start relogon process
//
if (dwIPAddress == 0)
{
MyDebugMsg ((ZONE_KA, "KA(Mtg): ip-addr=0, network down.\r\n"));
// Indicate that I am not connected to the server anymore
//
SetRegLocally ();
// Second, notify this app of the network being down
//
::PostMessage (g_hWndNotify, WM_ILS_MEETING_NETWORK_DOWN,
(WPARAM) this, (LPARAM) m_dwContext);
// Report error
//
return ILS_E_NETWORK_DOWN;
}
else
// If dwIPAddress and m_dwIPAddress, alert
//
if (dwIPAddress != m_dwIPAddress)
{
UpdateIPAddress ();
}
// Send a refresh message to the server and parse the new TTL value
//
hr = ::IlsSendRefreshMsg ( &m_ServerInfo,
STR_DEF_MTG_BASE_DN,
STR_MTG_TTL,
m_pszRefreshFilter,
&m_uTTL);
if (hr == ILS_E_NEED_RELOGON)
{
SetRegLocally ();
::PostMessage (g_hWndNotify, WM_ILS_MEETING_NEED_RELOGON,
(WPARAM) this, (LPARAM) m_dwContext);
}
else
if (hr == ILS_E_NETWORK_DOWN)
{
SetRegLocally ();
::PostMessage (g_hWndNotify, WM_ILS_MEETING_NETWORK_DOWN,
(WPARAM) this, (LPARAM) m_dwContext);
}
return hr;
}
/* ---------- private methods ----------- */
HRESULT SP_CMeeting::
CreateRegModArr ( LDAPMod ***pppMod )
{
MyAssert (pppMod != NULL);
// Calculate the modify array size
//
ULONG cStdAttrs = COUNT_ENUM_MTGATTR;
ULONG cAnyAttrs = m_MtgInfo.AnyAttrs.cAttrsToAdd;
ULONG cTotal = cStdAttrs + cAnyAttrs;
ULONG cbMod = ::IlsCalcModifyListSize (cTotal);
// Allocate modify list
//
*pppMod = (LDAPMod **) MemAlloc (cbMod);
if (*pppMod == NULL)
return ILS_E_MEMORY;
// Lay out the modify array
//
LDAPMod **apMod = *pppMod;
LDAPMod *pMod;
TCHAR *pszName, *pszValue;
pszName = m_MtgInfo.AnyAttrs.pszAttrsToAdd;
for (ULONG i = 0; i < cTotal; i++)
{
pMod = ::IlsGetModifyListMod (pppMod, cTotal, i);
pMod->mod_op = LDAP_MOD_ADD;
apMod[i] = pMod;
if (i < cStdAttrs)
{
// Put standard attributes
//
::MtgFillModArrAttr (pMod, &m_MtgInfo, i);
}
else
{
// Put extended attributes
//
pszValue = pszName + lstrlen (pszName) + 1;
::IlsFillModifyListItem (pMod, pszName, pszValue);
pszName = pszValue + lstrlen (pszValue) + 1;
}
}
// Put null to terminate modify list
//
apMod[cTotal] = NULL;
return S_OK;
}
/* ---------- helper functions ----------- */
HRESULT
MtgSetAttrs (
SERVER_INFO *pServerInfo,
TCHAR *pszMtgName,
LDAP_MEETINFO *pInfo,
ULONG uRespID )
{
MyAssert (pServerInfo != NULL);
MyAssert (MyIsGoodString (pszMtgName));
MyAssert (pInfo != NULL);
// Cannot change lMeetingPlaceType, lAttendeeType, and MeetingID
//
if (pInfo->lMeetingPlaceType != INVALID_MEETING_TYPE ||
pInfo->lAttendeeType != INVALID_ATTENDEE_TYPE ||
pInfo->uOffsetMeetingPlaceID != INVALID_OFFSET)
{
return ILS_E_PARAMETER;
}
// Initialize locals
//
TCHAR *pszDN = NULL;
LDAPMod **ppMod = NULL;
SP_CSession *pSession = NULL;
ULONG uMsgID = (ULONG) -1;
MTG_INFO MtgInfo;
ZeroMemory (&MtgInfo, sizeof (MtgInfo));
// Cache the meeting info
//
HRESULT hr = MtgCacheInfo (pInfo, &MtgInfo);
if (hr != S_OK)
goto MyExit;
// Build DN for meeting
//
pszDN = IlsBuildDN (pServerInfo->pszBaseDN,
(TCHAR *) &c_szMtgDefC[0],
(TCHAR *) &c_szDefO[0],
pszMtgName,
(TCHAR *) &c_szRTConf[0]);
if (pszDN == NULL)
{
hr = ILS_E_MEMORY;
goto MyExit;
}
// Build modify array for ldap_modify()
//
hr = MtgCreateSetAttrsModArr (&ppMod, &MtgInfo);
if (hr != S_OK)
goto MyExit;
MyAssert (ppMod != NULL);
// Get the session object
//
LDAP *ld;
hr = g_pSessionContainer->GetSession (&pSession, pServerInfo);
if (hr == S_OK)
{
MyAssert (pSession != NULL);
// Get the ldap session
//
ld = pSession->GetLd ();
MyAssert (ld != NULL);
// Send the data over the wire
//
uMsgID = ldap_modify (ld, pszDN, ppMod);
if (uMsgID == (ULONG) -1)
{
hr = ::LdapError2Hresult (ld->ld_errno);
}
}
// Report failure if so
//
if (hr != S_OK)
goto MyExit;
// Construct pending info
//
RESP_INFO ri;
FillDefRespInfo (&ri, uRespID, ld, uMsgID, INVALID_MSG_ID);
ri.uNotifyMsg = WM_ILS_SET_MEETING_INFO;
// Remember the pending request
//
hr = g_pRespQueue->EnterRequest (pSession, &ri);
if (hr != S_OK)
{
MyAssert (FALSE);
goto MyExit;
}
MyExit:
MemFree (pszDN);
MemFree (ppMod);
IlsReleaseAnyAttrsPrefix (&(MtgInfo.AnyAttrs));
if (hr != S_OK)
{
if (uMsgID != (ULONG) -1)
::ldap_abandon (ld, uMsgID);
if (pSession != NULL)
pSession->Disconnect ();
}
return hr;
}
VOID
MtgFillModArrAttr (
LDAPMod *pMod,
MTG_INFO *pMtgInfo,
INT nIndex )
{
MyAssert (pMod != NULL);
MyAssert (pMtgInfo != NULL);
MyAssert (0 <= nIndex && nIndex <= COUNT_ENUM_MTGATTR);
IlsFillModifyListItem ( pMod,
(TCHAR *) c_apszMtgStdAttrNames[nIndex],
pMtgInfo->apszStdAttrValues[nIndex]);
}
HRESULT
MtgCreateSetAttrsModArr (
LDAPMod ***pppMod,
MTG_INFO *pMtgInfo )
{
MyAssert (pppMod != NULL);
HRESULT hr;
DWORD dwFlags = pMtgInfo->dwFlags;
ULONG cTotal = pMtgInfo->AnyAttrs.cAttrsToAdd +
pMtgInfo->AnyAttrs.cAttrsToModify +
pMtgInfo->AnyAttrs.cAttrsToRemove;
// Lay out the modify array for modifying standard/extended attributes
//
hr = IlsFillDefStdAttrsModArr (pppMod,
dwFlags,
COUNT_ENUM_MTGINFO,
&cTotal,
ISBU_MODOP_MODIFY_USER,
MtgGetPrefixCount (),
MtgGetPrefixString ());
if (hr != S_OK)
return hr;
// Start to fill standard attributes
//
ULONG i = MtgGetPrefixCount ();
LDAPMod **apMod = *pppMod;
if (dwFlags & MTGOBJ_F_NAME)
MtgFillModArrAttr (apMod[i++], pMtgInfo, ENUM_MTGATTR_CN);
if (dwFlags & MTGOBJ_F_MTG_TYPE)
MtgFillModArrAttr (apMod[i++], pMtgInfo, ENUM_MTGATTR_MTG_TYPE);
if (dwFlags & MTGOBJ_F_MEMBER_TYPE)
MtgFillModArrAttr (apMod[i++], pMtgInfo, ENUM_MTGATTR_MEMBER_TYPE);
if (dwFlags & MTGOBJ_F_DESCRIPTION)
MtgFillModArrAttr (apMod[i++], pMtgInfo, ENUM_MTGATTR_DESCRIPTION);
if (dwFlags & MTGOBJ_F_HOST_NAME)
MtgFillModArrAttr (apMod[i++], pMtgInfo, ENUM_MTGATTR_HOST_NAME);
if (dwFlags & MTGOBJ_F_IP_ADDRESS)
MtgFillModArrAttr (apMod[i++], pMtgInfo, ENUM_MTGATTR_IP_ADDRESS);
// Start to fill extended attributes
//
::IlsFillModifyListForAnyAttrs (apMod, &i, &(pMtgInfo->AnyAttrs));
MyAssert (i == cTotal);
return S_OK;
}
HRESULT
MtgCacheInfo (
LDAP_MEETINFO *pInfo,
MTG_INFO *pMtgInfo )
{
MyAssert (pInfo != NULL);
MyAssert (pMtgInfo != NULL);
// Release the previous prefix for extended attribute names
//
IlsReleaseAnyAttrsPrefix (&(pMtgInfo->AnyAttrs));
// Clean up the buffer
//
ZeroMemory (pMtgInfo, sizeof (*pMtgInfo));
// Start to cache mtg standard attributes
//
if (pInfo->lMeetingPlaceType != INVALID_MEETING_TYPE)
{
GetLongString (pInfo->lMeetingPlaceType, &(pMtgInfo->szMtgType[0]));
pMtgInfo->apszStdAttrValues[ENUM_MTGATTR_MTG_TYPE] = &(pMtgInfo->szMtgType[0]);
pMtgInfo->dwFlags |= MTGOBJ_F_MTG_TYPE;
}
if (pInfo->lAttendeeType != INVALID_ATTENDEE_TYPE)
{
GetLongString (pInfo->lAttendeeType, &(pMtgInfo->szMemberType[0]));
pMtgInfo->apszStdAttrValues[ENUM_MTGATTR_MEMBER_TYPE] = &(pMtgInfo->szMemberType[0]);
pMtgInfo->dwFlags |= MTGOBJ_F_MEMBER_TYPE;
}
if (pInfo->uOffsetMeetingPlaceID != INVALID_OFFSET)
{
pMtgInfo->apszStdAttrValues[ENUM_MTGATTR_CN] =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetMeetingPlaceID);
pMtgInfo->dwFlags |= MTGOBJ_F_NAME;
}
if (pInfo->uOffsetDescription != INVALID_OFFSET)
{
pMtgInfo->apszStdAttrValues[ENUM_MTGATTR_DESCRIPTION] =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetDescription);
pMtgInfo->dwFlags |= MTGOBJ_F_DESCRIPTION;
}
if (pInfo->uOffsetHostName != INVALID_OFFSET)
{
pMtgInfo->apszStdAttrValues[ENUM_MTGATTR_HOST_NAME] =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetHostName);
pMtgInfo->dwFlags |= MTGOBJ_F_HOST_NAME;
}
if (pInfo->uOffsetHostIPAddress != INVALID_OFFSET)
{
pMtgInfo->apszStdAttrValues[ENUM_MTGATTR_IP_ADDRESS] =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetHostIPAddress);
pMtgInfo->dwFlags |= MTGOBJ_F_IP_ADDRESS;
}
// Start to cache mtg extended attributes
//
if (pInfo->uOffsetAttrsToAdd != INVALID_OFFSET &&
pInfo->cAttrsToAdd != 0)
{
pMtgInfo->AnyAttrs.cAttrsToAdd = pInfo->cAttrsToAdd;
pMtgInfo->AnyAttrs.pszAttrsToAdd =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetAttrsToAdd);
}
if (pInfo->uOffsetAttrsToModify != INVALID_OFFSET &&
pInfo->cAttrsToModify != 0)
{
pMtgInfo->AnyAttrs.cAttrsToModify = pInfo->cAttrsToModify;
pMtgInfo->AnyAttrs.pszAttrsToModify =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetAttrsToModify);
}
if (pInfo->uOffsetAttrsToRemove != INVALID_OFFSET &&
pInfo->cAttrsToRemove != 0)
{
pMtgInfo->AnyAttrs.cAttrsToRemove = pInfo->cAttrsToRemove;
pMtgInfo->AnyAttrs.pszAttrsToRemove =
(TCHAR *) (((BYTE *) pInfo) + pInfo->uOffsetAttrsToRemove);
}
// Create prefix for extended attribute names
//
return IlsCreateAnyAttrsPrefix (&(pMtgInfo->AnyAttrs));
}
HRESULT
MtgUpdateMembers (
ULONG uNotifyMsg,
SERVER_INFO *pServerInfo,
TCHAR *pszMtgName,
ULONG cMembers,
TCHAR *pszMemberNames,
ULONG uRespID )
{
MyAssert ( uNotifyMsg == WM_ILS_ADD_ATTENDEE ||
uNotifyMsg == WM_ILS_REMOVE_ATTENDEE);
MyAssert (pServerInfo != NULL);
MyAssert (MyIsGoodString (pszMtgName));
MyAssert (MyIsGoodString (pszMemberNames));
// Initialize locals
//
HRESULT hr = S_OK;
TCHAR *pszDN = NULL;
LDAPMod **ppMod = NULL;
SP_CSession *pSession = NULL;
ULONG uMsgID = (ULONG) -1;
// Build DN for meeting
//
pszDN = IlsBuildDN (pServerInfo->pszBaseDN,
(TCHAR *) &c_szMtgDefC[0],
(TCHAR *) &c_szDefO[0],
pszMtgName,
(TCHAR *) &c_szRTConf[0]);
if (pszDN == NULL)
return ILS_E_MEMORY;
// Build modify array for ldap_modify()
//
hr = MtgCreateUpdateMemberModArr ( uNotifyMsg,
&ppMod,
cMembers,
pszMemberNames);
if (hr != S_OK)
goto MyExit;
MyAssert (ppMod != NULL);
// Get the session object
//
LDAP *ld;
hr = g_pSessionContainer->GetSession (&pSession, pServerInfo);
if (hr == S_OK)
{
MyAssert (pSession != NULL);
// Get the ldap session
//
ld = pSession->GetLd ();
MyAssert (ld != NULL);
// Send the data over the wire
//
uMsgID = ldap_modify (ld, pszDN, ppMod);
if (uMsgID == (ULONG) -1)
{
hr = ::LdapError2Hresult (ld->ld_errno);
}
}
// Report failure if so
//
if (hr != S_OK)
goto MyExit;
// Construct pending info
//
RESP_INFO ri;
FillDefRespInfo (&ri, uRespID, ld, uMsgID, INVALID_MSG_ID);
ri.uNotifyMsg = uNotifyMsg;
// Remember the pending request
//
hr = g_pRespQueue->EnterRequest (pSession, &ri);
if (hr != S_OK)
{
MyAssert (FALSE);
goto MyExit;
}
MyExit:
MemFree (pszDN);
MemFree (ppMod);
if (hr != S_OK)
{
if (uMsgID != (ULONG) -1)
::ldap_abandon (ld, uMsgID);
if (pSession != NULL)
pSession->Disconnect ();
}
return hr;
}
HRESULT
MtgCreateUpdateMemberModArr (
ULONG uNotifyMsg,
LDAPMod ***pppMod,
ULONG cMembers,
TCHAR *pszMemberNames )
{
MyAssert (pppMod != NULL);
MyAssert (pszMemberNames != NULL);
// Get meeting object prefix
//
ULONG cPrefix = MtgGetPrefixCount ();
TCHAR *pszPrefix = MtgGetPrefixString ();
// The total number of attributes is the number of prefix attributes
// plus the very only ConfMemberList
//
ULONG cStdAttrs = 1;
ULONG cTotal = cPrefix + cStdAttrs;
// Calculate the modify array's total size
//
ULONG cbMod = IlsCalcModifyListSize (cTotal);
// Add up for multi-valued attribute
//
cbMod += cStdAttrs * (cMembers - 1) * sizeof (TCHAR *);
// Allocate the modify array
//
LDAPMod **apMod = *pppMod = (LDAPMod **) MemAlloc (cbMod);
if (apMod == NULL)
return ILS_E_MEMORY;
// Fill in the modify list
//
LDAPMod *pMod;
BYTE *pbData = (BYTE *) apMod + (cTotal + 1) * sizeof (LDAPMod *);
ULONG uDispPrefix = sizeof (LDAPMod) + 2 * sizeof (TCHAR *);
ULONG uDispStdAttrs = sizeof (LDAPMod) + (cMembers + 1) * sizeof (TCHAR *);
for (ULONG uOffset = 0, i = 0; i < cTotal; i++)
{
// Locate the modify structure
//
pMod = (LDAPMod *) (pbData + uOffset);
apMod[i] = pMod;
pMod->mod_values = (TCHAR **) (pMod + 1);
// Fill in the modify structure
//
if (i < cPrefix)
{
pMod->mod_op = LDAP_MOD_REPLACE;
pMod->mod_type = pszPrefix;
pszPrefix += lstrlen (pszPrefix) + 1;
*(pMod->mod_values) = pszPrefix;
pszPrefix += lstrlen (pszPrefix) + 1;
}
else
{
// Fill in attribute name
//
pMod->mod_op = (uNotifyMsg == WM_ILS_ADD_ATTENDEE) ?
LDAP_MOD_ADD : LDAP_MOD_DELETE;
pMod->mod_type = (TCHAR *) c_apszMtgStdAttrNames[ENUM_MTGATTR_MEMBERS];
// Fill in multi-valued modify array
//
for (ULONG j = 0; j < cMembers; j++)
{
(pMod->mod_values)[j++] = pszMemberNames;
pszMemberNames += lstrlen (pszMemberNames) + 1;
}
}
// Calculate the modify structure's offset relative to the array's end
//
uOffset += (i < cPrefix) ? uDispPrefix : uDispStdAttrs;
}
// Fix up the first and the last ones
//
IlsFixUpModOp (apMod[0], LDAP_MOD_REPLACE, ISBU_MODOP_MODIFY_APP);
apMod[cTotal] = NULL;
return S_OK;
}
#endif // ENABLE_MEETING_PLACE