msi: Read the disk prompt source list property from the user-unmanaged context.
[wine.git] / dlls / msi / upgrade.c
blobda954997bb9fc1db1b7a5ae974819e5c453b333d
1 /*
2 * Implementation of the Microsoft Installer (msi.dll)
4 * Copyright 2005 Aric Stewart for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 * Actions focused on in this module
24 * FindRelatedProducts
25 * MigrateFeatureStates (TODO)
26 * RemoveExistingProducts (TODO)
29 #include <stdarg.h>
31 #include "windef.h"
32 #include "winbase.h"
33 #include "winerror.h"
34 #include "winreg.h"
35 #include "wine/debug.h"
36 #include "msidefs.h"
37 #include "msipriv.h"
38 #include "winuser.h"
39 #include "wine/unicode.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(msi);
43 extern const WCHAR szFindRelatedProducts[];
44 extern const WCHAR szMigrateFeatureStates[];
45 extern const WCHAR szRemoveExistingProducts[];
47 static BOOL check_language(DWORD lang1, LPCWSTR lang2, DWORD attributes)
49 DWORD langdword;
51 if (!lang2 || lang2[0]==0)
52 return TRUE;
54 langdword = atoiW(lang2);
56 if (attributes & msidbUpgradeAttributesLanguagesExclusive)
57 return (lang1 != langdword);
58 else
59 return (lang1 == langdword);
62 static void append_productcode(MSIPACKAGE* package, LPCWSTR action_property,
63 LPCWSTR productid)
65 LPWSTR prop;
66 LPWSTR newprop;
67 DWORD len;
68 static const WCHAR separator[] = {';',0};
70 prop = msi_dup_property(package, action_property );
71 if (prop)
72 len = strlenW(prop);
73 else
74 len = 0;
76 /*separator*/
77 len ++;
79 len += strlenW(productid);
81 /*null*/
82 len++;
84 newprop = msi_alloc( len*sizeof(WCHAR) );
86 if (prop)
88 strcpyW(newprop,prop);
89 strcatW(newprop,separator);
91 else
92 newprop[0] = 0;
93 strcatW(newprop,productid);
95 MSI_SetPropertyW(package, action_property, newprop);
96 TRACE("Found Related Product... %s now %s\n",debugstr_w(action_property),
97 debugstr_w(newprop));
98 msi_free( prop );
99 msi_free( newprop );
102 static UINT ITERATE_FindRelatedProducts(MSIRECORD *rec, LPVOID param)
104 MSIPACKAGE *package = (MSIPACKAGE*)param;
105 WCHAR product[GUID_SIZE];
106 DWORD index = 0;
107 DWORD attributes = 0;
108 DWORD sz = GUID_SIZE;
109 LPCWSTR upgrade_code;
110 HKEY hkey = 0;
111 UINT rc = ERROR_SUCCESS;
112 MSIRECORD *uirow;
114 upgrade_code = MSI_RecordGetString(rec,1);
116 rc = MSIREG_OpenUpgradeCodesKey(upgrade_code, &hkey, FALSE);
117 if (rc != ERROR_SUCCESS)
118 return ERROR_SUCCESS;
120 uirow = MSI_CreateRecord(1);
121 attributes = MSI_RecordGetInteger(rec,5);
123 while (rc == ERROR_SUCCESS)
125 rc = RegEnumValueW(hkey, index, product, &sz, NULL, NULL, NULL, NULL);
126 TRACE("Looking at (%i) %s\n",index,debugstr_w(product));
127 if (rc == ERROR_SUCCESS)
129 WCHAR productid[GUID_SIZE];
130 LPCWSTR ver;
131 LPCWSTR language;
132 LPCWSTR action_property;
133 DWORD check = 0x00000000;
134 DWORD comp_ver = 0x00000000;
135 DWORD sz = 0x100;
136 HKEY hukey;
137 INT r;
139 unsquash_guid(product,productid);
140 rc = MSIREG_OpenUserProductsKey(productid, &hukey, FALSE);
141 if (rc != ERROR_SUCCESS)
143 rc = ERROR_SUCCESS;
144 index ++;
145 continue;
148 sz = sizeof(DWORD);
149 RegQueryValueExW(hukey, INSTALLPROPERTY_VERSIONW, NULL, NULL,
150 (LPBYTE)&check, &sz);
151 /* check min */
152 ver = MSI_RecordGetString(rec,2);
153 comp_ver = msi_version_str_to_dword(ver);
154 r = check - comp_ver;
155 if (r < 0 || (r == 0 && !(attributes &
156 msidbUpgradeAttributesVersionMinInclusive)))
158 RegCloseKey(hukey);
159 index ++;
160 continue;
163 /* check max */
164 ver = MSI_RecordGetString(rec,3);
165 comp_ver = msi_version_str_to_dword(ver);
166 r = check - comp_ver;
167 if (r > 0 || (r == 0 && !(attributes &
168 msidbUpgradeAttributesVersionMaxInclusive)))
170 RegCloseKey(hukey);
171 index ++;
172 continue;
175 /* check language*/
176 sz = sizeof(DWORD);
177 RegQueryValueExW(hukey, INSTALLPROPERTY_LANGUAGEW, NULL, NULL,
178 (LPBYTE)&check, &sz);
179 RegCloseKey(hukey);
180 language = MSI_RecordGetString(rec,4);
181 TRACE("Checking languages %x and %s\n", check,
182 debugstr_w(language));
183 if (!check_language(check, language, attributes))
185 index ++;
186 continue;
189 action_property = MSI_RecordGetString(rec,7);
190 append_productcode(package,action_property,productid);
191 ui_actiondata(package,szFindRelatedProducts,uirow);
193 index ++;
195 RegCloseKey(hkey);
196 msiobj_release( &uirow->hdr);
198 return ERROR_SUCCESS;
201 UINT ACTION_FindRelatedProducts(MSIPACKAGE *package)
203 static const WCHAR Query[] =
204 {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',
205 ' ','`','U','p','g','r','a','d','e','`',0};
206 UINT rc = ERROR_SUCCESS;
207 MSIQUERY *view;
209 if (check_unique_action(package,szFindRelatedProducts))
211 TRACE("Skipping FindRelatedProducts action: already done on client side\n");
212 return ERROR_SUCCESS;
214 else
215 register_unique_action(package,szFindRelatedProducts);
217 rc = MSI_DatabaseOpenViewW(package->db, Query, &view);
218 if (rc != ERROR_SUCCESS)
219 return ERROR_SUCCESS;
221 rc = MSI_IterateRecords(view, NULL, ITERATE_FindRelatedProducts, package);
222 msiobj_release(&view->hdr);
224 return rc;