registry.tcl

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

# REGISTRY.TCL - Setup procedures for implementing tornado registry wizard 
#                page
#
# Copyright 1999 Wind River Systems, Inc
#
# modification history
# --------------------
# 03e,25jul02,wmd  Change Installation Guide to Getting Started Guide.
# 03d,15jul02,wmd  Modify instructions to remove NT when talking about service.
# 03c,17may02,wmd  Fix text formatting, grammatical problems.
# 03b,13may02,j_w  Fixed default option to NT service
# 03a,12jun01,j_w  Modified for Tornado 2.2
# 02i,15mar01,j_w  Added manual tornado registry configuration for Setup /R
#                  option
# 02h,14mar01,j_w  Added description for each choice (spr 63960)
# 02g,30oct00,j_w  Added manually startup option for Tornado Registry 
#                  (spr 35781)
# 02f,09oct00,bwd  If user has no ADMIN privileges, default choice to Startup
#                  Group
# 02e,10may00,j_w  Fixed typo
# 02d,01feb00,j_w  Fixed typo
# 02c,20jan00,j_w  Remove remoteRegistryHost, torRegManual and torRegNTServ
#                  references 
# 02b,24nov99,bwd  Added default value for auto setup
# 02a,30Sep99,j_w  Modified for T3
# 01f,11aug99,j_w  Added messages
# 01e,31mar99,bjl  set infVals(torRegManual) for manual registry.  
# 01d,24mar99,bjl  turn off inf write to registry after queueExecute.
# 01c,10feb99,tcy  modified for backward compatibility pages
# 01b,26jan99,tcy  added missing procedure regOptionRegValueRead().
# 01a,26jan99,tcy  extracted from INSTW32.TCL.
#

#############################################################################
#
# pageCreate(torRegistry) - display options to run tornado registry
#
# This procedure will display options to run tornado registry. Options are:
# torRegStartup - runs tornado registry when user logs on
# torRegRemote  - uses a remote server to run tornado registry
# torRegManual  - runs tornado registry manually (nothing is done by Setup)
# torRegNTServ  - runs tornado registry as a service
#
# SYNOPSIS
# .tS
# pageCreate(torRegistry)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(torRegistry) {} {
    global ctrlVals
    global setupVals 
    
    set msg0 [strTableGet TORREGISTRY_OPTION_SELECT]
    set msgRegDesc [strTableGet TORREGISTRY_DESC]

    set ctrlVals(torRegStartup) [strTableGet TORREGISTRY_OPTION_STARTUP]
    set ctrlVals(torRegRemote)  [strTableGet TORREGISTRY_OPTION_REMOTE]
    set ctrlVals(torRegManual) [strTableGet TORREGISTRY_OPTION_MANUAL]
    set ctrlVals(torRegNTServ) [strTableGet TORREGISTRY_OPTION_SERVICE]

    set msg0Ctrl [list label -name msg0 -title $msg0 \
                             -x 100 -y 40 -w 205 -h 20]

    set msgRegDescCtrl [list label -name msg0 \
                         -title $msgRegDesc \
                         -x 100 -y 10 -w 205 -h 24]
    set radio1_ypos 65
    set radio2_ypos 78
    set radio3_ypos 91
    set radio4_ypos 104
            
    # NT Service choice
    set torRegNTServCtrl [list choice \
                        -name torRegNTServ \
                        -title $ctrlVals(torRegNTServ) \
                        -newgroup \
                        -callback {onTorRegOptSel torRegNTServ} \
                        -auto \
                        -x 100 -y $radio1_ypos -w 205 -h 10]

    # Startup choice
    set torRegStartupCtrl [list choice \
                        -name torRegStartup \
                        -title $ctrlVals(torRegStartup) \
                        -auto \
                        -callback {onTorRegOptSel torRegStartup} \
                        -x 100 -y $radio2_ypos -w 205 -h 10]

    # manually startup choice
    set torRegManualCtrl [list choice \
                        -name torRegManual \
                        -title $ctrlVals(torRegManual) \
                        -callback {onTorRegOptSel torRegManual} \
                        -auto \
                        -x 100 -y $radio3_ypos -w 205 -h 10]

    # remote choice
    set torRegRemoteCtrl [list choice \
                        -name torRegRemote \
                        -title $ctrlVals(torRegRemote) \
                        -callback {onTorRegOptSel torRegRemote} \
                        -auto \
                        -x 100 -y $radio4_ypos -w 205 -h 10]
                 
    # create the controls
    set ctrlVals(volatileFrm) \
                        [list $msg0Ctrl $msgRegDescCtrl \
                        $torRegNTServCtrl $torRegStartupCtrl \
                        $torRegManualCtrl $torRegRemoteCtrl]

    # display NT service info
    if {![isUnix] && $ctrlVals(admin) == 1} {
        set msg1Ctrl [list label -name msg1 \
                                 -title [strTableGet TORREGISTRY_MSG1] \
                                 -x 100 -y 125 -w 205 -h 50]
        lappend ctrlVals(volatileFrm) $msg1Ctrl 
    }  
    
    set w [dlgFrmCreate [strTableGet TORREGISTRY_TITLE]]

    # test automation

    if { $ctrlVals(useInputScript) } {
        autoSetupLog "Tornado Registry Page: skipped"

        # if user does not have admin privileges, default to Startup

        if { ($ctrlVals(NT) == "1") && ($ctrlVals(admin) != "1") } {
            set setupVals(torRegAction) "torRegStartup"
        }

        if {![info exists setupVals(torRegAction)]} {
            set setupVals(torRegAction) "torRegStartup"
            autoSetupLog \
                "\tRegistry Process: unspecified. Default process used."
        }

        onTorRegOptSel $setupVals(torRegAction)
        switch $ctrlVals(torRegAction) {
            torRegStartup {
                autoSetupLog "\t$ctrlVals(torRegStartup)"
            }
            torRegNTServ {
                autoSetupLog "\t$ctrlVals(torRegNTServ)"
            }
            torRegManual {
                autoSetupLog "\t$ctrlVals(torRegManual)"
            }
            orRegRemote {
                autoSetupLog "\t$ctrlVals(torRegRemote)"
            }
            default {
                autoSetupLog \
                    "\tRegistry process unknown: $setupVals(torRegAction)"

                set setupVals(torRegAction) "torRegStartup"
                onTorRegOptSel $setupVals(torRegAction)

                autoSetupLog "\tDefault process used: $ctrlVals(torRegStartup)" }
        }

        nextCallback
    } else {

        if { ($ctrlVals(NT) == "1") && ($ctrlVals(admin) != "1") } {

            # if user does not have admin privileges, do not allow
            # installation of Registry as a service.

            controlEnable $w.torRegNTServ 0
            controlCheckSet $w.torRegNTServ 0
            controlCheckSet $w.torRegStartup 1
            controlFocusSet $w.torRegStartup

            set setupVals(torRegOption) "torRegStartup"
            onTorRegOptSel $setupVals(torRegOption)

            dbgputs "You are not admin -- torRegNTServ is not enabled"

        } else {

            if {[regOptionRegValueRead] == ""} {
                set setupVals(torRegOption) "torRegNTServ"
            }

            controlCheckSet $w.$setupVals(torRegOption) 1
            controlFocusSet $w.$setupVals(torRegOption)
            onTorRegOptSel $setupVals(torRegOption)
        }

        controlEnable $w.backButt 1
        controlEnable $w.nextButt 1

        if {[instTypeGet] == "registryInst"} {
            controlEnable $w.backButt 0
            controlValuesSet $w.nextButt "Finish"
            controlEnable $w.nextButt 1
        }

    }
}

#############################################################################
#
# pageProcess(torRegistry) - process inputs from torRegistry page
#
# This procedure will process input from torRegisry page
#
# SYNOPSIS
# .tS
# pageProcess(torRegistry)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: 1 when successful
#
# ERRORS: N/A
#

proc pageProcess(torRegistry) {} {
    global ctrlVals
    global setupVals
    global infVals env

    if {"[windRegValueRead]" == ""} {
        set setupVals(registry) localhost
    }

    beginWaitCursor

    switch $ctrlVals(torRegAction) {

        torRegStartup {
            set infVals(torRegStartup) 1

            pageRemove remoteRegistryHost
            set ctrlVals(isRemoteRegHostPageRemoved) 1
        }
        
        torRegRemote {
            # user selected to configure a remote registry

            set infVals(torRegRemote) 1
            set ctrlVals(isRemoteRegHostPageRemoved) 0
        }
        
        torRegManual {
            # user wants to install the registry
            # manually

            set infVals(torRegManual) 1
            
            pageRemove remoteRegistryHost
            set ctrlVals(isRemoteRegHostPageRemoved) 1
        }

        torRegNTServ {
            set infVals(torRegNTServ) 1

            pageRemove remoteRegistryHost
            set ctrlVals(isRemoteRegHostPageRemoved) 1
        }

        default {
            puts "tor registry process: unknown option: \
                $ctrlVals(torRegAction)"
        }
    }

    set infVals(addRegOption) 1

    # added this because we would like to come back to the registry
    # and remember what we selected

    set setupVals(torRegOption) $ctrlVals(torRegAction)

    searchAndProcessSection AddRegistry [cdFileNameGet [file join RESOURCE \
                                         INF TORNADO.INF]]
    queueExecute
    set infVals(addRegOption) 0


    ## for Setup /R option -- Tornado Registry configuration ##

    if {[instTypeGet] == "registryInst"} {

        # get WIND_BASE
        windBaseReadFromRegistry

        switch $ctrlVals(torRegAction) {
            torRegStartup {
                # install tornado registry as NT service and remove startup
                # icon
                if {[torRegistryStartupIconAdd]} {
                    torRegistryServiceRemove "$setupVals(torRegServName)"
                }
            }
            torRegNTServ {
                # install startup icon and remove NT service
                if {[torRegistryServiceAdd "$setupVals(torRegServName)"]} {
                    torRegistryStartupIconRemove
                }
            }
            torRegManual {
                # remove startup icon and service
                torRegistryStartupIconRemove
                torRegistryServiceRemove "$setupVals(torRegServName)"
                messageBox "Tornado registry service has been removed.\
                            \nTornado registry icon in the Startup Group has been\
                            removed."
            }
        }
    }

    ## end ##

    endWaitCursor
    return 1
}

#############################################################################
#
# onTorRegOptSel - set the variable in ctrlVals when option is changed
#
# This procedure will  set the variable in ctrlVals when option is changed
#
# SYNOPSIS
# .tS