# FINISH.TCL  - Setup procedures for implementing finish page for full#               installation for end user and nodelocked## Copyright 1999-2003 Wind River Systems, Inc## modification history# --------------------# 03g,14feb03,bjl  added manual lmHost handling for reordered ELM pages.# 03f,20jun02,bjl  modified LM_LICENSE_FILE to check for existing setting#                  in torVars files, updated unix finish message.# 03e,17may02,wmd  Fix text formatting and grammatical errors.# 03d,03may02,bjl  add LM_LICENSE_FILE to torVars files (spr 72884)# 03c,05mar02,bwd  Modified SETUP to be non-tornado centric# 03b,07feb02,bwd  SETUP deletes flexlm registries after first layer of#                  uninstall. Do not log flexlm registries to prevent SETUP#                  from deleting them.# 03a,12jun01,j_w  Modified for Tornado 2.2# 02c,08dec00,bwd  SPR 62832: fixed the order of the license servers list#                  stored in env var LM_LICENSE_FILE# 02b,30oct00,j_w  Added queueExecute at the end of pageProcess# 02a,19may00,bwd  SPR 31068 - check/remove duplicate value for#                  LM_LICENSE_FILE# 01z,15may00,bwd  Fixed SPR 31062 - nodelock also displays this page and#                  sets LM_LICENSE_FILE variable for Windows.# 01y,01may00,bwd  Fixed/added LM instruction for bash, sh, and ksh# 01x,26apr00,bwd  for UNIX, add codes to first check for existing#                  LM_LICENSE_FILE variable before displaying appropriate#                  finish message# 01w,07apr00,bwd  Fixed the code: lmLicEnvVarInfo variable is only for UNIX# 01v,24mar00,bwd  Changed dialog frame for this page to allow copy and paste#                  the LM Environment Setup information# 01u,02mar00,bwd  Changed the title of the LM Environment Setup dialog box#                  for UNIX# 01t,08feb00,j_w  Rename page title# 01s,04Feb00,j_w  Made this page the final page for full installation if#                  end user LM configuration is selected# 01r,31jan00,bwd  Added codes to automate last dialog box and replace#                  setupVals(cmdMode) with isGUImode# 01q,21jan00,bwd  Added codes to inform users of lmEnvVar.txt for TEXT MODE# 01p,19jan00,wmd  Remove the default option for the "Finish" button.# 01o,17jan00,wmd  Remove display of reboot messages.# 01n,06jan00,bwd  No test automation for command line SETUP# 01m,15dec99,bwd  Corrected typo# 01l,14dec99,wmd  Fix the output to text file not to use \r. On Unix looks#                  bad.# 01k,08dec99,j_w  Fixed spacing# 01j,08dec99,wmd  Fix where the env vars info is stored.  Let's use#                  setup.log.# 01i,08dec99,wmd  Fix so Windows side works.# 01h,07dec99,wmd  Add code to write out file lmEnvVar.txt to hold env. var.#                  settings for users.# 01g,03dec99,j_w  Disable the help button# 01g,02dec99,clc  add text mode# 01f,29nov99,wmd  Fix bug in height of a label.# 01e,24nov99,bwd  Made changes for autoSetupLog# 01d,23nov99,wmd  Need to add windows version of the page.# 01c,22nov99,wmd  Add real code to display Unix side server info for#                  LM_LICENSE_FILE env. var.# 01b,01oct99,j_w  modified lmFinish page# 01a,08Jul99,j_w  written.#global lmLicEnvVarglobal lmLicEnvVarInfoglobal outFileNameglobal modifiedLicenseVarset outFileName ""############################################################################### processTorVarsLine - replaces LM_LICENSE_FILE line## This procedure will replace an LM_LICENSE_FILE line with lmLicEnvVar# information, and simply reoutputs all other lines.## SYNOPSIS# processTorVarsLine <line> <fileID> <tmpFileID> <fileType>## PARAMETERS:#   line : torVars line to be processed#   fileID : fileID of original torVars file#   tmpFileID : fileID of temp torVars file#   fileType: "sh" or "csh"## RETURNS: N/A## ERRORS: N/A#proc processTorVarsLine {line fileID tmpFileID fileType} {    global lmLicEnvVar modifiedLicenseVar    if {[eof $fileID]} {        return     }    set trimLine [string trimleft $line]    if {[string first "LM_LICENSE_FILE" $line] != -1} {        if {$fileType == "sh"} {            if {[string first "\$LM_LICENSE_FILE" $trimLine] != -1 &&                 [string first "LM_LICENSE_FILE" $trimLine] == 0} {                 puts $tmpFileID "    LM_LICENSE_FILE=$lmLicEnvVar:\$LM_LICENSE_FILE"                set modifiedLicenseVar 1             } elseif {[string first "LM_LICENSE_FILE" $trimLine] == 0} {                 puts $tmpFileID "    LM_LICENSE_FILE=$lmLicEnvVar"                 set modifiedLicenseVar 1             } else {                 puts $tmpFileID $line             }        } elseif {$fileType == "csh"} {            if {[string first "\$\{LM_LICENSE_FILE\}" $trimLine] != -1} {                 puts $tmpFileID "    setenv LM_LICENSE_FILE $lmLicEnvVar:\$\{LM_LICENSE_FILE\}"                set modifiedLicenseVar 1             } elseif {[string first "setenv" $trimLine] == 0} {                 puts $tmpFileID "    setenv LM_LICENSE_FILE $lmLicEnvVar"                 set modifiedLicenseVar 1             } else {                 puts $tmpFileID $line             }        }    } else {        puts $tmpFileID $line    }}############################################################################### processTorVarsFile - processes a torVars file line by line## This procedure will process a torVars file line by line, and add# LM_LICENSE_FILE information to the torVars file if previous# LM_LICENSE_FILE settings did not exist in the file.  ## SYNOPSIS# processTorVarsFile <fileName> <tmpFileName> <fileType>## PARAMETERS:#   fileName : name of torVars file to be processed#   tmpFileName : name of tmp file to store new torVars info#   fileType: "sh" or "csh"## RETURNS: 1 if successful, 0 if error## ERRORS: N/A#proc processTorVarsFile {fileName tmpFileName fileType} {    global modifiedLicenseVar lmLicEnvVar    if [catch {open $fileName r} fileID] {        dbgputs "processTorVarsFile: cannot open $fileName"        return 0    }    if [catch {open $tmpFileName w} tmpFileID] {        dbgputs "processTorVarsFile: cannot open $fileName"        return 0    }    while {[eof $fileID] == 0} {        gets $fileID line        processTorVarsLine $line $fileID $tmpFileID $fileType    }    # add LM_LICENSE_FILE information if it does not already     # exist in the torVars file    if {$modifiedLicenseVar == 0} {         if {$fileType == "sh"} {             puts $tmpFileID "if \[ \"\$LM_LICENSE_FILE\" = \"\" \] ; then"             puts $tmpFileID "    LM_LICENSE_FILE=$lmLicEnvVar"             puts $tmpFileID "else"             puts $tmpFileID "    LM_LICENSE_FILE=$lmLicEnvVar:\$LM_LICENSE_FILE"             puts $tmpFileID "fi"             puts $tmpFileID "export LM_LICENSE_FILE"         } elseif {$fileType == "csh"} {             puts $tmpFileID "if (\$?LM_LICENSE_FILE) then"             puts $tmpFileID "    setenv LM_LICENSE_FILE $lmLicEnvVar:\$\{LM_LICENSE_FILE\}"             puts $tmpFileID "else"             puts $tmpFileID "    setenv LM_LICENSE_FILE $lmLicEnvVar"             puts $tmpFileID "endif"        }    }    close $fileID    close $tmpFileID    return 1}############################################################################### updateTorVarsFiles - updates torVars files with LM_LICENSE_FILE## This is the main procedure to update torVars.sh and torVars.csh files# with LM_LICENSE_FILE information.## SYNOPSIS# updateTorVarsFiles## PARAMETERS: N/A## RETURNS: N/A## ERRORS: N/A#proc updateTorVarsFiles {} {    global modifiedLicenseVar    set binDir [destDirGet]/host/[windHostTypeGet]/bin    set torVarsShFile $binDir/torVars.sh    set torVarsShTmpFile [tempDirGet]/torVars.sh    set torVarsCshFile $binDir/torVars.csh    set torVarsCshTmpFile [tempDirGet]/torVars.csh    set modifiedLicenseVar 0    if {[processTorVarsFile $torVarsShFile $torVarsShTmpFile "sh"] == 0} {        return    }    set modifiedLicenseVar 0    if {[processTorVarsFile $torVarsCshFile $torVarsCshTmpFile "csh"] == 0} {        return    }    if [catch {file copy -force $torVarsShTmpFile $torVarsShFile}] {        dbgputs "updateTorVarsFiles: could not overwrite $torVarsShFile"    }    if [catch {file copy -force $torVarsCshTmpFile $torVarsCshFile}] {        dbgputs "updateTorVarsFiles: could not overwrite $torVarsCshFile"    }    if [catch {file delete -force $torVarsShTmpFile}] {        dbgputs "updateTorVarsFiles: could not delete $torVarsShTmpFile"    }    if [catch {file delete -force $torVarsCshTmpFile}] {        dbgputs "updateTorVarsFiles: could not delete $torVarsCshTmpFile"    }}############################################################################### pageCreate(finish) - finish page for full installation with end user LM#                      or nodelocked LM configuration## This procedure will create a finsh page for full installation with # end user LM or nodelocked LM configuration (in lmOptions page).## SYNOPSIS# .tS# pageCreate(finish)# .tE## PARAMETERS: N/A## RETURNS: N/A## ERRORS: N/A#proc pageCreate(finish) {} {    global ctrlVals setupVals env lmVals    global lmLicEnvVar lmLicEnvVarInfo    windBaseReadFromRegistry    set outFileName "[destDirGet]/lmEnvVar.txt"    if { [isGUImode] } {        set ctrlVals(volatileFrm) [list \            [list label -name finishText \                  -title [strTableGet FINISH_MSG1] \                  -x 100 -y 10 -w 200 -h 15] ]    } else { # TEXT mode        printPageTitle [strTableGet FINISH_TITLE]        puts [strTableGet FINISH_MSG1]    }    set lmLicEnvVar ""    if { $setupVals(lmInstType) == "endUser" } {        if {$setupVals(lmManual) == 0} {