/////////////////////////////////////////////////////////////////////
//
// Function: OnInitialize
//
// Description:
//
/////////////////////////////////////////////////////////////////////
UINT BOINCCABase::OnInitialize()
{
UINT uiReturnValue = 0;
m_phActionStartRec = MsiCreateRecord(3);
assert(NULL != m_phActionStartRec);
MsiRecordSetString(m_phActionStartRec, 1, m_strActionName.c_str());
MsiRecordSetString(m_phActionStartRec, 2, m_strProgressTitle.c_str());
MsiRecordSetString(m_phActionStartRec, 3, _T("[1]"));
uiReturnValue = MsiProcessMessage(m_hMSIHandle, INSTALLMESSAGE_ACTIONSTART, m_phActionStartRec);
if ((uiReturnValue == IDCANCEL))
return ERROR_INSTALL_USEREXIT;
// Give the UI a chance to refresh.
Sleep(0);
m_phActionDataRec = MsiCreateRecord(3);
assert(NULL != m_phActionDataRec);
m_phProgressRec = MsiCreateRecord(3);
assert(NULL != m_phProgressRec);
MsiRecordSetInteger(m_phProgressRec, 1, 1);
MsiRecordSetInteger(m_phProgressRec, 2, 1);
MsiRecordSetInteger(m_phProgressRec, 3, 0);
uiReturnValue = MsiProcessMessage(m_hMSIHandle, INSTALLMESSAGE_PROGRESS, m_phProgressRec);
if ((uiReturnValue == IDCANCEL))
return ERROR_INSTALL_USEREXIT;
m_phLogInfoRec = MsiCreateRecord(3);
assert(NULL != m_phLogInfoRec);
MsiRecordSetString (m_phLogInfoRec, 0, _T("Custom Message : Action Name: [1] Description: [2] Error Code: [3] "));
MsiRecordSetString (m_phLogInfoRec, 1, m_strActionName.c_str());
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("Starting Custom Action")
);
return ERROR_SUCCESS;
}
static void test_MsiRecordGetInteger(void)
{
MSIHANDLE rec;
INT val;
UINT r;
rec = MsiCreateRecord(1);
ok(rec != 0, "Expected a valid handle\n");
r = MsiRecordSetString(rec, 1, "5");
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
val = MsiRecordGetInteger(rec, 1);
ok(val == 5, "Expected 5, got %d\n", val);
r = MsiRecordSetString(rec, 1, "-5");
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
val = MsiRecordGetInteger(rec, 1);
ok(val == -5, "Expected -5, got %d\n", val);
r = MsiRecordSetString(rec, 1, "5apple");
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
val = MsiRecordGetInteger(rec, 1);
ok(val == MSI_NULL_INTEGER, "Expected MSI_NULL_INTEGER, got %d\n", val);
MsiCloseHandle(rec);
}
static void test_MsiRecordGetString(void)
{
MSIHANDLE rec;
CHAR buf[MAX_PATH];
DWORD sz;
UINT r;
rec = MsiCreateRecord(2);
ok(rec != 0, "Expected a valid handle\n");
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, ""), "Expected \"\", got \"%s\"\n", buf);
ok(sz == 0, "Expected 0, got %d\n", sz);
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 10, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, ""), "Expected \"\", got \"%s\"\n", buf);
ok(sz == 0, "Expected 0, got %d\n", sz);
MsiCloseHandle(rec);
}
/* Abort the installation (called as an immediate custom action) */
MSIDLLEXPORT AbortMsiImmediate( MSIHANDLE hInstall ) {
DWORD rv;
DWORD dwSize = 0;
LPTSTR sReason = NULL;
LPTSTR sFormatted = NULL;
MSIHANDLE hRecord = NULL;
LPTSTR cAbortReason = _T("ABORTREASON");
rv = MsiGetProperty( hInstall, cAbortReason, _T(""), &dwSize );
if(rv != ERROR_MORE_DATA) goto _cleanup;
sReason = new TCHAR[ ++dwSize ];
rv = MsiGetProperty( hInstall, cAbortReason, sReason, &dwSize );
if(rv != ERROR_SUCCESS) goto _cleanup;
hRecord = MsiCreateRecord(3);
MsiRecordClearData(hRecord);
MsiRecordSetString(hRecord, 0, sReason);
dwSize = 0;
rv = MsiFormatRecord(hInstall, hRecord, "", &dwSize);
if(rv != ERROR_MORE_DATA) goto _cleanup;
sFormatted = new TCHAR[ ++dwSize ];
rv = MsiFormatRecord(hInstall, hRecord, sFormatted, &dwSize);
if(rv != ERROR_SUCCESS) goto _cleanup;
MsiCloseHandle(hRecord);
hRecord = MsiCreateRecord(3);
MsiRecordClearData(hRecord);
MsiRecordSetInteger(hRecord, 1, ERR_ABORT);
MsiRecordSetString(hRecord,2, sFormatted);
MsiProcessMessage(hInstall, INSTALLMESSAGE_ERROR, hRecord);
_cleanup:
if(sFormatted) delete[] sFormatted;
if(hRecord) MsiCloseHandle( hRecord );
if(sReason) delete[] sReason;
return ~ERROR_SUCCESS;
}
//-----------------------------------------------------------------------------------------
// Record
//-----------------------------------------------------------------------------------------
Record::Record( unsigned int n_fields )
{
_handle = MsiCreateRecord( n_fields ) ;
if ( ! _handle )
{
throw windows_api_error( "MsiCreateRecord", 0 ) ;
}
}
//-----------------------------------------------------------------------------------------
// Record
//-----------------------------------------------------------------------------------------
Record::Record( unsigned int nFields )
{
handle = MsiCreateRecord( nFields ) ;
if ( ! handle )
{
throw WindowsApiError( "MsiCreateRecord", 0 ) ;
}
}
/********************************************************************
WcaLog() - outputs trace and log info
*******************************************************************/
extern "C" void __cdecl WcaLog(
__in LOGLEVEL llv,
__in_z __format_string PCSTR fmt,
...
)
{
static char szFmt[LOG_BUFFER];
static char szBuf[LOG_BUFFER];
static bool fInLogPrint = false;
// prevent re-entrant logprints. (recursion issues between assert/logging code)
if (fInLogPrint)
return;
fInLogPrint = true;
if (LOGMSG_STANDARD == llv ||
(LOGMSG_VERBOSE == llv && IsVerboseLoggingLite())
#ifdef DEBUG
|| LOGMSG_TRACEONLY == llv
#endif
)
{
va_list args;
va_start(args, fmt);
LPCSTR szLogName = WcaGetLogName();
if (szLogName[0] != 0)
StringCchPrintfA(szFmt, countof(szFmt), "%s: %s", szLogName, fmt);
else
StringCchCopyA(szFmt, countof(szFmt), fmt);
StringCchVPrintfA(szBuf, countof(szBuf), szFmt, args);
va_end(args);
#ifdef DEBUG
// always write to the log in debug
#else
if (llv == LOGMSG_STANDARD || (llv == LOGMSG_VERBOSE && IsVerboseLoggingLite()))
#endif
{
PMSIHANDLE hrec = MsiCreateRecord(1);
::MsiRecordSetStringA(hrec, 0, szBuf);
// TODO: Recursion on failure. May not be safe to assert from here.
WcaProcessMessage(INSTALLMESSAGE_INFO, hrec);
}
#if DEBUG
StringCchCatA(szBuf, countof(szBuf), "\n");
OutputDebugStringA(szBuf);
#endif
}
fInLogPrint = false;
return;
}
/* Print a debug message to the installer log file.
* To see the debug messages, install with
* msiexec /i pythonxy.msi /l*v python.log
*/
static UINT debug(MSIHANDLE hInstall, LPCSTR msg)
{
MSIHANDLE hRec = MsiCreateRecord(1);
if (!hRec || MsiRecordSetStringA(hRec, 1, msg) != ERROR_SUCCESS) {
return ERROR_INSTALL_FAILURE;
}
MsiProcessMessage(hInstall, INSTALLMESSAGE_INFO, hRec);
MsiCloseHandle(hRec);
return ERROR_SUCCESS;
}
void ShowMsiError( MSIHANDLE hInstall, DWORD errcode, DWORD param ){
MSIHANDLE hRecord;
hRecord = MsiCreateRecord(3);
MsiRecordClearData(hRecord);
MsiRecordSetInteger(hRecord, 1, errcode);
MsiRecordSetInteger(hRecord, 2, param);
MsiProcessMessage( hInstall, INSTALLMESSAGE_ERROR, hRecord );
MsiCloseHandle( hRecord );
}
extern "C" UINT __stdcall DevEnvNotRunning(MSIHANDLE hInstall)
{
UINT errCode;
DevEnvStatus status;
bool cancelled = false;
MSIHANDLE hMessage = NULL;
status = GetDevEnvStatus(hInstall);
while (!cancelled && status == StatusRunning)
{
if (hMessage == NULL)
{
hMessage = MsiCreateRecord(2);
}
MsiRecordClearData(hMessage);
MsiRecordSetInteger(hMessage, 1, messageIdCloseDevEnv);
int result = MsiProcessMessage(
hInstall,
static_cast<INSTALLMESSAGE>(INSTALLMESSAGE_WARNING | MB_RETRYCANCEL),
hMessage);
cancelled = (result == IDCANCEL);
if (!cancelled)
{
status = GetDevEnvStatus(hInstall);
}
}
switch (status)
{
case StatusNotRunning:
errCode = ERROR_SUCCESS;
break;
case StatusRunning:
errCode = ERROR_INSTALL_USEREXIT;
break;
case StatusError:
default:
Log(LogError, hInstall, L"Failed to search for running DevEnv.exe process.");
errCode = ERROR_INSTALL_FAILURE;
break;
}
if (hMessage != NULL) MsiCloseHandle(hMessage);
return errCode;
}
/////////////////////////////////////////////////////////////////////
//
// Function: LogMessage
//
// Description: This function writes to the MSI log file and displays
// the SetupError dialog box as appropriate.
//
/////////////////////////////////////////////////////////////////////
UINT BOINCCABase::LogMessage(
const UINT uiInstallMessageType, // message type to send to Windows Installer
const UINT uiPushButtonStyle, // push button sstyle to use in message box
const UINT uiIconStyle, // icon style to use in message box
const UINT uiErrorNumber, // number of error in Error table
const UINT uiErrorCode, // the return value from an api
const tstring strMessage // message
)
{
UINT uiReturnValue = 0;
switch(uiInstallMessageType)
{
// Send informational message to the log file
case INSTALLMESSAGE_INFO:
MsiRecordSetString (m_phLogInfoRec, 2, strMessage.c_str());
MsiRecordSetInteger(m_phLogInfoRec, 3, uiErrorCode);
// returns IDOK if successful
uiReturnValue = MsiProcessMessage(
m_hMSIHandle,
INSTALLMESSAGE(uiInstallMessageType),
m_phLogInfoRec
);
break;
// Display a dialog and send error message to log file
case INSTALLMESSAGE_ERROR:
case INSTALLMESSAGE_WARNING:
case INSTALLMESSAGE_USER:
PMSIHANDLE phLogErrorRec = MsiCreateRecord(2);
MsiRecordSetString (phLogErrorRec, 0, _T("[1]"));
MsiRecordSetString (phLogErrorRec, 1, strMessage.c_str());
// Return value to indicate which button is
// pushed on message box
uiReturnValue = MsiProcessMessage(
m_hMSIHandle,
INSTALLMESSAGE(uiInstallMessageType|uiPushButtonStyle|uiIconStyle),
phLogErrorRec
);
break;
}
return uiReturnValue;
}
static void logStringW(MSIHANDLE hInstall, LPCWSTR pwszString, ...)
{
PMSIHANDLE newHandle = MsiCreateRecord(2);
WCHAR szBuffer[1024];
va_list va;
va_start(va, pwszString);
_vsnwprintf(szBuffer, RT_ELEMENTS(szBuffer), pwszString, va);
va_end(va);
MsiRecordSetStringW(newHandle, 0, szBuffer);
MsiProcessMessage(hInstall, INSTALLMESSAGE(INSTALLMESSAGE_INFO), newHandle);
MsiCloseHandle(newHandle);
}
static BOOL msidbImportStorages(LPCWSTR dbfile, LPCWSTR wdir, LPWSTR storageNames[])
{
static const WCHAR delim[] = {'/', 0};
UINT r, len, i;
MSIHANDLE dbhandle, view, rec;
WCHAR *storagePath = 0;
char *query = "INSERT INTO _Storages (Name, Data) VALUES(?, ?)";
r = MsiOpenDatabaseW(dbfile, (LPWSTR) MSIDBOPEN_TRANSACT, &dbhandle);
if (r != ERROR_SUCCESS) return FALSE;
r = MsiDatabaseOpenView(dbhandle, query, &view);
if (r != ERROR_SUCCESS) return FALSE;
MsiViewExecute(view, 0);
r = MsiViewFetch(view, &rec);
if (r != ERROR_SUCCESS) return FALSE;
for (i = 0; i < MAX_STORAGES && storageNames[i] != 0; ++i)
{
len = lstrlenW(wdir) + lstrlenW(storageNames[i]) + 2;
storagePath = malloc(len * sizeof(WCHAR));
if (storagePath == NULL) return FALSE;
lstrcpyW(storagePath, wdir);
lstrcatW(storagePath, delim);
lstrcatW(storagePath, storageNames[i]);
rec = MsiCreateRecord(2);
MsiRecordSetStringW(rec, 1, storageNames[i]);
r = MsiRecordSetStreamW(rec, 2, storagePath);
if (r != ERROR_SUCCESS)
{
return FALSE;
}
r = MsiViewExecute(view, rec);
if (r != ERROR_SUCCESS)
{
return FALSE;
}
MsiCloseHandle(rec);
}
MsiViewClose(view);
MsiCloseHandle(view);
MsiDatabaseCommit(dbhandle);
MsiCloseHandle(dbhandle);
return TRUE;
}
static BOOL msidbImportStreams(LPCWSTR dbfile, LPCWSTR wdir, LPWSTR streamNames[])
{
UINT r, len;
MSIHANDLE dbhandle, view, rec;
int i = 0;
WCHAR *streamPath = 0;
char *query = "INSERT INTO _Streams (Name, Data) VALUES(?, ?)";
r = MsiOpenDatabaseW(dbfile, (LPWSTR) MSIDBOPEN_TRANSACT, &dbhandle);
if (r != ERROR_SUCCESS) return FALSE;
r = MsiDatabaseOpenView(dbhandle, query, &view);
if (r != ERROR_SUCCESS) return FALSE;
for (i = 0; i < MAX_STREAMS && streamNames[i] != NULL; i++)
{
len = lstrlenW(wdir) + lstrlenW(streamNames[i]) + 2;
streamPath = malloc(len * sizeof(WCHAR));
if (streamPath == NULL) return FALSE;
lstrcpyW(streamPath, wdir);
lstrcatW(streamPath, PATH_DELIMITERW);
lstrcatW(streamPath, streamNames[i]);
rec = MsiCreateRecord(2);
MsiRecordSetStringW(rec, 1, streamNames[i]);
r = MsiRecordSetStreamW(rec, 2, streamPath);
if (r != ERROR_SUCCESS)
{
return FALSE;
}
r = MsiViewExecute(view, rec);
if (r != ERROR_SUCCESS)
{
return FALSE;
}
MsiCloseHandle(rec);
}
MsiViewClose(view);
MsiCloseHandle(view);
MsiDatabaseCommit(dbhandle);
MsiCloseHandle(dbhandle);
return TRUE;
}
extern "C" void ReportMessage(int level, LPCSTR msg, LPCSTR str, LPCWSTR wstr, DWORD dw) {
if(dwReporterType == REPORT_PRINTF)
printf("%s:[%s][%S][%d]\n", (msg?msg:""), (str?str:""), (wstr?wstr:L""), dw);
else if(dwReporterType == REPORT_MSI && hMsiHandle && level == 0) {
MSIHANDLE hRec = MsiCreateRecord(5);
MsiRecordClearData(hRec);
MsiRecordSetStringA(hRec,1,(msg)?msg:"");
MsiRecordSetStringA(hRec,2,(str)?str:"");
MsiRecordSetStringW(hRec,3,(wstr)?wstr:L"");
MsiRecordSetInteger(hRec,4,dw);
MsiProcessMessage(hMsiHandle,INSTALLMESSAGE_ACTIONDATA,hRec);
MsiCloseHandle(hRec);
}
}
static MSIHANDLE createNetCfgLockedMsgRecord(MSIHANDLE hModule)
{
MSIHANDLE hRecord = MsiCreateRecord(2);
if (hRecord)
{
UINT uErr = MsiRecordSetInteger(hRecord, 1, 25001);
if (uErr != ERROR_SUCCESS)
{
logStringW(hModule, L"createNetCfgLockedMsgRecord: MsiRecordSetInteger failed, error = 0x%x", uErr);
MsiCloseHandle(hRecord);
hRecord = NULL;
}
}
else
logStringW(hModule, L"createNetCfgLockedMsgRecord: Failed to create a record");
return hRecord;
}
extern "C" void SetMsiReporter(LPCSTR strAction, LPCSTR strDesc,DWORD h) {
dwReporterType = REPORT_MSI;
hMsiHandle = h;
#ifdef DONT_NEED
/* this is performed in the Wix installer */
MSIHANDLE hRec = MsiCreateRecord(4);
MsiRecordClearData(hRec);
MsiRecordSetStringA(hRec,1,strAction);
MsiRecordSetStringA(hRec,2,strDesc);
MsiRecordSetStringA(hRec,3,"[1]:([2])([3])([4])");
MsiProcessMessage(h,INSTALLMESSAGE_ACTIONSTART, hRec);
MsiCloseHandle(hRec);
#endif
}
// Adds a line of wide text to the log file of the installer.
void WriteMsiLogEntry(MSIHANDLE hInstall, const wchar_t * pszMessage)
{
#ifdef TEST_HARNESS
if (!hInstall)
{
MessageBoxW(NULL, pszMessage, L"Test harness message", 0);
return;
}
#endif
PMSIHANDLE hRecord = MsiCreateRecord(1);
// field 0 is the template
MsiRecordSetStringW(hRecord, 0, L"RemoveSampleDatabases: [1]");
// field 1, to be placed in [1] placeholder
MsiRecordSetStringW(hRecord, 1, pszMessage);
// send message to running installer
MsiProcessMessage(hInstall, INSTALLMESSAGE_INFO, hRecord);
}
static void logString(MSIHANDLE hInstall, LPCSTR szString, ...)
{
PMSIHANDLE newHandle = MsiCreateRecord(2);
char szBuffer[1024];
va_list va;
va_start(va, szString);
_vsnprintf(szBuffer, sizeof(szBuffer), szString, va);
va_end(va);
MsiRecordSetStringA(newHandle, 0, szBuffer);
MsiProcessMessage(hInstall, INSTALLMESSAGE(INSTALLMESSAGE_INFO), newHandle);
MsiCloseHandle(newHandle);
#if 0/*def DEBUG - wrong? What does '%s' expect, wchar or char? */
_tprintf(_T("Debug: %s\n"), szBuffer);
#endif
}
void pacifica_msi_log(MSIHANDLE hInstall, const WCHAR *str, ...)
{
va_list args;
WCHAR buffer[10240];
UINT err;
MSIHANDLE record = MsiCreateRecord(1);
va_start(args, str);
vswprintf(buffer, str, args);
va_end(args);
if(record == ERROR_INVALID_HANDLE)
{
return;
}
err = MsiRecordSetString(record, 0, buffer);
if(err == ERROR_SUCCESS)
{
MsiProcessMessage(hInstall, INSTALLMESSAGE_ERROR, record);
}
MsiCloseHandle(record);
}
//////////////////////////////////////////////////////////////////////////////
// RemoveUserAccount
//
// Attempts to remove a user account on the local machine according
// to the "instructions" provided in the CustomActionData property
//
// As a deferred custom action, you do not have access to the database.
// The only source of information comes from a property that an immediate
// custom action can set to provide the information you need. This
// property is written into the script
//
UINT __stdcall RemoveUserAccount(MSIHANDLE hInstall)
{
// determine mode in which we are called
BOOL bRollback = MsiGetMode(hInstall, MSIRUNMODE_ROLLBACK); // true for rollback, else regular deferred version (for uninstall)
BOOL fSuccess = FALSE;
// id's for error and warning messages
const int iRemoveError = 25003;
const int iRemoveWarning = 25004;
// Grab the CustomActionData property
DWORD cchCAData = 0;
if (ERROR_MORE_DATA == MsiGetPropertyW(hInstall, IPROPNAME_CUSTOMACTIONDATA, L"", &cchCAData))
{
WCHAR* wszCAData = new WCHAR[++cchCAData]; // add 1 for null-terminator which is not included in size on return
if (wszCAData)
{
if (ERROR_SUCCESS == MsiGetPropertyW(hInstall, IPROPNAME_CUSTOMACTIONDATA, wszCAData, &cchCAData))
{
// send ActionData message (template in ActionText table)
// send ActionData message (template in ActionText table)
PMSIHANDLE hRec = MsiCreateRecord(1);
if (!hRec
|| ERROR_SUCCESS != MsiRecordSetStringW(hRec, 1, wszCAData))
{
delete [] wszCAData;
return ERROR_INSTALL_FAILURE;
}
int iRet = MsiProcessMessage(hInstall, INSTALLMESSAGE_ACTIONDATA, hRec);
if (IDCANCEL == iRet || IDABORT == iRet)
{
delete [] wszCAData;
return ERROR_INSTALL_USEREXIT;
}
//
// Call the NetUserDel function,
//
NET_API_STATUS nStatus = NetUserDel(NULL /*local machine*/, wszCAData /*user name*/);
if (NERR_Success != nStatus)
{
PMSIHANDLE hRecErr = MsiCreateRecord(3);
if ( !hRecErr
|| ERROR_SUCCESS != MsiRecordSetStringW(hRecErr, 2, wszCAData))
{
delete [] wszCAData;
return ERROR_INSTALL_FAILURE;
}
// In rollback mode, NERR_UserNotFound means cancel button depressed in middle of deferred CA trying to create this account
if (bRollback && NERR_UserNotFound == nStatus)
{
fSuccess = TRUE;
}
else if (NERR_UserNotFound == nStatus)
{
// treat this as a warning, but success since we are attempting to delete and it is not present
if (ERROR_SUCCESS != MsiRecordSetInteger(hRecErr, 1, iRemoveWarning))
{
delete [] wszCAData;
return ERROR_INSTALL_FAILURE;
}
// just pop up an OK button
// OPTIONALLY, could specify multiple buttons and cancel
// install based on user selection by handling the return value
// from MsiProcessMessage, but here we are ignoring the MsiProcessMessage return
MsiProcessMessage(hInstall, INSTALLMESSAGE(INSTALLMESSAGE_WARNING|MB_ICONWARNING|MB_OK), hRecErr);
fSuccess = TRUE;
}
else
{
if (ERROR_SUCCESS == MsiRecordSetInteger(hRecErr, 1, iRemoveError)
&& ERROR_SUCCESS == MsiRecordSetInteger(hRecErr, 3, nStatus))
{
// returning failure anyway, so ignoring MsiProcessMessage return
MsiProcessMessage(hInstall, INSTALLMESSAGE_ERROR, hRecErr);
}
}
}
else // NERR_Success
{
fSuccess = TRUE;
}
}
delete [] wszCAData;
}
}
return fSuccess ? ERROR_SUCCESS : ERROR_INSTALL_FAILURE;
}
static void test_msirecord(void)
{
DWORD r, sz;
INT i;
MSIHANDLE h;
char buf[10];
WCHAR bufW[10];
const char str[] = "hello";
const WCHAR strW[] = { 'h','e','l','l','o',0};
char filename[MAX_PATH];
/* check behaviour with an invalid record */
r = MsiRecordGetFieldCount(0);
ok(r==-1, "field count for invalid record not -1\n");
SetLastError(0);
r = MsiRecordIsNull(0, 0);
ok(r==0, "invalid handle not considered to be non-null...\n");
ok(GetLastError()==0, "MsiRecordIsNull set LastError\n");
r = MsiRecordGetInteger(0,0);
ok(r == MSI_NULL_INTEGER, "got integer from invalid record\n");
r = MsiRecordSetInteger(0,0,0);
ok(r == ERROR_INVALID_HANDLE, "MsiRecordSetInteger returned wrong error\n");
r = MsiRecordSetInteger(0,-1,0);
ok(r == ERROR_INVALID_HANDLE, "MsiRecordSetInteger returned wrong error\n");
SetLastError(0);
h = MsiCreateRecord(-1);
ok(h==0, "created record with -1 elements\n");
h = MsiCreateRecord(0x10000);
ok(h==0, "created record with 0x10000 elements\n");
/* doesn't set LastError */
ok(GetLastError()==0, "MsiCreateRecord set last error\n");
r = MsiRecordClearData(0);
ok(r == ERROR_INVALID_HANDLE, "MsiRecordClearData returned wrong error\n");
r = MsiRecordDataSize(0,0);
ok(r == 0, "MsiRecordDataSize returned wrong error\n");
/* check behaviour of a record with 0 elements */
h = MsiCreateRecord(0);
ok(h!=0, "couldn't create record with zero elements\n");
r = MsiRecordGetFieldCount(h);
ok(r==0, "field count should be zero\n");
r = MsiRecordIsNull(h,0);
ok(r, "new record wasn't null\n");
r = MsiRecordIsNull(h,1);
ok(r, "out of range record wasn't null\n");
r = MsiRecordIsNull(h,-1);
ok(r, "out of range record wasn't null\n");
r = MsiRecordDataSize(h,0);
ok(r==0, "size of null record is 0\n");
sz = sizeof buf;
strcpy(buf,"x");
r = MsiRecordGetString(h, 0, buf, &sz);
ok(r==ERROR_SUCCESS, "failed to get null string\n");
ok(sz==0, "null string too long\n");
ok(buf[0]==0, "null string not set\n");
/* same record, but add an integer to it */
r = MsiRecordSetInteger(h, 0, 0);
ok(r == ERROR_SUCCESS, "Failed to set integer at 0 to 0\n");
r = MsiRecordIsNull(h,0);
ok(r==0, "new record is null after setting an integer\n");
r = MsiRecordDataSize(h,0);
ok(r==sizeof(DWORD), "size of integer record is 4\n");
r = MsiRecordSetInteger(h, 0, 1);
ok(r == ERROR_SUCCESS, "Failed to set integer at 0 to 1\n");
r = MsiRecordSetInteger(h, 1, 1);
ok(r == ERROR_INVALID_PARAMETER, "set integer at 1\n");
r = MsiRecordSetInteger(h, -1, 0);
ok(r == ERROR_INVALID_PARAMETER, "set integer at -1\n");
r = MsiRecordIsNull(h,0);
ok(r==0, "new record is null after setting an integer\n");
r = MsiRecordGetInteger(h, 0);
ok(r == 1, "failed to get integer\n");
/* same record, but add a string to it */
r = MsiRecordSetString(h, 0, NULL);
ok(r == ERROR_SUCCESS, "Failed to set null string at 0\n");
r = MsiRecordIsNull(h, 0);
ok(r == TRUE, "null string not null field\n");
r = MsiRecordSetString(h, 0, "");
ok(r == ERROR_SUCCESS, "Failed to set empty string at 0\n");
r = MsiRecordIsNull(h, 0);
ok(r == TRUE, "null string not null field\n");
r = MsiRecordSetString(h,0,str);
ok(r == ERROR_SUCCESS, "Failed to set string at 0\n");
r = MsiRecordGetInteger(h, 0);
ok(r == MSI_NULL_INTEGER, "should get invalid integer\n");
r = MsiRecordDataSize(h,0);
ok(r==sizeof str-1, "size of string record is strlen\n");
buf[0]=0;
sz = sizeof buf;
r = MsiRecordGetString(h,0,buf,&sz);
ok(r == ERROR_SUCCESS, "Failed to get string at 0\n");
ok(0==strcmp(buf,str), "MsiRecordGetString returned the wrong string\n");
ok(sz == sizeof str-1, "MsiRecordGetString returned the wrong length\n");
buf[0]=0;
sz = sizeof str - 2;
r = MsiRecordGetString(h,0,buf,&sz);
ok(r == ERROR_MORE_DATA, "small buffer should yield ERROR_MORE_DATA\n");
ok(sz == sizeof str-1, "MsiRecordGetString returned the wrong length\n");
ok(0==strncmp(buf,str,sizeof str-3), "MsiRecordGetString returned the wrong string\n");
ok(buf[sizeof str - 3]==0, "string wasn't nul terminated\n");
buf[0]=0;
sz = sizeof str;
r = MsiRecordGetString(h,0,buf,&sz);
ok(r == ERROR_SUCCESS, "wrong error\n");
ok(sz == sizeof str-1, "MsiRecordGetString returned the wrong length\n");
ok(0==strcmp(buf,str), "MsiRecordGetString returned the wrong string\n");
memset(bufW, 0, sizeof bufW);
sz = 5;
r = MsiRecordGetStringW(h,0,bufW,&sz);
ok(r == ERROR_MORE_DATA, "wrong error\n");
ok(sz == 5, "MsiRecordGetString returned the wrong length\n");
ok(0==memcmp(bufW,strW,8), "MsiRecordGetString returned the wrong string\n");
sz = 0;
bufW[0] = 'x';
r = MsiRecordGetStringW(h,0,bufW,&sz);
ok(r == ERROR_MORE_DATA, "wrong error\n");
ok(sz == 5, "MsiRecordGetString returned the wrong length\n");
ok('x'==bufW[0], "MsiRecordGetString returned the wrong string\n");
memset(buf, 0, sizeof buf);
sz = 5;
r = MsiRecordGetStringA(h,0,buf,&sz);
ok(r == ERROR_MORE_DATA, "wrong error\n");
ok(sz == 5, "MsiRecordGetString returned the wrong length\n");
ok(0==memcmp(buf,str,4), "MsiRecordGetString returned the wrong string\n");
sz = 0;
buf[0] = 'x';
r = MsiRecordGetStringA(h,0,buf,&sz);
ok(r == ERROR_MORE_DATA, "wrong error\n");
ok(sz == 5, "MsiRecordGetString returned the wrong length\n");
ok('x'==buf[0], "MsiRecordGetString returned the wrong string\n");
/* same record, check we can wipe all the data */
r = MsiRecordClearData(h);
ok(r == ERROR_SUCCESS, "Failed to clear record\n");
r = MsiRecordClearData(h);
ok(r == ERROR_SUCCESS, "Failed to clear record again\n");
r = MsiRecordIsNull(h,0);
ok(r, "cleared record wasn't null\n");
/* same record, try converting strings to integers */
i = MsiRecordSetString(h,0,"42");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == 42, "should get invalid integer\n");
i = MsiRecordSetString(h,0,"-42");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == -42, "should get invalid integer\n");
i = MsiRecordSetString(h,0," 42");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get invalid integer\n");
i = MsiRecordSetString(h,0,"42 ");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get invalid integer\n");
i = MsiRecordSetString(h,0,"42.0");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get invalid integer\n");
i = MsiRecordSetString(h,0,"0x42");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get invalid integer\n");
i = MsiRecordSetString(h,0,"1000000000000000");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == -1530494976, "should get truncated integer\n");
i = MsiRecordSetString(h,0,"2147483647");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == 2147483647, "should get maxint\n");
i = MsiRecordSetString(h,0,"-2147483647");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == -2147483647, "should get -maxint-1\n");
i = MsiRecordSetString(h,0,"4294967297");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == 1, "should get one\n");
i = MsiRecordSetString(h,0,"foo");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get zero\n");
i = MsiRecordSetString(h,0,"");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get zero\n");
i = MsiRecordSetString(h,0,"+1");
ok(i == ERROR_SUCCESS, "Failed to set string at 0\n");
i = MsiRecordGetInteger(h, 0);
ok(i == MSI_NULL_INTEGER, "should get zero\n");
/* same record, try converting integers to strings */
r = MsiRecordSetInteger(h, 0, 32);
ok(r == ERROR_SUCCESS, "Failed to set integer at 0 to 32\n");
sz = 1;
r = MsiRecordGetString(h, 0, NULL, &sz);
ok(r == ERROR_SUCCESS, "failed to get string from integer\n");
ok(sz == 2, "length wrong\n");
buf[0]=0;
sz = sizeof buf;
r = MsiRecordGetString(h, 0, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to get string from integer\n");
ok(0==strcmp(buf,"32"), "failed to get string from integer\n");
r = MsiRecordSetInteger(h, 0, -32);
ok(r == ERROR_SUCCESS, "Failed to set integer at 0 to 32\n");
buf[0]=0;
sz = 1;
r = MsiRecordGetString(h, 0, NULL, &sz);
ok(r == ERROR_SUCCESS, "failed to get string from integer\n");
ok(sz == 3, "length wrong\n");
sz = sizeof buf;
r = MsiRecordGetString(h, 0, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to get string from integer\n");
ok(0==strcmp(buf,"-32"), "failed to get string from integer\n");
buf[0]=0;
/* same record, now try streams */
r = MsiRecordSetStream(h, 0, NULL);
ok(r == ERROR_INVALID_PARAMETER, "set NULL stream\n");
sz = sizeof buf;
r = MsiRecordReadStream(h, 0, buf, &sz);
ok(r == ERROR_INVALID_DATATYPE, "read non-stream type\n");
ok(sz == sizeof buf, "set sz\n");
r = MsiRecordDataSize( h, -1);
ok(r == 0,"MsiRecordDataSize returned wrong size\n");
r = MsiRecordDataSize( h, 0);
ok(r == 4,"MsiRecordDataSize returned wrong size\n");
/* same record, now close it */
r = MsiCloseHandle(h);
ok(r == ERROR_SUCCESS, "Failed to close handle\n");
/* now try streams in a new record - need to create a file to play with */
r = create_temp_file(filename);
if(!r)
return;
/* streams can't be inserted in field 0 for some reason */
h = MsiCreateRecord(2);
ok(h, "couldn't create a two field record\n");
r = MsiRecordSetStream(h, 0, filename);
ok(r == ERROR_INVALID_PARAMETER, "added stream to field 0\n");
r = MsiRecordSetStream(h, 1, filename);
ok(r == ERROR_SUCCESS, "failed to add stream to record\n");
r = MsiRecordReadStream(h, 1, buf, NULL);
ok(r == ERROR_INVALID_PARAMETER, "should return error\n");
/* http://test.winehq.org/data/200503181000/98_jmelgarejo98casa/msi:record.txt */
DeleteFile(filename); /* Windows 98 doesn't like this at all, so don't check return. */
r = MsiRecordReadStream(h, 1, NULL, NULL);
ok(r == ERROR_INVALID_PARAMETER, "should return error\n");
sz = sizeof buf;
r = MsiRecordReadStream(h, 1, NULL, &sz);
ok(r == ERROR_SUCCESS, "failed to read stream\n");
ok(sz==26,"couldn't get size of stream\n");
sz = 0;
r = MsiRecordReadStream(h, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to read stream\n");
ok(sz==0,"short read\n");
sz = sizeof buf;
r = MsiRecordReadStream(h, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to read stream\n");
ok(sz==sizeof buf,"short read\n");
ok(!strncmp(buf,"abcdefghij",10), "read the wrong thing\n");
sz = sizeof buf;
r = MsiRecordReadStream(h, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to read stream\n");
ok(sz==sizeof buf,"short read\n");
ok(!strncmp(buf,"klmnopqrst",10), "read the wrong thing\n");
memset(buf,0,sizeof buf);
sz = sizeof buf;
r = MsiRecordReadStream(h, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to read stream\n");
ok(sz==6,"short read\n");
ok(!strcmp(buf,"uvwxyz"), "read the wrong thing\n");
memset(buf,0,sizeof buf);
sz = sizeof buf;
r = MsiRecordReadStream(h, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "failed to read stream\n");
ok(sz==0,"size non-zero at end of stream\n");
ok(buf[0]==0, "read something at end of the stream\n");
r = MsiRecordSetStream(h, 1, NULL);
ok(r == ERROR_SUCCESS, "failed to reset stream\n");
sz = 0;
r = MsiRecordReadStream(h, 1, NULL, &sz);
ok(r == ERROR_SUCCESS, "bytes left wrong after reset\n");
ok(sz==26,"couldn't get size of stream\n");
r = MsiRecordDataSize(h,1);
ok(r == 26,"MsiRecordDataSize returned wrong size\n");
/* now close the stream record */
r = MsiCloseHandle(h);
ok(r == ERROR_SUCCESS, "Failed to close handle\n");
DeleteFile(filename); /* Delete it for sure, when everything else is closed. */
}
/* Uninstall NSIS */
MSIDLLEXPORT UninstallNsisInstallation( MSIHANDLE hInstall )
{
DWORD rv = ERROR_SUCCESS;
// lookup the NSISUNINSTALL property value
LPTSTR cNsisUninstall = _T("UPGRADENSIS");
HANDLE hIo = NULL;
DWORD dwSize = 0;
LPTSTR strPathUninst = NULL;
HANDLE hJob = NULL;
STARTUPINFO sInfo;
PROCESS_INFORMATION pInfo;
pInfo.hProcess = NULL;
pInfo.hThread = NULL;
rv = MsiGetProperty( hInstall, cNsisUninstall, _T(""), &dwSize );
if(rv != ERROR_MORE_DATA) goto _cleanup;
strPathUninst = new TCHAR[ ++dwSize ];
rv = MsiGetProperty( hInstall, cNsisUninstall, strPathUninst, &dwSize );
if(rv != ERROR_SUCCESS) goto _cleanup;
// Create a process for the uninstaller
sInfo.cb = sizeof(sInfo);
sInfo.lpReserved = NULL;
sInfo.lpDesktop = _T("");
sInfo.lpTitle = _T("NSIS Uninstaller for Kerberos for Windows");
sInfo.dwX = 0;
sInfo.dwY = 0;
sInfo.dwXSize = 0;
sInfo.dwYSize = 0;
sInfo.dwXCountChars = 0;
sInfo.dwYCountChars = 0;
sInfo.dwFillAttribute = 0;
sInfo.dwFlags = 0;
sInfo.wShowWindow = 0;
sInfo.cbReserved2 = 0;
sInfo.lpReserved2 = 0;
sInfo.hStdInput = 0;
sInfo.hStdOutput = 0;
sInfo.hStdError = 0;
if(!CreateProcess(
strPathUninst,
_T("Uninstall /S"),
NULL,
NULL,
FALSE,
CREATE_SUSPENDED,
NULL,
NULL,
&sInfo,
&pInfo)) {
DWORD lastError = GetLastError();
MSIHANDLE hRecord;
hRecord = MsiCreateRecord(4);
MsiRecordClearData(hRecord);
MsiRecordSetInteger(hRecord, 1, ERR_NSS_FAILED_CP);
MsiRecordSetString(hRecord, 2, strPathUninst);
MsiRecordSetInteger(hRecord, 3, lastError);
MsiProcessMessage( hInstall, INSTALLMESSAGE_ERROR, hRecord );
MsiCloseHandle( hRecord );
pInfo.hProcess = NULL;
pInfo.hThread = NULL;
rv = 40;
goto _cleanup;
};
// Create a job object to contain the NSIS uninstall process tree
JOBOBJECT_ASSOCIATE_COMPLETION_PORT acp;
acp.CompletionKey = 0;
hJob = CreateJobObject(NULL, _T("NSISUninstallObject"));
if(!hJob) {
rv = 41;
goto _cleanup;
}
hIo = CreateIoCompletionPort(INVALID_HANDLE_VALUE,0,0,0);
if(!hIo) {
rv = 42;
goto _cleanup;
}
acp.CompletionPort = hIo;
SetInformationJobObject( hJob, JobObjectAssociateCompletionPortInformation, &acp, sizeof(acp));
AssignProcessToJobObject( hJob, pInfo.hProcess );
ResumeThread( pInfo.hThread );
DWORD a,b,c;
for(;;) {
if(!GetQueuedCompletionStatus(hIo, &a, (PULONG_PTR) &b, (LPOVERLAPPED *) &c, INFINITE)) {
Sleep(1000);
continue;
}
if(a == JOB_OBJECT_MSG_ACTIVE_PROCESS_ZERO) {
break;
}
}
rv = ERROR_SUCCESS;
_cleanup:
if(hIo) CloseHandle(hIo);
if(pInfo.hProcess) CloseHandle( pInfo.hProcess );
if(pInfo.hThread) CloseHandle( pInfo.hThread );
if(hJob) CloseHandle(hJob);
if(strPathUninst) delete strPathUninst;
if(rv != ERROR_SUCCESS && rv != 40) {
ShowMsiError( hInstall, ERR_NSS_FAILED, rv );
}
return rv;
}
static HRESULT GetTargetPath(
__in eOBJECTTYPE eType,
__in LPCWSTR pwzSecureObject,
__out LPWSTR* ppwzTargetPath
)
{
HRESULT hr = S_OK;
PMSIHANDLE hView = NULL;
PMSIHANDLE hRecObject = NULL;
PMSIHANDLE hRec = NULL;
int iRoot = 0;
int iAllUsers = 0;
LPWSTR pwzKey = NULL;
LPWSTR pwzFormattedString = NULL;
if (OT_SERVICE == eType)
{
hr = WcaTableExists(L"ServiceInstall");
if (S_FALSE == hr)
{
hr = E_UNEXPECTED;
}
ExitOnFailure(hr, "failed to open ServiceInstall table to secure object");
hr = WcaOpenView(wzQUERY_SERVICEINSTALL, &hView);
ExitOnFailure(hr, "failed to open view on ServiceInstall table");
// create a record that stores the object to secure
hRec = MsiCreateRecord(1);
MsiRecordSetStringW(hRec, 1, pwzSecureObject);
// execute a view looking for the object's ServiceInstall.ServiceInstall row.
hr = WcaExecuteView(hView, hRec);
ExitOnFailure(hr, "failed to execute view on ServiceInstall table");
hr = WcaFetchSingleRecord(hView, &hRecObject);
ExitOnFailure(hr, "failed to fetch ServiceInstall row for secure object");
hr = WcaGetRecordFormattedString(hRecObject, QSSI_NAME, ppwzTargetPath);
ExitOnFailure1(hr, "failed to get service name for secure object: %ls", pwzSecureObject);
}
else if (OT_FOLDER == eType)
{
hr = WcaGetTargetPath(pwzSecureObject, ppwzTargetPath);
ExitOnFailure1(hr, "failed to get target path for directory id: %ls", pwzSecureObject);
}
else if (OT_FILE == eType)
{
hr = StrAllocFormatted(&pwzFormattedString, L"[#%s]", pwzSecureObject);
ExitOnFailure1(hr, "failed to create formatted string for securing file object: %ls", pwzSecureObject);
hr = WcaGetFormattedString(pwzFormattedString, ppwzTargetPath);
ExitOnFailure2(hr, "failed to get file path from formatted string: %ls for secure object: %ls", pwzFormattedString, pwzSecureObject);
}
else if (OT_REGISTRY == eType)
{
hr = WcaTableExists(L"Registry");
if (S_FALSE == hr)
{
hr = E_UNEXPECTED;
}
ExitOnFailure(hr, "failed to open Registry table to secure object");
hr = WcaOpenView(wzQUERY_REGISTRY, &hView);
ExitOnFailure(hr, "failed to open view on Registry table");
// create a record that stores the object to secure
hRec = MsiCreateRecord(1);
MsiRecordSetStringW(hRec, 1, pwzSecureObject);
// execute a view looking for the object's Registry row
hr = WcaExecuteView(hView, hRec);
ExitOnFailure(hr, "failed to execute view on Registry table");
hr = WcaFetchSingleRecord(hView, &hRecObject);
ExitOnFailure(hr, "failed to fetch Registry row for secure object");
hr = WcaGetRecordInteger(hRecObject, QSOC_REGROOT, &iRoot);
ExitOnFailure1(hr, "Failed to get reg key root for secure object: %ls", pwzSecureObject);
hr = WcaGetRecordFormattedString(hRecObject, QSOC_REGKEY, &pwzKey);
ExitOnFailure1(hr, "Failed to get reg key for secure object: %ls", pwzSecureObject);
// Decode the root value
if (-1 == iRoot)
{
// They didn't specify a root so that means it's either HKCU or HKLM depending on ALLUSERS property
hr = WcaGetIntProperty(L"ALLUSERS", &iAllUsers);
ExitOnFailure(hr, "failed to get value of ALLUSERS property");
if (1 == iAllUsers)
{
hr = StrAllocString(ppwzTargetPath, L"MACHINE\\", 0);
ExitOnFailure(hr, "failed to allocate target registry string with HKLM root");
}
else
{
hr = StrAllocString(ppwzTargetPath, L"CURRENT_USER\\", 0);
ExitOnFailure(hr, "failed to allocate target registry string with HKCU root");
}
}
else if (msidbRegistryRootClassesRoot == iRoot)
{
hr = StrAllocString(ppwzTargetPath, L"CLASSES_ROOT\\", 0);
ExitOnFailure(hr, "failed to allocate target registry string with HKCR root");
}
else if (msidbRegistryRootCurrentUser == iRoot)
{
hr = StrAllocString(ppwzTargetPath, L"CURRENT_USER\\", 0);
ExitOnFailure(hr, "failed to allocate target registry string with HKCU root");
}
else if (msidbRegistryRootLocalMachine == iRoot)
{
hr = StrAllocString(ppwzTargetPath, L"MACHINE\\", 0);
ExitOnFailure(hr, "failed to allocate target registry string with HKLM root");
}
else if (msidbRegistryRootUsers == iRoot)
{
hr = StrAllocString(ppwzTargetPath, L"USERS\\", 0);
ExitOnFailure(hr, "failed to allocate target registry string with HKU root");
}
else
{
ExitOnFailure2(hr = E_UNEXPECTED, "Unknown registry key root specified for secure object: '%ls' root: %d", pwzSecureObject, iRoot);
}
hr = StrAllocConcat(ppwzTargetPath, pwzKey, 0);
ExitOnFailure2(hr, "Failed to concat key: %ls for secure object: %ls", pwzKey, pwzSecureObject);
}
else
{
AssertSz(FALSE, "How did you get here?");
ExitOnFailure1(hr = E_UNEXPECTED, "Unknown secure object type: %d", eType);
}
LExit:
ReleaseStr(pwzFormattedString);
ReleaseStr(pwzKey);
return hr;
}
static void test_fieldzero(void)
{
MSIHANDLE hdb, hview, rec;
CHAR buf[MAX_PATH];
LPCSTR query;
DWORD sz;
UINT r;
rec = MsiCreateRecord(1);
ok(rec != 0, "Expected a valid handle\n");
r = MsiRecordGetInteger(rec, 0);
ok(r == MSI_NULL_INTEGER, "Expected MSI_NULL_INTEGER, got %d\n", r);
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 0, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, ""), "Expected \"\", got \"%s\"\n", buf);
ok(sz == 0, "Expectd 0, got %d\n", sz);
r = MsiRecordIsNull(rec, 0);
ok(r == TRUE, "Expected TRUE, got %d\n", r);
r = MsiRecordGetInteger(rec, 1);
ok(r == MSI_NULL_INTEGER, "Expected MSI_NULL_INTEGER, got %d\n", r);
r = MsiRecordSetInteger(rec, 1, 42);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiRecordGetInteger(rec, 0);
ok(r == MSI_NULL_INTEGER, "Expected MSI_NULL_INTEGER, got %d\n", r);
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 0, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, ""), "Expected \"\", got \"%s\"\n", buf);
ok(sz == 0, "Expectd 0, got %d\n", sz);
r = MsiRecordIsNull(rec, 0);
ok(r == TRUE, "Expected TRUE, got %d\n", r);
r = MsiRecordGetInteger(rec, 1);
ok(r == 42, "Expected 42, got %d\n", r);
r = MsiRecordSetString(rec, 1, "bologna");
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiRecordGetInteger(rec, 0);
ok(r == MSI_NULL_INTEGER, "Expected MSI_NULL_INTEGER, got %d\n", r);
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 0, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, ""), "Expected \"\", got \"%s\"\n", buf);
ok(sz == 0, "Expectd 0, got %d\n", sz);
r = MsiRecordIsNull(rec, 0);
ok(r == TRUE, "Expected TRUE, got %d\n", r);
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 1, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, "bologna"), "Expected \"bologna\", got \"%s\"\n", buf);
ok(sz == 7, "Expectd 7, got %d\n", sz);
MsiCloseHandle(rec);
r = MsiOpenDatabase(msifile, MSIDBOPEN_CREATE, &hdb);
ok(r == ERROR_SUCCESS, "MsiOpenDatabase failed\n");
query = "CREATE TABLE `drone` ( "
"`id` INT, `name` CHAR(32), `number` CHAR(32) "
"PRIMARY KEY `id`)";
r = MsiDatabaseOpenView(hdb, query, &hview);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiViewExecute(hview, 0);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiViewClose(hview);
ok(r == ERROR_SUCCESS, "MsiViewClose failed\n");
r = MsiCloseHandle(hview);
ok(r == ERROR_SUCCESS, "MsiCloseHandle failed\n");
query = "INSERT INTO `drone` ( `id`, `name`, `number` )"
"VALUES('1', 'Abe', '8675309')";
r = MsiDatabaseOpenView(hdb, query, &hview);
ok(r == ERROR_SUCCESS, "MsiDatabaseOpenView failed\n");
r = MsiViewExecute(hview, 0);
ok(r == ERROR_SUCCESS, "MsiViewExecute failed\n");
r = MsiViewClose(hview);
ok(r == ERROR_SUCCESS, "MsiViewClose failed\n");
r = MsiCloseHandle(hview);
ok(r == ERROR_SUCCESS, "MsiCloseHandle failed\n");
r = MsiDatabaseGetPrimaryKeysA(hdb, "drone", &rec);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiRecordGetInteger(rec, 0);
ok(r == MSI_NULL_INTEGER, "Expected MSI_NULL_INTEGER, got %d\n", r);
sz = MAX_PATH;
lstrcpyA(buf, "apple");
r = MsiRecordGetString(rec, 0, buf, &sz);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
ok(!lstrcmpA(buf, "drone"), "Expected \"drone\", got \"%s\"\n", buf);
ok(sz == 5, "Expectd 5, got %d\n", sz);
r = MsiRecordIsNull(rec, 0);
ok(r == FALSE, "Expected FALSE, got %d\n", r);
MsiCloseHandle(rec);
r = MsiDatabaseGetPrimaryKeysA(hdb, "nosuchtable", &rec);
ok(r == ERROR_INVALID_TABLE, "Expected ERROR_INVALID_TABLE, got %d\n", r);
query = "SELECT * FROM `drone` WHERE `id` = 1";
r = MsiDatabaseOpenView(hdb, query, &hview);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiViewExecute(hview, 0);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiViewFetch(hview, &rec);
ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);
r = MsiRecordGetInteger(rec, 0);
ok(r != MSI_NULL_INTEGER && r != 0, "Expected non-NULL value, got %d\n", r);
r = MsiRecordIsNull(rec, 0);
ok(r == FALSE, "Expected FALSE, got %d\n", r);
r = MsiCloseHandle(hview);
ok(r == ERROR_SUCCESS, "MsiCloseHandle failed\n");
MsiCloseHandle(rec);
MsiCloseHandle(hdb);
DeleteFileA(msifile);
}
UINT KillRunningProcessesSlave( MSIHANDLE hInstall, BOOL bKill )
{
UINT rv = ERROR_SUCCESS;
_KillProc * kpList;
int nKpList = 0;
int i;
int rowNum = 1;
DWORD size;
BOOL found = FALSE;
MSIHANDLE hDatabase = NULL;
MSIHANDLE hView = NULL;
MSIHANDLE hViewInsert = NULL;
MSIHANDLE hRecord = NULL;
MSIHANDLE hRecordInsert = NULL;
HANDLE hSnapshot = NULL;
PROCESSENTRY32 pe;
kpList = new _KillProc[MAX_KILL_PROCESSES];
memset(kpList, 0, sizeof(*kpList) * MAX_KILL_PROCESSES);
hDatabase = MsiGetActiveDatabase( hInstall );
if( hDatabase == NULL ) {
rv = GetLastError();
goto _cleanup;
}
// If we are only going to list out the processes, delete all the existing
// entries first.
if(!bKill) {
rv = MsiDatabaseOpenView( hDatabase,
_T( "DELETE FROM `ListBox` WHERE `ListBox`.`Property` = 'KillableProcesses'" ),
&hView); RV_BAIL;
rv = MsiViewExecute( hView, NULL ); RV_BAIL;
MsiCloseHandle( hView );
hView = NULL;
rv = MsiDatabaseOpenView( hDatabase,
_T( "SELECT * FROM `ListBox` WHERE `Property` = 'KillableProcesses'" ),
&hViewInsert); RV_BAIL;
MsiViewExecute(hViewInsert, NULL);
hRecordInsert = MsiCreateRecord(4);
if(hRecordInsert == NULL) {
rv = GetLastError();
goto _cleanup;
}
}
// Open a view
rv = MsiDatabaseOpenView( hDatabase,
_T( "SELECT `Image`,`Desc` FROM `KillProcess`" ),
&hView); RV_BAIL;
rv = MsiViewExecute( hView, NULL ); RV_BAIL;
do {
rv = MsiViewFetch( hView, &hRecord );
if(rv != ERROR_SUCCESS) {
if(hRecord)
MsiCloseHandle(hRecord);
hRecord = NULL;
break;
}
kpList[nKpList].image = new TCHAR[ FIELD_SIZE ]; kpList[nKpList].image[0] = _T('\0');
kpList[nKpList].desc = new TCHAR[ FIELD_SIZE ]; kpList[nKpList].desc[0] = _T('\0');
nKpList++;
size = FIELD_SIZE;
rv = MsiRecordGetString(hRecord, 1, kpList[nKpList-1].image, &size); RV_BAIL;
size = FIELD_SIZE;
rv = MsiRecordGetString(hRecord, 2, kpList[nKpList-1].desc, &size); RV_BAIL;
MsiCloseHandle(hRecord);
} while(nKpList < MAX_KILL_PROCESSES);
hRecord = NULL;
// now we have all the processes in the array. Check if they are running.
hSnapshot = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
if(hSnapshot == INVALID_HANDLE_VALUE) {
rv = GetLastError();
goto _cleanup;
}
pe.dwSize = sizeof( PROCESSENTRY32 );
if(!Process32First( hSnapshot, &pe )) {
// technically we should at least find the MSI process, but we let this pass
rv = ERROR_SUCCESS;
goto _cleanup;
}
do {
for(i=0; i<nKpList; i++) {
if(!_tcsicmp( kpList[i].image, pe.szExeFile )) {
// got one
if(bKill) {
// try to kill the process
HANDLE hProcess = NULL;
// If we encounter an error, instead of bailing
// out, we continue on to the next process. We
// may not have permission to kill all the
// processes we want to kill anyway. If there are
// any files that we want to replace that is in
// use, Windows Installer will schedule a reboot.
// Also, it's not like we have an exhaustive list
// of all the programs that use Kerberos anyway.
hProcess = OpenProcess(PROCESS_TERMINATE, FALSE, pe.th32ProcessID);
if(hProcess == NULL) {
rv = GetLastError();
break;
}
if(!TerminateProcess(hProcess, 0)) {
rv = GetLastError();
CloseHandle(hProcess);
break;
}
CloseHandle(hProcess);
} else {
TCHAR buf[256];
// we are supposed to just list out the processes
rv = MsiRecordClearData( hRecordInsert ); RV_BAIL;
rv = MsiRecordSetString( hRecordInsert, 1, _T("KillableProcesses"));
rv = MsiRecordSetInteger( hRecordInsert, 2, rowNum++ ); RV_BAIL;
_itot( rowNum, buf, 10 );
rv = MsiRecordSetString( hRecordInsert, 3, buf ); RV_BAIL;
if(_tcslen(kpList[i].desc)) {
rv = MsiRecordSetString( hRecordInsert, 4, kpList[i].desc ); RV_BAIL;
} else {
rv = MsiRecordSetString( hRecordInsert, 4, kpList[i].image ); RV_BAIL;
}
MsiViewModify(hViewInsert, MSIMODIFY_INSERT_TEMPORARY, hRecordInsert); RV_BAIL;
found = TRUE;
}
break;
}
}
} while( Process32Next( hSnapshot, &pe ) );
if(!bKill) {
// set the 'FoundProcceses' property
if(found) {
MsiSetProperty( hInstall, _T("FoundProcesses"), _T("1"));
} else {
MsiSetProperty( hInstall, _T("FoundProcesses"), _T(""));
}
}
// Finally:
rv = ERROR_SUCCESS;
_cleanup:
if(hRecordInsert) MsiCloseHandle(hRecordInsert);
if(hViewInsert) MsiCloseHandle(hView);
if(hSnapshot && hSnapshot != INVALID_HANDLE_VALUE) CloseHandle(hSnapshot);
while(nKpList) {
nKpList--;
delete kpList[nKpList].image;
delete kpList[nKpList].desc;
}
delete kpList;
if(hRecord) MsiCloseHandle(hRecord);
if(hView) MsiCloseHandle(hView);
if(hDatabase) MsiCloseHandle(hDatabase);
if(rv != ERROR_SUCCESS) {
ShowMsiError(hInstall, ERR_PROC_LIST, rv);
}
return rv;
}
/////////////////////////////////////////////////////////////////////
//
// Function: GetComponentKeyFilename
//
// Description:
//
/////////////////////////////////////////////////////////////////////
UINT BOINCCABase::GetComponentKeyFilename(
const tstring strComponentName,
tstring& strComponentKeyFilename
)
{
UINT uiReturnValue = 0;
tstring strMessage;
tstring strQuery;
TCHAR szBuffer[256];
DWORD dwBufferSize = sizeof(szBuffer);
MSIHANDLE hDatabase;
MSIHANDLE hView;
MSIHANDLE hRecComponentName;
MSIHANDLE hRec;
// Get the handle to the MSI package we are executing for.
hDatabase = MsiGetActiveDatabase(m_hMSIHandle);
if (!hDatabase) return ERROR_INSTALL_FAILURE;
// Construct the query that is going to give us the result we need.
strQuery = _T("SELECT `KeyPath` FROM `Component` WHERE `Component`= ?");
// Create the view
uiReturnValue = MsiDatabaseOpenView(hDatabase, strQuery.c_str(), &hView);
switch(uiReturnValue)
{
case ERROR_BAD_QUERY_SYNTAX:
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiDatabaseOpenView reports an invalid query was issued")
);
return ERROR_INSTALL_FAILURE;
break;
case ERROR_INVALID_HANDLE:
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiDatabaseOpenView reports an invalid handle was used")
);
return ERROR_INSTALL_FAILURE;
break;
}
// Create query parameter
hRecComponentName = MsiCreateRecord(1);
uiReturnValue = MsiRecordSetString(hRecComponentName, 1, strComponentName.c_str());
switch(uiReturnValue)
{
case ERROR_INVALID_HANDLE:
MsiCloseHandle(hRecComponentName);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiRecordSetString reports an invalid handle was used")
);
return ERROR_INSTALL_FAILURE;
break;
case ERROR_INVALID_PARAMETER:
MsiCloseHandle(hRecComponentName);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiRecordSetString reports an invalid parameter was used")
);
return ERROR_INSTALL_FAILURE;
break;
}
// Execute the query
uiReturnValue = MsiViewExecute(hView, hRecComponentName);
switch(uiReturnValue)
{
case ERROR_FUNCTION_FAILED:
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiViewExecute failed to execute the view")
);
return ERROR_INSTALL_FAILURE;
break;
case ERROR_INVALID_HANDLE:
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiViewExecute reports an invalid handle was used")
);
return ERROR_INSTALL_FAILURE;
break;
}
// Only one row should be returned by the resultset, so there is no need
// to execute MsiViewFetch more than once.
uiReturnValue = MsiViewFetch(hView, &hRec);
switch(uiReturnValue)
{
case ERROR_FUNCTION_FAILED:
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiViewFetch: An error occurred during fetching")
);
return ERROR_INSTALL_FAILURE;
break;
case ERROR_INVALID_HANDLE:
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiViewFetch reports an invalid handle was used")
);
return ERROR_INSTALL_FAILURE;
break;
case ERROR_INVALID_HANDLE_STATE:
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiViewFetch reports the handle was in an invalid state")
);
return ERROR_INSTALL_FAILURE;
break;
}
// Okay, now it is time to parse the string that was returned.
uiReturnValue = MsiRecordGetString(hRec, 1, (LPTSTR)&szBuffer, &dwBufferSize);
switch(uiReturnValue)
{
case ERROR_INVALID_HANDLE:
MsiCloseHandle(hRec);
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiRecordGetString reports an invalid handle was used")
);
return ERROR_INSTALL_FAILURE;
break;
case ERROR_INVALID_PARAMETER:
MsiCloseHandle(hRec);
MsiViewClose(hView);
MsiCloseHandle(hDatabase);
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
_T("MsiRecordGetString reports an invalid parameter was used")
);
return ERROR_INSTALL_FAILURE;
break;
}
// Save the string
strComponentKeyFilename = szBuffer;
strMessage = _T("The key filename for component '");
strMessage += strComponentName;
strMessage += _T("' is '");
strMessage += strComponentKeyFilename;
strMessage += _T("'");
LogMessage(
INSTALLMESSAGE_INFO,
NULL,
NULL,
NULL,
NULL,
strMessage.c_str()
);
return ERROR_SUCCESS;
}
/*
** Name:ingres_prepare_remove_dbms_files
**
** Description:
** Set up the RemoveFile table in DBMS Merge Module for the
** directories and files that were not installed as part of
** the initial installation so that they can be removed from
** the system during an uninstall.
**
** Inputs:
** hInstall Handle to the installation.
**
** Outputs:
** None.
** Returns:
** ERROR_SUCCESS The function succeeds.
** ERROR_INSTALL_FAILURE The function fails.
** Exceptions:
** None.
**
** Side Effects:
** None.
**
** History:
** 16-Aug-2001 (penga03)
** Created.
** 17-Aug-2001 (penga03)
** Do not put the INSTALLDIR in the RemoveFile table.
** 14-may-2004 (somsa01)
** Make sure we use the 64-bit GUID,
** 8CCBF50C_6C17_4366_B8FE_FBB31A4092E0, when needed.
** 17-may-2004 (somsa01)
** Backed out prior change, as it does NOT properly fix the problem.
*/
UINT __stdcall
ingres_prepare_remove_dbms_files(MSIHANDLE hInstall)
{
TCHAR tchValue[MAX_PATH+1], ii_system[MAX_PATH+1], szBuf[MAX_PATH+1];
DWORD dwSize;
MSIHANDLE hDatabase, hView, hRecord;
TCHAR ConfigKey[256], Host[64];
INSTALLSTATE iInstalled, iAction;
TCHAR inst_id[64] = "INSTALLDIR.870341B5_2D6D_11D5_BDFC_00B0D0AD4485";
TCHAR bin_id[64] = "Bin.870341B5_2D6D_11D5_BDFC_00B0D0AD4485";
char sharedDisk[3];
MsiGetFeatureState(hInstall, "IngresDBMS", &iInstalled, &iAction);
if(iAction!=INSTALLSTATE_ABSENT)
return ERROR_SUCCESS;
dwSize=sizeof(ii_system);
if(MsiGetTargetPath(hInstall, inst_id, ii_system, &dwSize)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
if(ii_system[lstrlen(ii_system)-1] == '\\')
ii_system[lstrlen(ii_system)-1] = '\0';
SetEnvironmentVariable("II_SYSTEM", ii_system);
MsiSetProperty(hInstall, "INGRES_CLUSTER_RESOURCE_INUSE", "0");
if(Local_NMgtIngAt("II_DATABASE", tchValue)==ERROR_SUCCESS)
{
strncpy(sharedDisk, tchValue, 2);
sharedDisk[2]='\0';
if (GetFileAttributes(sharedDisk) == -1)
{
MsiSetProperty(hInstall, "INGRES_CLUSTER_RESOURCE_INUSE", "1");
return ERROR_SUCCESS;
}
}
hDatabase=MsiGetActiveDatabase(hInstall);
if(!hDatabase)
return ERROR_INSTALL_FAILURE;
if(MsiDatabaseOpenView(hDatabase, "INSERT INTO `RemoveFile` (`FileKey`, `Component_`, `FileName`, `DirProperty`, `InstallMode`) VALUES (?, ?, ?, ?, ?) TEMPORARY", &hView)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
hRecord=MsiCreateRecord(5);
if(!hRecord)
return ERROR_INSTALL_FAILURE;
if(Local_NMgtIngAt("II_DATABASE", tchValue)==ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
wsprintf(szBuf, "%s\\ingres\\data", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemoveDatabaseDir_%d", KeyCount);
wsprintf(szKey2, "RemoveDatabaseDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemoveDatabaseDir_%d", Count);
wsprintf(szKey2, "RemoveDatabaseDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemoveDatabaseDir_%d", Count);
wsprintf(szKey2, "RemoveDatabaseDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
if(Local_NMgtIngAt("II_CHECKPOINT", tchValue)==ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
wsprintf(szBuf, "%s\\ingres\\ckp", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemovecCheckpointDir_%d", KeyCount);
wsprintf(szKey2, "RemoveCheckpointDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemovecCheckpointDir_%d", Count);
wsprintf(szKey2, "RemovecCheckpointDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemovecCheckpointDir_%d", Count);
wsprintf(szKey2, "RemovecCheckpointDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
if(Local_NMgtIngAt("II_JOURNAL", tchValue)==ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
wsprintf(szBuf, "%s\\ingres\\jnl", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemoveJournalDir_%d", KeyCount);
wsprintf(szKey2, "RemoveJournalDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemoveJournalDir_%d", Count);
wsprintf(szKey2, "RemoveJournalDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemoveJournalDir_%d", Count);
wsprintf(szKey2, "RemoveJournalDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
if(Local_NMgtIngAt("II_DUMP", tchValue)==ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
wsprintf(szBuf, "%s\\ingres\\dmp", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemoveDumpDir_%d", KeyCount);
wsprintf(szKey2, "RemoveDumpDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemoveDumpDir_%d", Count);
wsprintf(szKey2, "RemoveDumpDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemoveDumpDir_%d", Count);
wsprintf(szKey2, "RemoveDumpDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
if(Local_NMgtIngAt("II_WORK", tchValue)==ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
wsprintf(szBuf, "%s\\ingres\\work", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemoveWorkDir_%d", KeyCount);
wsprintf(szKey2, "RemoveWorkDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemoveWorkDir_%d", Count);
wsprintf(szKey2, "RemoveWorkDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemoveWorkDir_%d", Count);
wsprintf(szKey2, "RemoveWorkDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Local_PMhost(Host);
wsprintf(ConfigKey, "ii.%s.rcp.log.log_file_parts", Host);
if(Local_PMget(ConfigKey, tchValue) == ERROR_SUCCESS)
{
int num_logs, i;
num_logs=atoi(tchValue);
for(i=1; i<=num_logs; i++)
{
wsprintf(ConfigKey, "ii.%s.rcp.log.log_file_%d", Host, i);
if(Local_PMget(ConfigKey, tchValue) == ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
StringReplace(tchValue);
wsprintf(szBuf, "%s\\ingres\\log", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemoveLogDir_%d", KeyCount);
wsprintf(szKey2, "RemoveLogDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemoveLogDir_%d", Count);
wsprintf(szKey2, "RemoveLogDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemoveLogDir_%d", Count);
wsprintf(szKey2, "RemoveLogDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
}
}
wsprintf(ConfigKey, "ii.%s.rcp.log.dual_log_1", Host);
if(Local_PMget(ConfigKey, tchValue) == ERROR_SUCCESS)
{
int KeyCount;
char szKey[MAX_PATH+1], szKey2[MAX_PATH+1];
StringReplace(tchValue);
wsprintf(szBuf, "%s\\ingres\\log", tchValue);
Count=-1;
CreateDirList(szBuf);
for(KeyCount=0; KeyCount<=Count; KeyCount++)
{
wsprintf(szKey, "RemoveDuallogDir_%d", KeyCount);
wsprintf(szKey2, "RemoveDuallogDir_%d_Dir", KeyCount);
MsiSetProperty(hInstall, szKey, DirList[KeyCount].DirName);
MsiRecordSetString(hRecord, 1, szKey);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "*.*");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
Count++;
wsprintf(szKey, "RemoveDuallogDir_%d", Count);
wsprintf(szKey2, "RemoveDuallogDir_%d_Dir", Count);
wsprintf(szBuf, "%s\\ingres", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
Count++;
wsprintf(szKey, "RemoveDuallogDir_%d", Count);
wsprintf(szKey2, "RemoveDuallogDir_%d_Dir", Count);
wsprintf(szBuf, "%s", tchValue);
MsiSetProperty(hInstall, szKey, szBuf);
MsiRecordSetString(hRecord, 1, szKey2);
MsiRecordSetString(hRecord, 2, bin_id);
MsiRecordSetString(hRecord, 3, "");
MsiRecordSetString(hRecord, 4, szKey);
MsiRecordSetInteger(hRecord, 5, 2);
if(MsiViewExecute(hView, hRecord)!=ERROR_SUCCESS)
return ERROR_INSTALL_FAILURE;
}
MsiCloseHandle(hRecord);
MsiCloseHandle(hView);
MsiCloseHandle(hDatabase);
return ERROR_SUCCESS;
}
void
x_msg_va(const unsigned int flags, const char *format, va_list arglist)
{
/* Secure last error before it is overridden. */
DWORD dwResult = (flags & M_ERRNO) != 0 ? GetLastError() : ERROR_SUCCESS;
struct openvpnmsica_thread_data *s = (struct openvpnmsica_thread_data *)TlsGetValue(openvpnmsica_thread_data_idx);
if (s->hInstall == 0)
{
/* No MSI session, no fun. */
return;
}
/* Prepare the message record. The record will contain up to four fields. */
MSIHANDLE hRecordProg = MsiCreateRecord(4);
{
/* Field 2: The message string. */
char szBufStack[128];
int iResultLen = vsnprintf(szBufStack, _countof(szBufStack), format, arglist);
if (iResultLen < _countof(szBufStack))
{
/* Use from stack. */
MsiRecordSetStringA(hRecordProg, 2, szBufStack);
}
else
{
/* Allocate on heap and retry. */
char *szMessage = (char *)malloc(++iResultLen * sizeof(char));
if (szMessage != NULL)
{
vsnprintf(szMessage, iResultLen, format, arglist);
MsiRecordSetStringA(hRecordProg, 2, szMessage);
free(szMessage);
}
else
{
/* Use stack variant anyway, but make sure it's zero-terminated. */
szBufStack[_countof(szBufStack) - 1] = 0;
MsiRecordSetStringA(hRecordProg, 2, szBufStack);
}
}
}
if ((flags & M_ERRNO) == 0)
{
/* Field 1: MSI Error Code */
MsiRecordSetInteger(hRecordProg, 1, ERROR_MSICA);
}
else
{
/* Field 1: MSI Error Code */
MsiRecordSetInteger(hRecordProg, 1, ERROR_MSICA_ERRNO);
/* Field 3: The Windows error number. */
MsiRecordSetInteger(hRecordProg, 3, dwResult);
/* Field 4: The Windows error description. */
LPTSTR szErrMessage = NULL;
if (FormatMessage(
FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_IGNORE_INSERTS,
0,
dwResult,
0,
(LPTSTR)&szErrMessage,
0,
NULL) && szErrMessage)
{
/* Trim trailing whitespace. Set terminator after the last non-whitespace character. This prevents excessive trailing line breaks. */
for (size_t i = 0, i_last = 0;; i++)
{
if (szErrMessage[i])
{
if (!_istspace(szErrMessage[i]))
{
i_last = i + 1;
}
}
else
{
szErrMessage[i_last] = 0;
break;
}
}
MsiRecordSetString(hRecordProg, 4, szErrMessage);
LocalFree(szErrMessage);
}
}
MsiProcessMessage(s->hInstall, INSTALLMESSAGE_ERROR, hRecordProg);
MsiCloseHandle(hRecordProg);
}
