1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski  *
3*b1cdbd2cSJim Jagielski  * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski  * or more contributor license agreements.  See the NOTICE file
5*b1cdbd2cSJim Jagielski  * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski  * regarding copyright ownership.  The ASF licenses this file
7*b1cdbd2cSJim Jagielski  * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski  * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski  * with the License.  You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski  *
11*b1cdbd2cSJim Jagielski  *   http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski  *
13*b1cdbd2cSJim Jagielski  * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski  * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski  * KIND, either express or implied.  See the License for the
17*b1cdbd2cSJim Jagielski  * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski  * under the License.
19*b1cdbd2cSJim Jagielski  *
20*b1cdbd2cSJim Jagielski  *************************************************************/
21*b1cdbd2cSJim Jagielski 
22*b1cdbd2cSJim Jagielski 
23*b1cdbd2cSJim Jagielski 
24*b1cdbd2cSJim Jagielski #include "sal/config.h"
25*b1cdbd2cSJim Jagielski 
26*b1cdbd2cSJim Jagielski #include <cstddef>
27*b1cdbd2cSJim Jagielski #include <new>
28*b1cdbd2cSJim Jagielski #include <string.h> // <cstring> not supported by old MSC versions
29*b1cdbd2cSJim Jagielski 
30*b1cdbd2cSJim Jagielski #define WIN32_LEAN_AND_MEAN
31*b1cdbd2cSJim Jagielski #if defined _MSC_VER
32*b1cdbd2cSJim Jagielski #pragma warning(push, 1)
33*b1cdbd2cSJim Jagielski #endif
34*b1cdbd2cSJim Jagielski #include <windows.h>
35*b1cdbd2cSJim Jagielski #include <msiquery.h>
36*b1cdbd2cSJim Jagielski #include <shellapi.h>
37*b1cdbd2cSJim Jagielski #if defined _MSC_VER
38*b1cdbd2cSJim Jagielski #pragma warning(pop)
39*b1cdbd2cSJim Jagielski #endif
40*b1cdbd2cSJim Jagielski 
41*b1cdbd2cSJim Jagielski #define LCL_LENGTH0(s) (sizeof (s) / sizeof *(s))
42*b1cdbd2cSJim Jagielski #define LCL_STRING0(s) (s), LCL_LENGTH0(s)
43*b1cdbd2cSJim Jagielski 
44*b1cdbd2cSJim Jagielski namespace {
45*b1cdbd2cSJim Jagielski 
46*b1cdbd2cSJim Jagielski enum Status { STATUS_NO, STATUS_YES, STATUS_ERROR };
47*b1cdbd2cSJim Jagielski 
fileExists(wchar_t const * path)48*b1cdbd2cSJim Jagielski Status fileExists(wchar_t const * path) {
49*b1cdbd2cSJim Jagielski     return GetFileAttributesW(path) == INVALID_FILE_ATTRIBUTES
50*b1cdbd2cSJim Jagielski         ? GetLastError() == ERROR_FILE_NOT_FOUND ? STATUS_NO : STATUS_ERROR
51*b1cdbd2cSJim Jagielski         : STATUS_YES;
52*b1cdbd2cSJim Jagielski }
53*b1cdbd2cSJim Jagielski 
getProperty(MSIHANDLE install,wchar_t const * name,wchar_t const * suffix,std::size_t suffixLength,wchar_t ** end=NULL)54*b1cdbd2cSJim Jagielski wchar_t * getProperty(
55*b1cdbd2cSJim Jagielski     MSIHANDLE install, wchar_t const * name, wchar_t const * suffix,
56*b1cdbd2cSJim Jagielski     std::size_t suffixLength, wchar_t ** end = NULL)
57*b1cdbd2cSJim Jagielski {
58*b1cdbd2cSJim Jagielski     DWORD n = 0;
59*b1cdbd2cSJim Jagielski     UINT err = MsiGetPropertyW(install, name, L"", &n);
60*b1cdbd2cSJim Jagielski     if (err != ERROR_SUCCESS && err != ERROR_MORE_DATA) {
61*b1cdbd2cSJim Jagielski         return NULL;
62*b1cdbd2cSJim Jagielski     }
63*b1cdbd2cSJim Jagielski     DWORD n2 = n + suffixLength; //TODO: overflow
64*b1cdbd2cSJim Jagielski     wchar_t * data = new(std::nothrow) wchar_t[n2];
65*b1cdbd2cSJim Jagielski     if (data == NULL) {
66*b1cdbd2cSJim Jagielski         return NULL;
67*b1cdbd2cSJim Jagielski     }
68*b1cdbd2cSJim Jagielski     if (MsiGetPropertyW(install, name, data, &n2) != ERROR_SUCCESS || n2 != n) {
69*b1cdbd2cSJim Jagielski         delete[] data;
70*b1cdbd2cSJim Jagielski         return NULL;
71*b1cdbd2cSJim Jagielski     }
72*b1cdbd2cSJim Jagielski     memcpy(data + n, suffix, suffixLength * sizeof (wchar_t)); //TODO: overflow
73*b1cdbd2cSJim Jagielski     if (end != NULL) {
74*b1cdbd2cSJim Jagielski         *end = data + n + suffixLength;
75*b1cdbd2cSJim Jagielski     }
76*b1cdbd2cSJim Jagielski     return data;
77*b1cdbd2cSJim Jagielski }
78*b1cdbd2cSJim Jagielski 
79*b1cdbd2cSJim Jagielski }
80*b1cdbd2cSJim Jagielski 
81*b1cdbd2cSJim Jagielski namespace {
82*b1cdbd2cSJim Jagielski     class scoped_wchar_t_array
83*b1cdbd2cSJim Jagielski     {
84*b1cdbd2cSJim Jagielski     private:
85*b1cdbd2cSJim Jagielski         wchar_t* mpArray;
86*b1cdbd2cSJim Jagielski 
87*b1cdbd2cSJim Jagielski     public:
scoped_wchar_t_array(wchar_t * pArray)88*b1cdbd2cSJim Jagielski         scoped_wchar_t_array( wchar_t* pArray )
89*b1cdbd2cSJim Jagielski             : mpArray( pArray )
90*b1cdbd2cSJim Jagielski         {}
91*b1cdbd2cSJim Jagielski 
~scoped_wchar_t_array()92*b1cdbd2cSJim Jagielski         ~scoped_wchar_t_array()
93*b1cdbd2cSJim Jagielski         {
94*b1cdbd2cSJim Jagielski             if ( mpArray != 0 )
95*b1cdbd2cSJim Jagielski             {
96*b1cdbd2cSJim Jagielski                 delete[] mpArray;
97*b1cdbd2cSJim Jagielski             }
98*b1cdbd2cSJim Jagielski         }
99*b1cdbd2cSJim Jagielski 
get()100*b1cdbd2cSJim Jagielski         wchar_t* get()
101*b1cdbd2cSJim Jagielski         {
102*b1cdbd2cSJim Jagielski             return mpArray;
103*b1cdbd2cSJim Jagielski         }
104*b1cdbd2cSJim Jagielski     };
105*b1cdbd2cSJim Jagielski }
106*b1cdbd2cSJim Jagielski 
copyEditionData(MSIHANDLE install)107*b1cdbd2cSJim Jagielski extern "C" UINT __stdcall copyEditionData(MSIHANDLE install) {
108*b1cdbd2cSJim Jagielski     scoped_wchar_t_array from(
109*b1cdbd2cSJim Jagielski         getProperty(install, L"SourceDir", LCL_STRING0(L"edition\0")));
110*b1cdbd2cSJim Jagielski     if (!from.get()) {
111*b1cdbd2cSJim Jagielski         return ERROR_INSTALL_FAILURE;
112*b1cdbd2cSJim Jagielski     }
113*b1cdbd2cSJim Jagielski     Status stat = fileExists(from.get());
114*b1cdbd2cSJim Jagielski     if (stat == STATUS_ERROR) {
115*b1cdbd2cSJim Jagielski         return ERROR_INSTALL_FAILURE;
116*b1cdbd2cSJim Jagielski     }
117*b1cdbd2cSJim Jagielski     if (stat == STATUS_NO) {
118*b1cdbd2cSJim Jagielski         return ERROR_SUCCESS;
119*b1cdbd2cSJim Jagielski     }
120*b1cdbd2cSJim Jagielski     wchar_t * end;
121*b1cdbd2cSJim Jagielski     scoped_wchar_t_array to(
122*b1cdbd2cSJim Jagielski         getProperty(
123*b1cdbd2cSJim Jagielski             install, L"INSTALLLOCATION",
124*b1cdbd2cSJim Jagielski             LCL_STRING0(L"program\\edition\0"), &end));
125*b1cdbd2cSJim Jagielski     if (!to.get()) {
126*b1cdbd2cSJim Jagielski         return ERROR_INSTALL_FAILURE;
127*b1cdbd2cSJim Jagielski     }
128*b1cdbd2cSJim Jagielski     stat = fileExists(to.get());
129*b1cdbd2cSJim Jagielski     if (stat == STATUS_ERROR) {
130*b1cdbd2cSJim Jagielski         return ERROR_INSTALL_FAILURE;
131*b1cdbd2cSJim Jagielski     }
132*b1cdbd2cSJim Jagielski     if (stat == STATUS_YES) {
133*b1cdbd2cSJim Jagielski         SHFILEOPSTRUCTW opDelete = {
134*b1cdbd2cSJim Jagielski             NULL, FO_DELETE, to.get(), NULL, FOF_NOCONFIRMATION | FOF_SILENT,
135*b1cdbd2cSJim Jagielski             FALSE, NULL, NULL }; //TODO: non-NULL hwnd
136*b1cdbd2cSJim Jagielski         if (SHFileOperationW(&opDelete) != 0) {
137*b1cdbd2cSJim Jagielski             return ERROR_INSTALL_FAILURE;
138*b1cdbd2cSJim Jagielski         }
139*b1cdbd2cSJim Jagielski     }
140*b1cdbd2cSJim Jagielski     *(end - LCL_LENGTH0(L"\\edition\0")) = L'\0';
141*b1cdbd2cSJim Jagielski     *(end - LCL_LENGTH0(L"\\edition\0") + 1) = L'\0';
142*b1cdbd2cSJim Jagielski     SHFILEOPSTRUCTW opCopy = {
143*b1cdbd2cSJim Jagielski         NULL, FO_COPY, from.get(), to.get(),
144*b1cdbd2cSJim Jagielski         FOF_NOCONFIRMATION | FOF_NOCONFIRMMKDIR | FOF_SILENT, FALSE, NULL,
145*b1cdbd2cSJim Jagielski         NULL }; //TODO: non-NULL hwnd
146*b1cdbd2cSJim Jagielski     if (SHFileOperationW(&opCopy) != 0) {
147*b1cdbd2cSJim Jagielski         return ERROR_INSTALL_FAILURE;
148*b1cdbd2cSJim Jagielski     }
149*b1cdbd2cSJim Jagielski     return ERROR_SUCCESS;
150*b1cdbd2cSJim Jagielski }
151