1 files changed, 429 insertions, 0 deletions

diff --git a/src/libs/wcautil/WixToolset.WcaUtil/wcascript.cpp b/src/libs/wcautil/WixToolset.WcaUtil/wcascript.cpp
new file mode 100644
index 00000000..a7e98491
--- /dev/null
+++ b/src/libs/wcautil/WixToolset.WcaUtil/wcascript.cpp
@@ -0,0 +1,429 @@
+// 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"
+
+
+static HRESULT CaScriptFileName(
+    __in WCA_ACTION action,
+    __in WCA_CASCRIPT script,
+    __in BOOL fImpersonated,
+    __in_z LPCWSTR wzScriptKey,
+    __out LPWSTR* pwzScriptName
+    );
+
+
+/********************************************************************
+ WcaCaScriptCreateKey() - creates a unique script key for this
+                          CustomAction.
+
+********************************************************************/
+extern "C" HRESULT WIXAPI WcaCaScriptCreateKey(
+    __out LPWSTR* ppwzScriptKey
+    )
+{
+    AssertSz(WcaIsInitialized(), "WcaInitialize() should have been called before calling this function.");
+    HRESULT hr = S_OK;
+
+    hr = StrAllocStringAnsi(ppwzScriptKey, WcaGetLogName(), 0, CP_ACP);
+    ExitOnFailure(hr, "Failed to create script key.");
+
+LExit:
+    return hr;
+}
+
+
+/********************************************************************
+ WcaCaScriptCreate() - creates the appropriate script for this
+                       CustomAction Script Key.
+
+********************************************************************/
+extern "C" HRESULT WIXAPI WcaCaScriptCreate(
+    __in WCA_ACTION action,
+    __in WCA_CASCRIPT script,
+    __in BOOL fImpersonated,
+    __in_z LPCWSTR wzScriptKey,
+    __in BOOL fAppend,
+    __out WCA_CASCRIPT_HANDLE* phScript
+    )
+{
+    HRESULT hr = S_OK;
+    LPWSTR pwzScriptPath = NULL;
+    HANDLE hScriptFile = INVALID_HANDLE_VALUE;
+
+    hr = CaScriptFileName(action, script, fImpersonated, wzScriptKey, &pwzScriptPath);
+    ExitOnFailure(hr, "Failed to calculate script file name.");
+
+    hScriptFile = ::CreateFileW(pwzScriptPath, GENERIC_WRITE, FILE_SHARE_READ, NULL, fAppend ? OPEN_ALWAYS : CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL | FILE_FLAG_SEQUENTIAL_SCAN, NULL);
+    if (INVALID_HANDLE_VALUE == hScriptFile)
+    {
+        ExitWithLastError(hr, "Failed to open CaScript: %ls", pwzScriptPath);
+    }
+
+    if (fAppend && INVALID_SET_FILE_POINTER == ::SetFilePointer(hScriptFile, 0, NULL, FILE_END))
+    {
+        ExitWithLastError(hr, "Failed to seek to end of file.");
+    }
+
+    *phScript = static_cast<WCA_CASCRIPT_HANDLE>(MemAlloc(sizeof(WCA_CASCRIPT_STRUCT), TRUE));
+    ExitOnNull(*phScript, hr, E_OUTOFMEMORY, "Failed to allocate space for cascript handle.");
+
+    (*phScript)->pwzScriptPath = pwzScriptPath;
+    pwzScriptPath = NULL;
+    (*phScript)->hScriptFile = hScriptFile;
+    hScriptFile = INVALID_HANDLE_VALUE;
+
+LExit:
+    if (INVALID_HANDLE_VALUE != hScriptFile)
+    {
+        ::CloseHandle(hScriptFile);
+    }
+
+    ReleaseStr(pwzScriptPath);
+    return hr;
+}
+
+
+/********************************************************************
+ WcaCaScriptOpen() - opens the appropriate script for this CustomAction
+                     Script Key.
+
+********************************************************************/
+extern "C" HRESULT WIXAPI WcaCaScriptOpen(
+    __in WCA_ACTION action,
+    __in WCA_CASCRIPT script,
+    __in BOOL fImpersonated,
+    __in_z LPCWSTR wzScriptKey,
+    __out WCA_CASCRIPT_HANDLE* phScript
+    )
+{
+    HRESULT hr = S_OK;
+    LPWSTR pwzScriptPath = NULL;
+    HANDLE hScriptFile = INVALID_HANDLE_VALUE;
+
+    hr = CaScriptFileName(action, script, fImpersonated, wzScriptKey, &pwzScriptPath);
+    ExitOnFailure(hr, "Failed to calculate script file name.");
+
+    hScriptFile = ::CreateFileW(pwzScriptPath, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL | FILE_FLAG_SEQUENTIAL_SCAN, NULL);
+    if (INVALID_HANDLE_VALUE == hScriptFile)
+    {
+        ExitWithLastError(hr, "Failed to open CaScript: %ls", pwzScriptPath);
+    }
+
+    *phScript = static_cast<WCA_CASCRIPT_HANDLE>(MemAlloc(sizeof(WCA_CASCRIPT_STRUCT), TRUE));
+    ExitOnNull(*phScript, hr, E_OUTOFMEMORY, "Failed to allocate space for cascript handle.");
+
+    (*phScript)->pwzScriptPath = pwzScriptPath;
+    pwzScriptPath = NULL;
+    (*phScript)->hScriptFile = hScriptFile;
+    hScriptFile = INVALID_HANDLE_VALUE;
+
+LExit:
+    if (INVALID_HANDLE_VALUE != hScriptFile)
+    {
+        ::CloseHandle(hScriptFile);
+    }
+
+    ReleaseStr(pwzScriptPath);
+    return hr;
+}
+
+
+/********************************************************************
+ WcaCaScriptClose() - closes an open script handle.
+
+********************************************************************/
+extern "C" void WIXAPI WcaCaScriptClose(
+    __in_opt WCA_CASCRIPT_HANDLE hScript,
+    __in WCA_CASCRIPT_CLOSE closeOperation
+    )
+{
+    if (hScript)
+    {
+        if (INVALID_HANDLE_VALUE != hScript->hScriptFile)
+        {
+            ::CloseHandle(hScript->hScriptFile);
+        }
+
+        if (hScript->pwzScriptPath)
+        {
+            if (WCA_CASCRIPT_CLOSE_DELETE == closeOperation)
+            {
+                ::DeleteFileW(hScript->pwzScriptPath);
+            }
+
+            StrFree(hScript->pwzScriptPath);
+        }
+
+        MemFree(hScript);
+    }
+}
+
+
+/********************************************************************
+ WcaCaScriptReadAsCustomActionData() - read the ca script into a format
+                                       that is useable by other CA data
+                                       functions.
+
+********************************************************************/
+extern "C" HRESULT WIXAPI WcaCaScriptReadAsCustomActionData(
+    __in WCA_CASCRIPT_HANDLE hScript,
+    __out LPWSTR* ppwzCustomActionData
+    )
+{
+    HRESULT hr = S_OK;
+    LARGE_INTEGER liScriptSize = { 0 };
+    BYTE* pbData = NULL;
+    DWORD cbData = 0;
+
+    if (!::GetFileSizeEx(hScript->hScriptFile, &liScriptSize))
+    {
+        ExitWithLastError(hr, "Failed to get size of ca script file.");
+    }
+
+    if (0 != liScriptSize.HighPart || 0 != (liScriptSize.LowPart % sizeof(WCHAR)))
+    {
+        hr = HRESULT_FROM_WIN32(ERROR_INVALID_DATA);
+        ExitOnRootFailure(hr, "Invalid data read from ca script.");
+    }
+
+    cbData = liScriptSize.LowPart;
+    if (cbData)
+    {
+        pbData = static_cast<BYTE*>(MemAlloc(cbData, TRUE));
+        ExitOnNull(pbData, hr, E_OUTOFMEMORY, "Failed to allocate memory to read in ca script.");
+
+        if (INVALID_SET_FILE_POINTER == ::SetFilePointer(hScript->hScriptFile, 0, NULL, FILE_BEGIN))
+        {
+            ExitWithLastError(hr, "Failed to reset to beginning of ca script.");
+        }
+
+        DWORD cbTotalRead = 0;
+        DWORD cbRead = 0;
+        do
+        {
+            if (!::ReadFile(hScript->hScriptFile, pbData + cbTotalRead, cbData - cbTotalRead, &cbRead, NULL))
+            {
+                ExitWithLastError(hr, "Failed to read from ca script.");
+            }
+
+            cbTotalRead += cbRead;
+        } while (cbRead && cbTotalRead < cbData);
+
+        if (cbTotalRead != cbData)
+        {
+            hr = E_UNEXPECTED;
+            ExitOnFailure(hr, "Failed to completely read ca script.");
+        }
+    }
+
+    // Add one to the allocated space because the data stored in the script is not
+    // null terminated.  After copying the memory over, we'll ensure the string is
+    // null terminated.
+    DWORD cchData = cbData / sizeof(WCHAR) + 1;
+    hr = StrAlloc(ppwzCustomActionData, cchData);
+    ExitOnFailure(hr, "Failed to copy ca script.");
+
+    if (cbData)
+    {
+        CopyMemory(*ppwzCustomActionData, pbData, cbData);
+    }
+
+    (*ppwzCustomActionData)[cchData - 1] = L'\0';
+
+LExit:
+    ReleaseMem(pbData);
+    return hr;
+}
+
+
+/********************************************************************
+ WcaCaScriptWriteString() - writes a string to the ca script.
+
+********************************************************************/
+extern "C" HRESULT WIXAPI WcaCaScriptWriteString(
+    __in WCA_CASCRIPT_HANDLE hScript,
+    __in_z LPCWSTR wzValue
+    )
+{
+    HRESULT hr = S_OK;
+    DWORD cbFile = 0;
+    WCHAR delim[] = { MAGIC_MULTISZ_DELIM }; // magic char followed by NULL terminator
+    SIZE_T cch = 0;
+
+    cbFile = ::SetFilePointer(hScript->hScriptFile, 0, NULL, FILE_END);
+    if (INVALID_SET_FILE_POINTER == cbFile)
+    {
+        ExitWithLastError(hr, "Failed to move file pointer to end of file.");
+    }
+
+    // If there is existing data in the file, append on the magic delimeter
+    // before adding our new data on the end of the file.
+    if (0 < cbFile)
+    {
+        hr = FileWriteHandle(hScript->hScriptFile, reinterpret_cast<LPCBYTE>(delim), sizeof(delim));
+        ExitOnFailure(hr, "Failed to write data to ca script.");
+    }
+
+    hr = ::StringCchLengthW(wzValue, STRSAFE_MAX_CCH, reinterpret_cast<size_t*>(&cch));
+    ExitOnRootFailure(hr, "Failed to get length of ca script string.");
+
+    hr = FileWriteHandle(hScript->hScriptFile, reinterpret_cast<LPCBYTE>(wzValue), static_cast<DWORD>(cch) * sizeof(WCHAR));
+    ExitOnFailure(hr, "Failed to write data to ca script.");
+
+LExit:
+    return hr;
+}
+
+
+/********************************************************************
+ WcaCaScriptWriteNumber() - writes a number to the ca script.
+
+********************************************************************/
+extern "C" HRESULT WIXAPI WcaCaScriptWriteNumber(
+    __in WCA_CASCRIPT_HANDLE hScript,
+    __in DWORD dwValue
+    )
+{
+    HRESULT hr = S_OK;
+    WCHAR wzBuffer[13] = { 0 };
+
+    hr = ::StringCchPrintfW(wzBuffer, countof(wzBuffer), L"%u", dwValue);
+    ExitOnFailure(hr, "Failed to convert number into string.");
+
+    hr = WcaCaScriptWriteString(hScript, wzBuffer);
+    ExitOnFailure(hr, "Failed to write number to script.");
+
+LExit:
+    return hr;
+}
+
+
+/********************************************************************
+ WcaCaScriptFlush() - best effort function to get script written to
+                      disk.
+
+********************************************************************/
+extern "C" void WIXAPI WcaCaScriptFlush(
+    __in WCA_CASCRIPT_HANDLE hScript
+    )
+{
+    ::FlushFileBuffers(hScript->hScriptFile);
+}
+
+
+/********************************************************************
+ WcaCaScriptCleanup() - best effort clean-up of any cascripts left
+                        over from this install/uninstall.
+
+********************************************************************/
+extern "C" void WIXAPI WcaCaScriptCleanup(
+    __in_z LPCWSTR wzProductCode,
+    __in BOOL fImpersonated
+    )
+{
+    HRESULT hr = S_OK;
+    WCHAR wzTempPath[MAX_PATH];
+    LPWSTR pwzWildCardPath = NULL;
+    WIN32_FIND_DATAW fd = { 0 };
+    HANDLE hff = INVALID_HANDLE_VALUE;
+    LPWSTR pwzDeletePath = NULL;
+
+    if (fImpersonated)
+    {
+        if (!::GetTempPathW(countof(wzTempPath), wzTempPath))
+        {
+            ExitWithLastError(hr, "Failed to get temp path.");
+        }
+    }
+    else
+    {
+        if (!::GetWindowsDirectoryW(wzTempPath, countof(wzTempPath)))
+        {
+            ExitWithLastError(hr, "Failed to get windows path.");
+        }
+
+        hr = ::StringCchCatW(wzTempPath, countof(wzTempPath), L"\\Installer\\");
+        ExitOnFailure(hr, "Failed to concat Installer directory on windows path string.");
+    }
+
+    hr = StrAllocFormatted(&pwzWildCardPath, L"%swix%s.*.???", wzTempPath, wzProductCode);
+    ExitOnFailure(hr, "Failed to allocate wildcard path to ca scripts.");
+
+    hff = ::FindFirstFileW(pwzWildCardPath, &fd);
+    if (INVALID_HANDLE_VALUE == hff)
+    {
+        ExitWithLastError(hr, "Failed to find files with pattern: %ls", pwzWildCardPath);
+    }
+
+    do
+    {
+        hr = StrAllocFormatted(&pwzDeletePath, L"%s%s", wzTempPath, fd.cFileName);
+        if (SUCCEEDED(hr))
+        {
+            if (!::DeleteFileW(pwzDeletePath))
+            {
+                DWORD er = ::GetLastError();
+                WcaLog(LOGMSG_VERBOSE, "Failed to clean up CAScript file: %ls, er: %d", fd.cFileName, er);
+            }
+        }
+        else
+        {
+            WcaLog(LOGMSG_VERBOSE, "Failed to allocate path to clean up CAScript file: %ls, hr: 0x%x", fd.cFileName, hr);
+        }
+    } while(::FindNextFileW(hff, &fd));
+
+LExit:
+    if (INVALID_HANDLE_VALUE == hff)
+    {
+        ::FindClose(hff);
+    }
+
+    ReleaseStr(pwzDeletePath);
+    ReleaseStr(pwzWildCardPath);
+    return;
+}
+
+
+static HRESULT CaScriptFileName(
+    __in WCA_ACTION action,
+    __in WCA_CASCRIPT script,
+    __in BOOL fImpersonated,
+    __in_z LPCWSTR wzScriptKey,
+    __out LPWSTR* ppwzScriptName
+    )
+{
+    HRESULT hr = S_OK;
+    WCHAR wzTempPath[MAX_PATH];
+    LPWSTR pwzProductCode = NULL;
+    WCHAR chInstallOrUninstall = action == WCA_ACTION_INSTALL ? L'i' : L'u';
+    WCHAR chScheduledOrRollback = script == WCA_CASCRIPT_SCHEDULED ? L's' : L'r';
+    WCHAR chUserOrMachine = fImpersonated ? L'u' : L'm';
+
+    if (fImpersonated)
+    {
+        if (!::GetTempPathW(countof(wzTempPath), wzTempPath))
+        {
+            ExitWithLastError(hr, "Failed to get temp path.");
+        }
+    }
+    else
+    {
+        if (!::GetWindowsDirectoryW(wzTempPath, countof(wzTempPath)))
+        {
+            ExitWithLastError(hr, "Failed to get windows path.");
+        }
+
+        hr = ::StringCchCatW(wzTempPath, countof(wzTempPath), L"\\Installer\\");
+        ExitOnFailure(hr, "Failed to concat Installer directory on windows path string.");
+    }
+
+    hr = WcaGetProperty(L"ProductCode", &pwzProductCode);
+    ExitOnFailure(hr, "Failed to get ProductCode.");
+
+    hr = StrAllocFormatted(ppwzScriptName, L"%swix%s.%s.%c%c%c", wzTempPath, pwzProductCode, wzScriptKey, chScheduledOrRollback, chUserOrMachine, chInstallOrUninstall);
+    ExitOnFailure(hr, "Failed to allocate path to ca script.");
+
+LExit:
+    ReleaseStr(pwzProductCode);
+    return hr;
+}