lmauman.tcl

windml3.0.3

# LMAUMAN.TCL - Setup procedures for implementing the auto/manual choice page
#
# Copyright 2003 Wind River Systems, Inc
#
# modification history
# --------------------
# 01a,14feb03,bjl  written.
#

############################################################################
#
# pageCreate(lmAutoManChoice) - displays choice of auto or manual license
#                               configuration
#                        
#
# This page will give the user the choice between the automated and manual 
# license configurations.  
#
# SYNOPSIS
# .tS
# pageCreate(lmAutoManChoice)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

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

    if { [isGUImode] } {
        set ctrlVals(volatileFrm) [list \
                    [list label -name message1 \
                                -title [strTableGet LM_AUMAN_MSG_1] \
                                -x 100 -y 10 -w 190 -h 36] \
                    [list choice -name autoChoice -newgroup -auto \
                                -title [strTableGet LM_AUMAN_BTN_1] \
                                -x 102 -y 46 -w 190 -h 15 \
                                -callback onAuto] \
                    [list label -name autoLabel \
                                -title \
                                 [strTableGet LM_AUMAN_BTN_1_DESC] \
                                -x 114 -y 60 -w 180 -h 25] \
                    [list choice -name manualChoice -auto \
                                -title [strTableGet LM_AUMAN_BTN_2] \
                                -x 102 -y 88 -w 190 -h 15 \
                                -callback onManual] \
                    [list label -name manualLabel  \
                                -title [strTableGet LM_AUMAN_BTN_2_DESC] \
                                -x 114 -y 103 -w 180 -h 25]                    
                    ]

        set w [dlgFrmCreate [strTableGet LM_AUMAN_TITLE]]


        if { $setupVals(evaluation) == 1 } {
            controlEnable $w.autoChoice 0
            controlCheckSet $w.manualChoice 1            
        }

        # unhide the help button - no use during copying
        controlEnable $w.helpButt 1

        if { [isTornadoProduct] } {
            controlEnable $w.helpButt 1
        } else {
            controlEnable $w.helpButt 0
        }

        switch $setupVals(lmAutoManChoice) {
            onAuto   { controlCheckSet $w.autoChoice 1 }
            onManual { controlCheckSet $w.manualChoice 1 }
            default  { controlCheckSet $w.autoChoice 1 }
        }

                
        controlValuesSet $w.nextButt "&Next >"
        if {$setupVals(lmError) != "" || [instTypeGet] == "license"} {
            controlEnable $w.backButt 1
        } else {
            controlEnable $w.backButt 0
        }
        controlEnable $w.nextButt 1
        controlEnable $w.cancelButt 1

        # test automation

        if { $ctrlVals(useInputScript) } {
            autoSetupLog "LM Auto/Man page: Skipped"
            autoSetupLog "\tLM Option: $setupVals(lmAutoManChoice)"
            nextCallback
        }

    } else { # TEXT mode

        printPageTitle [strTableGet LM_AUMAN_TITLE]
        puts [strTableGet LM_AUMAN_MSG_1_TEXT]
        puts "1 - [strTableGet LM_AUMAN_BTN_1]"
        puts "[strTableGet LM_AUMAN_BTN_1_DESC_TEXT]\n"
        puts "2 - [strTableGet LM_AUMAN_BTN_2]"
        puts "[strTableGet LM_AUMAN_BTN_2_DESC]\n"

        while (1) {
            puts "Please enter the number of your selection. \[1\]"
            set ret [prompt]
            switch -regexp -- $ret {
                "^$" -
                "^1$" { 
                    onAuto
                    nextCallback
                    return 0
                }
                "^2$" { 
                    onManual                    
                    nextCallback
                    return 0
                }
                "^[eE][xX][iI][tT]$" {
                    return 0
                }
                default { 
                    puts "Error: Invalid input."
                }
            }
        }
    }
}

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

proc pageProcess(lmAutoManChoice) {} {
    global setupPageList setupVals ctrlVals lmVals
    set retVal 1

    switch $setupVals(lmAutoManChoice) {
        onAuto {     
            set setupVals(lmManual) 0       
            pageListAdd dbQuery
        }
        onManual {
            set setupVals(lmManual) 1
            pageListAdd lmOptions                       
        }
    }    
    dbgputs "lmAutoManChoice: $ctrlVals(pageList)"

    return $retVal
}

#############################################################################
#
# onAuto - set up to configure user to use floating licenses
#
# This procedure is a callback which allows the user to configure tornado for
# floating licensing
#
# SYNOPSIS
# .tS
# onAuto
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onAuto {} {
    global setupVals ctrlVals
    global LMHelpPath

    set setupVals(lmAutoManChoice) onAuto
    set lmVals(reloadExistingLicense) 0
    set LMHelpPath "float"

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


#############################################################################
#
# onManual - setup to configure user for node locked licensing
#
# This procedure is a callback which allows the user to configure tornado for
# node locked licensing.
#
# SYNOPSIS
# .tS
# onManual
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onManual {} {
    global setupVals ctrlVals

    set setupVals(lmAutoManChoice) onManual

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

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

set strTable(LM_AUMAN_TITLE) "License Management Auto/Manual Choice"

set strTable(LM_AUMAN_MSG_1) \
    "SETUP has detected that one or more products\
    are license managed.  Choose one of the options below."

set strTable(LM_AUMAN_MSG_1_TEXT) \
    "SETUP has detected that one or more products\
    are license managed.\nChoose one of the options below.\n"

set strTable(LM_AUMAN_BTN_1) \
    "Automated License Configuration (Recommended)"

set strTable(LM_AUMAN_BTN_1_DESC) \
    "Contact Wind River to obtain license information.\
     An Internet connection is required."

set strTable(LM_AUMAN_BTN_1_DESC_TEXT) \
    "Contact Wind River to obtain license information.\nAn\
     internet connection is required."

set strTable(LM_AUMAN_BTN_2) \
    "Manual License Configuration"

set strTable(LM_AUMAN_BTN_2_DESC) \
    "Manually configure to use a local license server, or\
     contact Wind River via email or phone to obtain a license\
     file."