void ScaVirtualDirsFreeList7(
__in SCA_VDIR7* psvdList
)
{
SCA_VDIR7* psvdDelete = psvdList;
while (psvdList)
{
psvdDelete = psvdList;
psvdList = psvdList->psvdNext;
if (psvdDelete->psmm)
{
ScaMimeMapFreeList(psvdDelete->psmm);
}
if (psvdDelete->pswe)
{
ScaWebErrorFreeList(psvdDelete->pswe);
}
MemFree(psvdDelete);
}
}
/********************************************************************
ConfigureIIs - CUSTOM ACTION ENTRY POINT for installing IIs settings
********************************************************************/
extern "C" UINT __stdcall ConfigureIIs7Exec(
__in MSIHANDLE hInstall
)
{
//AssertSz(FALSE, "debug ConfigureIIs7Exec here");
HRESULT hr = S_OK;
UINT er = ERROR_SUCCESS;
LPWSTR pwzScriptKey = NULL;
LPWSTR pwzCustomActionData = NULL;
SCA_WEB7* pswList = NULL;
SCA_WEBDIR7* pswdList = NULL;
SCA_VDIR7* psvdList = NULL;
SCA_FILTER* psfList = NULL;
SCA_APPPOOL *psapList = NULL;
SCA_MIMEMAP* psmmList = NULL;
SCA_HTTP_HEADER* pshhList = NULL;
SCA_PROPERTY *pspList = NULL;
SCA_WEBSVCEXT* psWseList = NULL;
SCA_WEB_ERROR* psweList = NULL;
WCA_WRAPQUERY_HANDLE hUserQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebBaseQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebDirPropQuery = NULL;
WCA_WRAPQUERY_HANDLE hSslCertQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebLogQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebAppQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebAppExtQuery = NULL;
// initialize
hr = WcaInitialize(hInstall, "ConfigureIIs7Exec");
ExitOnFailure(hr, "Failed to initialize");
hr = WcaGetProperty(L"CustomActionData", &pwzCustomActionData);
ExitOnFailure(hr, "failed to get CustomActionData");
// Get the CaScript key
hr = WcaReadStringFromCaData(&pwzCustomActionData, &pwzScriptKey);
ExitOnFailure(hr, "Failed to get CaScript key from custom action data");
// read the msi tables
hr = WcaBeginUnwrapQuery(&hUserQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap user query");
hr = ScaWebSvcExtRead(&psWseList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadWebSvcExt, "failed while processing WebServiceExtensions");
hr = ScaAppPoolRead(&psapList, hUserQuery, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadAppPool, "failed while processing WebAppPools");
// MimeMap, Error and HttpHeader need to be read before the virtual directory and web read
hr = ScaMimeMapRead(&psmmList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadMimeMap, "failed while processing MimeMaps");
hr = ScaHttpHeaderRead(&pshhList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadHttpHeader, "failed while processing HttpHeaders");
hr = ScaWebErrorRead(&psweList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadWebError, "failed while processing WebErrors");
hr = WcaBeginUnwrapQuery(&hWebDirPropQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web dir properties query");
hr = WcaBeginUnwrapQuery(&hSslCertQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap ssl certificate query");
hr = WcaBeginUnwrapQuery(&hWebLogQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web log query");
hr = WcaBeginUnwrapQuery(&hWebAppQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web application query");
hr = WcaBeginUnwrapQuery(&hWebAppExtQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web application extension query");
hr = ScaWebsRead7(&pswList, &pshhList, &psweList, hUserQuery, hWebDirPropQuery, hSslCertQuery, hWebLogQuery, hWebAppQuery, hWebAppExtQuery, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadWebSite, "failed while processing WebSites");
hr = WcaBeginUnwrapQuery(&hWebBaseQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web base query");
hr = ScaWebDirsRead7(pswList, hUserQuery, hWebBaseQuery, hWebDirPropQuery, hWebAppQuery, hWebAppExtQuery, &pwzCustomActionData, &pswdList);
MessageExitOnFailure(hr, msierrIISFailedReadWebDirs, "failed while processing WebDirs");
hr = ScaVirtualDirsRead7(pswList, &psvdList, &psmmList, &pshhList, &psweList, hUserQuery, hWebBaseQuery, hWebDirPropQuery, hWebAppQuery, hWebAppExtQuery, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadVDirs, "failed while processing WebVirtualDirs");
hr = ScaFiltersRead7(pswList, hWebBaseQuery, &psfList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadFilters, "failed while processing WebFilters");
hr = ScaPropertyRead(&pspList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadProp, "failed while processing WebProperties");
// do uninstall actions (order is important!)
hr = ScaPropertyUninstall7(pspList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallProp, "failed to uninstall IIS properties");
hr = ScaFiltersUninstall7(psfList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallFilters, "failed to schedule uninstall of filters");
hr = ScaVirtualDirsUninstall7(psvdList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallVDirs, "failed to schedule uninstall of virtual directories");
hr = ScaWebDirsUninstall7(pswdList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallWebDirs, "failed to schedule uninstall of web directories");
hr = ScaWebsUninstall7(pswList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallWebs, "failed to schedule uninstall of webs");
hr = ScaAppPoolUninstall7(psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallAppPool, "failed to schedule uninstall of AppPools");
// do install actions (order is important!)
// ScaWebSvcExtCommit contains both uninstall and install actions.
hr = ScaWebSvcExtCommit7(psWseList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallWebSvcExt, "failed to schedule install/uninstall of WebSvcExt");
hr = ScaAppPoolInstall7(psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallAppPool, "failed to schedule install of AppPools");
hr = ScaWebsInstall7(pswList, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallWebs, "failed to schedule install of webs");
hr = ScaWebDirsInstall7(pswdList, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallWebDirs, "failed to schedule install of web directories");
hr = ScaVirtualDirsInstall7(psvdList, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallVDirs, "failed to schedule install of virtual directories");
hr = ScaFiltersInstall7(psfList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallFilters, "failed to schedule install of filters");
hr = ScaPropertyInstall7(pspList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallProp, "failed to schedule install of properties");
hr = ScaWriteConfigurationScript(pwzScriptKey);
ExitOnFailure(hr, "failed to schedule metabase configuration");
LExit:
ReleaseNullStr(pwzScriptKey);
ReleaseNullStr(pwzCustomActionData);
WcaFinishUnwrapQuery(hUserQuery);
WcaFinishUnwrapQuery(hWebBaseQuery);
WcaFinishUnwrapQuery(hWebDirPropQuery);
WcaFinishUnwrapQuery(hSslCertQuery);
WcaFinishUnwrapQuery(hWebLogQuery);
WcaFinishUnwrapQuery(hWebAppQuery);
WcaFinishUnwrapQuery(hWebAppExtQuery);
if (psWseList)
{
ScaWebSvcExtFreeList(psWseList);
}
if (psfList)
{
ScaFiltersFreeList(psfList);
}
if (psvdList)
{
ScaVirtualDirsFreeList7(psvdList);
}
if (pswdList)
{
ScaWebDirsFreeList7(pswdList);
}
if (pswList)
{
ScaWebsFreeList7(pswList);
}
if (psmmList)
{
ScaMimeMapFreeList(psmmList);
}
if (pshhList)
{
ScaHttpHeaderCheckList(pshhList);
ScaHttpHeaderFreeList(pshhList);
}
if (psweList)
{
ScaWebErrorCheckList(psweList);
ScaWebErrorFreeList(psweList);
}
er = SUCCEEDED(hr) ? ERROR_SUCCESS : ERROR_INSTALL_FAILURE;
return WcaFinalize(er);
}
/********************************************************************
ConfigureIIsExec - custom action for installing IIs settings - table
data will be wrapped and passed in from immediate CA
ReadIIsTables
********************************************************************/
extern "C" UINT __stdcall ConfigureIIsExec(
__in MSIHANDLE hInstall
)
{
//AssertSz(FALSE, "debug ConfigureIIsExec here");
HRESULT hr = S_OK;
UINT er = ERROR_SUCCESS;
BOOL fInitializedCom = FALSE;
IMSAdminBase* piMetabase = NULL;
SCA_WEB* pswList = NULL;
SCA_WEBDIR* pswdList = NULL;
SCA_VDIR* psvdList = NULL;
SCA_FILTER* psfList = NULL;
SCA_APPPOOL *psapList = NULL;
SCA_MIMEMAP* psmmList = NULL;
SCA_HTTP_HEADER* pshhList = NULL;
SCA_PROPERTY *pspList = NULL;
SCA_WEBSVCEXT* psWseList = NULL;
SCA_WEB_ERROR* psweList = NULL;
LPWSTR pwzScriptKey = NULL;
LPWSTR pwzCustomActionData = NULL;
WCA_WRAPQUERY_HANDLE hUserQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebBaseQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebDirPropQuery = NULL;
WCA_WRAPQUERY_HANDLE hSslCertQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebLogQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebAppQuery = NULL;
WCA_WRAPQUERY_HANDLE hWebAppExtQuery = NULL;
// initialize
hr = WcaInitialize(hInstall, "ConfigureIIsExec");
ExitOnFailure(hr, "Failed to initialize");
hr = WcaGetProperty(L"CustomActionData", &pwzCustomActionData);
ExitOnFailure(hr, "failed to get CustomActionData");
// Get the CaScript key
hr = WcaReadStringFromCaData(&pwzCustomActionData, &pwzScriptKey);
ExitOnFailure(hr, "Failed to get CaScript key from custom action data");
hr = ::CoInitialize(NULL);
ExitOnFailure(hr, "failed to initialize COM");
fInitializedCom = TRUE;
// if IIS was uninstalled (thus no IID_IMSAdminBase) allow the
// user to still uninstall this package by clicking "Ignore"
do
{
hr = ::CoCreateInstance(CLSID_MSAdminBase, NULL, CLSCTX_ALL, IID_IMSAdminBase, (void**)&piMetabase);
if (FAILED(hr))
{
WcaLog(LOGMSG_STANDARD, "failed to get IID_IMSAdminBase Object");
er = WcaErrorMessage(msierrIISCannotConnect, hr, INSTALLMESSAGE_ERROR | MB_ABORTRETRYIGNORE, 0);
switch (er)
{
case IDABORT:
ExitFunction(); // bail with the error result from the CoCreate to kick off a rollback
case IDRETRY:
hr = S_FALSE; // hit me, baby, one more time
break;
case IDIGNORE:
__fallthrough;
default:
WcaLog(LOGMSG_STANDARD, "ignoring absent IIS");
// We need to write the empty script to communicate to other deferred CA that there is noting to do.
hr = ScaWriteConfigurationScript(pwzScriptKey);
ExitOnFailure(hr, "failed to schedule metabase configuration");
ExitFunction1(hr = S_OK); // pretend everything is okay
break;
}
}
} while (S_FALSE == hr);
// read the msi tables
hr = WcaBeginUnwrapQuery(&hUserQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap user query");
hr = ScaWebSvcExtRead(&psWseList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadWebSvcExt, "failed while processing WebServiceExtensions");
hr = ScaAppPoolRead(&psapList, hUserQuery, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadAppPool, "failed while processing WebAppPools");
// MimeMap, Error and HttpHeader need to be read before the virtual directory and web read
hr = ScaMimeMapRead(&psmmList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadMimeMap, "failed while processing MimeMaps");
hr = ScaHttpHeaderRead(&pshhList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadHttpHeader, "failed while processing HttpHeaders");
hr = ScaWebErrorRead(&psweList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadWebError, "failed while processing WebErrors");
hr = WcaBeginUnwrapQuery(&hWebDirPropQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web dir properties query");
hr = WcaBeginUnwrapQuery(&hSslCertQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap ssl certificate query");
hr = WcaBeginUnwrapQuery(&hWebLogQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web log query");
hr = WcaBeginUnwrapQuery(&hWebAppQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web application query");
hr = WcaBeginUnwrapQuery(&hWebAppExtQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web application extension query");
hr = ScaWebsRead(piMetabase, &psmmList, &pswList, &pshhList, &psweList, hUserQuery, hWebDirPropQuery, hSslCertQuery, hWebLogQuery, hWebAppQuery, hWebAppExtQuery, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadWebSite, "failed while processing WebSites");
hr = WcaBeginUnwrapQuery(&hWebBaseQuery, &pwzCustomActionData);
ExitOnFailure(hr, "Failed to unwrap web base query");
hr = ScaWebDirsRead(piMetabase, pswList, hUserQuery, hWebBaseQuery, hWebDirPropQuery, hWebAppQuery, hWebAppExtQuery, &pwzCustomActionData, &pswdList);
MessageExitOnFailure(hr, msierrIISFailedReadWebDirs, "failed while processing WebDirs");
hr = ScaVirtualDirsRead(piMetabase, pswList, &psvdList, &psmmList, &pshhList, &psweList, hUserQuery, hWebBaseQuery, hWebDirPropQuery, hWebAppQuery, hWebAppExtQuery, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadVDirs, "failed while processing WebVirtualDirs");
hr = ScaFiltersRead(piMetabase, pswList, hWebBaseQuery, &psfList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadFilters, "failed while processing WebFilters");
hr = ScaPropertyRead(&pspList, &pwzCustomActionData);
MessageExitOnFailure(hr, msierrIISFailedReadProp, "failed while processing WebProperties");
// do uninstall actions (order is important!)
hr = ScaPropertyUninstall(piMetabase, pspList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallProp, "failed to uninstall IIS properties");
hr = ScaFiltersUninstall(piMetabase, psfList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallFilters, "failed to schedule uninstall of filters");
hr = ScaVirtualDirsUninstall(piMetabase, psvdList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallVDirs, "failed to schedule uninstall of virtual directories");
hr = ScaWebDirsUninstall(piMetabase, pswdList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallWebDirs, "failed to schedule uninstall of web directories");
hr = ScaWebsUninstall(piMetabase, pswList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallWebs, "failed to schedule uninstall of webs");
hr = ScaAppPoolUninstall(piMetabase, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedUninstallAppPool, "failed to schedule uninstall of AppPools");
// do install actions (order is important!)
// ScaWebSvcExtCommit contains both uninstall and install actions.
hr = ScaWebSvcExtCommit(piMetabase, psWseList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallWebSvcExt, "failed to schedule install/uninstall of WebSvcExt");
hr = ScaAppPoolInstall(piMetabase, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallAppPool, "failed to schedule install of AppPools");
hr = ScaWebsInstall(piMetabase, pswList, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallWebs, "failed to schedule install of webs");
hr = ScaWebDirsInstall(piMetabase, pswdList, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallWebDirs, "failed to schedule install of web directories");
hr = ScaVirtualDirsInstall(piMetabase, psvdList, psapList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallVDirs, "failed to schedule install of virtual directories");
hr = ScaFiltersInstall(piMetabase, psfList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallFilters, "failed to schedule install of filters");
hr = ScaPropertyInstall(piMetabase, pspList);
MessageExitOnFailure(hr, msierrIISFailedSchedInstallProp, "failed to schedule install of properties");
hr = ScaWriteConfigurationScript(pwzScriptKey);
ExitOnFailure(hr, "failed to schedule metabase configuration");
LExit:
ReleaseStr(pwzScriptKey);
ReleaseStr(pwzCustomActionData);
WcaFinishUnwrapQuery(hUserQuery);
WcaFinishUnwrapQuery(hWebBaseQuery);
WcaFinishUnwrapQuery(hWebDirPropQuery);
WcaFinishUnwrapQuery(hSslCertQuery);
WcaFinishUnwrapQuery(hWebLogQuery);
WcaFinishUnwrapQuery(hWebAppQuery);
WcaFinishUnwrapQuery(hWebAppExtQuery);
if (psWseList)
{
ScaWebSvcExtFreeList(psWseList);
}
if (psfList)
{
ScaFiltersFreeList(psfList);
}
if (psvdList)
{
ScaVirtualDirsFreeList(psvdList);
}
if (pswdList)
{
ScaWebDirsFreeList(pswdList);
}
if (pswList)
{
ScaWebsFreeList(pswList);
}
if (psmmList)
{
ScaMimeMapCheckList(psmmList);
ScaMimeMapFreeList(psmmList);
}
if (pshhList)
{
ScaHttpHeaderCheckList(pshhList);
ScaHttpHeaderFreeList(pshhList);
}
if (psweList)
{
ScaWebErrorCheckList(psweList);
ScaWebErrorFreeList(psweList);
}
ReleaseObject(piMetabase);
if (fInitializedCom)
{
::CoUninitialize();
}
er = SUCCEEDED(hr) ? ERROR_SUCCESS : ERROR_INSTALL_FAILURE;
return WcaFinalize(er);
}
