lminst.tcl

VxWorks的开发平台Tornado2.2升级到2.2.1的补丁。

            pageListAdd phone
            if {$lmVals(successfulDbQuery) && $setupVals(ELMUser) &&
                [instTypeGet] == "license"} {
                set valuesReset 0
            } else {
                set valuesReset 1
            }
        }            
    }

    dbgputs "lmInstOptions: $ctrlVals(pageList)"
    dbgputs "lmInstOptions choice: $setupVals(lmInstOptions)"

    return 1
}

#############################################################################
#
# onAutoInst - set up wizard pages when auto lic install option is selected
#
# This procedure is a callback which sets up wizard pages when auto lic
# installation is selected
#
# SYNOPSIS
# .tS
# onAutoInst
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onAutoInst {} {
    global setupVals 

    set setupVals(lmInstOptions) "onAutoInst"
}

#############################################################################
#
# onEmail - set up wizard pages when email option is selected
#
# This procedure is a callback which sets up wizard pages when email
# is selected
#
# SYNOPSIS
# .tS
# onEmail
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onEmail {} {
    global setupVals

    set setupVals(lmInstOptions) "onEmail"
}


#############################################################################
#
# onPhone - set up wizard pages when the phone option is selected
#
# This procedure is a callback which sets up wizard pages when phone
# is selected
#
# SYNOPSIS
# .tS
# onPhone
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onPhone {} {
    global setupVals

    set setupVals(lmInstOptions) "onPhone"
}


#############################################################################
#
# onNoOutsideAccess - Check box for no outside network access
#
# This procedure is a callback when the no outside access check box 
# is selected. "Phone or Fax" option will be selected if it is checked.
#
# SYNOPSIS
# .tS
# onNoOutsideAccess
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onNoOutsideAccess {} {
    global setupVals ctrlVals

    if { [isGUImode] } {
        set w $ctrlVals(mainWindow)

        if {[controlChecked $w.noOutsideAccessCkbox]} {
            controlEnable $w.autoInstChoice 0
            controlEnable $w.autoInstLabel 0            
            controlEnable $w.emailChoice 0
            controlEnable $w.emailLabel 0

            controlCheckSet $w.phoneChoice 1
            if {[instTypeGet] == "license"} {
                controlCheckSet $w.autoInstChoice 0
            }
            controlCheckSet $w.emailChoice 0
            set setupVals(noOutsideAccess) 1

            dialog ok_with_title "No Outside Network Access"\
                   [strTableGet LM_INSTALLOPTIONS_NO_OUTSIDE_ACCESS]

            controlFocusSet $w.phoneChoice
			onPhone
        } else {
            controlEnable $w.autoInstChoice 1
            controlEnable $w.autoInstLabel 1
            controlEnable $w.emailChoice 1
            controlEnable $w.emailLabel 1

            controlCheckSet $w.autoInstChoice 1
            controlCheckSet $w.emailChoice 0
            controlCheckSet $w.phoneChoice 0
            
            if {[instTypeGet] == "license"} {
                controlFocusSet $w.autoInstChoice
            } else {
                controlFocusSet $w.emailChoice
            }
		
            set setupVals(noOutsideAccess) 0
			onAutoInst
        }
    } else { # TEXT mode

        if { $setupVals(noOutsideAccess) } {
            puts [strTableGet LM_INSTALLOPTIONS_NO_OUTSIDE_ACCESS]
            puts "Press \<Return\> to continue..."
            while (1) {
                switch -regexp -- [prompt] {
                    "^$" { break }
                    default { }
                }
            }
        }
    }
}


######################################################################
# Dialog Text Messages
######################################################################

set strTable(LM_INSTALLOPTIONS_TITLE) \
		"License Management Installation Options"

set strTable(LM_INSTALLOPTIONS_MSG_1) \
	"Choose one of the options below to request a license file, then\
	click the Next button to continue the installation."

set strTable(LM_INSTALLOPTIONS_MSG_1_TEXT) \
        "Choose one of the options below to request a license file."

set strTable(LM_INSTALLOPTIONS_AUTO_INSTALL) \
	"Automatic License Installation (Recommended)"

set strTable(LM_INSTALLOPTIONS_EMAIL) "Email"

set strTable(LM_INSTALLOPTIONS_PHONE) "Phone or Fax"

set strTable(LM_INSTALLOPTIONS_AUTO_INSTALL_DESC) \
	"Contact Wind River via TCP/IP to obtain a license file."

set strTable(LM_INSTALLOPTIONS_EMAIL_DESC) \
	"Contact Wind River via email to obtain a license file."

set strTable(LM_INSTALLOPTIONS_PHONE_DESC) \
	"Contact Wind River to obtain a license file."

set strTable(LM_CKBOX_1) \
		"Check here if no access to an outside network"

set strTable(LM_INSTALLOPTIONS_NO_OUTSIDE_ACCESS) \
		"If you wish to perform automatic license installation,\
		visit http://www.windriver.com/ali on a machine which has access\
		to an outside network. Otherwise, choose the \"Phone and Fax\"\
		option to continue."

set strTable(1220_MAIL_TO) "[e-mail]"

set strTable(1230_MAIL_SUBJECT) "License Key Request"

set strTable(1240_MAIL_ERROR) \
		"Cannot send mail.  Please contact Wind River instead."

set strTable(1541_MAIL_SERVER) "Please enter a valid server name."

set strTable(1250_MAIL_OK) \
    "Your request for the License Key has been sent to\
     [strTableGet 1220_MAIL_TO].  Please allow us one business day for\
     processing your request."

set strTable(3356_LICENSE_WARN) \
    "You must enter the return email address"


set strTable(1330_LICENSE_MAIL) \
    "The following message will be sent to [strTableGet 1220_MAIL_TO]."

set strTable(1340_LICENSE_MAIL_HEADER_LINE1) "To Wind River Systems,"

set strTable(1340_LICENSE_MAIL_HEADER_LINE2) \
    "This is a request for a License Key:"

set strTable(1340_LICENSE_MAIL_HEADER_LINE3) \
    "format %s \"Customer Name\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE4) \
    "format %s \"Company Name\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE5) \
    "format %s \"Installation Key :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE5a) \
    "format %s \"Installation Key\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE6) \
    "format %s \"License Number\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE7) \
    "format %s \"Host Name\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE8) \
    "format %s \"Host Id\t\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE9) \
    "format %s \"Alternate Host Id:  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE9a) \
    "format %s \"Alternate Host Id\t :  \[lindex \$args 0\]\""

set strTable(1340_LICENSE_MAIL_HEADER_LINE10a) \
    "Request to re-issue the existing license file for this customer"

set strTable(1340_LICENSE_MAIL_HEADER_LINE10b) \
    "Request to update the license file with the following\
     configuration for this customer"

set strTable(1340_LICENSE_MAIL_HEADER_LINE11) \
    "Licensed product feature(s):"

set strTable(1530_TITLE_LICENSE_MAIL) "Email License"

set strTable(1350_LICENSE_CALL) \
    "To obtain a license key, call 1-800-545-9463 with the\
     information listed below. You can also fax your license\
     request to 1-510-749-2538. For further contact information,\
     please visit http://www.windriver.com/license_admin"

set strTable(1540_TITLE_LICENSE_CALL) "Contact Wind River"