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
25 * MigrateFeatureStates (TODO)
26 * RemoveExistingProducts (TODO)
35 #include "wine/debug.h"
39 #include "wine/unicode.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(msi
);
43 static BOOL
check_language(DWORD lang1
, LPCWSTR lang2
, DWORD attributes
)
47 if (!lang2
|| lang2
[0]==0)
50 langdword
= atoiW(lang2
);
52 if (attributes
& msidbUpgradeAttributesLanguagesExclusive
)
53 return (lang1
!= langdword
);
55 return (lang1
== langdword
);
58 static void append_productcode(MSIPACKAGE
* package
, LPCWSTR action_property
,
66 prop
= msi_dup_property(package
->db
, action_property
);
75 len
+= strlenW(productid
);
80 newprop
= msi_alloc( len
*sizeof(WCHAR
) );
84 strcpyW(newprop
,prop
);
85 strcatW(newprop
,szSemiColon
);
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
));
102 static UINT
ITERATE_FindRelatedProducts(MSIRECORD
*rec
, LPVOID param
)
104 MSIPACKAGE
*package
= param
;
105 WCHAR product
[GUID_SIZE
];
107 DWORD attributes
= 0;
108 DWORD sz
= GUID_SIZE
;
109 LPCWSTR upgrade_code
;
111 UINT rc
= ERROR_SUCCESS
;
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
];
132 LPCWSTR action_property
;
133 DWORD check
= 0x00000000;
134 DWORD comp_ver
= 0x00000000;
139 unsquash_guid(product
, productid
);
140 rc
= MSIREG_OpenProductKey(productid
, NULL
, package
->Context
,
142 if (rc
!= ERROR_SUCCESS
)
150 RegQueryValueExW(hukey
, INSTALLPROPERTY_VERSIONW
, NULL
, NULL
,
151 (LPBYTE
)&check
, &sz
);
153 ver
= MSI_RecordGetString(rec
,2);
156 comp_ver
= msi_version_str_to_dword(ver
);
157 r
= check
- comp_ver
;
158 if (r
< 0 || (r
== 0 && !(attributes
& msidbUpgradeAttributesVersionMinInclusive
)))
167 ver
= MSI_RecordGetString(rec
,3);
170 comp_ver
= msi_version_str_to_dword(ver
);
171 r
= check
- comp_ver
;
172 if (r
> 0 || (r
== 0 && !(attributes
& msidbUpgradeAttributesVersionMaxInclusive
)))
182 RegQueryValueExW(hukey
, INSTALLPROPERTY_LANGUAGEW
, NULL
, NULL
,
183 (LPBYTE
)&check
, &sz
);
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
))
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
);
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
;
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
;
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
);