lmconfig.tcl

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

# LMCONFIG.TCL - Setup procedures for implementing user lmConfig wizard page
#
# Copyright 1999-2003 Wind River Systems, Inc
#
# modification history
# --------------------
# 02f,14feb03,bjl  modified for ELM page sequence, modified floating license
#                  server wording.  
# 02e,29jan03,wmd  Implement for ALI 2.0.
# 02d,17may02,wmd  Fix text formatting and grammatical errors.
# 02c,01may02,j_w  Fixed SPR 75403 - modified warning msg if no hosts to 
#                  select 
# 02b,05mar02,bwd  Modified SETUP to be non-tornado centric
# 02a,12jun01,j_w  Modified for Tornado 2.2
# 01p,07may01,j_w  Removed "Feature ID" in the detail box
# 01o,02mar01,wmd  Alphabetize the list of available hosts.
# 01n,22may00,bwd  SPR 31003 - set a variable to return to DBQUERY page if
#                  user click cancel while retrieving data from database
# 01m,17mar00,j_w  Fixed typo
# 01l,14feb00,wmd  Change all references to prodCode to featureId.
# 01k,04feb00,j_w  Enable the next button if at least one host is selected
# 01j,03feb00,wmd  Add dialog box to tell user that license management has not
#                  been configured yet.
# 01i,06jan00,bwd  No test automation for command line SETUP
# 01h,17dec99,clc  change  switch statement patterns
# 01g,30nov99,clc  add text mode
# 01f,30nov99,wmd  Add port information in the details dialog.
# 01e,24nov99,bwd  Added sections for automatic LM Installation
# 01d,23nov99,bwd  Fixed typos
# 01c,22nov99,wmd  Add code to remove lmregister page if on Unix.
# 01b,17nov99,wmd  Add logic to implement the page.
# 01a,29oct99,wmd  written
#

global infoStr

#############################################################################
#
# pageCreate(lmConfig) - displays license management configuration 
#                        information for the user to select
#
# This procedure will display possible license management information and 
# allows the user to modify it to suit his needs
#
# SYNOPSIS
# .tS
# pageCreate(lmConfig)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(lmConfig) {} {
    global ctrlVals
    global setupVals
    global lmVals lmHostRecs lmHostRecsLen
    global cancelDBQUERY

    # if user clicks Cancel while retrieving data from
    # Wind River database, return to DBQUERY page
    if { $cancelDBQUERY } {
        set cancelDBQUERY 0
        backCallback
        return 1
    }

    # obtain user's LM server information

    if { [isGUImode] } {

        lmConfigValuesGet

        set ctrlVals(volatileFrm) [list \
                [list label -name message1 \
                            -title [strTableGet LMCONFIG_MSG_1] \
                            -x 99 -y 10 -w 206 -h 29] \
                [list label -name availServersLabel \
                            -title [strTableGet LMCONFIG_AVAIL_SERVERS_LABEL] \
                            -x 99 -y 41 -w 66 -h 10] \
                [list label -name selectedServersLabel \
                            -title [strTableGet LMCONFIG_SEL_SERVERS_LABEL] \
                            -x 200 -y 41 -w 66 -h 10] \
                [list list -name lmAvailServers -multisel \
                            -callback onLmAvailServers \
                            -x 99 -y 54 -w 69 -h 90] \
                [list list -name lmSelServers -multisel \
                            -callback onLmSelServers \
                            -x 200 -y 54 -w 69 -h 90] \
                [list button -name lmAddServers -title "-->" \
                            -callback onLmAddServers \
                            -x 173 -y 75 -w 21 -h 14] \
                [list button -name lmRemoveServers -title "<--" \
                            -callback onLmRemoveServers \
                            -x 173 -y 93 -w 21 -h 14] \
                [list button -name lmUp -title "Up" \
                            -callback onLmUp \
                            -x 275 -y 75 -w 25 -h 14] \
                [list button -name lmDown -title "Down" \
                            -callback onLmDown \
                            -x 275 -y 93 -w 25 -h 14] \
                [list button -name lmDetailsButton -title "Details..." \
                            -callback onLmDetails \
                            -x 99 -y 138 -w 48 -h 14] \
                [list label -name message2 \
                            -title [strTableGet LMCONFIG_MSG_2] \
                            -x 99 -y 157 -w 206 -h 13] \
        ]

        set w [dlgFrmCreate [strTableGet LMCONFIG_TITLE]]

        set lmVals(lmHostOrder) {}

        # enable the next button in case it was disabled from below

        controlEnable $w.nextButt 0

        # disable the controls for add/remove, up/down

        controlEnable $w.lmAddServers 0
        controlEnable $w.lmRemoveServers 0
        controlEnable $w.lmUp 0
        controlEnable $w.lmDown 0
        controlEnable $w.lmDetailsButton 0
 
        # fill in the available servers

        controlValuesSet $w.lmAvailServers $lmVals(lmAvailHosts)

        if {[isUnix]} {
             # remove the lmregister page
             pageRemove lmRegister
        }

        # if there are no servers available, warn the user to configure 
        # or exit Setup
      
        if {$lmVals(lmAvailHosts) == ""} {
            notConfigDlg
            controlEnable $w.nextButt 0            
            if {$setupVals(ELMUser) == 1} {
                set setupVals(cancel) 1
                applicationExit
            }
        }

        # test automation
    
        if { $ctrlVals(useInputScript) } {
            for {set ix 0} {$ix < [llength $lmVals(lmAvailHosts)]} {incr ix} {
                lappend lmVals(lmHostOrder) [lindex $lmVals(lmAvailHosts) $ix]
            }
            autoSetupLog "User License Management Configuration Page: skipped"
            autoSetupLog "\tSelected Server(s): $lmVals(lmHostOrder)"
            nextCallback
        }

    } else {

        # text mode 

        lmConfigValuesGet

        if {[isUnix]} {
             # remove the lmregister page
             pageRemove lmRegister
        }
        
        set lmVals(lmHostSelected) {}

        # prompt for list of license servers
        while (1) {
            
            # print page header

            printPageTitle [strTableGet LMCONFIG_TITLE]
            puts "[strTableGet LMCONFIG_MSG_1_TEXT]\n"

            # if available servers is empty, warn user	    

            if {$lmVals(lmAvailHosts) == ""} {
                puts "[strTableGet LMCONFIG_NO_CONFIG_WARNING]"

                while (1) {
                    set ret [prompt [strTableGet LMCONFIG_NO_CONFIG_ACCEPT_MSG]]
                    switch -regexp -- $ret {
                        "^-$" {
                            backCallback
                            return 0
                        }

                        "[eE][xX][iI][tT]" {
                            return 0
                        }

                        default {
                            puts "License Management is not configured, please \
                                backup to the previous page\nor exit Setup.\n"
                        }
                    }
                }
            }

            # display available servers

            puts [strTableGet LMCONFIG_AVAIL_SERVERS_LABEL]
            set i 1
            foreach host $lmVals(lmAvailHosts) {
                puts "$i - $host"
                incr i
            }
            puts ""

            # display selected servers

            puts [strTableGet LMCONFIG_SEL_SERVERS_LABEL]
            if { $lmVals(lmHostSelected) == "" } {
                puts "No server selected"
            } else {
                foreach server $lmVals(lmHostSelected) {
                    puts $server
                }
            }
            puts ""
        
            set ret [prompt [strTableGet LMCONFIG_SERVER_ACCEPT_MSG]]
            switch -regexp -- $ret {
                "^-$" {
                    backCallback
                    return 0
                }
                "^[0-9]+([ ][0-9]+)*$" {
                    selectServers $ret
                }
                "[eE][xX][iI][tT]" {
                    return 0
                }
                "^$" {
                    set lmVals(lmHostOrder) $lmVals(lmHostSelected)
                    nextCallback
                    return 0
                }
                default {
                    puts "The list you have entered is invalid."
                }
            }
        }
    }   
}

#############################################################################
#
# notConfigDlg - dialog to inform user that license management is not 
#       yet configured.
#
#
# SYNOPSIS
# .tS
# notConfigDlg
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc notConfigDlg {} {
    global setupVals

    if {$setupVals(ELMUser) == 1} { 
        dialog ok_with_title "Setup" [strTableGet LMCONFIG_NO_CONFIG_ELM]
    } else {
        dialog ok_with_title "Setup" [strTableGet LMCONFIG_NO_CONFIG]
    }
}

#############################################################################
#
# lmConfigValuesGet - get LM server configuration
#
# This procedure will get the necessary LM server information for this project
#
# SYNOPSIS
# .tS
# lmConfigValuesGet
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc lmConfigValuesGet {} {
    global lmVals lmHostRecs lmHostRecsLen lmHostFeaturesNum

    set lmVals(lmHostSelected) {}
    set lmVals(lmHostOrder) {}
    set lmVals(lmAvailHosts) {}
    for {set ix 0} {$ix < $lmHostRecsLen} {incr ix} {
        set hostRec [split [lindex $lmHostRecs $ix] |]
        set hostName [lindex $hostRec 0]
        set numberOfFeatures [lindex $lmHostFeaturesNum $ix]

        # For each host, see if it has at least 1 floating license
        # then add to list of lmAvailHosts
        
        for {set ixf 0} {$ixf < $numberOfFeatures} {incr ixf} {
            if {[lmLicProdInfoGet licFLAllocated $hostName $ixf] > 0} {
                lappend lmVals(lmAvailHosts) $hostName
                break
            }
        }
    }
    set lmVals(lmAvailHosts) [lsort $lmVals(lmAvailHosts)]
  
}

#############################################################################
#
# selectServers - add servers 
#
# This procedure will get the necessary LM server information for this project
#
# SYNOPSIS
# .tS
# selectServers
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc selectServers {servList} {

    global lmVals

    set lmVals(lmHostSelected) {}

    foreach index $servList {
        lappend lmVals(lmHostSelected) \
                 [lindex $lmVals(lmAvailHosts) [expr $index - 1]]
    }

}
        

#############################################################################
#
# onLmAvailServers - get input from list box control for available servers
#
# This procedure will gather the selected servers chosen by the user.
#
# SYNOPSIS
# .tS
#  onLmAvailServers
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onLmAvailServers {} {
    global lmVals

    set args [controlEventGet wizardDialog.lmAvailServers]
    set lmVals(lmHostSelected) {}

    set event [lindex $args 0]
    set args [controlSelectionGet wizardDialog.lmAvailServers -string]
    if {[string match $event "selchange"] && $args != ""} {
        set args [split $args]
        for {set ix 0} {$ix < [llength $args]} {incr ix} {
            lappend lmVals(lmHostSelected) [lindex $args $ix]
        }
        controlEnable wizardDialog.lmDetailsButton 1
        controlEnable wizardDialog.lmAddServers 1
    } else {
        set lmVals(lmHostSelected) {}
        controlEnable wizardDialog.lmDetailsButton 0
    }
}

#############################################################################
#
# onLmSelServers - get user selected servers from the list control
#
# This procedure will gather the user selected servers from the list control
#
# SYNOPSIS
# .tS
# onLmSelServers
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onLmSelServers {} {
    global lmVals

    set args [controlEventGet wizardDialog.lmSelServers]
    set lmVals(lmHostSelected) {}

    set event [lindex $args 0]
    set args [controlSelectionGet wizardDialog.lmSelServers -string]
    if {[string match $event "selchange"] && $args != ""} {
        set args [split $args]
        for {set ix 0} {$ix < [llength $args]} {incr ix} {
            lappend lmVals(lmHostSelected) [lindex $args $ix]
        }
        controlEnable wizardDialog.lmDetailsButton 1
        controlEnable wizardDialog.lmRemoveServers 1
     } else {
        set lmVals(lmHostSelected) {}
        controlEnable wizardDialog.lmDetailsButton 0
    }
}

#############################################################################
#
# licDetailsDlgInit - inits display data
#
# This procedure will display server information for the selected server(s)
#
# SYNOPSIS
# .tS
# licDetailsDlgInit
# .tE
#
# PARAMETERS: N/A