1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
// Copyright (c) .NET Foundation and contributors. All rights reserved. Licensed under the Microsoft Reciprocal License. See LICENSE.TXT file in the project root for full license information.
#include "precomp.h"
// sql queries
enum eWebApplicationQuery { wappqName = 1, wappqIsolation, wappqAllowSession,
wappqSessionTimeout, wappqBuffer, wappqParentPaths,
wappqDefaultScript, wappqScriptTimeout,
wappqServerDebugging, wappqClientDebugging, wappqAppPool, wappqApplication};
HRESULT ScaGetWebApplication(MSIHANDLE /*hViewApplications*/,
LPCWSTR pwzApplication,
__in WCA_WRAPQUERY_HANDLE hWebAppQuery,
__in WCA_WRAPQUERY_HANDLE hWebAppExtQuery,
SCA_WEB_APPLICATION* pswapp)
{
HRESULT hr = S_OK;
MSIHANDLE hRec;
LPWSTR pwzData = NULL;
// Reset back to the first record
WcaFetchWrappedReset(hWebAppQuery);
// get the application information
hr = WcaFetchWrappedRecordWhereString(hWebAppQuery, wappqApplication, pwzApplication, &hRec);
if (S_OK == hr)
{
// application name
hr = WcaGetRecordString(hRec, wappqName, &pwzData);
ExitOnFailure(hr, "Failed to get Name of App");
hr = ::StringCchCopyW(pswapp->wzName, countof(pswapp->wzName), pwzData);
if (HRESULT_FROM_WIN32(ERROR_INSUFFICIENT_BUFFER) == hr)
{
// The application name is sometimes truncated to IIS's supported length, so ignore insufficient buffer errors here
WcaLog(LOGMSG_VERBOSE, "Application name \"%ls\" truncated to fit IIS's supported %d-character length", pwzData, MAX_APP_NAME);
hr = S_OK;
}
ExitOnFailure(hr, "Failed to copy name string to webapp object");
hr = WcaGetRecordInteger(hRec, wappqIsolation, &pswapp->iIsolation);
ExitOnFailure(hr, "Failed to get App isolation: '%ls'", pswapp->wzName);
hr = WcaGetRecordInteger(hRec, wappqAllowSession, &pswapp->fAllowSessionState);
hr = WcaGetRecordInteger(hRec, wappqSessionTimeout, &pswapp->iSessionTimeout);
hr = WcaGetRecordInteger(hRec, wappqBuffer, &pswapp->fBuffer);
hr = WcaGetRecordInteger(hRec, wappqParentPaths, &pswapp->fParentPaths);
hr = WcaGetRecordString(hRec, wappqDefaultScript, &pwzData);
ExitOnFailure(hr, "Failed to get default scripting language for App: '%ls'", pswapp->wzName);
hr = ::StringCchCopyW(pswapp->wzDefaultScript, countof(pswapp->wzDefaultScript), pwzData);
ExitOnFailure(hr, "Failed to copy default script string to webapp object");
// asp script timeout
hr = WcaGetRecordInteger(hRec, wappqScriptTimeout, &pswapp->iScriptTimeout);
ExitOnFailure(hr, "Failed to get scripting timeout for App: '%ls'", pswapp->wzName);
// asp server-side script debugging
hr = WcaGetRecordInteger(hRec, wappqServerDebugging, &pswapp->fServerDebugging);
// asp client-side script debugging
hr = WcaGetRecordInteger(hRec, wappqClientDebugging, &pswapp->fClientDebugging);
hr = WcaGetRecordString(hRec, wappqAppPool, &pwzData);
ExitOnFailure(hr, "Failed to get AppPool for App: '%ls'", pswapp->wzName);
hr = ::StringCchCopyW(pswapp->wzAppPool, countof(pswapp->wzAppPool), pwzData);
ExitOnFailure(hr, "failed to copy AppPool: '%ls' for App: '%ls'", pwzData, pswapp->wzName);
// app extensions
hr = ScaWebAppExtensionsRead(pwzApplication, hWebAppExtQuery, &pswapp->pswappextList);
ExitOnFailure(hr, "Failed to read AppExtensions for App: '%ls'", pswapp->wzName);
hr = S_OK;
}
else if (E_NOMOREITEMS == hr)
{
WcaLog(LOGMSG_STANDARD, "Error: Cannot locate IIsWebApplication.Application='%ls'", pwzApplication);
hr = E_FAIL;
}
else
ExitOnFailure(hr, "Error matching Application rows");
// Let's check that there isn't more than one record found - if there is, throw an assert like WcaFetchSingleRecord() would
HRESULT hrTemp = WcaFetchWrappedRecordWhereString(hWebAppQuery, wappqApplication, pwzApplication, &hRec);
if (SUCCEEDED(hrTemp))
{
AssertSz(E_NOMOREITEMS == hrTemp, "ScaGetWebApplication found more than one record");
}
LExit:
ReleaseStr(pwzData);
return hr;
}
HRESULT ScaWriteWebApplication(IMSAdminBase* piMetabase, LPCWSTR wzRootOfWeb,
SCA_WEB_APPLICATION* pswapp, SCA_APPPOOL * psapList)
{
HRESULT hr = S_OK;
WCHAR wzAppPoolName[MAX_PATH];
hr = ScaCreateApp(piMetabase, wzRootOfWeb, pswapp->iIsolation);
ExitOnFailure(hr, "Failed to create ASP App");
// Medium Isolation seems to have to be set through the metabase
if (2 == pswapp->iIsolation)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_APP_ISOLATED, METADATA_INHERIT, IIS_MD_UT_WAM, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->iIsolation));
ExitOnFailure(hr, "Failed to write isolation value for App: '%ls'", pswapp->wzName);
}
// application name
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_APP_FRIENDLY_NAME, METADATA_INHERIT, IIS_MD_UT_WAM, STRING_METADATA, pswapp->wzName);
ExitOnFailure(hr, "Failed to write Name of App: '%ls'", pswapp->wzName);
// allow session state
if (MSI_NULL_INTEGER != pswapp->fAllowSessionState)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_ALLOWSESSIONSTATE, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->fAllowSessionState));
ExitOnFailure(hr, "Failed to write allow session information for App: '%ls'", pswapp->wzName);
}
// session timeout
if (MSI_NULL_INTEGER != pswapp->iSessionTimeout)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_SESSIONTIMEOUT, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->iSessionTimeout));
ExitOnFailure(hr, "Failed to write session timeout for App: '%ls'", pswapp->wzName);
}
// asp buffering
if (MSI_NULL_INTEGER != pswapp->fBuffer)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_BUFFERINGON, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->fBuffer));
ExitOnFailure(hr, "Failed to write buffering flag for App: '%ls'", pswapp->wzName);
}
// asp parent paths
if (MSI_NULL_INTEGER != pswapp->fParentPaths)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_ENABLEPARENTPATHS, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->fParentPaths));
ExitOnFailure(hr, "Failed to write parent paths flag for App: '%ls'", pswapp->wzName);
}
// default scripting language
if (*pswapp->wzDefaultScript)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_SCRIPTLANGUAGE, METADATA_INHERIT, ASP_MD_UT_APP, STRING_METADATA, pswapp->wzDefaultScript);
ExitOnFailure(hr, "Failed to write default scripting language for App: '%ls'", pswapp->wzName);
}
// asp script timeout
if (MSI_NULL_INTEGER != pswapp->iScriptTimeout)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_SCRIPTTIMEOUT, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->iScriptTimeout));
ExitOnFailure(hr, "Failed to write script timeout for App: '%ls'", pswapp->wzName);
}
// asp server-side script debugging
if (MSI_NULL_INTEGER != pswapp->fServerDebugging)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_ENABLESERVERDEBUG, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->fServerDebugging));
ExitOnFailure(hr, "Failed to write ASP server-side script debugging flag for App: '%ls'", pswapp->wzName);
}
// asp server-side script debugging
if (MSI_NULL_INTEGER != pswapp->fClientDebugging)
{
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_ASP_ENABLECLIENTDEBUG, METADATA_INHERIT, ASP_MD_UT_APP, DWORD_METADATA, (LPVOID)((DWORD_PTR)pswapp->fClientDebugging));
ExitOnFailure(hr, "Failed to write ASP client-side script debugging flag for App: '%ls'", pswapp->wzName);
}
// AppPool
if (*pswapp->wzAppPool && NULL != psapList)
{
hr = ScaFindAppPool(piMetabase, pswapp->wzAppPool, wzAppPoolName, countof(wzAppPoolName), psapList);
ExitOnFailure(hr, "failed to find app pool: %ls", pswapp->wzAppPool);
hr = ScaWriteMetabaseValue(piMetabase, wzRootOfWeb, NULL, MD_APP_APPPOOL_ID, METADATA_INHERIT, IIS_MD_UT_SERVER, STRING_METADATA, wzAppPoolName);
ExitOnFailure(hr, "Failed to write default AppPool for App: '%ls'", pswapp->wzName);
}
if (pswapp->pswappextList)
{
hr = ScaWebAppExtensionsWrite(piMetabase, wzRootOfWeb, pswapp->pswappextList);
ExitOnFailure(hr, "Failed to write AppExtensions for App: '%ls'", pswapp->wzName);
}
LExit:
return hr;
}
|
