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.
 
 
 
 
 
 

741 lines
19 KiB

#include <crtdbg.h>
#include <comdef.h>
#include <iostream>
#include <memory>
#include <string>
#include <wbemprov.h>
#include <genlex.h> //for wmi object path parser
#include <objbase.h>
#include <wlbsconfig.h>
#include <ntrkcomm.h>
using namespace std;
#include "objpath.h"
#include "debug.h"
#include "controlwrapper.h"
#include "clusterwrapper.h"
#include "utils.h"
#include "wlbsparm.h"
#include "control.h"
#define NLB_DEFAULT_TIMEOUT 10
////////////////////////////////////////////////////////////////////////////////
//
// FillResponseClass
//
// Purpose: This function is obsolete. It was used in old versions to fill a
// a response parameter that was returned from the control methods
// of the Node and Cluster classes.
//
////////////////////////////////////////////////////////////////////////////////
void FillResponseClass
(
DWORD a_dwNumHosts,
const WLBS_RESPONSE a_Response[],
WLBS_RESPONSE a_cResponse[],
LPCSTR a_szcommand
)
{
ASSERT( a_szcommand );
if( a_Response && a_cResponse ) {
for( DWORD nIter = 0; nIter < a_dwNumHosts; nIter++ ) {
a_cResponse [nIter] = a_Response[nIter];
//GetStatusDesc( a_cResponse[nIter].status, a_szcommand, a_cResponse[nIter].m_szStatus );
}
}
}
void CWlbsControlWrapper::Initialize()
{
DWORD dwRet = m_WlbsControl.Initialize();
if( dwRet != WLBS_PRESENT && dwRet != WLBS_LOCAL_ONLY)
throw CErrorWlbsControl( dwRet, CmdWlbsInit );
m_WlbsControl.WlbsTimeoutSet( WLBS_ALL_CLUSTERS, NLB_DEFAULT_TIMEOUT );
CWlbsCluster** ppCluster;
DWORD dwNumClusters = 0;
//
// Use the local password for local query
//
m_WlbsControl.EnumClusterObjects( ppCluster, &dwNumClusters);
for (int i=0;i<dwNumClusters;i++)
{
m_WlbsControl.WlbsCodeSet( ppCluster[i]->GetClusterIp(),
ppCluster[i]->GetPassword() );
}
}
void CWlbsControlWrapper::ReInitialize()
{
m_WlbsControl.ReInitialize();
CWlbsCluster** ppCluster;
DWORD dwNumClusters = 0;
//
// In case pasword is changed, use the local password for local query
//
m_WlbsControl.EnumClusterObjects( ppCluster, &dwNumClusters);
for (int i=0;i<dwNumClusters;i++)
{
//
// If the change is not commited, the driver will still has the old password
//
if (!ppCluster[i]->IsCommitPending())
{
m_WlbsControl.WlbsCodeSet( ppCluster[i]->GetClusterIp(),
ppCluster[i]->GetPassword() );
}
}
}
void CWlbsControlWrapper::EnumClusters(CWlbsClusterWrapper** & ppCluster, DWORD* pdwNumClusters)
{
m_WlbsControl.EnumClusterObjects( (CWlbsCluster** &) ppCluster, pdwNumClusters);
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Disable
//
// Purpose: Disable ALL traffic handling for the rule containing the
// specified port on specified host or all cluster hosts. Only rules
// that are set for multiple host filtering mode are affected.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Disable
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts ,
DWORD a_dwVip ,
DWORD a_dwPort
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsDisable( a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts ,
a_dwVip ,
a_dwPort
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch( dwRet ) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsDisable, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "disable" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Enable
//
// Purpose: Enable traffic handling for rule containing the
// specified port on specified host or all cluster hosts. Only rules
// that are set for multiple host filtering mode are affected.
//
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Enable
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts ,
DWORD a_dwVip ,
DWORD a_dwPort
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsEnable( a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts ,
a_dwVip ,
a_dwPort
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsEnable, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "enable" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Drain
//
// Purpose: Disable NEW traffic handling for rule containing the specified
// port on specified host or all cluster hosts. Only rules that are
// set for multiple host filtering mode are affected.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Drain
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts ,
DWORD a_dwVip ,
DWORD a_dwPort
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsDrain( a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts ,
a_dwVip ,
a_dwPort
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsDrain, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "drain" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::DrainStop
//
// Purpose: Enter draining mode on specified host or all cluster hosts.
// New connections will not be accepted. Cluster mode will be stopped
// when all existing connections finish. While draining, host will
// participate in convergence and remain part of the cluster.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::DrainStop
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsDrainStop( a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsDrainStop, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "drainstop" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Resume
//
// Purpose: Resume cluster operation control on specified host or all
// cluster hosts.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Resume
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsResume(
a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsResume, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "resume" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Start
//
// Purpose: Start cluster operations on specified host or all cluster hosts.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Start
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsStart( a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsStart, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "start" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Stop
//
// Purpose: Stop cluster operations on specified host or all cluster hosts.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Stop
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsStop(
a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsStop, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "stop" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Suspend
//
// Purpose: Suspend cluster operation control on specified host or
// all cluster hosts.
//
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Suspend
(
DWORD a_dwCluster ,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
DWORD& a_dwNumHosts
)
{
DWORD dwRet;
BOOL bClusterWide = ( a_dwNumHosts == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsSuspend( a_dwCluster ,
a_dwHost ,
Response ,
&dwNumHosts
);
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch(dwRet) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsSuspend, bClusterWide );
break;
}
a_dwNumHosts = dwNumHosts;
FillResponseClass( dwNumHosts, Response, a_pResponse, "suspend" );
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsControlWrapper::Query
//
// Purpose: This invokes WlbsQuery and returns a response structure along
// with other parameters if requested.
//
// Errors: The function throws CErrorWlbsControl.
//
// Return: Status value returned by the target host
//
////////////////////////////////////////////////////////////////////////////////
DWORD CWlbsControlWrapper::Query
(
CWlbsClusterWrapper* pCluster,
DWORD a_dwHost ,
WLBS_RESPONSE* a_pResponse ,
PDWORD a_pdwNumHosts ,
PDWORD a_pdwHostMap
)
{
DWORD dwResponseSize = 0;
if (a_pdwNumHosts)
{
dwResponseSize = *a_pdwNumHosts;
*a_pdwNumHosts = 0;
}
DWORD dwRet;
BOOL bClusterWide = 0;
bClusterWide = ( a_dwHost == WLBS_ALL_HOSTS );
WLBS_RESPONSE Response[WLBS_MAX_HOSTS];
DWORD dwNumHosts = WLBS_MAX_HOSTS;
dwRet = m_WlbsControl.WlbsQuery(
(CWlbsCluster*)pCluster ,
a_dwHost ,
Response ,
&dwNumHosts ,
a_pdwHostMap,
NULL
);
string strOut;
//check for Winsock errors
if( dwRet > 10000 )
{
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//check the return value and throw if an error occurred
switch( dwRet ) {
case WLBS_INIT_ERROR:
case WLBS_BAD_PASSW:
case WLBS_TIMEOUT:
case WLBS_LOCAL_ONLY:
case WLBS_REMOTE_ONLY:
case WLBS_IO_ERROR:
throw CErrorWlbsControl( dwRet, CmdWlbsQuery, bClusterWide );
}
//local queries do not return the dedicated IP
//get the dedicated IP and fill the structure
if( a_dwHost == WLBS_LOCAL_HOST )
{
Response[0].address = pCluster->GetDedicatedIp();
}
if( a_pdwNumHosts )
{
*a_pdwNumHosts = _MIN(dwResponseSize, dwNumHosts);
FillResponseClass( dwNumHosts, Response, a_pResponse, "query" );
}
return dwRet;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWlbsClusterWrapper::CheckMembership
//
// Purpose: This verifies that the local host is a member of the cluster
// specified by the Cluster IP in the registry. At the time this
// was written, there was a remote chance that a user can modify the
// IP address in the registry prior to the load of this DLL.
//
// Note, this call is only required for the Node, Cluster and linked
// associations and should not be invoked for any of the Setting classes.
//
////////////////////////////////////////////////////////////////////////////////
void CWlbsControlWrapper::CheckMembership()
{
// todo: make sure the host is in at least one cluster
/*
WLBS_RESPONSE WlbsResponse;
DWORD dwResSize = 1;
//get the cluster and HostID
DWORD dwRes = pControl->Query( m_pWlbsCluster->GetClusterIp(),
WLBS_LOCAL_HOST,
&WlbsResponse,
&dwResSize,
NULL);
switch( dwRes ) {
case WLBS_SUSPENDED:
case WLBS_STOPPED:
case WLBS_CONVERGING:
case WLBS_DRAINING:
case WLBS_CONVERGED:
case WLBS_DEFAULT:
break;
default:
throw CErrorWlbsControl( dwRes, CmdWlbsQuery );
}
*/
// DWORD dwClusterIP;
// GetClusterIP( &dwClusterIP );
//if( dwClusterIP == 0 )
//throw _com_error( WBEM_E_NOT_FOUND );
//*******************************
//this section does not work when the remote control is disabled
//on the local host
//*******************************
//call the query function
// dwRes = WlbsQuery( dwClusterIP,
// WlbsResponse.id,
// NULL,
// NULL,
// NULL,
// NULL );
//analyze query results for errors
// switch( dwRes ) {
// case WLBS_OK:
// case WLBS_STOPPED:
// case WLBS_CONVERGING:
// case WLBS_CONVERGED:
// case WLBS_DEFAULT:
// case WLBS_DRAINING:
// case WLBS_SUSPENDED:
// return;
// default:
// throw CErrorWlbsControl( dwRes, CmdWlbsQuery );
// }
//*******************************
//this section does not work when the remote control is disabled
//on the local host
//*******************************
}