← Back to branch summary

~ubuntu-branches/ubuntu/natty/python3.1/natty-security

« back to all changes in this revision

Viewing changes to Tools/msi/msisupport.c

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2010-07-06 16:52:42 UTC
  • mfrom: (1.2.1 upstream) (2.1.11 sid)
  • Revision ID: james.westby@ubuntu.com-20100706165242-2xv4i019r3et6c0j
Tags: 3.1.2+20100706-1ubuntu1
* Merge with Debian; remaining changes:
  - Regenerate the control file.
  - Add debian/patches/overwrite-semaphore-check for Lucid buildds.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Tools/msi/msisupport.c
7
7
 */
8
8
static UINT debug(MSIHANDLE hInstall, LPCSTR msg)
9
9
{
10
 
        MSIHANDLE hRec = MsiCreateRecord(1);
11
 
        if (!hRec || MsiRecordSetStringA(hRec, 1, msg) != ERROR_SUCCESS) {
12
 
                return ERROR_INSTALL_FAILURE;
13
 
        }
14
 
        MsiProcessMessage(hInstall, INSTALLMESSAGE_INFO, hRec);
15
 
        MsiCloseHandle(hRec);
16
 
        return ERROR_SUCCESS;
 
10
    MSIHANDLE hRec = MsiCreateRecord(1);
 
11
    if (!hRec || MsiRecordSetStringA(hRec, 1, msg) != ERROR_SUCCESS) {
 
12
        return ERROR_INSTALL_FAILURE;
 
13
    }
 
14
    MsiProcessMessage(hInstall, INSTALLMESSAGE_INFO, hRec);
 
15
    MsiCloseHandle(hRec);
 
16
    return ERROR_SUCCESS;
17
17
}
18
18
 
19
19
/* Check whether the TARGETDIR exists and is a directory.
22
22
UINT __declspec(dllexport) __stdcall CheckDir(MSIHANDLE hInstall)
23
23
{
24
24
#define PSIZE 1024
25
 
        WCHAR wpath[PSIZE];
26
 
        char path[PSIZE];
27
 
        UINT result;
28
 
        DWORD size = PSIZE;
29
 
        DWORD attributes;
30
 
 
31
 
        
32
 
        result = MsiGetPropertyW(hInstall, L"TARGETDIR", wpath, &size);
33
 
        if (result != ERROR_SUCCESS)
34
 
                return result;
35
 
        wpath[size] = L'\0';
36
 
        path[size] = L'\0';
37
 
 
38
 
        attributes = GetFileAttributesW(wpath);
39
 
        if (attributes == INVALID_FILE_ATTRIBUTES ||
40
 
                !(attributes & FILE_ATTRIBUTE_DIRECTORY)) 
41
 
        {
42
 
                return MsiSetPropertyA(hInstall, "TargetExists", "0");
43
 
        } else {
44
 
                return MsiSetPropertyA(hInstall, "TargetExists", "1");
45
 
        }
 
25
    WCHAR wpath[PSIZE];
 
26
    char path[PSIZE];
 
27
    UINT result;
 
28
    DWORD size = PSIZE;
 
29
    DWORD attributes;
 
30
 
 
31
 
 
32
    result = MsiGetPropertyW(hInstall, L"TARGETDIR", wpath, &size);
 
33
    if (result != ERROR_SUCCESS)
 
34
        return result;
 
35
    wpath[size] = L'\0';
 
36
    path[size] = L'\0';
 
37
 
 
38
    attributes = GetFileAttributesW(wpath);
 
39
    if (attributes == INVALID_FILE_ATTRIBUTES ||
 
40
        !(attributes & FILE_ATTRIBUTE_DIRECTORY))
 
41
    {
 
42
        return MsiSetPropertyA(hInstall, "TargetExists", "0");
 
43
    } else {
 
44
        return MsiSetPropertyA(hInstall, "TargetExists", "1");
 
45
    }
46
46
}
47
47
 
48
48
/* Update the state of the REGISTRY.tcl component according to the
51
51
 */
52
52
UINT __declspec(dllexport) __stdcall UpdateEditIDLE(MSIHANDLE hInstall)
53
53
{
54
 
        INSTALLSTATE ext_old, ext_new, tcl_old, tcl_new, reg_new;
55
 
        UINT result;
56
 
 
57
 
        result = MsiGetFeatureStateA(hInstall, "Extensions", &ext_old, &ext_new);
58
 
        if (result != ERROR_SUCCESS)
59
 
                return result;
60
 
        result = MsiGetFeatureStateA(hInstall, "TclTk", &tcl_old, &tcl_new);
61
 
        if (result != ERROR_SUCCESS)
62
 
                return result;
63
 
 
64
 
        /* If the current state is Absent, and the user did not select
65
 
           the feature in the UI, Installer apparently sets the "selected"
66
 
           state to unknown. Update it to the current value, then. */
67
 
        if (ext_new == INSTALLSTATE_UNKNOWN)
68
 
                ext_new = ext_old;
69
 
        if (tcl_new == INSTALLSTATE_UNKNOWN)
70
 
                tcl_new = tcl_old;
71
 
 
72
 
        // XXX consider current state of REGISTRY.tcl?
73
 
        if (((tcl_new == INSTALLSTATE_LOCAL) ||
74
 
                 (tcl_new == INSTALLSTATE_SOURCE) ||
75
 
                 (tcl_new == INSTALLSTATE_DEFAULT)) &&
76
 
                ((ext_new == INSTALLSTATE_LOCAL) ||
77
 
                 (ext_new == INSTALLSTATE_SOURCE) ||
78
 
                 (ext_new == INSTALLSTATE_DEFAULT))) {
79
 
                reg_new = INSTALLSTATE_SOURCE;
80
 
        } else { 
81
 
                reg_new = INSTALLSTATE_ABSENT;
82
 
        }
83
 
        result = MsiSetComponentStateA(hInstall, "REGISTRY.tcl", reg_new);
84
 
        return result;
 
54
    INSTALLSTATE ext_old, ext_new, tcl_old, tcl_new, reg_new;
 
55
    UINT result;
 
56
 
 
57
    result = MsiGetFeatureStateA(hInstall, "Extensions", &ext_old, &ext_new);
 
58
    if (result != ERROR_SUCCESS)
 
59
        return result;
 
60
    result = MsiGetFeatureStateA(hInstall, "TclTk", &tcl_old, &tcl_new);
 
61
    if (result != ERROR_SUCCESS)
 
62
        return result;
 
63
 
 
64
    /* If the current state is Absent, and the user did not select
 
65
       the feature in the UI, Installer apparently sets the "selected"
 
66
       state to unknown. Update it to the current value, then. */
 
67
    if (ext_new == INSTALLSTATE_UNKNOWN)
 
68
        ext_new = ext_old;
 
69
    if (tcl_new == INSTALLSTATE_UNKNOWN)
 
70
        tcl_new = tcl_old;
 
71
 
 
72
    // XXX consider current state of REGISTRY.tcl?
 
73
    if (((tcl_new == INSTALLSTATE_LOCAL) ||
 
74
             (tcl_new == INSTALLSTATE_SOURCE) ||
 
75
             (tcl_new == INSTALLSTATE_DEFAULT)) &&
 
76
        ((ext_new == INSTALLSTATE_LOCAL) ||
 
77
         (ext_new == INSTALLSTATE_SOURCE) ||
 
78
         (ext_new == INSTALLSTATE_DEFAULT))) {
 
79
        reg_new = INSTALLSTATE_SOURCE;
 
80
    } else {
 
81
        reg_new = INSTALLSTATE_ABSENT;
 
82
    }
 
83
    result = MsiSetComponentStateA(hInstall, "REGISTRY.tcl", reg_new);
 
84
    return result;
85
85
}
86
86
 
87
 
BOOL APIENTRY DllMain(HANDLE hModule, 
88
 
                      DWORD  ul_reason_for_call, 
 
87
BOOL APIENTRY DllMain(HANDLE hModule,
 
88
                      DWORD  ul_reason_for_call,
89
89
                      LPVOID lpReserved)
90
90
{
91
91
    return TRUE;