windows-nt/Source/XPSP1/NT/net/wlbs/wmi/wlbs_portrule.cpp

1071 lines
29 KiB
C++
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
#include "WLBS_Provider.h"
#include "WLBS_PortRule.h"
#include "ClusterWrapper.h"
#include "ControlWrapper.h"
#include "utils.h"
#include "wlbsutil.h"
extern CWlbsControlWrapper* g_pWlbsControl;
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::CWLBS_PortRule
//
// Purpose: Constructor
//
////////////////////////////////////////////////////////////////////////////////
CWLBS_PortRule::CWLBS_PortRule
(
CWbemServices* a_pNameSpace,
IWbemObjectSink* a_pResponseHandler
)
: CWlbs_Root( a_pNameSpace, a_pResponseHandler )
{
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::Create
//
// Purpose: This instantiates this class and is invoked from an array of
// function pointers.
//
////////////////////////////////////////////////////////////////////////////////
CWlbs_Root* CWLBS_PortRule::Create
(
CWbemServices* a_pNameSpace,
IWbemObjectSink* a_pResponseHandler
)
{
CWlbs_Root* pRoot = new CWLBS_PortRule( a_pNameSpace, a_pResponseHandler );
if( !pRoot )
throw _com_error( WBEM_E_OUT_OF_MEMORY );
return pRoot;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::ExecMethod
//
// Purpose:
//
////////////////////////////////////////////////////////////////////////////////
HRESULT CWLBS_PortRule::ExecMethod
(
const ParsedObjectPath* /* a_pParsedPath */,
const BSTR& a_strMethodName,
long /* a_lFlags */,
IWbemContext* /* a_pIContex */,
IWbemClassObject* a_pIInParams
)
{
IWbemClassObject* pOutputInstance = NULL;
VARIANT vValue;
HRESULT hRes = 0;
try {
VariantInit( &vValue );
//determine the method being executed
if( _wcsicmp( a_strMethodName, MOF_PORTRULE::pMethods[MOF_PORTRULE::SETDEF] ) == 0 )
{
//get the node path
hRes = a_pIInParams->Get
(
_bstr_t( MOF_PARAM::NODEPATH ),
0,
&vValue,
NULL,
NULL
);
if( FAILED( hRes) )
{
throw _com_error( WBEM_E_FAILED );
}
//this check may not be necessary since WMI will do some
//parameter validation
//if( vValue.vt != VT_BSTR )
// throw _com_error ( WBEM_E_INVALID_PARAMETER );
//parse node path
CObjectPathParser PathParser;
ParsedObjectPath *pParsedPath = NULL;
try {
int nStatus = PathParser.Parse( vValue.bstrVal, &pParsedPath );
if(nStatus != 0) {
if (NULL != pParsedPath)
{
PathParser.Free( pParsedPath );
pParsedPath = NULL;
}
throw _com_error( WBEM_E_INVALID_PARAMETER );
}
//get the name key, which should be the only key
if( *pParsedPath->m_paKeys == NULL )
{
throw _com_error( WBEM_E_INVALID_PARAMETER );
}
DWORD dwReqClusterIpOrIndex = ExtractClusterIP( (*pParsedPath->m_paKeys)->m_vValue.bstrVal);
DWORD dwReqHostID = ExtractHostID( (*pParsedPath->m_paKeys)->m_vValue.bstrVal);
CWlbsClusterWrapper* pCluster = g_pWlbsControl->GetClusterFromIpOrIndex(
dwReqClusterIpOrIndex);
if (pCluster == NULL || (DWORD)-1 == dwReqHostID)
throw _com_error( WBEM_E_INVALID_PARAMETER );
// The "PortRule(Disabled/Failover/Loadbalanced)" classes do NOT contain the VIP property,
// so, we do not want to operate on any cluster that has a port rule
// that is specific to a vip (other than the "all vip")
// The "EffectiveVersion" registry value is checked for a value of CVY_VERSION_FULL to
// see of there is any port rule that is specific to a vip
CNodeConfiguration NodeConfig;
pCluster->GetNodeConfig(NodeConfig);
if(NodeConfig.dwEffectiveVersion == CVY_VERSION_FULL)
throw _com_error( WBEM_E_INVALID_OPERATION );
//validate host ID
if( dwReqHostID != pCluster->GetHostID())
throw _com_error( WBEM_E_INVALID_PARAMETER );
//invoke method
pCluster->SetPortRuleDefaults();
}
catch( ... ) {
if( pParsedPath )
{
PathParser.Free( pParsedPath );
pParsedPath = NULL;
}
throw;
}
} else {
throw _com_error( WBEM_E_METHOD_NOT_IMPLEMENTED );
}
// CLD: Need to check return code for error
if (S_OK != VariantClear( &vValue ))
throw _com_error( WBEM_E_FAILED );
if( pOutputInstance ) {
pOutputInstance->Release();
pOutputInstance = NULL;
}
m_pResponseHandler->SetStatus( 0, WBEM_S_NO_ERROR, NULL, NULL );
hRes = WBEM_S_NO_ERROR;
}
catch(CErrorWlbsControl Err) {
IWbemClassObject* pWbemExtStat = NULL;
CreateExtendedStatus( m_pNameSpace,
&pWbemExtStat,
Err.Error(),
(PWCHAR)(Err.Description()) );
m_pResponseHandler->SetStatus(0, WBEM_E_FAILED, NULL, pWbemExtStat);
if( pWbemExtStat )
pWbemExtStat->Release();
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vValue );
if( pOutputInstance ) {
pOutputInstance->Release();
pOutputInstance = NULL;
}
//do not return WBEM_E_FAILED, this causes a race condition
hRes = WBEM_S_NO_ERROR;
}
catch(_com_error HResErr ) {
m_pResponseHandler->SetStatus(0, HResErr.Error(), NULL, NULL);
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vValue );
if( pOutputInstance ) {
pOutputInstance->Release();
}
hRes = HResErr.Error();
}
catch ( ... ) {
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vValue );
if( pOutputInstance ) {
pOutputInstance->Release();
}
throw;
}
return hRes;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::GetInstance
//
// Purpose: This function retrieves an instance of a MOF PortRule
// class. The node does not have to be a member of a cluster.
//
////////////////////////////////////////////////////////////////////////////////
HRESULT CWLBS_PortRule::GetInstance
(
const ParsedObjectPath* a_pParsedPath,
long /* a_lFlags */,
IWbemContext* /* a_pIContex */
)
{
IWbemClassObject* pWlbsInstance = NULL;
HRESULT hRes = 0;
try {
if( !a_pParsedPath )
throw _com_error( WBEM_E_FAILED );
wstring wstrHostName;
wstrHostName = (*a_pParsedPath->m_paKeys)->m_vValue.bstrVal;
DWORD dwReqStartPort = static_cast<DWORD>( (*(a_pParsedPath->m_paKeys + 1))->m_vValue.lVal );
CWlbsClusterWrapper* pCluster = GetClusterFromHostName(g_pWlbsControl, wstrHostName);
if (pCluster == NULL)
{
throw _com_error( WBEM_E_NOT_FOUND );
}
// The "PortRule(Disabled/Failover/Loadbalanced)" classes do NOT contain the VIP property,
// so, we do not want to operate on any cluster that has a port rule
// that is specific to a vip (other than the "all vip")
// The "EffectiveVersion" registry value is checked for a value of CVY_VERSION_FULL to
// see of there is any port rule that is specific to a vip
CNodeConfiguration NodeConfig;
pCluster->GetNodeConfig(NodeConfig);
if(NodeConfig.dwEffectiveVersion == CVY_VERSION_FULL)
throw _com_error( WBEM_E_INVALID_OPERATION );
WLBS_PORT_RULE PortRule;
pCluster->GetPortRule(IpAddressFromAbcdWsz(CVY_DEF_ALL_VIP), dwReqStartPort, &PortRule );
if( dwReqStartPort != PortRule.start_port )
throw _com_error( WBEM_E_NOT_FOUND );
SpawnInstance( a_pParsedPath->m_pClass, &pWlbsInstance );
FillWbemInstance(pCluster, pWlbsInstance, &PortRule );
//send the results back to WinMgMt
m_pResponseHandler->Indicate( 1, &pWlbsInstance );
if( pWlbsInstance )
pWlbsInstance->Release();
m_pResponseHandler->SetStatus( 0, WBEM_S_NO_ERROR, NULL, NULL );
hRes = WBEM_S_NO_ERROR;
}
catch(CErrorWlbsControl Err) {
IWbemClassObject* pWbemExtStat = NULL;
CreateExtendedStatus( m_pNameSpace,
&pWbemExtStat,
Err.Error(),
(PWCHAR)(Err.Description()) );
m_pResponseHandler->SetStatus(0, WBEM_E_FAILED, NULL, pWbemExtStat);
if( pWbemExtStat )
pWbemExtStat->Release();
if( pWlbsInstance )
pWlbsInstance->Release();
//do not return WBEM_E_FAILED, this causes a race condition
hRes = WBEM_S_NO_ERROR;
}
catch(_com_error HResErr ) {
m_pResponseHandler->SetStatus(0, HResErr.Error(), NULL, NULL);
if( pWlbsInstance )
pWlbsInstance->Release();
hRes = HResErr.Error();
}
catch(...) {
if( pWlbsInstance )
pWlbsInstance->Release();
throw;
}
return hRes;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::EnumInstances
//
// Purpose: This function obtains the PortRule data for the current host.
// The node does not have to be a member of a cluster for this
// to succeed. However, NLB must be installed.
//
////////////////////////////////////////////////////////////////////////////////
HRESULT CWLBS_PortRule::EnumInstances
(
BSTR a_bstrClass,
long /*a_lFlags*/,
IWbemContext* /*a_pIContex*/
)
{
IWbemClassObject** ppWlbsInstance = NULL;
HRESULT hRes = 0;
PWLBS_PORT_RULE pPortRules = NULL;
DWORD dwNumRules = 0;
CNodeConfiguration NodeConfig;
try {
DWORD dwFilteringMode;
if( _wcsicmp( a_bstrClass, MOF_PRFAIL::szName ) == 0 ) {
dwFilteringMode = WLBS_SINGLE;
} else if( _wcsicmp( a_bstrClass, MOF_PRLOADBAL::szName ) == 0 ) {
dwFilteringMode = WLBS_MULTI;
} else if( _wcsicmp( a_bstrClass, MOF_PRDIS::szName ) == 0 ) {
dwFilteringMode = WLBS_NEVER;
} else {
throw _com_error( WBEM_E_NOT_FOUND );
}
DWORD dwNumClusters = 0;
CWlbsClusterWrapper** ppCluster = NULL;
g_pWlbsControl->EnumClusters(ppCluster, &dwNumClusters);
if (dwNumClusters == 0)
{
throw _com_error( WBEM_E_NOT_FOUND );
}
//declare an IWbemClassObject smart pointer
IWbemClassObjectPtr pWlbsClass;
//get the MOF class object
hRes = m_pNameSpace->GetObject(
a_bstrClass,
0,
NULL,
&pWlbsClass,
NULL );
if( FAILED( hRes ) ) {
throw _com_error( hRes );
}
for (DWORD iCluster=0; iCluster<dwNumClusters; iCluster++)
{
// The "PortRule(Disabled/Failover/Loadbalanced)" classes do NOT contain the VIP property,
// so, we do not want to return any port rule for a cluster that has a port rule
// that is specific to a vip (other than the "all vip")
// The "EffectiveVersion" registry value is checked for a value of CVY_VERSION_FULL to
// see of there is any port rule that is specific to a vip
ppCluster[iCluster]->GetNodeConfig(NodeConfig);
if(NodeConfig.dwEffectiveVersion == CVY_VERSION_FULL)
continue;
//call the API query function to find the port rules
ppCluster[iCluster]->EnumPortRules( &pPortRules, &dwNumRules, dwFilteringMode );
if( dwNumRules == 0 )
throw _com_error( WBEM_E_NOT_FOUND );
//spawn an instance of the MOF class for each rule found
ppWlbsInstance = new IWbemClassObject *[dwNumRules];
if( !ppWlbsInstance )
throw _com_error( WBEM_E_OUT_OF_MEMORY );
//initialize array
ZeroMemory( ppWlbsInstance, dwNumRules * sizeof(IWbemClassObject *) );
for( DWORD i = 0; i < dwNumRules; i ++ ) {
hRes = pWlbsClass->SpawnInstance( 0, &ppWlbsInstance[i] );
if( FAILED( hRes ) )
throw _com_error( hRes );
FillWbemInstance(ppCluster[iCluster], *(ppWlbsInstance + i), pPortRules + i );
}
//send the results back to WinMgMt
hRes = m_pResponseHandler->Indicate( dwNumRules, ppWlbsInstance );
if( FAILED( hRes ) ) {
throw _com_error( hRes );
}
if( ppWlbsInstance ) {
for( i = 0; i < dwNumRules; i++ ) {
if( ppWlbsInstance[i] ) {
ppWlbsInstance[i]->Release();
}
}
delete [] ppWlbsInstance;
ppWlbsInstance = NULL;
dwNumRules = NULL;
}
if( pPortRules )
{
delete [] pPortRules;
pPortRules = NULL;
}
}
m_pResponseHandler->SetStatus( 0, WBEM_S_NO_ERROR, NULL, NULL );
hRes = WBEM_S_NO_ERROR;
}
catch(CErrorWlbsControl Err) {
IWbemClassObject* pWbemExtStat = NULL;
CreateExtendedStatus( m_pNameSpace,
&pWbemExtStat,
Err.Error(),
(PWCHAR)(Err.Description()) );
m_pResponseHandler->SetStatus(0, WBEM_E_FAILED, NULL, pWbemExtStat);
if( pWbemExtStat )
pWbemExtStat->Release();
if( ppWlbsInstance ) {
for( DWORD i = 0; i < dwNumRules; i++ ) {
if( ppWlbsInstance[i] ) {
ppWlbsInstance[i]->Release();
ppWlbsInstance[i] = NULL;
}
}
delete [] ppWlbsInstance;
}
if( pPortRules )
delete [] pPortRules;
//do not return WBEM_E_FAILED, this causes a race condition
hRes = WBEM_S_NO_ERROR;
}
catch(_com_error HResErr ) {
m_pResponseHandler->SetStatus(0, HResErr.Error(), NULL, NULL);
if( ppWlbsInstance ) {
for( DWORD i = 0; i < dwNumRules; i++ ) {
if( ppWlbsInstance[i] ) {
ppWlbsInstance[i]->Release();
ppWlbsInstance[i] = NULL;
}
}
delete [] ppWlbsInstance;
}
if( pPortRules )
delete [] pPortRules;
hRes = HResErr.Error();
}
catch(...) {
if( ppWlbsInstance ) {
for( DWORD i = 0; i < dwNumRules; i++ ) {
if( ppWlbsInstance[i] ) {
ppWlbsInstance[i]->Release();
ppWlbsInstance[i] = NULL;
}
}
delete [] ppWlbsInstance;
}
if( pPortRules )
delete [] pPortRules;
throw;
}
return hRes;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::DeleteInstance
//
// Purpose: This function deletes an instance of a MOF PortRule
// class. The node does not have to be a member of a cluster. However,
// WLBS must be installed for this function to succeed.
//
////////////////////////////////////////////////////////////////////////////////
HRESULT CWLBS_PortRule::DeleteInstance
(
const ParsedObjectPath* a_pParsedPath,
long /*a_lFlags*/,
IWbemContext* /*a_pIContex*/
)
{
HRESULT hRes = 0;
try {
if( !a_pParsedPath )
throw _com_error( WBEM_E_FAILED );
wstring wstrHostName;
wstrHostName = (*a_pParsedPath->m_paKeys)->m_vValue.bstrVal;
DWORD dwReqStartPort = static_cast<DWORD>( (*(a_pParsedPath->m_paKeys + 1))->m_vValue.lVal );
CWlbsClusterWrapper* pCluster = GetClusterFromHostName(g_pWlbsControl, wstrHostName);
if (pCluster == NULL)
{
throw _com_error( WBEM_E_NOT_FOUND );
}
// The "PortRule(Disabled/Failover/Loadbalanced)" classes do NOT contain the VIP property,
// so, we do not want to operate on any cluster that has a port rule
// that is specific to a vip (other than the "all vip")
// The "EffectiveVersion" registry value is checked for a value of CVY_VERSION_FULL to
// see of there is any port rule that is specific to a vip
CNodeConfiguration NodeConfig;
pCluster->GetNodeConfig(NodeConfig);
if(NodeConfig.dwEffectiveVersion == CVY_VERSION_FULL)
throw _com_error( WBEM_E_INVALID_OPERATION );
WLBS_PORT_RULE PortRule;
// Get the "All Vip" port rule for this port
pCluster->GetPortRule(IpAddressFromAbcdWsz(CVY_DEF_ALL_VIP), dwReqStartPort, &PortRule );
if( dwReqStartPort != PortRule.start_port )
throw _com_error( WBEM_E_NOT_FOUND );
// Delete the "All Vip" port rule for this port
pCluster->DeletePortRule(IpAddressFromAbcdWsz(CVY_DEF_ALL_VIP), dwReqStartPort );
m_pResponseHandler->SetStatus( 0, WBEM_S_NO_ERROR, NULL, NULL );
hRes = WBEM_S_NO_ERROR;
}
catch(CErrorWlbsControl Err) {
IWbemClassObject* pWbemExtStat = NULL;
CreateExtendedStatus( m_pNameSpace,
&pWbemExtStat,
Err.Error(),
(PWCHAR)(Err.Description()) );
m_pResponseHandler->SetStatus(0, WBEM_E_FAILED, NULL, pWbemExtStat);
if( pWbemExtStat )
pWbemExtStat->Release();
//do not return WBEM_E_FAILED, this causes a race condition
hRes = WBEM_S_NO_ERROR;
}
catch(_com_error HResErr ) {
m_pResponseHandler->SetStatus(0, HResErr.Error(), NULL, NULL);
hRes = HResErr.Error();
}
return hRes;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::PutInstance
//
// Purpose: This function updates an instance of a PortRule
// class. The host does not have to be a member of a cluster.
//
////////////////////////////////////////////////////////////////////////////////
HRESULT CWLBS_PortRule::PutInstance
(
IWbemClassObject* a_pInstance,
long /*a_lFlags*/,
IWbemContext* /*a_pIContex*/
)
{
VARIANT vValue;
HRESULT hRes = 0;
WLBS_PORT_RULE NewRule; //the instance to put
try {
VariantInit( &vValue );
//get the host name value
hRes = a_pInstance->Get( _bstr_t( MOF_PORTRULE::pProperties[MOF_PORTRULE::NAME] ),
0,
&vValue,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
wstring wstrHostName( vValue.bstrVal );
CWlbsClusterWrapper* pCluster = GetClusterFromHostName(g_pWlbsControl, wstrHostName);
if (pCluster == NULL)
{
throw _com_error( WBEM_E_NOT_FOUND );
}
// CLD: Need to check return code for error
if (S_OK != VariantClear( &vValue ))
throw _com_error( WBEM_E_FAILED );
// The "PortRule(Disabled/Failover/Loadbalanced)" classes do NOT contain the VIP property,
// so, we do not want to operate on any cluster that has a port rule
// that is specific to a vip (other than the "all vip")
// The "EffectiveVersion" registry value is checked for a value of CVY_VERSION_FULL to
// see of there is any port rule that is specific to a vip
CNodeConfiguration NodeConfig;
pCluster->GetNodeConfig(NodeConfig);
if(NodeConfig.dwEffectiveVersion == CVY_VERSION_FULL)
throw _com_error( WBEM_E_INVALID_OPERATION );
//retrieve start and end ports
hRes = a_pInstance->Get( _bstr_t( MOF_PORTRULE::pProperties[MOF_PORTRULE::STPORT] ),
0,
&vValue,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
NewRule.start_port = static_cast<DWORD>( vValue.lVal );
hRes = a_pInstance->Get( _bstr_t( MOF_PORTRULE::pProperties[MOF_PORTRULE::EDPORT] ),
0,
&vValue,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
NewRule.end_port = static_cast<DWORD>( vValue.lVal );
//get the protocol
hRes = a_pInstance->Get( _bstr_t( MOF_PORTRULE::pProperties[MOF_PORTRULE::PROT] ),
0,
&vValue,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
NewRule.protocol = static_cast<DWORD>( vValue.lVal );
//get the class name to determine port rule mode
hRes = a_pInstance->Get( _bstr_t( L"__Class" ),
0,
&vValue,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
if( _wcsicmp( vValue.bstrVal, MOF_PRDIS::szName ) == 0 ) {
NewRule.mode = WLBS_NEVER;
} else if(_wcsicmp( vValue.bstrVal, MOF_PRFAIL::szName ) == 0 ) {
NewRule.mode = WLBS_SINGLE;
VARIANT vRulePriority;
VariantInit( &vRulePriority );
try {
//get the rule priority
hRes = a_pInstance->Get( _bstr_t( MOF_PRFAIL::pProperties[MOF_PRFAIL::PRIO] ),
0,
&vRulePriority,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
}
catch( ... ) {
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vRulePriority );
throw;
}
NewRule.mode_data.single.priority = static_cast<DWORD>( vRulePriority.lVal );
// CLD: Need to check return code for error
if (S_OK != VariantClear( &vRulePriority ))
throw _com_error( WBEM_E_FAILED );
} else if(_wcsicmp( vValue.bstrVal, MOF_PRLOADBAL::szName ) == 0 ) {
NewRule.mode = WLBS_MULTI;
VARIANT v;
VariantInit( &v );
try {
//get the affinity
hRes = a_pInstance->Get( _bstr_t( MOF_PRLOADBAL::pProperties[MOF_PRLOADBAL::AFFIN] ),
0,
&v,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
NewRule.mode_data.multi.affinity = static_cast<WORD>( v.lVal );
//get the equal load boolean
hRes = a_pInstance->Get( _bstr_t( MOF_PRLOADBAL::pProperties[MOF_PRLOADBAL::EQLD] ),
0,
&v,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
if( v.boolVal == -1 ) {
NewRule.mode_data.multi.equal_load = 1;
} else {
NewRule.mode_data.multi.equal_load = 0;
}
//get the load
hRes = a_pInstance->Get( _bstr_t( MOF_PRLOADBAL::pProperties[MOF_PRLOADBAL::LDWT] ),
0,
&v,
NULL,
NULL );
if( FAILED( hRes ) )
throw _com_error( hRes );
if( v.vt != VT_NULL )
NewRule.mode_data.multi.load = static_cast<DWORD>( v.lVal );
else
NewRule.mode_data.multi.load = 0;
} catch( ... ) {
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &v );
throw;
}
// CLD: Need to check return code for error
if (S_OK != VariantClear( &v ))
throw _com_error( WBEM_E_FAILED );
}
//delete the port rule but cache in case of failure
WLBS_PORT_RULE OldRule;
bool bOldRuleSaved = false;
lstrcpy(NewRule.virtual_ip_addr, CVY_DEF_ALL_VIP);
if( pCluster->RuleExists(IpAddressFromAbcdWsz(NewRule.virtual_ip_addr), NewRule.start_port ) ) {
pCluster->GetPortRule(IpAddressFromAbcdWsz(NewRule.virtual_ip_addr), NewRule.start_port, &OldRule );
bOldRuleSaved = true;
pCluster->DeletePortRule(IpAddressFromAbcdWsz(NewRule.virtual_ip_addr), NewRule.start_port );
}
//add the port rule, roll back if failed
try {
pCluster->PutPortRule( &NewRule );
} catch(...) {
if( bOldRuleSaved )
pCluster->PutPortRule( &OldRule );
throw;
}
//release resources
// CLD: Need to check return code for error
if (S_OK != VariantClear( &vValue ))
throw _com_error( WBEM_E_FAILED );
m_pResponseHandler->SetStatus( 0, WBEM_S_NO_ERROR, NULL, NULL );
hRes = WBEM_S_NO_ERROR;
}
catch(CErrorWlbsControl Err) {
IWbemClassObject* pWbemExtStat = NULL;
CreateExtendedStatus( m_pNameSpace,
&pWbemExtStat,
Err.Error(),
(PWCHAR)(Err.Description()) );
m_pResponseHandler->SetStatus(0, WBEM_E_FAILED, NULL, pWbemExtStat);
if( pWbemExtStat )
pWbemExtStat->Release();
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vValue );
//do not return WBEM_E_FAILED, this causes a race condition
hRes = WBEM_S_NO_ERROR;
}
catch(_com_error HResErr ) {
m_pResponseHandler->SetStatus(0, HResErr.Error(), NULL, NULL);
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vValue );
hRes = HResErr.Error();
}
catch (...) {
// CLD: Need to check return code for error
// No throw here since we are already throwing an exception.
VariantClear( &vValue );
throw;
}
return hRes;
}
////////////////////////////////////////////////////////////////////////////////
//
// CWLBS_PortRule::FillWbemInstance
//
// Purpose: This function copies all of the data from a node configuration
// structure to a WBEM instance.
//
////////////////////////////////////////////////////////////////////////////////
void CWLBS_PortRule::FillWbemInstance
(
CWlbsClusterWrapper* pCluster,
IWbemClassObject* a_pWbemInstance,
const PWLBS_PORT_RULE& a_pPortRule
)
{
namespace PRFO = MOF_PRFAIL;
namespace PRLB = MOF_PRLOADBAL;
namespace PR = MOF_PORTRULE;
ASSERT( a_pWbemInstance );
wstring wstrHostName;
ConstructHostName( wstrHostName, pCluster->GetClusterIpOrIndex(g_pWlbsControl),
pCluster->GetHostID());
//NAME
HRESULT hRes = a_pWbemInstance->Put
(
_bstr_t( PR::pProperties[PR::NAME] ) ,
0 ,
&_variant_t(wstrHostName.c_str()),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
//STPORT
hRes = a_pWbemInstance->Put
(
_bstr_t( PR::pProperties[PR::STPORT] ),
0 ,
&_variant_t(static_cast<long>(a_pPortRule->start_port)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
//EDPORT
hRes = a_pWbemInstance->Put
(
_bstr_t( PR::pProperties[PR::EDPORT] ),
0 ,
&_variant_t(static_cast<long>(a_pPortRule->end_port)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
//ADAPTERGUID
GUID AdapterGuid = pCluster->GetAdapterGuid();
WCHAR szAdapterGuid[128];
StringFromGUID2(AdapterGuid, szAdapterGuid,
sizeof(szAdapterGuid)/sizeof(szAdapterGuid[0]) );
hRes = a_pWbemInstance->Put
(
_bstr_t( PR::pProperties[PR::ADAPTERGUID] ),
0 ,
&_variant_t(szAdapterGuid),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
//PROT
hRes = a_pWbemInstance->Put
(
_bstr_t( PR::pProperties[PR::PROT] ),
0,
&_variant_t(static_cast<long>(a_pPortRule->protocol)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
switch( a_pPortRule->mode ) {
case WLBS_SINGLE:
//PRIO
hRes = a_pWbemInstance->Put
(
_bstr_t( MOF_PRFAIL::pProperties[MOF_PRFAIL::PRIO] ),
0 ,
&_variant_t(static_cast<long>(a_pPortRule->mode_data.single.priority)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
break;
case WLBS_MULTI:
//EQLD
hRes = a_pWbemInstance->Put
(
_bstr_t( PRLB::pProperties[PRLB::EQLD] ),
0 ,
&_variant_t((a_pPortRule->mode_data.multi.equal_load != 0)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
//LDWT
hRes = a_pWbemInstance->Put
(
_bstr_t( PRLB::pProperties[PRLB::LDWT] ),
0 ,
&_variant_t(static_cast<long>(a_pPortRule->mode_data.multi.load)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
//AFFIN
hRes = a_pWbemInstance->Put
(
_bstr_t( PRLB::pProperties[PRLB::AFFIN] ),
0 ,
&_variant_t(static_cast<long>(a_pPortRule->mode_data.multi.affinity)),
NULL
);
if( FAILED( hRes ) )
throw _com_error( hRes );
break;
case WLBS_NEVER:
//there are no properties
break;
default:
throw _com_error( WBEM_E_FAILED );
}
}