register.tcl

vxworks下MV5500的BSP支持包。是支持tornad221下的版本。

# REGISTER.TCL - Setup procedures for implementing user registration wizard 
#                page
#
# Copyright 1999 Wind River Systems, Inc
#
# modification history
# --------------------
# 03p,11oct02,wmd  Fix the dimensions of the frame and label for the
#                  information section.
# 03o,29jul02,wmd  Modified to add condition to check for LM error, if so
#                  skip call to setupInit.
# 03n,25jul02,wmd  Remove updating the windows register for projInfo - it
#                  clears the info.
# 03m,22jul02,wmd  Remove setting project values to null or 0.
# 03l,19jul02,wmd  Fix the text for patches to say "root of the directory".
# 03k,12jul02,wmd  Modify to allow patch user to type PATCH=<pathTopatch> as
#                  installation key, skip the path dialog, set instkey=none.
# 03j,27jun02,bwd  SPR 74406: don't save install key if license number is 0
#                  for non-BSP CDs only
# 03i,22may02,bwd  SPR 77766: use setupVals(WRS) variable for company name
# 03h,02may02,bwd  SPR 72883: more fix on infinite loop on BSP CD
# 03g,15mar02,bwd  SPR 74406: don't save install key if license number is 0
# 03f,12mar02,bwd  SPR 72883: fixed infinite loop problems on BSP CD.
# 03e,05mar02,bwd  Rename regValues.. to registrationValues..
# 03d,05mar02,bwd  Modified SETUP to be non-tornado centric
# 03c,05feb02,wmd  Fix the warning message about the install key.
# 03b,21dec01,bwd  Added codes to handle BSP CD installation
# 03a,12jun01,j_w  Modified for Tornado 2.2
# 02t,07may01,j_w  Update error messages
# 02s,08jan01,bwd  SPR 63373: error message stored in the registries after
#                  using ALT+f functionality
# 02r,13nov00,wmd  Modify error message to be clear about need to exit.
# 02q,07nov00,bwd  Increased the size of CD description box to fit new
#                  description
# 02p,30oct00,j_w  SPR 35775: read setup.log for CD description if no DISK_ID
#                  is found when running setup /L from an installed tree
# 02o,14aug00,bwd  SPR 33171: added a check to display error if the key
#                  entered exceed max key length (45)
# 02n,07jun00,bwd  SPR 31613: skip displaying error message on NO_ZIP_FILE if
#                  running SETUP due to License Management errors
# 02m,20mar00,bwd  Fixed TEXT mode to default the installation key value if
#                  there's only one key
# 02l,09feb00,bwd  Removed double quote at the end of product descriptions and
#                  part descriptions
# 02k,07feb00,bwd  Fixed TEXT mode to use instKeyDataGet to display
#                  installation key from the register
# 02j,03feb00,wmd  Need to add a REGISTRATION_WARN_4_TEXT string.
# 02i,31jan00,bwd  Replaced setupVals(cmdMode) with isGUImode and removed redundant codes
# 02h,25jan00,wmd  Product names changed, need to alter how we detect Tornado
#                  products.
# 02g,06jan00,bwd  No test automation for command line SETUP
# 02f,17dec99,clc  testing
# 02e,03dec99,j_w  Enable the help button
# 02d,16nov99,j_w  Fixed return value if no or invalid user inputs
# 02c,16nov99,clc  change text mode variable to setupVals(cmdMode)
# 02b,14oct99,bjl  catch controlDestroy of noKeyText in case control
#                  was not previously created.
# 02b,12oct99,clc  add command-line setup
# 02a,30Sep99,j_w  Modified for T3
# 01i,22jul99,j_w  added text messages
# 01h,15apr99,wmd  If ALT-F is used, remove the corresponding key if it exists
#                  in the registry.
# 01g,15apr99,wmd  Need to destroy the "nokey" control created when no
#                  installation key is required.
# 01f,12apr99,wmd  Need to add full simulator product to the tornadoIndex in 
#                  the setupVals array.
# 01e,31mar99,wmd  Fix spr# 26130, blank components page.
# 01d,24mar99,bjl  turn off inf write to registry after queueExecute.
# 01c,19mar99,wmd  Output to a file any debug messages.
# 01b,01feb99,tcy  moved procs from INSTALL.TCL.
# 01a,26jan99,tcy  extracted from INSTW32.TCL.
#

#############################################################################
#
# onClickFaeBox - prompt FAEs to save the installation key
#
# This procedure will prompt FAEs to save the installation key
#
# SYNOPSIS
# .tS
# onClickFaeBox
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onClickFaeBox {} {
    global setupVals

    if {![dialog yes_no "Setup" [strTableGet REGISTRATION_FAE_WARN_1]]} {
         set setupVals(instKeyNotSaved) 1
    } elseif [info exists setupVals(instKeyNotSaved)] {
         unset setupVals(instKeyNotSaved)
    }
}

#############################################################################
#
# pageCreate(registration) - displays CD information and prompt users for
#                            registration information
#
# This procedure will display CD information and prompt users for
# registration information such as user name, company name and installation key
#
# SYNOPSIS
# .tS
# pageCreate(registration)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(registration) {} {
    global ctrlVals
    global setupVals

    # WRS products: read user's information from registries
    if { ![isStandAlone] } {
        registrationValuesReadFromRegistry
    }

    if { "$setupVals(keyList)" == "" } {
        set numKeys 0
    } else {
        set numKeys [llength $setupVals(keyList)]
    }


    if {[string length $setupVals(CDdescription)] > 45} {
        set cdDesc [cdromDescGet]
    } else {
        set cdDesc [strTableGet WELCOME_CD_DESC]
    }

    # use the user key as default; otherwise use the first key as default

    set index 0
    if { [instKeyGet] != "" } {
        set keyList [split [instKeyDataGet]]
        set index [lsearch -exact $keyList [instKeyGet]]
        if {$index == -1} {
            set index 0
        }
    }

    set headerText ""
    if { [isBSPcd] } {
        set headerText [strTableGet REGISTRATION_MSG_1_BSP]
    } else {
        set headerText [strTableGet REGISTRATION_MSG_1]
    }

    if { [isGUImode] } {
        set ctrlVals(volatileFrm) [list \
                    [list label -name message1 \
                                -title $headerText \
                                -x 99 -y 10 -w 206 -h 27] \
                    [list label -name message2 \
                                -title [strTableGet REGISTRATION_MSG_2] \
                                -x 99 -y 56 -w 32 -h 10] \
                    [list label -name message3 \
                                -title [strTableGet REGISTRATION_MSG_3] \
                                -x 99 -y 80 -w 35 -h 10] \
                    [list label -name message4 \
                                -title [strTableGet REGISTRATION_MSG_4] \
                                -x 99 -y 104 -w 35 -h 8] \
                    [list text -name nameText -border \
                               -x 139 -y 56 -w 166 -h 13 \
                               -callback {onTextChange nameText name}] \
                    [list text -name companyText -border \
                               -x 139 -y 79 -w 166 -h 13 \
                               -callback {onTextChange companyText company}] \
                    [list combo -name keyText -x 139 -y 102 -w 166 \
                               -h [expr 13 * ($numKeys + 1)] \
                               -editable \
                               -callback {onTextChange keyText instKey}]\
                    [list label -name Information \
                                -title [strTableGet REGISTRATION_MSG_5] \
                                -x 105 -y 125 -w 40 -h 8] \
                    [list frame -name frm1 \
                               -xpos 100 -ypos 135 -width 207 -height 35] \
                    [list label -name cdInfo \
                                -x 106 -y 140 -w 200 -h 30] \
                    [list button -name fae -title "&f" \
                                 -x 280 -y 35 -w 1 -h 1 \
                                 -callback {onClickFaeBox} ] \
        ]

        set w [dlgFrmCreate [strTableGet REGISTRATION_TITLE]]

        if { [isTornadoProduct] } {
  	        # Enable the help button for Tornado
            controlEnable $w.helpButt 1
        } else {
  	        # non-tornado prod - no help
            controlEnable $w.helpButt 0
        }

        controlHide $w.fae 1
        controlValuesSet $w.companyText [companyNameGet]
        controlValuesSet $w.nameText [userNameGet]
        controlValuesSet $w.keyText [instKeyDataGet]

    
        controlValuesSet $w.cdInfo "CD number      :  $setupVals(CDnumber)\
                                  \nCD description :  $cdDesc"

        # overwrite keyText
        # test automation

        if { $ctrlVals(useInputScript) } {
            controlValuesSet $w.keyText $setupVals(instKey2)
        }

        if {[string compare "none" [instKeyGet]] == 0} {
              
            # if the key "none" works, set the value and hide 
                        # the key edit text box
  
            instKeySet "none"
            controlHide $w.keyText 1
            controlHide $w.message4 1

            # shows message informing user that no key is required for 
                        # installation

            controlCreate $w [list label -name noKeyText \
                               -title [strTableGet REGISTRATION_WARN_1] \
                               -x 99 -y 102 -w 206 \
                               -h [expr 24 * ($numKeys + 1)]]

        } else {
            controlSelectionSet $w.keyText $index
        }

        if {"[userNameGet]" == ""} {
            controlFocusSet $w.nameText
        } elseif {"[companyNameGet]" == ""} {
            controlFocusSet $w.companyText
        } else {
            controlFocusSet $w.keyText
        }

        # test automation

        if { $ctrlVals(useInputScript) } {
            autoSetupLog "Registration page:"
            autoSetupLog "\tUser name:    [userNameGet]"
            autoSetupLog "\tCompany Name: [companyNameGet]"
            autoSetupLog "\tInstall Key:  $setupVals(instKey2)"
            if {[isUnix]} { pageRemove projectInfo }
            nextCallback
        }

    } else { # TEXT mode
        printPageTitle [strTableGet REGISTRATION_TITLE]
        puts "$headerText\n"
        
        set question "name"
        while {[string compare $question "done"] != 0} {
            switch -exact $question {
                "name"  {                
                    # get user name
                    if { "[userNameGet]" == "" } {
                        set msg "Enter your name:"
                    } else {
                        set msg "Enter your name: \[[userNameGet]\]"
                    }
                    set ret [prompt "$msg"]
                    switch -regexp -- $ret {
                        "^-$" { 
                            backCallback
                            return 0 
                        }
                        "^$" { 
                            if { "[userNameGet]" != "" } {
                                set question "company" 
                            } 
                        }
                        "[eE][xX][iI][tT]"  { return 0 }
                        default { 
                            userNameSet $ret
                            set question "company" 
                        }
                    }
                }
                "company" {
                    # get company name
                    if { "[companyNameGet]" == "" } {
                        set msg "Enter your company:" 
                    } else {
                        set msg "Enter your company: \[[companyNameGet]\]"
                    }
                    set ret [prompt "$msg"]
                    switch -regexp -- $ret {
                        "^-$"   { set question "name" }
                        "^$" { 
                            if { "[companyNameGet]" != "" } {
                                set question "key" 
                            }
                        } 
                        "[eE][xX][iI][tT]"  { return 0 }
                        default { 
                            companyNameSet $ret
                            if { [string compare "none" [instKeyGet]] == 0 } {
              
                                                    # if the key "none" works, 
                                                    # set the value

                                instKeySet "none"
                                puts "[strTableGet REGISTRATION_WARN_1]\n"
                                set question "done" 
                            } else { 
                                set question "key" 
                            }
                        }
                    }
                }
                "key" {
                    # get registration key

                    set length [llength [instKeyDataGet]]

                    if { $length > 0 } {

                        if { $length == 1 } {
                            puts "Enter your key: \[[lindex [instKeyDataGet] 0]\]\n"
                        } else {
                            puts "Please enter the item number to choose one\
                                  of the following keys or enter a new key: \[1\]\n"
                        }

                        if { $length > 1 } {
                            set ix 1
                            foreach k [instKeyDataGet] {
                                puts "$ix - $k\n"
                                incr ix
                            }