configure: Changes from running autconf after previous patch.
[wine/hacks.git] / dlls / msi / upgrade.c
blobb131d666fe2dc0dbefb8a5dac3d8bb1e1d446aab
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 static BOOL check_language(DWORD lang1, LPCWSTR lang2, DWORD attributes)
45 DWORD langdword;
47 if (!lang2 || lang2[0]==0)
48 return TRUE;
50 langdword = atoiW(lang2);
52 if (attributes & msidbUpgradeAttributesLanguagesExclusive)
53 return (lang1 != langdword);
54 else
55 return (lang1 == langdword);
58 static void append_productcode(MSIPACKAGE* package, LPCWSTR action_property,
59 LPCWSTR productid)
61 LPWSTR prop;
62 LPWSTR newprop;
63 DWORD len;
64 UINT r;
66 prop = msi_dup_property(package->db, action_property );
67 if (prop)
68 len = strlenW(prop);
69 else
70 len = 0;
72 /*separator*/
73 len ++;
75 len += strlenW(productid);
77 /*null*/
78 len++;
80 newprop = msi_alloc( len*sizeof(WCHAR) );
82 if (prop)
84 strcpyW(newprop,prop);
85 strcatW(newprop,szSemiColon);
87 else
88 newprop[0] = 0;
89 strcatW(newprop,productid);
91 r = msi_set_property( package->db, action_property, newprop );
92 if (r == ERROR_SUCCESS && !strcmpW( action_property, cszSourceDir ))
93 msi_reset_folders( package, TRUE );
95 TRACE("Found Related Product... %s now %s\n",
96 debugstr_w(action_property), debugstr_w(newprop));
98 msi_free( prop );
99 msi_free( newprop );
102 static UINT ITERATE_FindRelatedProducts(MSIRECORD *rec, LPVOID param)
104 MSIPACKAGE *package = 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_OpenProductKey(productid, NULL, package->Context,
141 &hukey, FALSE);
142 if (rc != ERROR_SUCCESS)
144 rc = ERROR_SUCCESS;
145 index ++;
146 continue;
149 sz = sizeof(DWORD);
150 RegQueryValueExW(hukey, INSTALLPROPERTY_VERSIONW, NULL, NULL,
151 (LPBYTE)&check, &sz);
152 /* check min */
153 ver = MSI_RecordGetString(rec,2);
154 if (ver)
156 comp_ver = msi_version_str_to_dword(ver);
157 r = check - comp_ver;
158 if (r < 0 || (r == 0 && !(attributes & msidbUpgradeAttributesVersionMinInclusive)))
160 RegCloseKey(hukey);
161 index ++;
162 continue;
166 /* check max */
167 ver = MSI_RecordGetString(rec,3);
168 if (ver)
170 comp_ver = msi_version_str_to_dword(ver);
171 r = check - comp_ver;
172 if (r > 0 || (r == 0 && !(attributes & msidbUpgradeAttributesVersionMaxInclusive)))
174 RegCloseKey(hukey);
175 index ++;
176 continue;
180 /* check language*/
181 sz = sizeof(DWORD);
182 RegQueryValueExW(hukey, INSTALLPROPERTY_LANGUAGEW, NULL, NULL,
183 (LPBYTE)&check, &sz);
184 RegCloseKey(hukey);
185 language = MSI_RecordGetString(rec,4);
186 TRACE("Checking languages %x and %s\n", check,
187 debugstr_w(language));
188 if (!check_language(check, language, attributes))
190 index ++;
191 continue;
194 action_property = MSI_RecordGetString(rec, 7);
195 append_productcode(package, action_property, productid);
196 MSI_RecordSetStringW(uirow, 1, productid);
197 ui_actiondata(package, szFindRelatedProducts, uirow);
199 index ++;
201 RegCloseKey(hkey);
202 msiobj_release( &uirow->hdr);
204 return ERROR_SUCCESS;
207 UINT ACTION_FindRelatedProducts(MSIPACKAGE *package)
209 static const WCHAR Query[] =
210 {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',
211 ' ','`','U','p','g','r','a','d','e','`',0};
212 UINT rc = ERROR_SUCCESS;
213 MSIQUERY *view;
215 if (msi_get_property_int(package->db, szInstalled, 0))
217 TRACE("Skipping FindRelatedProducts action: product already installed\n");
218 return ERROR_SUCCESS;
221 if (check_unique_action(package, szFindRelatedProducts))
223 TRACE("Skipping FindRelatedProducts action: already done in UI sequence\n");
224 return ERROR_SUCCESS;
226 else
227 register_unique_action(package, szFindRelatedProducts);
229 rc = MSI_DatabaseOpenViewW(package->db, Query, &view);
230 if (rc != ERROR_SUCCESS)
231 return ERROR_SUCCESS;
233 rc = MSI_IterateRecords(view, NULL, ITERATE_FindRelatedProducts, package);
234 msiobj_release(&view->hdr);
236 return rc;