lmregist.tcl

windml3.0.3

# LMCONFIRM.TCL  - Setup procedures for implementing install LM confirm 
#                 wizard page
#
# Copyright 1999 Wind River Systems, Inc
#
# modification history
# --------------------
# 02a,12jun01,j_w  Modified for Tornado 2.2
# 01m,08dec00,bwd  Remove writing LM_LICENSE_FILE for end user license 
#                  config - this is done in FINISH page
# 01l,30oct00,j_w  Added queueExecute at the end of pageProcess
# 01k,23oct00,j_w  Fixed typo
# 01j,10apr00,bwd  Changed the name of the registry key for license management
#                  to LM_LICENSE_FILE
# 01i,07apr00,bwd  Added codes to write license info to registry
#                  WRSD_LICENSE_FILE
# 01h,06jan00,bwd  No test automation for command line SETUP
# 01g,02dec99,clc  add text mode
# 01f,30nov99,wmd  Fix so that duplicate strings are eliminated from
#                  LM_LICENSE_FILE.
# 01e,29nov99,wmd  Fix typos.
# 01d,24nov99,bwd  Added sections for automatic LM Installation
# 01c,23nov99,wmd  Add code to set LM_LICENSE_FILE in the registry for
#                  windows.
# 01b,22nov99,wmd  Add logic to implement this page.
# 01a,29Oct99,wmd  written.
#

#############################################################################
#
# pageCreate(lmRegister) - confirm floating license server for end user license
#
# This procedure will create a page to provide information to users which
# license server(s) has been selected for floating license
#
# SYNOPSIS
# .tS
# pageCreate(lmRegister)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(lmRegister) {} {
    global ctrlVals setupVals lmVals

    if { [isGUImode] } {
        set serverList ""
        for {set ix 0} {$ix < [llength $lmVals(lmHostOrder)]} {incr ix} {
            append serverList [format "\t%s\r\n" [lindex $lmVals(lmHostOrder) $ix]]
        }
        set ctrlVals(volatileFrm) [list \
            [list label -name lmRegisterText \
                -title [strTableGet LMREGIST_MSG1] \
                -x 100 -y 10 -w 200 -h 24] \
            [list label -name lmRegisterText2 \
                -title [strTableGet LMREGIST_MSG2] \
                -x 100 -y 38 -w 200 -h 12] \
            [list label -name lmRegisterText3 \
                -title $serverList \
                -x 100 -y 50 -w 200 -h 80] \
            ]

        set w [dlgFrmCreate [strTableGet LMREGIST_TITLE_WINDOWS]]

        # the following is to workaround a bug in UITclSh: 
        # if the user presses Return for the OK button, 
        # UITclSh does not exit.

        if {[isUnix]} {
            controlPropertySet $w.nextButt -defaultbutton 0
            controlFocusSet $w.cancelButt
        } else {
            controlFocusSet $w.nextButt
        }

        # test automation

        if { $ctrlVals(useInputScript) } {
            autoSetupLog "License Management Registration Page: skipped"
            autoSetupLog "[strTableGet LMREGIST_MSG1]"
            autoSetupLog "\t[strTableGet LMREGIST_MSG2] $lmVals(lmHostOrder)"
            nextCallback
        }

    } else { # text mode

        set serverList ""
        for {set ix 0} {$ix < [llength $lmVals(lmHostOrder)]} {incr ix} {
            append serverList [format "\t%s\r\n" [lindex $lmVals(lmHostOrder) $ix]]
        }

        # display page header and selected servers

        printPageTitle [strTableGet LMREGIST_TITLE_WINDOWS]
        puts "[strTableGet LMREGIST_MSG1]\n"
        puts [strTableGet LMREGIST_MSG2]
        foreach server $serverList {
            puts $server
        }

		puts "\n"

        # prompt to continue

        set msg "Press <Enter> to continue."
        while { [prompt $msg] != "" } {
        }
        nextCallback
        return 0
   }
}

#############################################################################
#
# pageProcess(lmRegister) - proceed to the next page with selected server(s)
#
# This procedure will proceed with selected server(s) for end user license
#
# SYNOPSIS
# .tS
# pageProcess(lmRegister)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: 1 when successful
#
# ERRORS: N/A
#

proc pageProcess(lmRegister) {} {
    return 1
}


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

set strTable(LMREGIST_TITLE_WINDOWS) "License Management Registration"

        
set strTable(LMREGIST_MSG1) \
	"Setup will now write the license configuration into the\
        windows registry on this host."

set strTable(LMREGIST_MSG2) \
        "Selected Server(s): "