emfinish.tcl

WIND_MEDIA_LIBRARY_3_0_3补丁

# EMFINISH.TCL  - Setup procedures for implementing license email finish 
#                 wizard page
#
# Copyright 1999 Wind River Systems, Inc
#
# modification history
# --------------------
# 02f,18jun02,bwd  Update registry to store LM_LICENSE_FILE value
# 02e,24apr00,j_w  Renamed WRS to Wind River
# 02d,08feb00,j_w  Rename page title
# 02c,18jan00,bwd  Deleted debug lines
# 02b,01oct99,j_w  Changed page name to licEmailFinish
# 02a,30Sep99,j_w  Modified for T3
# 01a,01Jul99,j_w  extracted from LICW32.TCL.
#

#############################################################################
#
# pageCreate(licEmailFinish) - display finish messages
#
# This procedure will display list of installed products and serve as
# the last wizard page
#
# SYNOPSIS
# .tS
# pageCreate(licEmailFinish)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(licEmailFinish) {} {
    global ctrlVals
    global setupVals
    global tornadoInstalled
    global env

    exitMsgSet "Your license request has been sent to Wind River."

    set ctrlVals(volatileFrm) [list \
                       [list label -name finishText \
                                -title [exitMsgGet]\
                                -x 100 -y 10 -w 206 -h 24] ]

    set w [dlgFrmCreate "Finish"]

    controlValuesSet $w.nextButt "Finish"
    controlEnable $w.backButt 0
    controlEnable $w.nextButt 1
    controlEnable $w.cancelButt 0

    # the following is to workaround a bug in UITclSh: 
    # if the user presses Return for the OK button, 
    # UITclSh does not exit.

    if {[isUnix]} {
        controlPropertySet $w.nextButt -defaultbutton 0
        controlFocusSet $w.cancelButt
    } else {
        controlFocusSet $w.nextButt
    }

    # test automation

    if { $ctrlVals(useInputScript) } {
        autoSetupLog "Get License Finish page:"
        autoSetupLog "\t[exitMsgGet]"
        nextCallback
    }

}

#############################################################################
#
# pageProcess(licEmailFinish) - process inputs from finish page if any
#
# This procedure will process inputs from finish page if any
#
# SYNOPSIS
# .tS
# pageProcess(licEmailFinish)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: 1 when successful
#
# ERRORS: N/A
#

proc pageProcess(licEmailFinish) {} {
    global lmLicEnvVar

    set lmLicEnvVar ""
    if { [isUnix] } {
        set licPath "[destDirGet]/.wind/license/WRSLicense.lic"
        set separator "\:"
        if { [info exists env(LM_LICENSE_FILE)] } {
            # save original value if exists
            set lmLicEnvVar $env(LM_LICENSE_FILE)
        }

    } else {
        set licPath "[destDirGet]\\.wind\\license\\WRSLicense.lic"
        set separator "\;"
        if {![catch {sysRegistryValueRead HKEY_LOCAL_MACHINE \
                 "SOFTWARE\\FLEXlm License Manager"\
                 "LM_LICENSE_FILE"} result]} {
            # value exists, append to it and write it back out
            set lmLicEnvVar $result
        }
    }

    if { $lmLicEnvVar == "" } {
        set lmLicEnvVar $licPath
    } else {
        set lmLicEnvVar "$lmLicEnvVar$separator$licPath"
        set tmp [split $lmLicEnvVar $separator]
        set lmLicEnvVar [lunique $tmp]
        set lmLicEnvVar [join $lmLicEnvVar $separator]
    }

    if {[isUnix]} {
        # update torVars.sh and torVars.csh
        # procedure in FINISH.TCL
        updateTorVarsFiles
    } else {
   
        # check to see if the value exists: 
        # If not, create it. Otherwise, write to it.

        if { ![catch {sysRegistryValueRead HKEY_LOCAL_MACHINE \
                              "SOFTWARE\\FLEXlm License Manager"\
                              "LM_LICENSE_FILE"} result] } {
            # value exists, write to registry

            regValueWriteLog HKEY_LOCAL_MACHINE \
                    "SOFTWARE\\FLEXlm License Manager" "LM_LICENSE_FILE" $lmLicEnvVar false
            uninstLog setuplog "Wrote \"$lmLicEnvVar\" to \
                    HKEY_LOCAL_MACHINE\\SOFTWARE\\FLEXlm License Manager\\LM_LICENSE_FILE."

        } else {

            # the value doesn't exist, create and set value

            regKeyCreateLog HKEY_LOCAL_MACHINE "SOFTWARE" "FLEXlm License Manager" false

            regValueWriteLog HKEY_LOCAL_MACHINE \
                    "SOFTWARE\\FLEXlm License Manager" "LM_LICENSE_FILE" $lmLicEnvVar false

            uninstLog setuplog "Created and wrote \"$lmLicEnvVar\" to \
                    HKEY_LOCAL_MACHINE\\SOFTWARE\\FLEXlm License Manager\\LM_LICENSE_FILE."
        }
                                
        # flush the regKeyCreateLog and regValueWriteLog commands
        queueExecute
    }
    return 1
}