lminst.tcl

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

# LMINST.TCL - Setup procedures for implementing LM installation-choice 
#              wizard page
#
# Copyright 1999 Wind River Systems, Inc
#
# modification history
# --------------------
# 02c,14feb03,bjl  added controls for manual page sequence, differentiate
#                  between license server and manual/nodelocked sequences.  
# 02b,25apr02,j_w  fixed a typo 
# 02a,12jun01,j_w  Modified for Tornado 2.2
# 02c,08jan01,bwd  SPR 63370: added additional header for alternative host id.
# 02b,01nov00,j_w  Fixed page list for autoInst in proc onNoOutsideAccess
# 02a,12sep00,j_w  fixed URL for web form
# 01z,26may00,bwd  Enable Back button if the previous page is currLicInfo
# 01y,23may00,bwd  Fixed message
# 01x,19may00,bwd  SPR 31032 - do not skip lmInstOption page on reload to fix
#                  errors
# 01w,18may00,bwd  SPR 31030 - design change: lmInstOptions page before
#                  DBQUERY and added a check to add nodelock page list
# 01v,15may00,bwd  SPR 31030 - enable Back button to go back to DBQUERY page
#                  for Node Locked licensing
# 01u,12may00,bwd  SPR 31204 - added URL for contact information and fax
#                  number for LICPHONE page
# 01t,25apr00,j_w  Replaced the value of strTable(1220_MAIL_TO) to
#                  [e-mail]
# 01s,20mar00,bwd  Fixed TEXT mode to prevent going back to previous page
# 01r,20mar00,bwd  Fixed TEXT mode to default a choice to Automatic License
#                  Installation
# 01q,17mar00,j_w  Renamed WRS to Wind River
# 01p,09feb00,j_w  Called onPhone if no outside network access is selected
# 01o,24jan00,bwd  Fixed codes for "RELOAD" option to skip this page properly
# 01n,21jan00,bwd  Removed code that resets lmVals(reload) to 0 for TEXT MODE
# 01m,20jan00,j_w  Remove the line that reset lmVals(reload) to 0
# 01l,14jan00,bwd  Added codes to display this page for TEXT MODE
# 01k,11jan00,j_w  Fixed radio button selection
# 01j,10dec99,j_w  Unset lmVals(reload) to 0
# 01i,30nov99,j_w  Added a check box for no outside access
# 01h,23nov99,j_w  Fixed typo
# 01g,17nov99,j_w  Skip the page if lmVals(reload) is set to 1
# 01f,15nov99,j_w  Fixed indent spacing
# 01e,15nov99,wmd  Add line to unhide the setup bitmap incase it is hidden on
#                  subsequent pages.
# 01d,12nov99,bwd  Added sections for automatic setup installation
# 01c,05nov99,wmd  Add code to make sure back and next buttons are enabled.
# 01b,04oct99,j_w  Fix radio buttons
# 01a,15Sep99,j_w  written
#

#############################################################################
#
# pageCreate(lmInstOptions) - displays choices of LM installation
#
# This procedure will display choices of LM installation such as:
# Auto Install  - license file auto installation
# Email - email wrs for license file
# phone or fax - contact wrs for license file by phone or fax
#
# SYNOPSIS
# .tS
# pageCreate(lmInstOptions)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#


proc pageCreate(lmInstOptions) {} {
    global ctrlVals env setupVals lmVals

    if { [isGUImode] } {
        # unhide the setup bitmap
        controlHide $ctrlVals(mainWindow).bitmap 0

        if {[instTypeGet] == "license"} {
            set ctrlVals(volatileFrm) [list \
                [list label -name message1 \
                            -title [strTableGet LM_INSTALLOPTIONS_MSG_1] \
                            -x 99 -y 10 -w 190 -h 20] \
                [list choice -name autoInstChoice -newgroup -auto \
                          -title [strTableGet LM_INSTALLOPTIONS_AUTO_INSTALL] \
                          -x 99 -y 35 -w 190 -h 15 \
                          -callback onAutoInst] \
                [list label -name autoInstLabel \
                            -title \
                             [strTableGet LM_INSTALLOPTIONS_AUTO_INSTALL_DESC] \
                            -x 111 -y 50 -w 198 -h 15] \
                [list choice -name emailChoice -auto \
                             -title [strTableGet LM_INSTALLOPTIONS_EMAIL] \
                             -x 99 -y 65 -w 100 -h 15 \
                             -callback onEmail] \
                [list label -name emailLabel \
                            -title \
                             [strTableGet LM_INSTALLOPTIONS_EMAIL_DESC] \
                            -x 111 -y 80 -w 198 -h 15 ] \
                [list choice -name phoneChoice -auto \
                            -title [strTableGet LM_INSTALLOPTIONS_PHONE] \
                            -x 99 -y 95 -w 190 -h 15 \
                            -callback onPhone] \
                [list label -name phoneLabel \
                            -title \
                             [strTableGet LM_INSTALLOPTIONS_PHONE_DESC] \
                            -x 111 -y 110 -w 198 -h 15] \
                [list boolean -name noOutsideAccessCkbox -newgroup -auto \
                              -title [strTableGet LM_CKBOX_1] \
                              -x 99 -y 140 -w 170 -h 15 \
                              -callback onNoOutsideAccess]]
        } else {
            # controls for manual node-locked page
            
            set ctrlVals(volatileFrm) [list \
                [list choice -name emailChoice -auto \
                             -title [strTableGet LM_INSTALLOPTIONS_EMAIL] \
                             -x 99 -y 29 -w 100 -h 15 \
                             -callback onEmail] \
                [list label -name emailLabel \
                            -title \
                             [strTableGet LM_INSTALLOPTIONS_EMAIL_DESC] \
                            -x 111 -y 44 -w 198 -h 15 ] \
                [list choice -name phoneChoice -auto \
                            -title [strTableGet LM_INSTALLOPTIONS_PHONE] \
                            -x 99 -y 67 -w 190 -h 15 \
                            -callback onPhone] \
                [list label -name phoneLabel \
                            -title \
                             [strTableGet LM_INSTALLOPTIONS_PHONE_DESC] \
                            -x 111 -y 82 -w 198 -h 15] ]
        }
        set w [dlgFrmCreate [strTableGet LM_INSTALLOPTIONS_TITLE]]

        # rename the next button to "Send" (in case of UNIX)
        controlValuesSet $w.nextButt "&Next >"

        # set default setting
        controlEnable $w.nextButt 1
        controlEnable $w.cancelButt 1

        if { $setupVals(lmInstType) == "nodeLocked" } {
            controlEnable $w.backButt 1
        } else { 
            set currPageIndex [lsearch $ctrlVals(pageList) $ctrlVals(currPage)]
            set prevPageIndex [expr $currPageIndex - 1]
            set prevPage [lindex $ctrlVals(pageList) $prevPageIndex]

            if { $prevPage == "currLicInfo" } {
                controlEnable $w.backButt 1
            } else {
                controlEnable $w.backButt 0
            }
        }

        if { $setupVals(lmInstOptions) == "" } {
            if {[instTypeGet] == "license" } {    
                controlCheckSet $w.autoInstChoice 1
            } else {
                # manual, node-locked 

                controlCheckSet $w.emailChoice 1
            }        
        } else {
            switch $setupVals(lmInstOptions) {
                onAutoInst { controlCheckSet $w.autoInstChoice 1 }
                onEmail    { controlCheckSet $w.emailChoice 1 }
                onPhone    { controlCheckSet $w.phoneChoice 1 }
                default    { controlCheckSet $w.autoInstChoice 1 }
            }
        }

        # test automation
	
        if { $ctrlVals(useInputScript) } {
            autoSetupLog "LM Installation Option Page: skipped"
            autoSetupLog "\tInstallation Option: $setupVals(lmInstOptions)" 
            nextCallback
        }
    } else { # TEXT mode

        printPageTitle [strTableGet LM_INSTALLOPTIONS_TITLE]
        puts "[strTableGet LM_INSTALLOPTIONS_MSG_1_TEXT]\n"

        puts "1 - [strTableGet LM_INSTALLOPTIONS_AUTO_INSTALL]"
        puts "    [strTableGet LM_INSTALLOPTIONS_AUTO_INSTALL_DESC]"
        puts "2 - [strTableGet LM_INSTALLOPTIONS_EMAIL]"
        puts "    [strTableGet LM_INSTALLOPTIONS_EMAIL_DESC]"
        puts "3 - [strTableGet LM_INSTALLOPTIONS_PHONE]"
        puts "    [strTableGet LM_INSTALLOPTIONS_PHONE_DESC]"
        puts "4 - Have no access to the outside network.\n\n"
 
        while (1) {
            puts "Please enter your selection. \[1\]\n"
            set ret [prompt]
            switch -regexp -- $ret {
                "^$" -
                "^1$" {  onAutoInst ; nextCallback ; return 0  }
                "^2$" {  onEmail    ; nextCallback ; return 0  }
                "^3$" {  onPhone    ; nextCallback ; return 0  }
                "^4$" {  
                    set setupVals(noOutsideAccess) 1
                    onNoOutsideAccess
                    return [pageCreate(lmInstOptions)]
                }
                "^-$" {  
                    if { $setupVals(lmInstType) == "nodeLocked" } {
                        backCallback
                        return 0
                    } else {
                        set currPageIndex [lsearch $ctrlVals(pageList) $ctrlVals(currPage)]
                        set prevPageIndex [expr $currPageIndex - 1]
                        set prevPage [lindex $ctrlVals(pageList) $prevPageIndex]

                        if { $prevPage == "currLicInfo" } {
                            backCallback
                            return 0
                        } else {
                            puts "Error: Cannot go back any further"
                            while { [prompt "Press <Enter> to continue."] != "" } {
                            }
                            return [pageCreate(lmInstOptions)]
                        }
                    }
                }
                "^[eE][xX][iI][tT]$" {
                    return 0
                }
                default {
                    puts "Error: Invalid input."
                }
            }
        }
    }
}

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

proc pageProcess(lmInstOptions) {} {
    global setupVals ctrlVals
    global valuesReset

    # valuesReset is a global variable used in LICMANUAL
    # to see if lmVals needs to be initialized

    set choice $setupVals(lmInstOptions)

    switch $choice {
        onAutoInst {  
            if { $setupVals(lmInstType) == "nodeLocked" } {
                pageListAdd nodeLock
            } else {
                pageListAdd autoInst  
            }
        }
        onEmail {
            pageListAdd email     
            set valuesReset 1            
        }
        onPhone {  
            pageListAdd phone