dlls/msi/package.c

   1 /*
   2  * Implementation of the Microsoft Installer (msi.dll)
   3  *
   4  * Copyright 2004 Aric Stewart for CodeWeavers
   5  *
   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.
  10  *
  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.
  15  *
  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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #define NONAMELESSUNION
  22
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winreg.h"
  28 #include "winnls.h"
  29 #include "shlwapi.h"
  30 #include "wine/debug.h"
  31 #include "msi.h"
  32 #include "msiquery.h"
  33 #include "msipriv.h"
  34 #include "objidl.h"
  35 #include "wincrypt.h"
  36 #include "winuser.h"
  37 #include "shlobj.h"
  38 #include "wine/unicode.h"
  39 #include "objbase.h"
  40
  41 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  42
  43 /*
  44  * The MSVC headers define the MSIDBOPEN_* macros cast to LPCTSTR,
  45  *  which is a problem because LPCTSTR isn't defined when compiling wine.
  46  * To work around this problem, we need to define LPCTSTR as LPCWSTR here,
  47  *  and make sure to only use it in W functions.
  48  */
  49 #define LPCTSTR LPCWSTR
  50
  51 void MSI_FreePackage( VOID *arg);
  52
  53 typedef struct tagMSIPACKAGE
  54 {
  55     MSIHANDLE db;
  56 } MSIPACKAGE;
  57
  58 void MSI_FreePackage( VOID *arg)
  59 {
  60     MSIPACKAGE *package= arg;
  61
  62     MsiCloseHandle(package->db);
  63 }
  64
  65 UINT WINAPI MsiOpenPackageA(LPCSTR szPackage, MSIHANDLE *phPackage)
  66 {
  67     LPWSTR szwPack = NULL;
  68     UINT len, ret;
  69
  70     TRACE("%s %p\n",debugstr_a(szPackage), phPackage);
  71
  72     if( szPackage )
  73     {
  74         len = MultiByteToWideChar( CP_ACP, 0, szPackage, -1, NULL, 0 );
  75         szwPack = HeapAlloc( GetProcessHeap(), 0, len * sizeof (WCHAR) );
  76         if( szwPack )
  77             MultiByteToWideChar( CP_ACP, 0, szPackage, -1, szwPack, len );
  78     }
  79
  80     ret = MsiOpenPackageW( szwPack, phPackage );
  81
  82     if( szwPack )
  83         HeapFree( GetProcessHeap(), 0, szwPack );
  84
  85     return ret;
  86 }
  87
  88
  89 static const void clone_properties(MSIHANDLE db)
  90 {
  91     MSIHANDLE view;
  92     UINT rc;
  93     static const CHAR CreateSql[] = "CREATE TABLE `_Property` ( `_Property` "
  94 "CHAR(56) NOT NULL, `Value` CHAR(98) NOT NULL PRIMARY KEY `_Property`)";
  95     static const CHAR Query[] = "SELECT * from Property";
  96     static const CHAR Insert[] =
  97       "INSERT into `_Property` (`_Property`,`Value`) VALUES (?)";
  98
  99     /* create the temporary properties table */
 100     MsiDatabaseOpenViewA(db, CreateSql, &view);
 101     MsiViewExecute(view,0);
 102     MsiViewClose(view);
 103     MsiCloseHandle(view);
 104
 105     /* clone the existing properties */
 106     MsiDatabaseOpenViewA(db, Query, &view);
 107
 108     MsiViewExecute(view, 0);
 109     while (1)
 110     {
 111         MSIHANDLE row;
 112         MSIHANDLE view2;
 113
 114         rc = MsiViewFetch(view,&row);
 115         if (rc != ERROR_SUCCESS)
 116             break;
 117
 118         MsiDatabaseOpenViewA(db,Insert,&view2);
 119         MsiViewExecute(view2,row);
 120         MsiViewClose(view2);
 121         MsiCloseHandle(view2);
 122
 123         MsiCloseHandle(row);
 124     }
 125     MsiViewClose(view);
 126     MsiCloseHandle(view);
 127
 128 }
 129
 130 /*
 131  * There are a whole slew of these we need to set
 132  *
 133  *
 134 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msi/setup/properties.asp
 135  */
 136 static VOID set_installer_properties(MSIHANDLE hPackage)
 137 {
 138     WCHAR pth[MAX_PATH];
 139
 140     static const WCHAR cszbs[]={'\\',0};
 141     static const WCHAR CFF[] =
 142 {'C','o','m','m','o','n','F','i','l','e','s','F','o','l','d','e','r',0};
 143     static const WCHAR PFF[] =
 144 {'P','r','o','g','r','a','m','F','i','l','e','s','F','o','l','d','e','r',0};
 145     static const WCHAR CADF[] =
 146 {'C','o','m','m','o','n','A','p','p','D','a','t','a','F','o','l','d','e','r',0};
 147     static const WCHAR ATF[] =
 148 {'A','d','m','i','n','T','o','o','l','s','F','o','l','d','e','r',0};
 149     static const WCHAR ADF[] =
 150 {'A','p','p','D','a','t','a','F','o','l','d','e','r',0};
 151     static const WCHAR SF[] =
 152 {'S','y','s','t','e','m','F','o','l','d','e','r',0};
 153     static const WCHAR LADF[] =
 154 {'L','o','c','a','l','A','p','p','D','a','t','a','F','o','l','d','e','r',0};
 155     static const WCHAR MPF[] =
 156 {'M','y','P','i','c','t','u','r','e','s','F','o','l','d','e','r',0};
 157     static const WCHAR PF[] =
 158 {'P','e','r','s','o','n','a','l','F','o','l','d','e','r',0};
 159     static const WCHAR WF[] =
 160 {'W','i','n','d','o','w','s','F','o','l','d','e','r',0};
 161     static const WCHAR TF[]=
 162 {'T','e','m','p','F','o','l','d','e','r',0};
 163
 164 /* Not yet set ...  but needed by iTunes
 165  *
 166 DesktopFolder
 167 FavoritesFolder
 168 FontsFolder
 169 PrimaryVolumePath
 170 ProgramFiles64Folder
 171 ProgramMenuFolder
 172 SendToFolder
 173 StartMenuFolder
 174 StartupFolder
 175 System16Folder
 176 System64Folder
 177 TemplateFolder
 178  */
 179
 180 /* asked for by iTunes ... but are they installer set?
 181  *
 182  *  GlobalAssemblyCache
 183  */
 184
 185 /*
 186  * Other things i notice set
 187  *
 188 ScreenY
 189 ScreenX
 190 SystemLanguageID
 191 ComputerName
 192 UserLanguageID
 193 LogonUser
 194 VirtualMemory
 195 PhysicalMemory
 196 Intel
 197 ShellAdvSupport
 198 ServicePackLevel
 199 WindowsBuild
 200 Version9x
 201 Version95
 202 VersionNT
 203 AdminUser
 204 DefaultUIFont
 205 VersionMsi
 206 VersionDatabase
 207 PackagecodeChanging
 208 ProductState
 209 CaptionHeight
 210 BorderTop
 211 BorderSide
 212 TextHeight
 213 ColorBits
 214 RedirectedDllSupport
 215 Time
 216 Date
 217 Privilaged
 218 */
 219
 220     SHGetFolderPathW(NULL,CSIDL_PROGRAM_FILES_COMMON,NULL,0,pth);
 221     strcatW(pth,cszbs);
 222     MsiSetPropertyW(hPackage, CFF, pth);
 223
 224     SHGetFolderPathW(NULL,CSIDL_PROGRAM_FILES,NULL,0,pth);
 225     strcatW(pth,cszbs);
 226     MsiSetPropertyW(hPackage, PFF, pth);
 227
 228     SHGetFolderPathW(NULL,CSIDL_COMMON_APPDATA,NULL,0,pth);
 229     strcatW(pth,cszbs);
 230     MsiSetPropertyW(hPackage, CADF, pth);
 231
 232     SHGetFolderPathW(NULL,CSIDL_ADMINTOOLS,NULL,0,pth);
 233     strcatW(pth,cszbs);
 234     MsiSetPropertyW(hPackage, ATF, pth);
 235
 236     SHGetFolderPathW(NULL,CSIDL_APPDATA,NULL,0,pth);
 237     strcatW(pth,cszbs);
 238     MsiSetPropertyW(hPackage, ADF, pth);
 239
 240     SHGetFolderPathW(NULL,CSIDL_SYSTEM,NULL,0,pth);
 241     strcatW(pth,cszbs);
 242     MsiSetPropertyW(hPackage, SF, pth);
 243
 244     SHGetFolderPathW(NULL,CSIDL_LOCAL_APPDATA,NULL,0,pth);
 245     strcatW(pth,cszbs);
 246     MsiSetPropertyW(hPackage, LADF, pth);
 247
 248     SHGetFolderPathW(NULL,CSIDL_MYPICTURES,NULL,0,pth);
 249     strcatW(pth,cszbs);
 250     MsiSetPropertyW(hPackage, MPF, pth);
 251
 252     SHGetFolderPathW(NULL,CSIDL_PERSONAL,NULL,0,pth);
 253     strcatW(pth,cszbs);
 254     MsiSetPropertyW(hPackage, PF, pth);
 255
 256     SHGetFolderPathW(NULL,CSIDL_WINDOWS,NULL,0,pth);
 257     strcatW(pth,cszbs);
 258     MsiSetPropertyW(hPackage, WF, pth);
 259
 260     GetTempPathW(MAX_PATH,pth);
 261     MsiSetPropertyW(hPackage, TF, pth);
 262 }
 263
 264
 265 UINT WINAPI MsiOpenPackageW(LPCWSTR szPackage, MSIHANDLE *phPackage)
 266 {
 267     UINT rc;
 268     MSIHANDLE handle;
 269     MSIHANDLE db;
 270     MSIPACKAGE *package;
 271     CHAR uilevel[10];
 272
 273     static const WCHAR OriginalDatabase[] =
 274 {'O','r','i','g','i','n','a','l','D','a','t','a','b','a','s','e',0};
 275     static const WCHAR Database[] =
 276 {'D','A','T','A','B','A','S','E',0};
 277
 278     TRACE("%s %p\n",debugstr_w(szPackage), phPackage);
 279
 280     rc = MsiOpenDatabaseW(szPackage, MSIDBOPEN_READONLY, &db);
 281
 282     if (rc != ERROR_SUCCESS)
 283         return ERROR_FUNCTION_FAILED;
 284
 285     handle = alloc_msihandle(MSIHANDLETYPE_PACKAGE, sizeof (MSIPACKAGE),
 286                              MSI_FreePackage, (void**)&package);
 287
 288     if (!handle)
 289     {
 290         MsiCloseHandle(db);
 291         return ERROR_FUNCTION_FAILED;
 292     }
 293
 294     package->db = db;
 295
 296     /* ok here is where we do a slew of things to the database to
 297      * prep for all that is to come as a package */
 298
 299     clone_properties(db);
 300     set_installer_properties(handle);
 301     MsiSetPropertyW(handle, OriginalDatabase, szPackage);
 302     MsiSetPropertyW(handle, Database, szPackage);
 303     sprintf(uilevel,"%i",gUILevel);
 304     MsiSetPropertyA(handle, "UILevel", uilevel);
 305
 306     *phPackage = handle;
 307
 308     return ERROR_SUCCESS;
 309 }
 310
 311 UINT WINAPI MsiOpenPackageExA(LPCSTR szPackage, DWORD dwOptions, MSIHANDLE *phPackage)
 312 {
 313     FIXME("%s 0x%08lx %p\n",debugstr_a(szPackage), dwOptions, phPackage);
 314     return ERROR_CALL_NOT_IMPLEMENTED;
 315 }
 316
 317 UINT WINAPI MsiOpenPackageExW(LPCWSTR szPackage, DWORD dwOptions, MSIHANDLE *phPackage)
 318 {
 319     FIXME("%s 0x%08lx %p\n",debugstr_w(szPackage), dwOptions, phPackage);
 320     return ERROR_CALL_NOT_IMPLEMENTED;
 321 }
 322
 323 MSIHANDLE WINAPI MsiGetActiveDatabase(MSIHANDLE hInstall)
 324 {
 325     MSIPACKAGE *package;
 326
 327     TRACE("(%ld)\n",hInstall);
 328
 329     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE);
 330
 331     if( !package)
 332         return ERROR_INVALID_HANDLE;
 333
 334     msihandle_addref(package->db);
 335     return package->db;
 336 }
 337
 338 INT WINAPI MsiProcessMessage( MSIHANDLE hInstall, INSTALLMESSAGE eMessageType,
 339                               MSIHANDLE hRecord)
 340 {
 341     DWORD log_type = 0;
 342     LPSTR message;
 343     DWORD sz;
 344     INT msg_field=1;
 345     FIXME("STUB: %x \n",eMessageType);
 346
 347     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_ERROR)
 348         log_type |= INSTALLLOGMODE_ERROR;
 349     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_WARNING)
 350         log_type |= INSTALLLOGMODE_WARNING;
 351     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_USER)
 352         log_type |= INSTALLLOGMODE_USER;
 353     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_INFO)
 354         log_type |= INSTALLLOGMODE_INFO;
 355     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_COMMONDATA)
 356         log_type |= INSTALLLOGMODE_COMMONDATA;
 357     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_ACTIONSTART)
 358     {
 359         log_type |= INSTALLLOGMODE_ACTIONSTART;
 360         msg_field = 2;
 361     }
 362     if ((eMessageType & 0xff000000) == INSTALLMESSAGE_ACTIONDATA)
 363         log_type |= INSTALLLOGMODE_ACTIONDATA;
 364
 365     sz = 0;
 366     MsiRecordGetStringA(hRecord,msg_field,NULL,&sz);
 367     sz++;
 368     message = HeapAlloc(GetProcessHeap(),0,sz);
 369     MsiRecordGetStringA(hRecord,msg_field,message,&sz);
 370
 371     TRACE("(%p %lx %lx)\n",gUIHandler, gUIFilter, log_type);
 372     if (gUIHandler && (gUIFilter & log_type))
 373         gUIHandler(gUIContext,eMessageType,message);
 374     else
 375         TRACE("%s\n",debugstr_a(message));
 376
 377     HeapFree(GetProcessHeap(),0,message);
 378     return ERROR_SUCCESS;
 379 }
 380
 381 /* property code */
 382 UINT WINAPI MsiSetPropertyA( MSIHANDLE hInstall, LPCSTR szName, LPCSTR szValue)
 383 {
 384     LPWSTR szwName = NULL, szwValue = NULL;
 385     UINT hr = ERROR_INSTALL_FAILURE;
 386     UINT len;
 387
 388     if (0 == hInstall) {
 389       return ERROR_INVALID_HANDLE;
 390     }
 391     if (NULL == szName) {
 392       return ERROR_INVALID_PARAMETER;
 393     }
 394     if (NULL == szValue) {
 395       return ERROR_INVALID_PARAMETER;
 396     }
 397
 398     len = MultiByteToWideChar( CP_ACP, 0, szName, -1, NULL, 0 );
 399     szwName = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 400     if( !szwName )
 401         goto end;
 402     MultiByteToWideChar( CP_ACP, 0, szName, -1, szwName, len );
 403
 404     len = MultiByteToWideChar( CP_ACP, 0, szValue, -1, NULL, 0 );
 405     szwValue = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 406     if( !szwValue)
 407         goto end;
 408     MultiByteToWideChar( CP_ACP, 0, szValue , -1, szwValue, len );
 409
 410     hr = MsiSetPropertyW( hInstall, szwName, szwValue);
 411
 412 end:
 413     if( szwName )
 414         HeapFree( GetProcessHeap(), 0, szwName );
 415     if( szwValue )
 416         HeapFree( GetProcessHeap(), 0, szwValue );
 417
 418     return hr;
 419 }
 420
 421 UINT WINAPI MsiSetPropertyW( MSIHANDLE hInstall, LPCWSTR szName, LPCWSTR szValue)
 422 {
 423     MSIPACKAGE *package;
 424     MSIHANDLE view,row;
 425     UINT rc;
 426     DWORD sz = 0;
 427     static const WCHAR Insert[]=
 428      {'I','N','S','E','R','T',' ','i','n','t','o',' ','`','_','P','r','o','p'
 429 ,'e','r','t','y','`',' ','(','`','_','P','r','o','p','e','r','t','y','`'
 430 ,',','`','V','a','l','u','e','`',')',' ','V','A','L','U','E','S'
 431 ,' ','(','?',')',0};
 432     static const WCHAR Update[]=
 433      {'U','P','D','A','T','E',' ','_','P','r','o','p','e'
 434 ,'r','t','y',' ','s','e','t',' ','`','V','a','l','u','e','`',' ','='
 435 ,' ','?',' ','w','h','e','r','e',' ','`','_','P','r','o','p'
 436 ,'e','r','t','y','`',' ','=',' ','\'','%','s','\'',0};
 437     WCHAR Query[1024];
 438
 439     TRACE("Setting property (%s %s)\n",debugstr_w(szName),
 440           debugstr_w(szValue));
 441
 442     if (!hInstall)
 443         return ERROR_INVALID_HANDLE;
 444
 445     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE);
 446     if( !package)
 447         return ERROR_INVALID_HANDLE;
 448
 449     rc = MsiGetPropertyW(hInstall,szName,0,&sz);
 450     if (rc==ERROR_MORE_DATA || rc == ERROR_SUCCESS)
 451     {
 452         sprintfW(Query,Update,szName);
 453
 454         row = MsiCreateRecord(1);
 455         MsiRecordSetStringW(row,1,szValue);
 456
 457     }
 458     else
 459     {
 460        strcpyW(Query,Insert);
 461
 462         row = MsiCreateRecord(2);
 463         MsiRecordSetStringW(row,1,szName);
 464         MsiRecordSetStringW(row,2,szValue);
 465     }
 466
 467
 468     rc = MsiDatabaseOpenViewW(package->db,Query,&view);
 469     if (rc!= ERROR_SUCCESS)
 470     {
 471         MsiCloseHandle(row);
 472         return rc;
 473     }
 474
 475     rc = MsiViewExecute(view,row);
 476
 477     MsiCloseHandle(row);
 478     MsiViewClose(view);
 479     MsiCloseHandle(view);
 480
 481     return rc;
 482 }
 483
 484 UINT WINAPI MsiGetPropertyA(MSIHANDLE hInstall, LPCSTR szName, LPSTR szValueBuf, DWORD* pchValueBuf)
 485 {
 486     LPWSTR szwName = NULL, szwValueBuf = NULL;
 487     UINT hr = ERROR_INSTALL_FAILURE;
 488
 489     if (0 == hInstall) {
 490       return ERROR_INVALID_HANDLE;
 491     }
 492     if (NULL == szName) {
 493       return ERROR_INVALID_PARAMETER;
 494     }
 495
 496     TRACE("%lu %s %lu\n", hInstall, debugstr_a(szName), *pchValueBuf);
 497
 498     if (NULL != szValueBuf && NULL == pchValueBuf) {
 499       return ERROR_INVALID_PARAMETER;
 500     }
 501     if( szName )
 502     {
 503         UINT len = MultiByteToWideChar( CP_ACP, 0, szName, -1, NULL, 0 );
 504         szwName = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 505         if( !szwName )
 506             goto end;
 507         MultiByteToWideChar( CP_ACP, 0, szName, -1, szwName, len );
 508     } else {
 509       return ERROR_INVALID_PARAMETER;
 510     }
 511     if( szValueBuf )
 512     {
 513         szwValueBuf = HeapAlloc( GetProcessHeap(), 0, (*pchValueBuf) * sizeof(WCHAR) );
 514         if( !szwValueBuf )
 515             goto end;
 516     }
 517
 518     hr = MsiGetPropertyW( hInstall, szwName, szwValueBuf, pchValueBuf );
 519
 520     if(  *pchValueBuf > 0 )
 521     {
 522         WideCharToMultiByte(CP_ACP, 0, szwValueBuf, -1, szValueBuf, *pchValueBuf, NULL, NULL);
 523     }
 524
 525 end:
 526     if( szwName )
 527         HeapFree( GetProcessHeap(), 0, szwName );
 528     if( szwValueBuf )
 529         HeapFree( GetProcessHeap(), 0, szwValueBuf );
 530
 531     return hr;
 532 }
 533
 534 UINT WINAPI MsiGetPropertyW(MSIHANDLE hInstall, LPCWSTR szName,
 535                            LPWSTR szValueBuf, DWORD* pchValueBuf)
 536 {
 537     MSIHANDLE view,row;
 538     UINT rc;
 539     WCHAR Query[1024]=
 540     {'s','e','l','e','c','t',' ','V','a','l','u','e',' ','f','r','o','m',' '
 541      ,'_','P','r','o','p','e','r','t','y',' ','w','h','e','r','e',' '
 542      ,'_','P','r','o','p','e','r','t','y','=','`',0};
 543
 544     static const WCHAR szEnd[]={'`',0};
 545     MSIPACKAGE *package;
 546
 547     if (0 == hInstall) {
 548       return ERROR_INVALID_HANDLE;
 549     }
 550     if (NULL == szName) {
 551       return ERROR_INVALID_PARAMETER;
 552     }
 553
 554     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE);
 555     if( !package)
 556         return ERROR_INVALID_HANDLE;
 557
 558     strcatW(Query,szName);
 559     strcatW(Query,szEnd);
 560
 561     rc = MsiDatabaseOpenViewW(package->db, Query, &view);
 562     if (rc == ERROR_SUCCESS)
 563     {
 564         DWORD sz;
 565         WCHAR value[0x100];
 566
 567         rc = MsiViewExecute(view, 0);
 568         if (rc != ERROR_SUCCESS)
 569         {
 570             MsiViewClose(view);
 571             MsiCloseHandle(view);
 572             return rc;
 573         }
 574
 575         rc = MsiViewFetch(view,&row);
 576         if (rc == ERROR_SUCCESS)
 577         {
 578             sz=0x100;
 579             rc = MsiRecordGetStringW(row,1,value,&sz);
 580             strncpyW(szValueBuf,value,min(sz+1,*pchValueBuf));
 581             *pchValueBuf = sz+1;
 582             MsiCloseHandle(row);
 583         }
 584         MsiViewClose(view);
 585         MsiCloseHandle(view);
 586     }
 587
 588     if (rc == ERROR_SUCCESS)
 589         TRACE("returning %s for property %s\n", debugstr_w(szValueBuf),
 590             debugstr_w(szName));
 591     else
 592     {
 593         *pchValueBuf = 0;
 594         TRACE("property not found\n");
 595     }
 596
 597     return rc;
 598 }