home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / scoadmin / root.3 / etc / mail / admin / domain / domain~
Text File  |  1998-08-19  |  78KB  |  2,514 lines
  1. #!/bin/osavtcl
  2. #******************************************************************************
  3. #
  4. #    Copyright (C) 1993-1997 The Santa Cruz Operation, Inc.
  5. #        All Rights Reserved.
  6. #
  7. #    The information in this file is provided for the exclusive use of
  8. #    the licensees of The Santa Cruz Operation, Inc.  Such users have the
  9. #    right to use, modify, and incorporate this code into other products
  10. #    for purposes authorized by the license agreement provided they include
  11. #    this notice and the associated copyright notice with any such product.
  12. #    The information in this file is provided "AS IS" without warranty.
  13. #
  14. #===============================================================================
  15. loadlibindex /usr/lib/sysadm.tlib
  16. proc SCO_MAIL_ADMIN_DOMAIN_MSGS {} {}
  17. global SCO_MAIL_ADMIN_DOMAIN_MSGS
  18. set SCO_MAIL_ADMIN_DOMAIN_MSGS(@catalog@) {domain.cat@mail 1}
  19. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_HELPBOOK) {1 domain}
  20. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_TITLE) {2 {Domain Table File %1$s}}
  21. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ITEMS) {3 Entries}
  22. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_FILE_DOESNT_EXIST) {4 {File does not exist}}
  23. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OK) {5 OK}
  24. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_CANCEL) {6 Cancel}
  25. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_HELP) {7 Help}
  26. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_COLUMN_PARTIAL_LBL) {8 *}
  27. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_COLUMN_PARTIAL_LBL_CHARM) {9 x}
  28. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_COLUMN_PARTIAL_NONE) {10 { }}
  29. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_COLUMN_HOST_LBL) {11 Host}
  30. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_COLUMN_ROUTE_LBL) {12 {Route Via}}
  31. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OBJECT) {13 Entry}
  32. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OBJECT_MN) {14 E}
  33. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_ADD_LBL) {15 Add...}
  34. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_ADD_MN) {16 A}
  35. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_ADD_SH) {17 {Add a domain table entry...}}
  36. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_DELETE_LBL) {18 Delete}
  37. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_DELETE_MN) {19 D}
  38. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_DELETE_SH) {20 {Delete a domain table entry}}
  39. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_MODIFY_LBL) {21 Modify...}
  40. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_MODIFY_MN) {22 M}
  41. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_MODIFY_SH) {23 {Modify a domain table entry...}}
  42. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_UP_LBL) {24 {Move Up}}
  43. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_UP_MN) {25 U}
  44. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_UP_SH) {26 {Move a domain table entry up in order}}
  45. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_DOWN_LBL) {27 {Move Down}}
  46. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_DOWN_MN) {28 o}
  47. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_DOWN_SH) {29 {Move a domain table entry down in order}}
  48. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_SAVE_LBL) {30 Save}
  49. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_SAVE_MN) {31 S}
  50. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_SAVE_SH) {32 {Save any changes}}
  51. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_EXIT_LBL) {33 Exit}
  52. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_EXIT_MN) {34 x}
  53. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ENTRY_MENU_EXIT_SH) {35 {Exit %s}}
  54. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OPTIONS_MENU) {36 Options}
  55. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OPTIONS_MN) {37 O}
  56. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OPTIONS_TOOLBAR) {38 Toolbar}
  57. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_OPTIONS_TOOLBAR_SH) {39 {Show/hide Toolbar}}
  58. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ADD_TITLE) {40 {Add Domain Table Entry}}
  59. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_MODIFY_TITLE) {41 {Modify Domain Table Entry}}
  60. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_NAME_LBL) {42 Name}
  61. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_NAME_SH) {43 {Enter the host name to be matched for this entry}}
  62. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_NAME_MISSING) {44 {No host name specified for \"Name\" field}}
  63. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_REAL_NAME_LBL) {45 {Real Name}}
  64. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_REAL_NAME_SH) {46 {Enter the real host name mail will be sent to}}
  65. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_REAL_NAME_MISSING) {47 {No host name specified for \"Real Name\" field}}
  66. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_NAME_SPACE) {48 {A host name may not contain a space}}
  67. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_NAME_DUPLICATE) {49 {An entry for host name \"%1$s\" already exists}}
  68. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_NUMERIC) {50 {Subdomain lookups are not allowed on numeric addresses}}
  69. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_LIST_LBL) {51 {Route to host:}}
  70. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_ENTER_NAME) {52 {You did not enter a host name}}
  71. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_ADD_BTN_LBL) {53 {  Add...  }}
  72. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_ADD_BTN_SH) {54 {Add a host to the route}}
  73. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_DELETE_BTN_LBL) {55 {  Delete  }}
  74. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_DELETE_BTN_SH) {56 {Delete a host from the route}}
  75. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_UP_BTN_SH) {57 {Move this host name up in the route}}
  76. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_DOWN_BTN_SH) {58 {Move this host name down in the route}}
  77. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_DO_PARTIAL_LBL) {59 {Do subdomain lookups}}
  78. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_DO_PARTIAL_SH) {60 {Allow subdomain lookups on the host name}}
  79. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_ADD_DLG_TITLE) {61 {Add To Route}}
  80. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_ADD_DLG_TEXT_LBL) {62 {Enter host name(s):}}
  81. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_ROUTE_ADD_DLG_BTN_LBL) {63 Select...}
  82. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SAVE_CONFIRM_TITLE) {64 {Save Changes?}}
  83. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SAVE_CONFIRM_QUERY) {65 {Do you wish to save the changes made?}}
  84. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SAVE_CONFIRM_BTN_YES) {66 Yes}
  85. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SAVE_CONFIRM_BTN_NO) {67 No}
  86. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SAVE_CONFIRM_BTN_CANCEL) {68 Cancel}
  87. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_TB_ADD) {69 Add...}
  88. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_TB_DELETE) {70 Delete}
  89. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_TB_MODIFY) {71 Modify...}
  90. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_DL_ARROW_PX) {72 /etc/mail/admin/px/arrow.px}
  91. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_DL_CHECK_PX) {73 /etc/mail/admin/px/check.px}
  92. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_BTN_UP_PX) {74 /etc/mail/admin/px/prev.px}
  93. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_BTN_DOWN_PX) {75 /etc/mail/admin/px/next.px}
  94. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SELECTED) {76 Selected}
  95. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_COUNT_LABEL_STR) {77 {%1$s %2$s, %3$s %4$s}}
  96. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_PARTIAL_LABEL_STR) {78 {*  = entry allows subdomain lookups on the host name}}
  97. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_PARTIAL_LABEL_STR_CHARM) {79 {x  = entry allows subdomain lookups on the host name}}
  98. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_INIT) {80 Initializing...}
  99. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_REFRESH) {81 {Loading domain table data...}}
  100. set SCO_MAIL_ADMIN_DOMAIN_MSGS(MSG_SAVE) {82 {Saving domain table data...}}
  101. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_USAGE) {83 {Usage: %1$s -f filename [-h hostname]}}
  102. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_DIRECTORY) {84 {\"%1$s\" is a directory, not a file}}
  103. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_DATABASE) {85 {Unable to create domain table database\n\"%1$s\"}}
  104. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_WRITE) {86 {Unable to write domain table file\n\"%1$s\"}}
  105. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_LOAD) {87 {Unable to load domain table file\n\"%1$s\"}}
  106. set SCO_MAIL_ADMIN_DOMAIN_MSGS(ERR_NONSTDCMD) {88 %s}
  107. set appvals(intlpre) SCO_MAIL_ADMIN_DOMAIN        ;# i10n msg prefix
  108. proc IntlMsg {id {argList {}}} {
  109.     global appvals
  110.     return [IntlLocalizeMsg $appvals(intlpre)_MSG_$id $argList]
  111. }
  112. proc IntlErr {id {argList {}}} {
  113.     global appvals
  114.     return [IntlLocalizeMsg $appvals(intlpre)_ERR_$id $argList]
  115. }
  116. proc IntlErrId {id} {
  117.     global appvals
  118.     return $appvals(intlpre)_ERR_$id
  119. }
  120. proc ConfigFile:Open {} {
  121.     global Config_next
  122.     if {![info exists Config_next]} {
  123.     set Config_next 0
  124.     }
  125.     set file "config$Config_next"
  126.     incr Config_next
  127.     upvar #0 Config_${file}_next file_next
  128.     set file_next "1.0"
  129.     return $file
  130. }
  131. proc ConfigFile:Close {file} {
  132.     upvar #0 Config_$file fileList
  133.     upvar #0 Config_${file}_next file_next
  134.     unset file_next
  135.     foreach line [ConfigFile:GetList $file] {
  136.     unset fileList($line)
  137.     }
  138. }
  139. proc ConfigFile:Compare {line1 line2} {
  140.     set subLine1 [ctoken line1 "."]
  141.     set subLine2 [ctoken line2 "."]
  142.     if {$subLine1 == "" && $subLine2 == ""} {
  143.     return 0
  144.     } elseif {$subLine1 == ""} {
  145.     return -1
  146.     }  elseif {$subLine2 == ""} {
  147.     return 1
  148.     } elseif {$subLine1 < $subLine2} {
  149.     return -1
  150.     } elseif {$subLine1 > $subLine2} {
  151.     return 1
  152.     } else {
  153.     set line1 [string trimleft $line1 "."]
  154.     set line2 [string trimleft $line2 "."]
  155.     return [ConfigFile:Compare $line1 $line2]
  156.     }
  157. }
  158. proc ConfigFile:ReplaceLine {file line type id dataVar} {
  159.     upvar #0 Config_$file fileList
  160.     upvar #0 Config_${file}_next file_next
  161.     upvar $dataVar data
  162.     keylset fileList($line) type $type
  163.     keylset fileList($line) data $data
  164.     keylset fileList($line) id $id
  165.     if {[ConfigFile:Compare $line $file_next] == 1} {
  166.     set temp $line
  167.     set file_next [ctoken temp "."]
  168.     incr file_next
  169.     set file_next "${file_next}.0"
  170.     }
  171. }
  172. proc ConfigFile:AppendLine {file line type id dataVar} {
  173.     upvar #0 Config_$file fileList
  174.     upvar #0 Config_${file}_next file_next
  175.     upvar $dataVar data
  176.     if {$line == -1} {
  177.     set line $file_next
  178.     set temp [ctoken file_next "."]
  179.     incr temp
  180.     set file_next "${temp}.0"
  181.     } else {
  182.     set found 0
  183.     set left [ctoken line "."]
  184.     set right [ctoken line "."]
  185.     if {$right == "0"} {
  186.         set tryNext $left
  187.         incr tryNext
  188.         set tryNext "${tryNext}.0"
  189.         if {![info exists fileList($tryNext)]} { 
  190.         set found 1
  191.         }
  192.     }
  193.     if {!$found} {
  194.         set lastDigit [cindex $right end]
  195.         if {$lastDigit < 9} {
  196.             incr lastDigit
  197.             set tryNext "${left}.[csubstr $right 0 end]${lastDigit}"
  198.             if {![info exists fileList($tryNext)]} {
  199.             set found 1
  200.             }    
  201.         }
  202.     }
  203.     if {!$found} {
  204.         set leadingZeros ""
  205.         set tryNext "${left}.${right}.1"
  206.         while {[info exists fileList($tryNext)]} {
  207.         set leadingZeros "${leadingZeros}.0"
  208.         set tryNext "${left}.${right}${leadingZeros}.1"
  209.         }
  210.     }
  211.     set line $tryNext
  212.     }
  213.     keylset fileList($line) type $type
  214.     keylset fileList($line) id $id
  215.     keylset fileList($line) data $data
  216.     if {[string compare $line $file_next] == 1} {
  217.     set temp $line
  218.     set file_next [ctoken temp "."]
  219.     incr file_next
  220.     set file_next "${file_next}.0"
  221.     }
  222.     return $line
  223. }
  224. proc ConfigFile:GetLine {file line typeVar idVar dataVar} {
  225.     upvar #0 Config_$file fileList
  226.     upvar $typeVar type
  227.     upvar $idVar id
  228.     upvar $dataVar data
  229.     if {![info exists fileList($line)]} {
  230.     set type {}
  231.     set id {}
  232.     set data {}
  233.     return -1
  234.     }
  235.     keylget fileList($line) type type
  236.     keylget fileList($line) id id
  237.     keylget fileList($line) data data
  238.     return 0
  239. }
  240. proc ConfigFile:RemoveLine {file line} {
  241.     upvar #0 Config_$file fileList
  242.     if {![info exists fileList($line)]} {
  243.     # already gone
  244.     return
  245.     }
  246.     unset fileList($line)
  247. }
  248. proc ConfigFile:GetList {file} {
  249.     upvar #0 Config_$file fileList
  250.     if {![info exists fileList]} {
  251.     return {}
  252.     }
  253.     return [lsort -command ConfigFile:Compare [array names fileList]]
  254. }
  255. proc Table:ProcessLine {fileID type id data} {
  256.     global Table_lastType Table_lastID
  257.     set lineNum [ConfigFile:AppendLine $fileID -1 $type $id data]
  258.     if {[Table:GetOption $fileID makelower] != {}} {
  259.     set id [string tolower $id]
  260.     }
  261.     case $type {
  262.     CONTINUATION {
  263.         set type $Table_lastType
  264.         set id $Table_lastID
  265.     }
  266.     COMMENT {
  267.     }
  268.     default {
  269.         set Table_lastType $type
  270.         set Table_lastID $id
  271.     }
  272.     }
  273.     if {$id != {}} {
  274.     upvar #0 Table_${fileID}_$type typeList
  275.     lappend typeList($id) $lineNum
  276.     }
  277. }
  278. proc Table:Read {fileName callBack mode} {
  279.     global Table_info
  280.     if {[info exists Table_info($fileName.ID)]} {
  281.     return $Table_info($fileName.ID)
  282.     }
  283.     set fileID [ConfigFile:Open]
  284.     set Table_info($fileID.mode) $mode
  285.     if {![file exists $fileName]} {
  286.     return $fileID
  287.     }
  288.     set fp [open $fileName r]
  289.     set Table_info($fileName.ID) $fileID
  290.     set Table_info($fileID.fileName) $fileName
  291.     eval $callBack $fileID $fp
  292.     close $fp
  293.     return $fileID
  294. }
  295. proc Table:Write {fileID {fileName {}} {callBack {}}} {
  296.     global Table_info
  297.     if {[info exists Table_info($fileID.deferred)]} {
  298.     return
  299.     }
  300.     if {![info exists Table_info($fileID.modified)] && $fileName == {}} {
  301.     return
  302.     }
  303.     if {$callBack == {}} {
  304.     set callBack $Table_info($fileID.writeCB)
  305.     }
  306.     if {$fileName == {}} {
  307.     set fileName $Table_info($fileID.fileName)
  308.     set clearModified 1
  309.     } else {
  310.     set clearModified 0
  311.     }
  312.     #
  313.     # If the file exists, make sure the new file has the
  314.     # same owner and perms.  Otherwise, make sure the
  315.     # parent directory exists.
  316.     #
  317.     if {[file exists $fileName]} {
  318.     file stat $fileName info
  319.     set Table_info($fileID.uid) $info(uid)
  320.     set Table_info($fileID.gid) $info(gid)
  321.     set Table_info($fileID.mode) $info(mode)
  322.     } else {
  323.     set directory [file dirname $fileName]
  324.     set oldUmask [umask]
  325.     umask 0222
  326.     if {![file isdirectory $directory]} {
  327.         mkdir -path $directory
  328.     }
  329.     umask $oldUmask
  330.     }
  331.     set fp [open ${fileName}.new w]
  332.     chmod $Table_info($fileID.mode) ${fileName}.new
  333.     if {[info exists Table_info($fileID.uid)]} {
  334.     chown [list $Table_info($fileID.uid) $Table_info($fileID.gid)] \
  335.         ${fileName}.new
  336.     }
  337.     foreach line [ConfigFile:GetList $fileID] {
  338.     if {[ConfigFile:GetLine $fileID $line type id data] != 0} {
  339.         continue
  340.     }
  341.     eval "$callBack $fileID $fp {$type} {$id} {$data}"
  342.     }
  343.     close $fp
  344.     if {[file exists $fileName]} {
  345.     unlink $fileName
  346.     }
  347.     frename ${fileName}.new $fileName
  348.     if {$clearModified} {
  349.     unset Table_info($fileID.modified)
  350.     }
  351. }
  352. proc Table:Open {fileName readCB writeCB {mode 0666}} {
  353.     global Table_info
  354.     set fileID [Table:Read $fileName $readCB $mode]
  355.     set Table_info($fileID.fileName) $fileName
  356.     set Table_info($fileID.readCB) $readCB
  357.     set Table_info($fileID.writeCB) $writeCB
  358.     set Table_info($fileName.ID) $fileID
  359.     return $fileID
  360. }
  361. proc Table:Close {fileID {fileName {}}} {
  362.     global Table_info
  363.     if {![info exists Table_info($fileID.fileName)]} {
  364.     return
  365.     }
  366.     if {[info exists Table_info($fileID.deferred)]} {
  367.     unset Table_info($fileID.deferred)
  368.     }
  369.     Table:Write $fileID $fileName $Table_info($fileID.writeCB)
  370.     if {$fileName == {}} {
  371.     set fileName $Table_info($fileID.fileName)
  372.     }
  373.     unset Table_info($fileID.fileName)
  374.     unset Table_info($fileName.ID)
  375.     ConfigFile:Close $fileID
  376. }
  377. proc Table:CloseNoWrite {fileID {fileName {}}} {
  378.     global Table_info
  379.     if {![info exists Table_info($fileID.fileName)]} {
  380.     return
  381.     }
  382.     if {[info exists Table_info($fileID.deferred)]} {
  383.     unset Table_info($fileID.deferred)
  384.     }
  385.     if {$fileName == {}} {
  386.     set fileName $Table_info($fileID.fileName)
  387.     }
  388.     unset Table_info($fileID.fileName)
  389.     unset Table_info($fileName.ID)
  390.     ConfigFile:Close $fileID
  391. }
  392. proc Table:DeferWrites {fileID} {
  393.     global Table_info
  394.     set Table_info($fileID.deferred) 1
  395. }
  396. proc Table:ForceWrites {fileID} {
  397.     global Table_info
  398.     if {[info exists Table_info($fileID.deferred)]} {
  399.     unset Table_info($fileID.deferred)
  400.     }
  401.     set Table_info($fileID.modified) 1
  402. } 
  403. proc Table:SetOption {fileID option {value 1}} {
  404.     global Table_options
  405.     set Table_options($fileID.$option) $value
  406. }
  407. proc Table:HasOption {fileID option} {
  408.     return [info exists Table_options($fileID.$option)]
  409. }
  410. proc Table:GetOption {fileID option} {
  411.     global Table_options
  412.     if {![info exists Table_options($fileID.$option)]} {
  413.     return {}
  414.     }
  415.     return $Table_options($fileID.$option)
  416. }
  417. proc Table:Modified {fileID} {
  418.     global Table_info
  419.     if {[info exists Table_info($fileID.modified)]} {
  420.     return $Table_info($fileID.modified)
  421.     } else {
  422.     return 0
  423.     }
  424. }
  425. proc Table:GetLineList {fileID type {idList {}}} {
  426.     upvar #0 Table_${fileID}_$type typeList
  427.     if {![info exists typeList]} {
  428.     return {}
  429.     }
  430.     if {$idList == {}} {
  431.     set idList [array names typeList]
  432.     }
  433.     set lineList {}
  434.     foreach id $idList {
  435.     if {[info exists typeList($id)]} {
  436.         append lineList " $typeList($id)"
  437.     }
  438.     }
  439.     return [lsort -command ConfigFile:Compare $lineList]
  440. }
  441. proc Table:Get {fileID type id {separator {}}} {
  442.     upvar #0 Table_${fileID}_$type typeList
  443.     if {[Table:GetOption $fileID makelower] != {}} {
  444.     set id [string tolower $id]
  445.     }
  446.     set value {}
  447.     if {![info exists typeList($id)]} {
  448.     return $value
  449.     }
  450.     set numLines [llength [Table:GetLineList $fileID $type $id]]
  451.     set thisLine 1
  452.     foreach line $typeList($id) {
  453.     ConfigFile:GetLine $fileID $line dummy dummy data
  454.     if {$thisLine == $numLines} {
  455.         append value "$data"
  456.     } else {
  457.         set data [string trim $data "$separator"]
  458.         append value "$data$separator"
  459.     }
  460.     incr thisLine
  461.     }
  462.     set value [string trimleft $value $separator]
  463.     return $value
  464. }
  465. proc Table:Set {fileID type id data} {
  466.     upvar #0 Table_${fileID}_${type} typeList
  467.     global Table_info
  468.     global Table_lastType Table_lastID
  469.     set name $id
  470.     if {[Table:GetOption $fileID makelower] != {}} {
  471.     set id [string tolower $id]
  472.     }
  473.     if {[info exists typeList($id)]} {
  474.     foreach line $typeList($id) {
  475.         ConfigFile:RemoveLine $fileID $line
  476.     }
  477.     set line [lindex $typeList($id) 0]
  478.     unset typeList($id)
  479.     } else {
  480.     if {[set lineList [Table:GetLineList $fileID $type]] != {}} {
  481.         set line [lindex $lineList end]
  482.     } else {
  483.         if {[Table:GetOption $fileID newFirst] == 1} {
  484.         set line 0
  485.         } else {
  486.         set line -1
  487.         }
  488.     }
  489.     }
  490.     lappend typeList($id) [ConfigFile:AppendLine $fileID $line \
  491.     $type $name data]
  492.     set Table_lastType $type
  493.     set Table_lastID $id
  494.     set Table_info($fileID.modified) 1
  495. }
  496. proc Table:Unset {fileID type id} {
  497.     upvar #0 Table_${fileID}_$type typeList
  498.     global Table_info
  499.     if {[Table:GetOption $fileID makelower] != {}} {
  500.     set id [string tolower $id]
  501.     }
  502.     if {![info exists typeList($id)]} {
  503.     return
  504.     }
  505.     foreach line $typeList($id) {
  506.     ConfigFile:RemoveLine $fileID $line
  507.     }
  508.     unset typeList($id)
  509.     set Table_info($fileID.modified) 1
  510. }
  511. proc Table:AppendLine {fileID type id value {line {}}} {
  512.     global Table_lastType Table_lastID
  513.     global Table_info
  514.     if {$type == "CONTINUATION"} {
  515.     upvar #0 Table_${fileID}_$Table_lastType typeList
  516.     } else {
  517.     upvar #0 Table_${fileID}_$type typeList
  518.     }
  519.     if {[Table:GetOption $fileID makelower] != {}} {
  520.     set id [string tolower $id]
  521.     }
  522.     if {$line == ""} {
  523.     if {[info exists typeList($id)]} {
  524.         set line [lindex $typeList($id) end]
  525.     } else {
  526.         if {[set lineList [Table:GetLineList $fileID $type]] == {}} {
  527.         set line [lindex $lineList end]
  528.         } else {
  529.         if {[Table:GetOption $fileID newFirst] == 1} {
  530.             set line 0
  531.         } else {
  532.             set line -1
  533.         }
  534.         }
  535.     }
  536.     }
  537.     if {$type == "CONTINUATION"} {
  538.     lappend typeList($id) \
  539.         [ConfigFile:AppendLine $fileID $line $type {} value]
  540.     } else {
  541.     lappend typeList($id) \
  542.         [ConfigFile:AppendLine $fileID $line $type $id value]
  543.     }
  544.     set Table_info($fileID.modified) 1
  545. }
  546. proc Table:RemoveLine {fileID type id deleteLine} {
  547.     upvar #0 Table_${fileID}_$type typeList
  548.     global Table_info
  549.     if {[Table:GetOption $fileID makelower] != {}} {
  550.     set id [string tolower $id]
  551.     }
  552.     if {![info exists typeList($id)]} {
  553.     return
  554.     }
  555.     set index 0
  556.     foreach line $typeList($id) {
  557.     if {$line == $deleteLine} {
  558.         lvarpop typeList($id) $index
  559.         ConfigFile:RemoveLine $fileID $line
  560.         break
  561.     }
  562.     incr index
  563.     }
  564.     set Table_info($fileID.modified) 1
  565. }
  566. proc Table:ReplaceLine {fileID type replaceLine id data} {
  567.     global Table_info
  568.     upvar #0 Table_${fileID}_$type typeList
  569.     if {[ConfigFile:GetLine $fileID $replaceLine oldType oldId oldData] == 0} {
  570.     if {$oldId != ""} {
  571.             upvar #0 Table_${fileID}_$oldType oldTypeList
  572.         set index [lsearch -exact $oldTypeList($oldId) $replaceLine]
  573.         if {$index != -1} {
  574.         lvarpop oldTypeList($oldId) $index
  575.         if {[lempty $oldTypeList($oldId)]} {
  576.             unset oldTypeList($oldId)
  577.         }
  578.         }
  579.     }
  580.     }
  581.     ConfigFile:ReplaceLine $fileID $replaceLine $type $id data
  582.     if {$id != ""} {
  583.     if {![info exists typeList($id)]} {
  584.         set typeList($id) {}
  585.     }
  586.     lappend typeList($id) $replaceLine
  587.     }
  588.     set Table_info($fileID.modified) 1
  589. }
  590. proc Table:List {fileID type {ordered 0}} {
  591.     upvar #0 Table_${fileID}_$type typeList
  592.     if {![info exists typeList]} {
  593.     return {}
  594.     }
  595.     if {[Table:GetOption $fileID makelower] == {} && $ordered == 0} {
  596.     return [array names typeList]
  597.     }
  598.     #
  599.     # We have to go get the original ids from before they were converted 
  600.     # to lower case, or they want the ids in the order they appear anyway.
  601.     #
  602.     set returnList {}
  603.     foreach line [Table:GetLineList $fileID $type] {
  604.     ConfigFile:GetLine $fileID $line dummy id dummy
  605.     append returnList " $id"
  606.     }
  607.     return [string trimleft $returnList]
  608. }
  609. proc Map:ReadCB {fileID fp} {
  610.     set context [scancontext create]
  611.     scanmatch $context {^([^#][^     ]*)([     ].*)} {
  612.     Table:ProcessLine $fileID entry $matchInfo(submatch0) \
  613.         $matchInfo(submatch1)
  614.     }
  615.     scanmatch $context {
  616.     Table:ProcessLine $fileID COMMENT {} $matchInfo(line)
  617.     }
  618.     scanfile $context $fp
  619.     scancontext delete $context
  620. }
  621. proc Map:WriteCB {fileID fp type id data} {
  622.     case $type {
  623.     entry {
  624.         puts $fp "${id}${data}"
  625.     }
  626.     COMMENT {
  627.         puts $fp $data
  628.     }
  629.     }
  630. }
  631. proc Map:Open {fileName {mode 0644}} {
  632.     return [Table:Open $fileName Map:ReadCB Map:WriteCB $mode]
  633. }
  634. proc Map:Write {fileID {fileName {}}} {
  635.     return [Table:Write $fileID $fileName]
  636. }
  637. proc Map:ForceWrites {fileID} {
  638.     return [Table:ForceWrites $fileID]
  639. }
  640. proc Map:Get {fileID id} {
  641.     return [string trimleft [Table:Get $fileID entry $id]]
  642. }
  643. proc Map:Set {fileID id data} {
  644.     if {![string match {[     ]*} $data]} {
  645.     set data "    $data"
  646.     }
  647.     return [Table:Set $fileID entry $id $data]
  648. }
  649. proc Map:Unset {fileID id} {
  650.     return [Table:Unset $fileID entry $id]
  651. }
  652. proc Map:List {fileID} {
  653.     set lineOrdered 1
  654.     return [Table:List $fileID entry $lineOrdered]
  655. }
  656. proc Map:Insert {fileID id data idBefore} {
  657.     if {![string match {[     ]*} $data]} {
  658.     set data "    $data"
  659.     }
  660.     # there should really not be duplicate entry ids (keys),
  661.     # but in case a duplicate was hand edited in, we pick the first one
  662.     # as it is the only one that counts in the map file
  663.     set lineBefore [lindex [Table:GetLineList $fileID entry $idBefore] 0]
  664.     # put the new entry after $idBefore
  665.     Table:AppendLine $fileID entry $id $data $lineBefore 
  666. }
  667. proc Map:Modified {fileID} {
  668.     return [Table:Modified $fileID]
  669. }
  670. set appvals(vtApp)    {}        ;# VtOpen return; generally not used 
  671. set appvals(vtMain)    {}        ;# widget string of main dialog
  672. set appvals(toolbar)         1        ;# toolbar
  673. set appvals(toolbarcust)     0        ;# customizable toolbar
  674. set appvals(fieldAdjustment)    0.90        ;# adjustment for string lengths
  675.                          # for drawn list in graphical
  676. proc UiDefaultFormSpacingSet {form} {
  677.     VtSetValues $form \
  678.         -horizontalSpacing 0 \
  679.         -verticalSpacing 0 \
  680.         -marginWidth 0 \
  681.         -marginHeight 0 
  682. }
  683. proc UiDisplayErrorStackCB {callback cbs} {
  684.     global appvals
  685.     set dialog [keylget cbs dialog]
  686.     VtDestroyDialog $dialog
  687.     SaStatusBarClear [VxGetVar $appvals(vtMain) statusBar]
  688.     if {![lempty $callback]} {
  689.         eval $callback [list $cbs]
  690.     }
  691. }
  692. proc UiDisplayErrorStacks {caller stack {callback ""}} {
  693.     global appvals
  694.     SaDisplayErrorStacks $appvals(vtMain).$caller [list $stack] HELP \
  695.         [list UiDisplayErrorStackCB $callback]
  696. }
  697. proc UiSetAppFocus {} {
  698.     global appvals
  699.     VtSetFocus [VxGetVar $appvals(vtMain) menuBar] 
  700.     if {![lempty [UiMainListGetItems]]} {
  701.         VtSetFocus [VxGetVar $appvals(vtMain) mainList]
  702.     }
  703. }
  704. proc AdjustFieldLength {charLength} {
  705.     global appvals
  706.     set fieldLength [expr $charLength * $appvals(fieldAdjustment)]
  707.     return $fieldLength
  708. }
  709. proc UiMainListSetItems {items} {
  710.     global appvals
  711.     set mainList [VxGetVar $appvals(vtMain) mainList]
  712.     VtDrawnListDeleteItem $mainList -all
  713.     set maxLength [VxGetVar $mainList maxLength]
  714.     DomainSetMainListLabel $maxLength
  715.     set isCharm [VtInfo -charm]
  716.     set CHARM_formatList [list  \
  717.         [list STRING 1 1 1] \
  718.         [list STRING $maxLength 1 1]]
  719.     set MOTIF_formatList [list  \
  720.         [list STRING 1 10 10] \
  721.         [list STRING [AdjustFieldLength $maxLength] 0 10]]
  722.     foreach entry $items {
  723.         keylget entry partial partial
  724.         keylget entry hostName hostName
  725.         keylget entry realName realName
  726.         keylget entry route route
  727.         # set up the first two columns in this list item--
  728.         # these are always there: 
  729.         #    indicator of partial domain matching
  730.         #    hostname (key of domain table entry)
  731.         if {$partial == "TRUE"} {
  732.             if {$isCharm} {
  733.                 set partial [IntlMsg COLUMN_PARTIAL_LBL_CHARM]
  734.             } else {
  735.                 set partial [IntlMsg COLUMN_PARTIAL_LBL]
  736.             }
  737.         } else {
  738.             set partial [IntlMsg COLUMN_PARTIAL_NONE]
  739.         }
  740.         set fieldList [list $partial $hostName]
  741.         if {$isCharm} {
  742.             set formatList $CHARM_formatList
  743.         } else {
  744.             set formatList $MOTIF_formatList
  745.         }
  746.         # for each hop in the route (except final),
  747.         # add the string, then the arrow icon
  748.         set routeString ""
  749.         foreach hop $route {
  750.             append routeString "$hop > "
  751.         }
  752.         # add on the final hop in route
  753.         append routeString "$realName"
  754.         lappend fieldList $routeString
  755.         lappend formatList [list \
  756.                 STRING \
  757.                 [AdjustFieldLength [clength $routeString]]]
  758.         lappend formatList [list DATA]
  759.         lappend fieldList $entry
  760.         VtDrawnListAddItem $mainList \
  761.             -formatList $formatList \
  762.             -fieldList $fieldList
  763.     }
  764. }
  765. proc UiMainListGetItems {} {
  766.     global appvals
  767.     return [VtDrawnListGetItem [VxGetVar $appvals(vtMain) mainList] -all]
  768. }
  769. proc UiMainListCB {cbs} {
  770.     global appvals
  771.     # update selected label and widget sensitivity
  772.     UiUpdateCountLabel
  773.     UiSensitizeMainFunctions
  774. }
  775. proc UiMainListDoubleCB {cbs} {
  776.     UiModifyEntryCB $cbs
  777.     VtUnLock
  778. }
  779. proc UiBuildMainList {form top} {
  780.     global appvals 
  781.     # Build basic main form drawnlist widget including:
  782.     # o Manually built title label for CHARM
  783.     # o Drawnlist record format
  784.     # o traditional Count label beneath the drawn list
  785.     set labelFont medNormalFont
  786.     set mainList [DomainBuildMainList $form $top]
  787.     VxSetVar $form mainList $mainList
  788.     set labelForm [VtForm $form.labelForm \
  789.         -topSide NONE \
  790.         -leftSide FORM \
  791.         -rightSide FORM \
  792.         -bottomSide FORM]
  793.         # Define the partial lookup info label
  794.     if {[VtInfo -charm]} {
  795.         set label [IntlMsg PARTIAL_LABEL_STR_CHARM] 
  796.     } else {
  797.         set label [IntlMsg PARTIAL_LABEL_STR] 
  798.     }
  799.     set partialLabel [VtLabel $labelForm.partialLabel \
  800.         -label $label \
  801.         -font smallNormalFont \
  802.         -topSide FORM \
  803.         -topOffset 0 \
  804.         -leftSide FORM \
  805.         -MOTIF_leftOffset 5 -CHARM_leftOffset 0 \
  806.         -rightSide NONE \
  807.         -bottomSide FORM \
  808.         -labelLeft]
  809.     VxSetVar $form partialLabel $partialLabel
  810.     # Define the accompanying count label
  811.     set countLabel [VtLabel $labelForm.countLabel -label " " \
  812.                 -topSide FORM \
  813.                 -leftSide $partialLabel \
  814.                 -rightSide FORM \
  815.                 -bottomSide FORM \
  816.                 -labelRight]
  817.     VxSetVar $form countLabel $countLabel
  818.     VtSetValues $mainList -bottomSide $labelForm
  819.     # Stash the localized string "Selected" here so we only grab it once
  820.     # from the message catalog
  821.     VxSetVar $countLabel selected [IntlMsg SELECTED]
  822.     # Return the bottom-most widget for further attachments
  823.     return $labelForm
  824. }
  825. proc UiUpdateCountLabel {} {
  826.     global appvals
  827.     set mainList [VxGetVar $appvals(vtMain) mainList]
  828.     set countLabel [VxGetVar $appvals(vtMain) countLabel]
  829.     set numSelected [llength \
  830.         [VtDrawnListGetSelectedItem $mainList -byRecordList]]
  831.         lappend labelArgs [llength [VtDrawnListGetItem $mainList -all]]
  832.         lappend labelArgs $appvals(itemname)
  833.         lappend labelArgs $numSelected
  834.         lappend labelArgs [VxGetVar $countLabel selected]
  835.         set labelValue [IntlMsg COUNT_LABEL_STR $labelArgs]
  836.     VtSetValues $countLabel -label $labelValue
  837. }
  838. proc UiBuildAddModifyScreen {} {
  839.     global appvals
  840.     set isCharm [VtInfo -charm]
  841.     set parent $appvals(vtMain)
  842.     set addModifyScreen [VtFormDialog $parent.addModifyScreen \
  843.         -ok -okLabel [IntlMsg OK] \
  844.         -cancel -cancelLabel [IntlMsg CANCEL] \
  845.         -help -helpLabel [IntlMsg HELP] \
  846.         -cancelButton CANCEL \
  847.         -okCallback AddModifyOkCB \
  848.         -cancelCallback AddModifyCancelCB \
  849.         -wmCloseCallback AddModifyCancelCB \
  850.         -autoLock [list AddModifyOkCB AddModifyCancelCB] \
  851.         -resizable FALSE]
  852.     VxSetVar $parent addModifyScreen $addModifyScreen
  853.     UiDefaultFormSpacingSet $addModifyScreen
  854.     SaCharmSetMaxFormDimensions $addModifyScreen 1
  855.     set nameForm [VtForm $addModifyScreen.nameForm \
  856.         -leftSide FORM -MOTIF_leftOffset 0 -CHARM_leftOffset 1 \
  857.         -rightSide FORM -MOTIF_rightOffset 0 -CHARM_rightOffset 1\
  858.         -topSide FORM -MOTIF_topOffset 10 -CHARM_topOffset 1]
  859.     set nameLabel [VtLabel $nameForm.nameLabel \
  860.         -label [IntlMsg NAME_LBL] \
  861.         -labelLeft ]
  862.     set nameText [VtText $nameForm.nameText \
  863.         -leftSide FORM -rightSide FORM \
  864.         -shortHelpCallback SaShortHelpCB \
  865.         -shortHelpString [IntlMsg NAME_SH] \
  866.         -callback {SaSetFocus next}]
  867.     VxSetVar $addModifyScreen nameText $nameText
  868.     set realNameForm [VtForm $addModifyScreen.realNameForm \
  869.         -leftSide FORM -MOTIF_leftOffset 0 -CHARM_leftOffset 1 \
  870.         -rightSide FORM -MOTIF_rightOffset 0 -CHARM_rightOffset 1\
  871.         -topSide $nameForm -MOTIF_topOffset 0 -CHARM_topOffset 1]
  872.     set realNameLabel [VtLabel $realNameForm.realNameLabel \
  873.         -label [IntlMsg REAL_NAME_LBL] \
  874.         -labelLeft ]
  875.     set realNameText [VtText $realNameForm.realNameText \
  876.         -leftSide FORM -rightSide FORM \
  877.         -shortHelpCallback SaShortHelpCB \
  878.         -shortHelpString [IntlMsg REAL_NAME_SH] \
  879.         -callback {SaSetFocus next}]
  880.     VxSetVar $addModifyScreen realNameText $realNameText
  881.     set routeForm [VtForm $addModifyScreen.routeForm \
  882.         -leftSide FORM -alignLeft $realNameForm\
  883.         -rightSide FORM \
  884.         -topSide $realNameForm \
  885.         -bottomSide NONE \
  886.         -MOTIF_topOffset 10 -CHARM_topOffset 1]
  887.     set labelList [list [IntlMsg ROUTE_LIST_LBL]]
  888.     if {$isCharm} {
  889.         set labelFormat "%s"
  890.         set label [format $labelFormat [lindex $labelList 0]]
  891.         set routeLabel [VtLabel $routeForm.routeLabel \
  892.             -labelLeft \
  893.             -leftSide FORM \
  894.             -leftOffset 0 \
  895.             -rightSide FORM \
  896.             -topSide FORM \
  897.             -bottomSide NONE \
  898.             -label $label]
  899.     }
  900.     set routeList [VtDrawnList $routeForm.routeList \
  901.         -labelFormatList {{STRING 20}} \
  902.         -labelList $labelList \
  903.         -formatList {{STRING 20}} \
  904.         -columns 25 -CHARM_columns 35 \
  905.         -rows 6 \
  906.         -topSide FORM -bottomSide NONE \
  907.         -leftSide FORM -rightSide FORM\
  908.         -horizontalScrollBar TRUE \
  909.         -selection MULTIPLE \
  910.         -callback RouteListCB]
  911.     VxSetVar $addModifyScreen routeList $routeList
  912.     if {$isCharm} {
  913.         VtSetValues $routeList -topSide $routeLabel
  914.     }
  915.     set buttonForm [VtForm $routeForm.buttonForm \
  916.         -leftSide NONE -rightSide FORM \
  917.         -MOTIF_rightOffset 0 -CHARM_rightOffset 1 \
  918.         -topSide FORM -bottomSide NONE \
  919.         -MOTIF_topOffset 15 -CHARM_topOffset 1]
  920.     VtSetValues $routeList -rightSide $buttonForm
  921.     set pbRowCol1 [VtRowColumn $buttonForm.pbForm1 \
  922.         -topSide FORM -bottomSide NONE \
  923.         -leftSide FORM -rightSide FORM \
  924.         -vertical]
  925.     set routeAddButton [VtPushButton $pbRowCol1.routeAddButton \
  926.         -label [IntlMsg ROUTE_ADD_BTN_LBL] \
  927.         -labelCenter \
  928.         -shortHelpCallback SaShortHelpCB \
  929.         -shortHelpString \
  930.             [IntlMsg ROUTE_ADD_BTN_SH] \
  931.         -callback AddToRouteCB \
  932.         -autoLock AddToRouteCB ]
  933.     VxSetVar $addModifyScreen routeAddButton $routeAddButton
  934.     set routeDeleteButton [VtPushButton $pbRowCol1.routeDeleteButton \
  935.         -label [IntlMsg ROUTE_DELETE_BTN_LBL] \
  936.         -labelCenter \
  937.         -shortHelpCallback SaShortHelpCB \
  938.         -shortHelpString \
  939.             [IntlMsg ROUTE_DELETE_BTN_SH] \
  940.         -callback DeleteFromRouteCB \
  941.         -autoLock DeleteFromRouteCB ]
  942.     VxSetVar $addModifyScreen routeDeleteButton $routeDeleteButton
  943.     set pbRowCol2 [VtRowColumn $buttonForm.pbRowCol2 \
  944.         -topSide $pbRowCol1 -topOffset 0 -bottomSide NONE \
  945.         -leftSide FORM -rightSide FORM \
  946.         -horizontal \
  947.         -MOTIF_spacing 5 -CHARM_spacing 1 \
  948.         -packing COLUMN]
  949.     set routeMoveUpButton [VtPushButton $pbRowCol2.routeMoveUpButton \
  950.         -shortHelpCallback SaShortHelpCB \
  951.         -shortHelpString \
  952.             [IntlMsg ROUTE_UP_BTN_SH] \
  953.         -callback MoveUpRouteCB \
  954.         -autoLock MoveUpRouteCB ]
  955.     if {$isCharm} {
  956.         VtSetValues $routeMoveUpButton \
  957.             -label " [IntlMsg ENTRY_MENU_UP_LBL] " \
  958.             -labelCenter
  959.     } else {
  960.         VtSetValues $routeMoveUpButton \
  961.             -pixmap [IntlMsg BTN_UP_PX]
  962.     }
  963.     VxSetVar $addModifyScreen routeMoveUpButton $routeMoveUpButton
  964.     set routeMoveDownButton [VtPushButton $pbRowCol2.routeMoveDownButton \
  965.         -shortHelpCallback SaShortHelpCB \
  966.         -shortHelpString \
  967.             [IntlMsg ROUTE_DOWN_BTN_SH] \
  968.         -callback MoveDownRouteCB \
  969.         -autoLock MoveDownRouteCB ]
  970.     if {$isCharm} {
  971.         VtSetValues $routeMoveDownButton \
  972.             -label " [IntlMsg ENTRY_MENU_DOWN_LBL] " \
  973.             -labelCenter
  974.     } else {
  975.         VtSetValues $routeMoveDownButton \
  976.             -pixmap [IntlMsg BTN_DOWN_PX]
  977.     }
  978.     VxSetVar $addModifyScreen routeMoveDownButton $routeMoveDownButton
  979.     set optionsCheckBox [VtCheckBox $routeForm.optionsCheckBox \
  980.         -topSide NONE -bottomSide FORM \
  981.         -leftSide FORM -MOTIF_leftOffset 5 -CHARM_leftOffset 0]
  982.     set doPartial [VtToggleButton $optionsCheckBox.doPartial \
  983.         -label [IntlMsg DO_PARTIAL_LBL] \
  984.         -set FALSE \
  985.         -shortHelpCallback SaShortHelpCB \
  986.         -shortHelpString [IntlMsg DO_PARTIAL_SH] \
  987.         -callback {SaSetFocus next}]
  988.     VxSetVar $addModifyScreen doPartial $doPartial
  989.     set separator [VtSeparator $addModifyScreen.separator \
  990.         -leftSide FORM -leftOffset 0 \
  991.         -rightSide FORM -rightOffset 0 \
  992.         -topSide NONE]
  993.     set statusBar [SaStatusBar $addModifyScreen.statusbar 0]
  994.     VtSetValues $separator \
  995.         -bottomSide $statusBar -bottomOffset 0
  996.     VtSetValues $routeList \
  997.         -bottomSide $optionsCheckBox
  998.     VtSetValues $routeForm \
  999.         -bottomSide $separator
  1000.     SaSetTabGroups $buttonForm [list $pbRowCol1 $pbRowCol2]
  1001.     SaSetTabGroups $addModifyScreen [list \
  1002.         $nameText \
  1003.         $realNameText \
  1004.         $routeList \
  1005.         $buttonForm \
  1006.         $doPartial]
  1007.     set okButton [VtGetValues $addModifyScreen -ok]
  1008.     SaSetFocusList $addModifyScreen [list \
  1009.         $nameText \
  1010.         $realNameText \
  1011.         $buttonForm \
  1012.         $doPartial \
  1013.         $okButton]
  1014.     return $addModifyScreen
  1015. }
  1016. proc UiBuildAddToRouteScreen {parent} {
  1017.     set addToRouteScreen [VtFormDialog $parent.addToRouteScreen \
  1018.         -title [IntlMsg ROUTE_ADD_DLG_TITLE] \
  1019.         -ok -okLabel [IntlMsg OK] \
  1020.         -okCallback AddToRouteOkCB \
  1021.         -cancel -cancelLabel [IntlMsg CANCEL] \
  1022.         -cancelCallback AddToRouteCancelCB \
  1023.         -cancelButton CANCEL \
  1024.         -wmCloseCallback AddToRouteCancelCB \
  1025.         -autoLock [list AddToRouteOkCB AddToRouteCancelCB] ]
  1026.         VxSetVar $parent addToRouteScreen $addToRouteScreen
  1027.     set hostNameForm [VtForm $addToRouteScreen.hostNameForm \
  1028.         -marginHeight 0 -marginWidth 0 \
  1029.         -rightSide FORM -leftSide FORM \
  1030.         -topSide FORM -topOffset 10 -CHARM_topOffset 1]
  1031.     set hostNameLabel [VtLabel $hostNameForm.hostNameLabel \
  1032.         -label [IntlMsg ROUTE_ADD_DLG_TEXT_LBL] \
  1033.         -labelLeft ]
  1034.     set selectHostButton [VtPushButton $hostNameForm.selectHostButton \
  1035.         -label [IntlMsg ROUTE_ADD_DLG_BTN_LBL] \
  1036.         -leftSide NONE -rightSide FORM \
  1037.         -bottomSide FORM -MOTIF_bottomOffset 20 -CHARM_bottomOffset 0 \
  1038.         -callback SelectHostCB \
  1039.         -autoLock SelectHostCB]
  1040.         VxSetVar $addToRouteScreen selectHostButton $selectHostButton
  1041.     set hostNameText [VtText $hostNameForm.hostNameText \
  1042.         -columns 30  -CHARM_columns 35 \
  1043.         -leftSide FORM -rightSide $selectHostButton \
  1044.         -alignTop $selectHostButton \
  1045.         -horizontalScrollBar TRUE \
  1046.         -callback EnterHostNameCB \
  1047.         -autoLock EnterHostNameCB ]
  1048.         VxSetVar $addToRouteScreen hostNameText $hostNameText
  1049.     VtAddTabGroup $hostNameText
  1050.     VtAddTabGroup $selectHostButton
  1051.     return $addToRouteScreen
  1052. }
  1053. proc UiRouteListSetItems {items} {
  1054.     global appvals
  1055.     set addModifyScreen [VxGetVar $appvals(vtMain) addModifyScreen] 
  1056.     set routeList [VxGetVar $addModifyScreen routeList]
  1057.     VtDrawnListDeleteItem $routeList -all
  1058.     foreach entry $items {
  1059.         set fieldList [list $entry]
  1060.         set formatList [list [list STRING [clength $entry]]]
  1061.         VtDrawnListAddItem $routeList \
  1062.             -formatList $formatList \
  1063.             -fieldList $fieldList
  1064.     }
  1065. }
  1066. proc UiBuildSaveConfirmDialog {} {
  1067.     global appvals
  1068.     set parent $appvals(vtMain)
  1069.     # we don't do autoDestroy on this dialog, because we
  1070.     # want wmCloseCallback to do the cancel, and the dialog
  1071.     # cannot auto destroy in that case
  1072.     set saveConfirmDlg [VtQuestionDialog $parent.saveConfirmDlg \
  1073.         -title [IntlMsg SAVE_CONFIRM_TITLE] \
  1074.         -message [IntlMsg SAVE_CONFIRM_QUERY] \
  1075.         -autoDestroy FALSE \
  1076.         -okLabel [IntlMsg SAVE_CONFIRM_BTN_YES] \
  1077.         -ok -okCallback SaveConfirmOkCB \
  1078.         -applyLabel [IntlMsg SAVE_CONFIRM_BTN_NO] \
  1079.         -apply -applyCallback SaveConfirmNoCB \
  1080.         -cancelLabel [IntlMsg SAVE_CONFIRM_BTN_CANCEL] \
  1081.         -cancel -cancelCallback SaveConfirmCancelCB \
  1082.         -wmCloseCallback SaveConfirmCancelCB \
  1083.         -autoLock [list \
  1084.             SaveConfirmOkCB SaveConfirmNoCB SaveConfirmCancelCB]]
  1085.     VxSetVar $parent saveConfirm $saveConfirmDlg
  1086.     return $saveConfirmDlg
  1087. }
  1088. proc UiCloseCB {cbs} {
  1089.     # Call underlying non-ui module: close that may need additional ui
  1090.     if {[DomainIsModified]} {
  1091.         CloseWithUi
  1092.         VtUnLock
  1093.         return
  1094.     }
  1095.     UiStop    UiCloseCB2
  1096. }
  1097. proc UiCloseCB2 {{cbs {}}} {
  1098.     # Call underlying non-ui module: close without Ui
  1099.     CloseAfterUi
  1100. }
  1101. proc UiRefreshCB {{cbs {}}} {
  1102.     global appvals
  1103.     set statusBar [VxGetVar $appvals(vtMain) statusBar]
  1104.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1105.     SaStatusBarSet $statusBar [IntlMsg REFRESH] 
  1106.     Refresh
  1107.     # Update count label and widget sensitivity
  1108.     UiUpdateCountLabel
  1109.     UiSensitizeMainFunctions
  1110.     SaStatusBarClear $statusBar
  1111.     VtUnLock
  1112. }
  1113. proc EnterHostNameCB {cbs} {
  1114.     set dialog [keylget cbs dialog]
  1115.     set widget [keylget cbs widget]
  1116.     set mode [keylget cbs mode]
  1117.     set name [keylget cbs value]
  1118.     if {$mode == "done"} {
  1119.         if {[lempty $name]} {
  1120.             VtShow [VtErrorDialog $dialog.usererr1 \
  1121.                 -message [IntlErr ENTER_NAME] \
  1122.                 -ok]
  1123.             set hostNameText [VxGetVar $dialog hostNameText]
  1124.             VtSetFocus $hostNameText
  1125.             VtUnLock
  1126.             return
  1127.         } else {
  1128.             set okButton [VtGetValues $dialog -ok]
  1129.             VtSetFocus $okButton
  1130.         }
  1131.     }
  1132.     VtUnLock
  1133. }
  1134. proc SelectHostOkCB {addToRouteScreen cbs} {
  1135.     global appvals
  1136.     set dialog [keylget cbs dialog]
  1137.     set instance $appvals(selecthost)
  1138.     set selection [SaSelectHostGetSelection $instance]
  1139.     set hostNameText [VxGetVar $addToRouteScreen hostNameText]
  1140.     set currentVal [VtGetValues $hostNameText -value]
  1141.     lappend currentVal $selection
  1142.     VtSetValues $hostNameText -value $currentVal
  1143.     VtSetValues $hostNameText \
  1144.         -xmArgs [list XmNcursorPosition [string length $currentVal]]
  1145.     VtSetFocus $hostNameText
  1146.     VtUnLock
  1147. }
  1148. proc SelectHostCB {cbs} {
  1149.     global appvals
  1150.     set parent [keylget cbs dialog]
  1151.     keylset parameters parent $parent
  1152.     keylset parameters instance selectHostScreen
  1153.     set appvals(selecthost) selectHostScreen
  1154.     keylset parameters userproc "SelectHostOkCB $parent" 
  1155.     SaSelectHostDialog $parameters $cbs
  1156. }
  1157. proc AddToRouteOkCB {cbs} {
  1158.     set dialog [keylget cbs dialog]
  1159.     set hostNameText [VxGetVar $dialog hostNameText]
  1160.     set route [VtGetValues $hostNameText -value]
  1161.     if {[lempty $route]} {
  1162.         VtShow [VtErrorDialog $dialog.usererr1 \
  1163.             -message [IntlErr ENTER_NAME] \
  1164.             -ok]
  1165.         VtSetFocus $hostNameText
  1166.         VtUnLock
  1167.         return
  1168.     }
  1169.     set addModifyScreen [VxGetVar $dialog parent_dlg]
  1170.     set routeList [VxGetVar $addModifyScreen routeList]
  1171.     set currentItems [VtDrawnListGetItem $routeList -all]
  1172.     set currentSelectedItems [VtDrawnListGetSelectedItem $routeList \
  1173.                     -byPositionList]
  1174.     VtDestroyDialog $dialog
  1175.     if {[lempty $currentItems]} {
  1176.         UiRouteListSetItems $route
  1177.         VtDrawnListSelectItem $routeList -all
  1178.     } else {
  1179.         if {$currentSelectedItems == 0} {
  1180.             UiRouteListSetItems [concat $currentItems $route]
  1181.             set pos [llength $currentItems]
  1182.             set positions {}
  1183.             foreach hop $route {
  1184.                 incr pos
  1185.                 lappend positions $pos
  1186.             }
  1187.             VtDrawnListSelectItem \
  1188.                 $routeList -positionList $positions
  1189.         } else {
  1190.             set pos [lindex $currentSelectedItems end]
  1191.             set firstPositions {}
  1192.             for {set index 1} {$index <= $pos} {incr index} {
  1193.                 lappend firstPositions $index
  1194.             }
  1195.             set lastPositions {}
  1196.             for {set index [expr $pos + 1]} \
  1197.                 {$index <= [llength $currentItems]} {incr index} {
  1198.                 lappend lastPositions $index
  1199.             }
  1200.             set lastNewPosition [expr $pos + [llength $route]]
  1201.             set newPositions {}
  1202.             for {set index [expr $pos + 1]} \
  1203.                 {$index <= $lastNewPosition} {incr index} {
  1204.                 lappend newPositions $index
  1205.             }
  1206.             set begItems [VtDrawnListGetItem $routeList \
  1207.                     -positionList $firstPositions]
  1208.             set lastItems [VtDrawnListGetItem $routeList \
  1209.                     -positionList $lastPositions]
  1210.             UiRouteListSetItems [concat $begItems $route $lastItems]
  1211.             VtDrawnListSelectItem \
  1212.                 $routeList -positionList $newPositions
  1213.         }
  1214.     }
  1215.     SaDrawnListShowSelectedItem $routeList
  1216.     UiSensitizeAddModifyFunctions $addModifyScreen
  1217.     VtUnLock
  1218. }
  1219. proc AddToRouteCancelCB {cbs} {
  1220.     set dialog [keylget cbs dialog]
  1221.     VtDestroyDialog $dialog
  1222.     VtUnLock
  1223.     return
  1224. }
  1225. proc AddToRouteCB {cbs} {
  1226.     set parent [keylget cbs dialog]
  1227.     set mode [keylget cbs mode]
  1228.     set name [keylget cbs value]
  1229.     set addToRouteScreen [UiBuildAddToRouteScreen $parent]
  1230.     VxSetVar $addToRouteScreen parent_dlg $parent
  1231.     set hostNameText [VxGetVar $addToRouteScreen hostNameText]
  1232.     VtShow $addToRouteScreen
  1233.     VtSetFocus $hostNameText
  1234.     VtUnLock
  1235. }
  1236. proc DeleteFromRouteCB {cbs} {
  1237.     set dialog [keylget cbs dialog]
  1238.     set routeList [VxGetVar $dialog routeList]
  1239.     set selectedPositions [VtDrawnListGetSelectedItem \
  1240.                 $routeList -byPositionList]
  1241.     set prevTotal [llength [VtDrawnListGetItem $routeList -all]]
  1242.     VtDrawnListDeleteItem $routeList -positionList $selectedPositions
  1243.     set numItemsLeft [llength [VtDrawnListGetItem $routeList -all]]
  1244.     if {$numItemsLeft > 0} {
  1245.         set first [lindex $selectedPositions 0]
  1246.         set last [lindex $selectedPositions end]
  1247.         set numDeleted [llength $selectedPositions]
  1248.         if {[expr $last - $first + 1] == $numDeleted} {
  1249.             set contiguous 1
  1250.         } else {
  1251.             set contiguous 0
  1252.         }
  1253.         if {$last == $prevTotal && $contiguous} {
  1254.             # select the one above
  1255.              VtDrawnListSelectItem $routeList \
  1256.                 -position [expr $first - 1]
  1257.         } else {
  1258.             # select the item that was after the first deleted
  1259.             # (same position number as first deleted was)
  1260.             VtDrawnListSelectItem $routeList -position $first
  1261.         }
  1262.         SaDrawnListShowSelectedItem $routeList
  1263.     }
  1264.     UiSensitizeAddModifyFunctions $dialog
  1265.     VtUnLock
  1266. }
  1267. proc RouteListCB {cbs} {
  1268.     set dialog [keylget cbs dialog]
  1269.     UiSensitizeAddModifyFunctions $dialog
  1270. }
  1271. proc MoveUpRouteCB {cbs} {
  1272.     set dialog [keylget cbs dialog]
  1273.     set routeList [VxGetVar $dialog routeList]
  1274.     set selectedNum [lindex \
  1275.         [VtDrawnListGetSelectedItem $routeList -byPositionList] 0]
  1276.     if {$selectedNum == 1} {
  1277.         VtBeep
  1278.         VtUnLock
  1279.         return
  1280.     }
  1281.     set selectedItem [VtDrawnListGetItem $routeList -position $selectedNum]
  1282.     set newPosition [expr $selectedNum - 1]
  1283.     VtDrawnListDeleteItem $routeList -position $selectedNum
  1284.     VtDrawnListAddItem $routeList -position $newPosition \
  1285.                       -formatList [list [list STRING 25]] \
  1286.                       -fieldList $selectedItem
  1287.     VtDrawnListSelectItem $routeList -position $newPosition
  1288.     SaDrawnListShowSelectedItem $routeList
  1289.     VtUnLock
  1290.     return
  1291. }
  1292. proc MoveDownRouteCB {cbs} {
  1293.     set dialog [keylget cbs dialog]
  1294.     set routeList [VxGetVar $dialog routeList]
  1295.     set selectedNum [lindex \
  1296.         [VtDrawnListGetSelectedItem $routeList -byPositionList] 0]
  1297.     set totalNum [llength [VtDrawnListGetItem $routeList -all]]
  1298.     if {$selectedNum == $totalNum} {
  1299.         VtBeep
  1300.         VtUnLock
  1301.         return
  1302.     }
  1303.     set selectedItem [VtDrawnListGetItem $routeList -position $selectedNum]
  1304.     set newPosition [expr $selectedNum + 1]
  1305.     VtDrawnListDeleteItem $routeList -position $selectedNum
  1306.     VtDrawnListAddItem $routeList -position $newPosition \
  1307.                       -formatList [list [list STRING 25]] \
  1308.                       -fieldList [list $selectedItem]
  1309.     VtDrawnListSelectItem $routeList -position $newPosition
  1310.     SaDrawnListShowSelectedItem $routeList
  1311.     VtUnLock
  1312.     return
  1313. }
  1314. proc AddModifyCancelCB {cbs} {
  1315.     set dialog [keylget cbs dialog]
  1316.     VtDestroyDialog $dialog
  1317.     VtUnLock
  1318.     return
  1319. }
  1320. proc AddModifyOkCB {cbs} {
  1321.     global appvals
  1322.     set dialog [keylget cbs dialog]
  1323.     set function [VxGetVar $dialog function]
  1324.     set nameText [VxGetVar $dialog nameText]
  1325.     set realNameText [VxGetVar $dialog realNameText]
  1326.     set routeList [VxGetVar $dialog routeList]
  1327.     set doPartial [VxGetVar $dialog doPartial]
  1328.     # get the values entered into the widgets
  1329.     set newHostName [string trim [VtGetValues $nameText -value]]
  1330.     set newRealName [string trim [VtGetValues $realNameText -value]]
  1331.     set newRoute [VtDrawnListGetItem $routeList -all]
  1332.     set newPartial [VtGetValues $doPartial -value]
  1333.     if {[clength $newHostName] == 0 || [ctype space $newHostName]} {
  1334.         VtShow [VtErrorDialog $dialog.usererr1 \
  1335.             -message [IntlErr NAME_MISSING] \
  1336.             -ok]
  1337.         VtUnLock
  1338.         VtSetFocus $nameText
  1339.         return
  1340.     }
  1341.     if {[regexp {[     ]} $newHostName]} { 
  1342.         VtShow [VtErrorDialog $dialog.usererr2 \
  1343.             -message [IntlErr NAME_SPACE] \
  1344.             -ok]
  1345.         VtUnLock
  1346.         VtSetFocus $nameText
  1347.         return
  1348.     }
  1349.     if {[clength $newRealName] == 0 || [ctype space $newRealName]} {
  1350.         VtShow [VtErrorDialog $dialog.usererr3 \
  1351.             -message [IntlErr REAL_NAME_MISSING] \
  1352.             -ok]
  1353.         VtUnLock
  1354.         VtSetFocus $realNameText
  1355.         return
  1356.     }
  1357.     if {[regexp {[     ]} $newRealName]} { 
  1358.         VtShow [VtErrorDialog $dialog.usererr4 \
  1359.             -message [IntlErr NAME_SPACE] \
  1360.             -ok]
  1361.         VtUnLock
  1362.         VtSetFocus $realNameText
  1363.         return
  1364.     }
  1365.     # Don't allow partial lookups on numeric addresses
  1366.     if {[regexp {\[[0-9\.]+\]} $newHostName] && $newPartial} {
  1367.         VtShow [VtErrorDialog $dialog.usererr5 \
  1368.             -message [IntlErr NUMERIC] \
  1369.             -ok]
  1370.         VtUnLock
  1371.         VtSetFocus $doPartial
  1372.         return
  1373.     }
  1374.     # set up the new entry
  1375.     if {$newPartial} {
  1376.         set newPartial TRUE
  1377.         keylset newEntry partial $newPartial
  1378.     } else {
  1379.         set newPartial FALSE
  1380.         keylset newEntry partial $newPartial
  1381.     }
  1382.     keylset newEntry hostName $newHostName
  1383.     keylset newEntry realName $newRealName
  1384.     keylset newEntry route $newRoute
  1385.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1386.     set selected [VtDrawnListGetSelectedItem $mainList -byRecordList]
  1387.     if {$function == "add"} {
  1388.         if {[DomainEntryExists $newHostName]} {
  1389.             VtShow [VtErrorDialog $dialog.usererr5 \
  1390.                 -message [IntlErr NAME_DUPLICATE $newHostName] \
  1391.                 -ok]
  1392.             VtUnLock
  1393.             VtSetFocus $nameText
  1394.             return
  1395.         }
  1396.         if {[lempty $selected]} {
  1397.             # just put the new entry last
  1398.             set position 0
  1399.             set before [lindex [VtDrawnListGetItem $mainList \
  1400.                         -position 0] 0]
  1401.         } else {
  1402.             # put the new entry after the last selected entry
  1403.             set selectedNum [lindex [VtDrawnListGetSelectedItem \
  1404.                         $mainList -byPositionList] end]
  1405.             set position [expr $selectedNum + 1] 
  1406.             set before [lindex $selected end]
  1407.         }
  1408.         if {[cequal $before ""]} {
  1409.             set beforeEntry ""
  1410.         } else {
  1411.             set beforeEntry [lindex $before end]
  1412.         }
  1413.         # update the data structures
  1414.         DomainAdd $beforeEntry $newEntry
  1415.     } else {
  1416.         set position [lindex [VtDrawnListGetSelectedItem $mainList \
  1417.                     -byPositionList] 0]
  1418.         set oldEntry [lindex [lindex $selected 0] end]
  1419.         set oldPartial ""
  1420.         keylget oldEntry partial oldPartial 
  1421.         set oldHostName ""
  1422.         keylget oldEntry hostName oldHostName 
  1423.         set oldRealName ""
  1424.         keylget oldEntry realName oldRealName 
  1425.         set oldRoute ""
  1426.         keylget oldEntry route oldRoute 
  1427.         if {![cequal [string tolower $newHostName] \
  1428.                  [string tolower $oldHostName]] && \
  1429.             [DomainEntryExists $newHostName]} {
  1430.             VtShow [VtErrorDialog $dialog.usererr6 \
  1431.                 -message [IntlErr NAME_DUPLICATE $newHostName] \
  1432.                 -ok]
  1433.             VtUnLock
  1434.             VtSetFocus $nameText
  1435.             return
  1436.         }
  1437.         set modified 0
  1438.         if {$newPartial != $oldPartial || \
  1439.             $newHostName != $oldHostName || \
  1440.             $newRealName != $oldRealName || \
  1441.             $newRoute != $oldRoute} {
  1442.             DomainModify $oldEntry $newEntry
  1443.             set modified 1
  1444.         }
  1445.     }
  1446.     VtDestroyDialog $dialog
  1447.     # update the main drawn list
  1448.     if {$function == "add" || ($function == "modify" && $modified)} {
  1449.         set maxLength [VxGetVar $mainList maxLength]
  1450.         set newLength [clength $newHostName]
  1451.         if {$newLength < $maxLength} {
  1452.             set newLength $maxLength
  1453.         }
  1454.         # For now, we punt on re-drawing the list if the new
  1455.         # host length is larger than the known max length --
  1456.         # this is an expensive operation.
  1457.         set isCharm [VtInfo -charm]
  1458.         if {$isCharm} {
  1459.             set formatList [list \
  1460.                 [list STRING 1 1 1] \
  1461.                 [list STRING $newLength 1 1] ]
  1462.         } else {
  1463.             set formatList [list \
  1464.                 [list STRING 1 10 10] \
  1465.                 [list STRING [AdjustFieldLength $newLength] 0 10]]
  1466.         }
  1467.         if {$newPartial == "TRUE"} {
  1468.             if {[VtInfo -charm]} {
  1469.                 set fieldList [list \
  1470.                     [IntlMsg COLUMN_PARTIAL_LBL_CHARM]]
  1471.             } else {
  1472.                 set fieldList [list \
  1473.                     [IntlMsg COLUMN_PARTIAL_LBL]]
  1474.             }
  1475.         } else {
  1476.             set fieldList \
  1477.                 [list [IntlMsg COLUMN_PARTIAL_NONE]]
  1478.         }
  1479.         lappend fieldList $newHostName
  1480.         set routeString ""
  1481.         foreach hop $newRoute {
  1482.             append routeString "$hop > "
  1483.         }
  1484.         append routeString $newRealName
  1485.         lappend fieldList $routeString
  1486.         lappend formatList [list \
  1487.                 STRING \
  1488.                 [AdjustFieldLength [clength $routeString]]]
  1489.         lappend fieldList $newEntry
  1490.         lappend formatList [list DATA]
  1491.         if {$function == "modify"} {
  1492.             VtDrawnListDeleteItem $mainList -position $position
  1493.         }
  1494.         VtDrawnListAddItem $mainList -formatList $formatList \
  1495.                          -fieldList $fieldList \
  1496.                          -position $position
  1497.         VtDrawnListSelectItem $mainList -position $position
  1498.         SaDrawnListShowSelectedItem $mainList
  1499.         UiSensitizeMainFunctions
  1500.         if {"$function" == "add"} {
  1501.             UiUpdateCountLabel
  1502.         }
  1503.     }
  1504.     VtUnLock
  1505.     return
  1506. }
  1507. proc UiAddEntryCB {cbs} {
  1508.     set addScreen [UiBuildAddModifyScreen]
  1509.     VxSetVar $addScreen function add
  1510.     set nameText [VxGetVar $addScreen nameText]
  1511.     set addButton [VxGetVar $addScreen routeAddButton]
  1512.     set deleteButton [VxGetVar $addScreen routeDeleteButton]
  1513.     set upButton [VxGetVar $addScreen routeMoveUpButton]
  1514.     set downButton [VxGetVar $addScreen routeMoveDownButton]
  1515.     VtSetValues $addScreen -title [IntlMsg ADD_TITLE]
  1516.     VtSetSensitive $addButton 1
  1517.     VtSetSensitive $deleteButton 0
  1518.     VtSetSensitive $upButton 0
  1519.     VtSetSensitive $downButton 0
  1520.     VtShow $addScreen
  1521.     VtSetFocus $nameText
  1522.     VtUnLock
  1523. }
  1524. proc UiDeleteEntryCB {cbs} {
  1525.     global appvals
  1526.     set list [VxGetVar $appvals(vtMain) mainList]
  1527.     set selectedPositions [VtDrawnListGetSelectedItem $list -byPositionList]
  1528.     set prevTotal [llength [VtDrawnListGetItem $list -all]]
  1529.     set deleteEntries {}
  1530.     foreach item [VtDrawnListGetSelectedItem $list -byRecordList] {
  1531.         lappend deleteEntries [lindex $item end]
  1532.     }
  1533.     DomainDelete $deleteEntries
  1534.     VtDrawnListDeleteItem $list -positionList $selectedPositions
  1535.     set numItemsLeft [llength [VtDrawnListGetItem $list -all]]
  1536.     if {$numItemsLeft > 0} {
  1537.         set first [lindex $selectedPositions 0]
  1538.         set last [lindex $selectedPositions end]
  1539.         set numDeleted [llength $selectedPositions]
  1540.         if {[expr $last - $first + 1] == $numDeleted} {
  1541.             set contiguous 1
  1542.         } else {
  1543.             set contiguous 0
  1544.         }
  1545.         if {$last == $prevTotal && $contiguous} {
  1546.             # select the one above
  1547.             VtDrawnListSelectItem $list -position [expr $first - 1]
  1548.         } else {
  1549.             # select the item that was after the first deleted
  1550.             # (same position number as first deleted was)
  1551.             VtDrawnListSelectItem $list -position $first
  1552.         }
  1553.         SaDrawnListShowSelectedItem $list
  1554.     }
  1555.     UiSensitizeMainFunctions
  1556.     UiUpdateCountLabel
  1557.     VtUnLock
  1558. }
  1559. proc UiModifyEntryCB {cbs} {
  1560.     set dialog [keylget cbs dialog] 
  1561.     set mainList [VxGetVar $dialog mainList]
  1562.     set selected [lindex \
  1563.         [VtDrawnListGetSelectedItem $mainList -byItemList] 0]
  1564.     set modifyScreen [UiBuildAddModifyScreen]
  1565.     VxSetVar $modifyScreen function modify
  1566.     set nameText [VxGetVar $modifyScreen nameText]
  1567.     set realNameText [VxGetVar $modifyScreen realNameText]
  1568.     set routeList [VxGetVar $modifyScreen routeList]
  1569.     set doPartial [VxGetVar $modifyScreen doPartial]
  1570.     set addButton [VxGetVar $modifyScreen routeAddButton]
  1571.     set deleteButton [VxGetVar $modifyScreen routeDeleteButton]
  1572.     set upButton [VxGetVar $modifyScreen routeMoveUpButton]
  1573.     set downButton [VxGetVar $modifyScreen routeMoveDownButton]
  1574.     set modifyEntry [lindex $selected end]
  1575.     set partial ""
  1576.     keylget modifyEntry partial partial
  1577.     set hostName ""
  1578.     keylget modifyEntry hostName hostName
  1579.     set realName ""
  1580.     keylget modifyEntry realName realName
  1581.     set route ""
  1582.     keylget modifyEntry route route
  1583.     VtSetValues $modifyScreen -title [IntlMsg MODIFY_TITLE]
  1584.     VtSetValues $doPartial -set $partial
  1585.     VtSetValues $nameText -value $hostName
  1586.     VtSetValues $realNameText -value $realName
  1587.     foreach hop $route {
  1588.         VtDrawnListAddItem $routeList  \
  1589.             -fieldList [list $hop] \
  1590.             -formatList [list [list STRING 25]]
  1591.     }
  1592.     if {[lempty $route]} {
  1593.         VtSetSensitive $addButton 1
  1594.         VtSetSensitive $deleteButton 0
  1595.         VtSetSensitive $upButton 0
  1596.         VtSetSensitive $downButton 0
  1597.     } else {
  1598.         VtSetSensitive $addButton 1
  1599.         VtSetSensitive $deleteButton 1
  1600.         VtSetSensitive $upButton 1
  1601.         VtSetSensitive $downButton 1
  1602.         VtDrawnListSelectItem $routeList -position 1
  1603.     }
  1604.     VtShow $modifyScreen
  1605.     VtSetFocus $nameText
  1606.     VtUnLock
  1607. }
  1608. proc UiMoveUpEntryCB {cbs} {
  1609.     global appvals
  1610.     set list [VxGetVar $appvals(vtMain) mainList]
  1611.     set selectedNum [lindex \
  1612.         [VtDrawnListGetSelectedItem $list -byPositionList] 0]
  1613.     if {$selectedNum == 1} {
  1614.         VtBeep
  1615.         VtUnLock
  1616.         return
  1617.     }
  1618.     set selectedItem [lindex \
  1619.         [VtDrawnListGetItem $list -position $selectedNum] 0]
  1620.     set newPosition [expr $selectedNum - 1]
  1621.     set beforeItem [lindex \
  1622.         [VtDrawnListGetItem $list -position $newPosition] 0]
  1623.     #
  1624.     # Update table data structures
  1625.     #
  1626.     set entry1 [lindex $beforeItem end]
  1627.     set entry2 [lindex $selectedItem end]
  1628.     DomainSwapPosition $entry1 $entry2
  1629.     #
  1630.     # Modify main list widget
  1631.     #
  1632.     # Delete the item selected in the list
  1633.     VtDrawnListDeleteItem $list -position $selectedNum
  1634.     # Add the deleted item back in the new position
  1635.     set maxLength [VxGetVar $list maxLength]    
  1636.     if {[VtInfo -charm]} {
  1637.         set formatList [list \
  1638.             [list STRING 1 1 1] \
  1639.             [list STRING $maxLength 1 1]]
  1640.         set icon [list ICON 1 1 1]
  1641.     } else {
  1642.         set formatList [list \
  1643.             [list STRING 1 10 10] \
  1644.             [list STRING [AdjustFieldLength $maxLength] 0 10]]
  1645.         set icon [list ICON 1 0 5]
  1646.     }
  1647.     lappend formatList [list STRING [clength [lindex $selectedItem 2]]]
  1648.     VtDrawnListAddItem $list -position $newPosition \
  1649.         -fieldList $selectedItem \
  1650.         -formatList $formatList
  1651.     VtDrawnListSelectItem $list -position $newPosition
  1652.     SaDrawnListShowSelectedItem $list
  1653.     VtUnLock
  1654. }
  1655. proc UiMoveDownEntryCB {cbs} {
  1656.     global appvals
  1657.     set list [VxGetVar $appvals(vtMain) mainList]
  1658.     set selectedNum [lindex \
  1659.         [VtDrawnListGetSelectedItem $list -byPositionList] 0]
  1660.     set numItems [llength [VtDrawnListGetItem $list -all]]
  1661.     if {$selectedNum == $numItems} {
  1662.         VtBeep
  1663.         VtUnLock
  1664.         return
  1665.     }
  1666.     set selectedItem [lindex \
  1667.         [VtDrawnListGetItem $list -position $selectedNum] 0]
  1668.     set newPosition [expr $selectedNum + 1]
  1669.     set afterItem [lindex \
  1670.         [VtDrawnListGetItem $list -position $newPosition] 0]
  1671.     #
  1672.     # Update table data structures
  1673.     #
  1674.     set entry1 [lindex $selectedItem end]
  1675.     set entry2 [lindex $afterItem end]
  1676.     DomainSwapPosition $entry1 $entry2
  1677.     #
  1678.     # Modify main list widget
  1679.     #
  1680.     # Delete the item selected in the list
  1681.     VtDrawnListDeleteItem $list -position $selectedNum
  1682.     # Add the deleted item back in the new position
  1683.     set maxLength [VxGetVar $list maxLength]
  1684.     if {[VtInfo -charm]} {
  1685.         set formatList [list \
  1686.             [list STRING 1 1 1] \
  1687.             [list STRING $maxLength 1 1]]
  1688.         set icon [list ICON 1 1 1]
  1689.     } else {
  1690.         set formatList [list \
  1691.             [list STRING 1 10 10] \
  1692.             [list STRING [AdjustFieldLength $maxLength] 0 10]]
  1693.         set icon [list ICON 1 0 5]
  1694.     }
  1695.     lappend formatList [list STRING [clength [lindex $selectedItem 2]]]
  1696.     VtDrawnListAddItem $list -position $newPosition \
  1697.         -fieldList $selectedItem \
  1698.         -formatList $formatList
  1699.     VtDrawnListSelectItem $list -position $newPosition
  1700.     SaDrawnListShowSelectedItem $list
  1701.     VtUnLock
  1702. }
  1703. proc SaveConfirmOkCB {cbs} {
  1704.     set dialog [keylget cbs dialog]
  1705.     VtDestroyDialog $dialog
  1706.     if {[UiSaveCB {}] != 1} {
  1707.         VtUnLock
  1708.         return
  1709.     } else {
  1710.         VtUnLock
  1711.         UiStop  UiCloseCB2
  1712.     }
  1713. }
  1714. proc SaveConfirmNoCB {cbs} {
  1715.     set dialog [keylget cbs dialog]
  1716.     VtDestroyDialog $dialog
  1717.     VtUnLock
  1718.     UiStop  UiCloseCB2
  1719. }
  1720. proc SaveConfirmCancelCB {cbs} {
  1721.     set dialog [keylget cbs dialog]
  1722.     VtDestroyDialog $dialog
  1723.     VtUnLock
  1724.     return
  1725. }
  1726. proc UiSaveCB {cbs} {
  1727.     global appvals
  1728.     set statusBar [VxGetVar $appvals(vtMain) statusBar]
  1729.     SaStatusBarSet $statusBar [IntlMsg SAVE]
  1730.     if {[ErrorCatch errStack 0 DomainWrite data]} {
  1731.         VtUnLock
  1732.         UiDisplayErrorStacks UiSaveCB $errStack
  1733.         return 0
  1734.     }
  1735.     SaStatusBarClear $statusBar
  1736.     VtUnLock
  1737.     return 1
  1738. }
  1739. proc UiSensitizeMainFunctions {} {
  1740.     # visit all appropriate menu items:
  1741.     #     VxGetVar
  1742.     #    VtSetsensitive
  1743.     global appvals
  1744.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1745.     set item [VtDrawnListGetSelectedItem $mainList]
  1746.     set selected [llength \
  1747.         [VtDrawnListGetSelectedItem $mainList -byRecordList]]
  1748.     set menuBar [VxGetVar $appvals(vtMain) menuBar]
  1749.     set add [VxGetVar $menuBar add]
  1750.     set delete [VxGetVar $menuBar delete]
  1751.     set modify [VxGetVar $menuBar modify]
  1752.     set moveUp [VxGetVar $menuBar moveUp]
  1753.     set moveDown [VxGetVar $menuBar moveDown]
  1754.     set isCharm [VtInfo -charm]
  1755.     if {!$isCharm} {
  1756.         set toolBar [VxGetVar $appvals(vtMain) toolBar]
  1757.         set addTB [VxGetVar $toolBar addTB]
  1758.         set deleteTB [VxGetVar $toolBar deleteTB]
  1759.         set modifyTB [VxGetVar $toolBar modifyTB]
  1760.         set upTB [VxGetVar $toolBar upTB]
  1761.         set downTB [VxGetVar $toolBar downTB]
  1762.     }
  1763.     if {$selected == 0} {
  1764.         VtSetSensitive $delete 0
  1765.         VtSetSensitive $modify 0
  1766.         VtSetSensitive $moveUp 0
  1767.         VtSetSensitive $moveDown 0
  1768.         if {!$isCharm} {
  1769.             VtSetSensitive $deleteTB 0
  1770.             VtSetSensitive $modifyTB 0
  1771.             VtSetSensitive $upTB 0
  1772.             VtSetSensitive $downTB 0
  1773.         }
  1774.     } elseif {$selected == 1} {
  1775.         VtSetSensitive $delete 1
  1776.         VtSetSensitive $modify 1
  1777.         VtSetSensitive $moveUp 1
  1778.         VtSetSensitive $moveDown 1
  1779.         if {!$isCharm} {
  1780.             VtSetSensitive $deleteTB 1
  1781.             VtSetSensitive $modifyTB 1
  1782.             VtSetSensitive $upTB 1
  1783.             VtSetSensitive $downTB 1
  1784.         }
  1785.     } else {
  1786.         VtSetSensitive $delete 1
  1787.         VtSetSensitive $modify 0
  1788.         VtSetSensitive $moveUp 0
  1789.         VtSetSensitive $moveDown 0
  1790.         if {!$isCharm} {
  1791.             VtSetSensitive $deleteTB 1
  1792.             VtSetSensitive $modifyTB 0
  1793.             VtSetSensitive $upTB 0
  1794.             VtSetSensitive $downTB 0
  1795.         }
  1796.     }
  1797. }
  1798. proc UiSensitizeAddModifyFunctions {addModifyScreen} {
  1799.     set deleteButton [VxGetVar $addModifyScreen routeDeleteButton]
  1800.     set upButton [VxGetVar $addModifyScreen routeMoveUpButton]
  1801.     set downButton [VxGetVar $addModifyScreen routeMoveDownButton]
  1802.     set routeList [VxGetVar $addModifyScreen routeList]
  1803.     set selected [llength \
  1804.         [VtDrawnListGetSelectedItem $routeList -byRecordList]]
  1805.     if {$selected == 0} {
  1806.         VtSetSensitive $deleteButton 0
  1807.         VtSetSensitive $upButton 0
  1808.         VtSetSensitive $downButton 0
  1809.     } elseif {$selected == 1} {
  1810.         VtSetSensitive $deleteButton 1
  1811.         VtSetSensitive $upButton 1
  1812.         VtSetSensitive $downButton 1
  1813.     } else {
  1814.         VtSetSensitive $deleteButton 1
  1815.         VtSetSensitive $upButton 0
  1816.         VtSetSensitive $downButton 0
  1817.     }
  1818. }
  1819. proc UiStart {} {
  1820.     global appvals
  1821.     # Open/connect to widget server
  1822.     set vtApp [VtOpen $appvals(client) [IntlMsg HELPBOOK]]
  1823.     set appvals(vtApp) $vtApp
  1824.     VtSetAppValues $vtApp \
  1825.                 -errorCallback {SaUnexpectedErrorCB {}}
  1826.     # Create main dialog
  1827.     set vtMain [VtFormDialog $vtApp.main \
  1828.             -title $appvals(title) \
  1829.             -resizable FALSE \
  1830.             -wmShadowThickness 0 \
  1831.             -wmCloseCallback UiCloseCB] 
  1832.     set appvals(vtMain) $vtMain
  1833.     VxSetVar $appvals(vtMain) vtMain $vtMain
  1834.     UiDefaultFormSpacingSet $vtMain
  1835.     SaCharmSetMaxFormDimensions $vtMain
  1836.     # Build pulldown menus
  1837.     set menuBar [UiBuildMenus $vtMain]
  1838.     VxSetVar $appvals(vtMain) menuBar $menuBar
  1839.     # Build the toolbar
  1840.     if {! [VtInfo -charm]} {
  1841.         set toolBar [UiBuildToolBar $vtMain $menuBar]
  1842.     }
  1843.     # Basic drawnlist for domain table entries
  1844.     # Pass main form and widget just above for attachments
  1845.     if {[VtInfo -charm]} {
  1846.         set mainList [UiBuildMainList $vtMain $menuBar]
  1847.     } else {
  1848.         set mainList [UiBuildMainList $vtMain $toolBar]
  1849.     }
  1850.     # Build the status bar with standard SCOadmin status bar pixmap
  1851.     set statusBar [SaStatusBar $vtMain.statusBar 1]
  1852.     VxSetVar $appvals(vtMain) statusBar $statusBar
  1853.     # Connect main screen widget bottom to statusbar
  1854.     VtSetValues $mainList -bottomSide $statusBar
  1855.     # Display the main form and lock it
  1856.     VtShow $vtMain
  1857.     VtLock
  1858. }
  1859. proc UiStop {cb} {
  1860.     global appvals
  1861.     set vtMain $appvals(vtMain)
  1862.     set client $appvals(client)
  1863.     # Store modified preferences
  1864.     # short help
  1865.     set cmd [list SaShortHelpStore $client]
  1866.     if {[ErrorCatch errorStack 0 $cmd dummy] != 0 } {
  1867.         lappend errorStacks $errorStack
  1868.     }
  1869.     # any problems?
  1870.     if [info exists errorStacks] {
  1871.         # present error dialog and enter event-driven Ui loop.
  1872.         # Re-gain procedural control via UiStop2 (part 2) and
  1873.         # eventuall, the caller's cb
  1874.         SaDisplayErrorStacks $vtMain.UIStop $errorStacks {} \
  1875.             [list UiStop2 $cb]
  1876.         VtUnLock
  1877.         VtMainLoop
  1878.     } else {
  1879.         # stop vtcl
  1880.         VtUnLock
  1881.         VtClose
  1882.         # return control to the caller
  1883.         eval $cb
  1884.     }
  1885. }
  1886. proc UiStop2 {cb {cbs {}}} {
  1887.     VtUnLock
  1888.     VtClose
  1889.     # return control to the caller
  1890.     eval $cb
  1891. }
  1892. proc UiBuildMenus {form} {
  1893.     global appvals
  1894.     set helpMenuItemList [list \
  1895.         ON_CONTEXT \
  1896.         ON_WINDOW \
  1897.         ON_KEYS \
  1898.         INDEX \
  1899.         ON_HELP]
  1900.     set menuBar [VtMenuBar $form.menuBar \
  1901.             -helpMenuItemList $helpMenuItemList]
  1902.     VxSetVar $form menuBar $menuBar
  1903.     # Main object menu
  1904.     UiBuildObjectMenu $menuBar
  1905.     # Options menu
  1906.     UiBuildOptionsMenu $menuBar
  1907.     return $menuBar
  1908. }
  1909. proc UiBuildObjectMenu {parent} {
  1910.     global appvals
  1911.     set label $appvals(object) 
  1912.     set mnemonic $appvals(objectmn) 
  1913.     set fileMenu [VtPulldown $parent.fileMenu \
  1914.             -label $label \
  1915.             -mnemonic $mnemonic \
  1916.             ]
  1917.     VxSetVar $parent fileMenu $fileMenu
  1918.     set add [VtPushButton $fileMenu.add \
  1919.         -label [IntlMsg ENTRY_MENU_ADD_LBL] \
  1920.         -mnemonic [IntlMsg ENTRY_MENU_ADD_MN]  \
  1921.         -shortHelpCallback SaShortHelpCB \
  1922.         -shortHelpString [IntlMsg ENTRY_MENU_ADD_SH] \
  1923.         -callback UiAddEntryCB  \
  1924.         -autoLock UiAddEntryCB]
  1925.     VxSetVar $parent add $add
  1926.     set delete [VtPushButton $fileMenu.delete \
  1927.         -label [IntlMsg ENTRY_MENU_DELETE_LBL] \
  1928.         -mnemonic [IntlMsg ENTRY_MENU_DELETE_MN]  \
  1929.         -shortHelpCallback SaShortHelpCB \
  1930.         -shortHelpString [IntlMsg ENTRY_MENU_DELETE_SH] \
  1931.         -callback UiDeleteEntryCB  \
  1932.         -autoLock UiDeleteEntryCB]
  1933.     VxSetVar $parent delete $delete
  1934.     set modify [VtPushButton $fileMenu.modify \
  1935.         -label [IntlMsg ENTRY_MENU_MODIFY_LBL] \
  1936.         -mnemonic [IntlMsg ENTRY_MENU_MODIFY_MN]  \
  1937.         -shortHelpCallback SaShortHelpCB \
  1938.         -shortHelpString [IntlMsg ENTRY_MENU_MODIFY_SH] \
  1939.         -callback UiModifyEntryCB  \
  1940.         -autoLock UiModifyEntryCB]
  1941.     VxSetVar $parent modify $modify
  1942.     VtSeparator $fileMenu.s1
  1943.     set moveUp [VtPushButton $fileMenu.moveUp \
  1944.         -label [IntlMsg ENTRY_MENU_UP_LBL] \
  1945.         -mnemonic [IntlMsg ENTRY_MENU_UP_MN]  \
  1946.         -shortHelpCallback SaShortHelpCB \
  1947.         -shortHelpString [IntlMsg ENTRY_MENU_UP_SH] \
  1948.         -callback UiMoveUpEntryCB  \
  1949.         -autoLock UiMoveUpEntryCB]
  1950.     VxSetVar $parent moveUp $moveUp
  1951.     set moveDown [VtPushButton $fileMenu.moveDown \
  1952.         -label [IntlMsg ENTRY_MENU_DOWN_LBL] \
  1953.         -mnemonic [IntlMsg ENTRY_MENU_DOWN_MN]  \
  1954.         -shortHelpCallback SaShortHelpCB \
  1955.         -shortHelpString [IntlMsg ENTRY_MENU_DOWN_SH] \
  1956.         -callback UiMoveDownEntryCB  \
  1957.         -autoLock UiMoveDownEntryCB]
  1958.     VxSetVar $parent moveDown $moveDown
  1959.     VtSeparator $fileMenu.s2
  1960.     set save [VtPushButton $fileMenu.save \
  1961.         -label [IntlMsg ENTRY_MENU_SAVE_LBL] \
  1962.         -mnemonic [IntlMsg ENTRY_MENU_SAVE_MN]  \
  1963.         -shortHelpCallback SaShortHelpCB \
  1964.         -shortHelpString [IntlMsg ENTRY_MENU_SAVE_SH] \
  1965.         -callback UiSaveCB  \
  1966.         -autoLock UiSaveCB]
  1967.     VxSetVar $parent save $save
  1968.     VtSeparator $fileMenu.s3
  1969.     set exitMenu $fileMenu
  1970.     # exit button
  1971.     VtPushButton $exitMenu.exit \
  1972.         -label [IntlMsg ENTRY_MENU_EXIT_LBL] \
  1973.         -mnemonic [IntlMsg ENTRY_MENU_EXIT_MN]  \
  1974.         -shortHelpCallback SaShortHelpCB \
  1975.         -shortHelpString \ [IntlMsg ENTRY_MENU_EXIT_SH \
  1976.                     [list $appvals(title)]] \
  1977.         -callback UiCloseCB  \
  1978.         -autoLock UiCloseCB
  1979. }
  1980. proc UiBuildOptionsMenu {form} {
  1981.     global appvals 
  1982.     # Define the Pulldown itself
  1983.     set optionMenu [VtPulldown $form.optionMenu \
  1984.         -label  [IntlMsg OPTIONS_MENU] \
  1985.         -mnemonic [IntlMsg OPTIONS_MN] \
  1986.         ] 
  1987.     # menu items
  1988.     # short help
  1989.     SaShortHelpLoad $appvals(client)
  1990.     SaShortHelpMenuOptions $optionMenu
  1991.     # toolbar
  1992.     if {$appvals(toolbar) && ![VtInfo -charm]} {
  1993.         UiToolBarBuildMenuOptions $optionMenu
  1994.     }
  1995.     VxSetVar $form optionMenu $optionMenu
  1996.     return $optionMenu
  1997. }
  1998. proc UiToolBarSetVisibilityCB {{cbs {}}} {
  1999.     global appvals
  2000.     set menuBar [VxGetVar $appvals(vtMain) menuBar]
  2001.     set optionMenu [VxGetVar $menuBar optionMenu]
  2002.     set toolBarToggle [VxGetVar $optionMenu toolBarToggle]
  2003.     set visible [VtGetValues $toolBarToggle -value]
  2004.     set toolBar [VxGetVar $appvals(vtMain) toolBar]
  2005.     set toolBarFrame [VxGetVar $appvals(vtMain) toolBarFrame]
  2006.     if {$visible} {
  2007.         # We *must* show the frame first, then the form
  2008.         VtShow $toolBarFrame
  2009.         VtShow $toolBar
  2010.     } else {
  2011.         # We *must* hide the form first, then the frame, in order
  2012.         # to obtain same re-drawing behaviour we get with Sa functions
  2013.         VtHide $toolBar
  2014.         VtHide $toolBarFrame
  2015.     }
  2016.     SaScreenPolicySet $appvals(client) toolbarVisibility $visible
  2017. }
  2018. proc UiToolBarBuildMenuOptions {menu} {
  2019.     global appvals
  2020.     set toolBarToggle [VtToggleButton $menu.toolBarToggle \
  2021.         -label [IntlMsg OPTIONS_TOOLBAR] \
  2022.         -callback UiToolBarSetVisibilityCB \
  2023.         -shortHelpCallback SaShortHelpCB \
  2024.         -shortHelpString [IntlMsg OPTIONS_TOOLBAR_SH] \
  2025.         -value 1]
  2026.     VxSetVar $menu toolBarToggle $toolBarToggle
  2027. }
  2028. proc UiBuildToolBar {form top} {
  2029.     global appvals
  2030.     set toolBarFrame [VtFrame $form.toolBarFrame \
  2031.             -topSide $top \
  2032.             -topOffset 2 \
  2033.             -leftSide FORM \
  2034.             -rightSide FORM \
  2035.             -marginHeight 0 \
  2036.             -marginWidth 0 \
  2037.             -horizontalSpacing 0 \
  2038.             -verticalSpacing 0 \
  2039.             -shadowType IN]
  2040.     set toolBarForm [VtForm $toolBarFrame.toolBarForm \
  2041.             -leftSide FORM \
  2042.             -rightSide FORM \
  2043.             -borderWidth 0 \
  2044.             -marginHeight 0 \
  2045.             -marginWidth 0 \
  2046.             -horizontalSpacing 0 \
  2047.             -verticalSpacing 0]
  2048.     set addTB [VtPushButton $toolBarForm.addTB \
  2049.             -label [IntlMsg TB_ADD] \
  2050.             -topSide FORM \
  2051.             -topOffset 0 \
  2052.             -leftSide FORM \
  2053.             -leftOffset 0 \
  2054.             -rightOffset 0 \
  2055.             -bottomSide FORM \
  2056.             -bottomOffset 0 \
  2057.             -shortHelpCallback SaShortHelpCB \
  2058.             -shortHelpString [IntlMsg ENTRY_MENU_ADD_SH] \
  2059.             -callback UiAddEntryCB \
  2060.             -autoLock UiAddEntryCB]
  2061.     VxSetVar $toolBarForm addTB $addTB
  2062.     set deleteTB [VtPushButton $toolBarForm.deleteTB \
  2063.             -label [IntlMsg TB_DELETE] \
  2064.             -topSide FORM \
  2065.             -leftSide $addTB \
  2066.             -leftOffset 0 \
  2067.             -bottomSide FORM \
  2068.             -bottomOffset 0 \
  2069.             -shortHelpCallback SaShortHelpCB \
  2070.             -shortHelpString [IntlMsg ENTRY_MENU_DELETE_SH] \
  2071.             -callback UiDeleteEntryCB \
  2072.             -autoLock UiDeleteEntryCB]
  2073.     VxSetVar $toolBarForm deleteTB $deleteTB
  2074.     set modifyTB [VtPushButton $toolBarForm.modifyTB \
  2075.             -label [IntlMsg TB_MODIFY] \
  2076.             -topSide FORM \
  2077.             -leftSide $deleteTB \
  2078.             -leftOffset 10 \
  2079.             -bottomSide FORM \
  2080.             -bottomOffset 0 \
  2081.             -shortHelpCallback SaShortHelpCB \
  2082.             -shortHelpString [IntlMsg ENTRY_MENU_MODIFY_SH] \
  2083.             -callback UiModifyEntryCB \
  2084.             -autoLock UiModifyEntryCB]
  2085.     VxSetVar $toolBarForm modifyTB $modifyTB
  2086.     set upTB [VtPushButton $toolBarForm.upTB \
  2087.             -pixmap [IntlMsg BTN_UP_PX] \
  2088.             -topSide FORM \
  2089.             -leftSide $modifyTB \
  2090.             -leftOffset 10 \
  2091.             -bottomSide FORM \
  2092.             -bottomOffset 0 \
  2093.             -shortHelpCallback SaShortHelpCB \
  2094.             -shortHelpString [IntlMsg ENTRY_MENU_UP_SH] \
  2095.             -callback UiMoveUpEntryCB \
  2096.             -autoLock UiMoveUpEntryCB]
  2097.     VxSetVar $toolBarForm upTB $upTB
  2098.     set downTB [VtPushButton $toolBarForm.downTB \
  2099.             -pixmap [IntlMsg BTN_DOWN_PX] \
  2100.             -topSide FORM \
  2101.             -leftSide $upTB \
  2102.             -leftOffset 0 \
  2103.             -rightSide NONE \
  2104.             -bottomSide FORM \
  2105.             -bottomOffset 0 \
  2106.             -shortHelpCallback SaShortHelpCB \
  2107.             -shortHelpString [IntlMsg ENTRY_MENU_DOWN_SH] \
  2108.             -callback UiMoveDownEntryCB \
  2109.             -autoLock UiMoveDownEntryCB]
  2110.     VxSetVar $toolBarForm downTB $downTB
  2111.     VxSetVar $appvals(vtMain) toolBar $toolBarForm
  2112.     VxSetVar $appvals(vtMain) toolBarFrame $toolBarFrame
  2113.     return $toolBarFrame
  2114. }
  2115. proc DomainGetData {} {
  2116.     global appvals
  2117.     set data {}
  2118.     set maxLength 0
  2119.     foreach key [Map:List $appvals(fileid)] {
  2120.         if {[cindex $key 0] == "."} {
  2121.             set partial TRUE
  2122.             set hostName [crange $key 1 len]
  2123.         } else {
  2124.             set partial FALSE
  2125.             set hostName $key
  2126.         }
  2127.         set hostNameLength [clength $hostName]
  2128.         if {$hostNameLength > $maxLength} {
  2129.             set maxLength $hostNameLength
  2130.         }
  2131.         set route [Map:Get $appvals(fileid) $key]
  2132.         set realName [lvarpop route]
  2133.         keylset entry partial $partial
  2134.         keylset entry hostName $hostName
  2135.         keylset entry realName $realName
  2136.         keylset entry route $route
  2137.         lappend data $entry
  2138.     }
  2139.     set mainList [VxGetVar $appvals(vtMain) mainList]
  2140.     if {$maxLength < 30} {
  2141.         set maxLength 30
  2142.     }
  2143.     VxSetVar $mainList maxLength $maxLength
  2144.     return $data
  2145. }
  2146. proc DomainDelete {entries} {
  2147.     global appvals
  2148.     foreach entry $entries {
  2149.         set partial ""
  2150.         set hostName ""
  2151.         keylget entry partial partial
  2152.         keylget entry hostName hostName
  2153.         if {$partial == "TRUE"} {
  2154.             set hostName ".${hostName}"
  2155.         } 
  2156.         Map:Unset $appvals(fileid) $hostName
  2157.     }
  2158. }
  2159. proc DomainAdd {beforeEntry newEntry} {
  2160.     global appvals
  2161.     keylget newEntry partial partial
  2162.     keylget newEntry hostName hostName
  2163.     keylget newEntry realName realName
  2164.     keylget newEntry route route
  2165.     if {$partial == "TRUE"} {
  2166.         set newKey ".$hostName"
  2167.     } else {
  2168.         set newKey $hostName
  2169.     }
  2170.     set newData [concat [string trim $realName] $route]
  2171.     if {$beforeEntry == ""} {
  2172.         # the file was empty !
  2173.         Map:Set $appvals(fileid) $newKey $newData
  2174.     } else {
  2175.         set beforePartial ""
  2176.         set beforeHostName ""
  2177.         keylget beforeEntry partial beforePartial
  2178.         keylget beforeEntry hostName beforeHostName
  2179.         if {$beforePartial == "TRUE"} {
  2180.             set beforeKey ".${beforeHostName}"
  2181.         } else {
  2182.             set beforeKey $beforeHostName
  2183.         }
  2184.         Map:Insert $appvals(fileid) $newKey $newData $beforeKey
  2185.     }
  2186. }
  2187. proc DomainModify {oldEntry newEntry} {
  2188.     global appvals
  2189.     keylget newEntry partial partial
  2190.     keylget newEntry hostName hostName
  2191.     keylget newEntry realName realName
  2192.     keylget newEntry route route
  2193.     if {$partial == "TRUE"} {
  2194.         set newKey ".${hostName}"
  2195.     } else {
  2196.         set newKey $hostName
  2197.     }
  2198.     set newData [concat [string trim $realName] $route]
  2199.     keylget oldEntry partial oldPartial
  2200.     keylget oldEntry hostName oldHostName
  2201.     if {$oldPartial == "TRUE"} {
  2202.         set oldKey ".${oldHostName}"
  2203.     } else {
  2204.         set oldKey $oldHostName
  2205.     }
  2206.     if {[cequal $newKey $oldKey]} {
  2207.         Map:Set $appvals(fileid) $newKey $newData
  2208.     } else {
  2209.         Map:Insert $appvals(fileid) $newKey $newData $oldKey
  2210.         Map:Unset $appvals(fileid) $oldKey
  2211.     }
  2212. }
  2213. proc DomainSwapPosition {entry1 entry2} {
  2214.     global appvals
  2215.     set partial1 ""
  2216.     set hostName1 ""
  2217.     keylget entry1 partial partial1
  2218.     keylget entry1 hostName hostName1
  2219.     if {$partial1 == "TRUE"} {
  2220.         set key1 ".${hostName1}"
  2221.     } else {
  2222.         set key1 $hostName1
  2223.     }
  2224.     set data1 [Map:Get $appvals(fileid) $key1]
  2225.     set partial2 ""
  2226.     set hostName2 ""
  2227.     keylget entry2 partial partial2
  2228.     keylget entry2 hostName hostName2
  2229.     if {$partial2 == "TRUE"} {
  2230.         set key2 ".${hostName2}"
  2231.     } else {
  2232.         set key2 $hostName2
  2233.     }
  2234.     Map:Unset $appvals(fileid) $key1
  2235.     Map:Insert $appvals(fileid) $key1 $data1 $key2
  2236. }
  2237. proc DomainIsModified {} {
  2238.     global appvals
  2239.     if {$appvals(fileid) != -1} {
  2240.         return [Map:Modified $appvals(fileid)]
  2241.     } else {
  2242.         return 0
  2243.     }
  2244. }
  2245. proc DomainEntryExists {hostname} {
  2246.     global appvals
  2247.     set allKeys [string tolower [Map:List $appvals(fileid)]]
  2248.     if {[lsearch -exact $allKeys [string tolower $hostname]] == -1 && \
  2249.         [lsearch -exact $allKeys [string tolower ".${hostname}"]] == -1} {
  2250.         return 0
  2251.     } else {
  2252.         return 1
  2253.     }
  2254. }
  2255. proc DomainSetMainListLabel {maxHostNameLength} {
  2256.     global appvals
  2257.     set mainList [VxGetVar $appvals(vtMain) mainList]
  2258.     if {[VtInfo -charm]} {
  2259.         set labelList [list \
  2260.             [IntlMsg COLUMN_PARTIAL_LBL_CHARM] \
  2261.             [IntlMsg COLUMN_HOST_LBL] \
  2262.             [IntlMsg COLUMN_ROUTE_LBL]]
  2263.     } else {
  2264.         set labelList [list \
  2265.             [IntlMsg COLUMN_PARTIAL_LBL] \
  2266.             [IntlMsg COLUMN_HOST_LBL] \
  2267.             [IntlMsg COLUMN_ROUTE_LBL]]
  2268.     }
  2269.     if {[VtInfo -charm]} {
  2270.         # add 1 for the right margin width
  2271.         set fieldLength [expr $maxHostNameLength + 1]
  2272.         # For charm, we can't really go beyond 60 chars for the
  2273.         # hostname portion of the label
  2274.         if {$fieldLength > 60} {
  2275.             set fieldLength 60
  2276.         }
  2277.         set labelFormat "%-3s%-${fieldLength}s%-20s"
  2278.         set label [format $labelFormat \
  2279.             [lindex $labelList 0] \
  2280.             [lindex $labelList 1] \
  2281.             [lindex $labelList 2]]
  2282.         set header [VxGetVar $appvals(vtMain) header]
  2283.         VtSetValues $header -label $label
  2284.     }
  2285.     # Try to adjust the length to compensate for variable char widths,
  2286.     # and then add 1 for right margin 
  2287.     set fieldLength [expr [AdjustFieldLength $maxHostNameLength] + 1]
  2288.     VtSetValues $mainList -labelFormatList [list \
  2289.         [list STRING 1 14 10] \
  2290.         [list STRING $fieldLength] \
  2291.         [list STRING 20]]
  2292.     VtSetValues $mainList -labelList $labelList
  2293. }
  2294. proc DomainBuildMainList {form top} {
  2295.     global appvals
  2296.     if {[VtInfo -charm]} {
  2297.         set labelList [list \
  2298.             [IntlMsg COLUMN_PARTIAL_LBL_CHARM] \
  2299.             [IntlMsg COLUMN_HOST_LBL] \
  2300.             [IntlMsg COLUMN_ROUTE_LBL]]
  2301.         set labelFormat "%-3s%-20s%-20s"
  2302.         set label [format $labelFormat \
  2303.             [lindex $labelList 0] \
  2304.             [lindex $labelList 1] \
  2305.             [lindex $labelList 2]]
  2306.         set header [VtLabel $form.header \
  2307.                 -labelLeft \
  2308.                 -leftSide FORM \
  2309.                 -leftOffset 3 \
  2310.                 -rightSide FORM \
  2311.                 -topSide $top \
  2312.                 -topOffset 1\
  2313.                 -bottomSide NONE \
  2314.                 -label $label]
  2315.         VxSetVar $form header $header
  2316.         set top $header
  2317.     }
  2318.     set mainList [VtDrawnList $form.mainList \
  2319.             -MOTIF_rows 10 -CHARM_rows 25 \
  2320.             -MOTIF_columns 80 -CHARM_columns 20 \
  2321.             -horizontalScrollBar TRUE \
  2322.             -leftSide FORM \
  2323.             -MOTIF_leftOffset 5 -CHARM_leftOffset 0 \
  2324.             -rightSide FORM \
  2325.             -MOTIF_rightOffset 5 -CHARM_rightOffset 0 \
  2326.             -topSide $top \
  2327.             -MOTIF_topOffset 10 -CHARM_topOffset 0 \
  2328.             -bottomSide NONE \
  2329.             -selection MULTIPLE \
  2330.             -callback DomainMainListCB \
  2331.             -defaultCallback DomainMainListDoubleCB \
  2332.             -autoLock {DomainMainListDoubleCB}]
  2333.     VxSetVar $form mainList $mainList
  2334.     DomainSetMainListLabel 30
  2335.     return $mainList
  2336. }
  2337. proc DomainMainListCB {cbs} {
  2338.     UiMainListCB $cbs
  2339. }
  2340. proc DomainMainListDoubleCB {cbs} {
  2341.     UiMainListDoubleCB $cbs
  2342. }
  2343. proc DomainInit {} {
  2344.     global appvals
  2345.     set appvals(title)     [IntlMsg TITLE $appvals(filename)]
  2346.     set appvals(object)     [IntlMsg OBJECT]    
  2347.     set appvals(objectmn)    [IntlMsg OBJECT_MN]    
  2348.     set appvals(itemname)    [IntlMsg ITEMS]    
  2349. }
  2350. proc DomainWrite {} {
  2351.     global appvals
  2352.     global errorInfo
  2353.     #
  2354.     # commit the changes to file
  2355.     #
  2356.     # force a write since Map:Write will usually only write if
  2357.     # modifcations are made
  2358.     Map:ForceWrites $appvals(fileid)
  2359.     if {[ErrorCatch errStack 0 "Map:Write $appvals(fileid)" result]} {
  2360.         ErrorPush errStack 0 [IntlErrId NONSTDCMD] [list $errorInfo]
  2361.         ErrorPush errStack 1 [IntlErrId WRITE] $appvals(filename)
  2362.     }
  2363.     #
  2364.     # compile the database
  2365.     #
  2366.     set cmd [list exec /etc/mail/makemap hash $appvals(filename) < $appvals(filename) >& /dev/null]
  2367.     if {[ErrorCatch errStack 0 $cmd result]} {
  2368.         ErrorPush errStack 0 [IntlErrId NONSTDCMD] [list $errorInfo]
  2369.         ErrorPush errStack 1 [IntlErrId DATABASE] $appvals(filename).db
  2370.     }
  2371. }
  2372. set appvals(script) [file tail [info script]]    ;# argv[0]: UNIX command name 
  2373. set appvals(client) $appvals(script)        ;# widget strings, preferences
  2374. set appvals(filename) {}            ;# filename of domain table
  2375. set appvals(fileid) -1                ;# backend file id of table
  2376. set appvals(hostname) localhost            ;# name of host being managed
  2377. proc Exit {{code 0}} {
  2378.     # Final exit tasks
  2379.     exit $code
  2380. }
  2381. proc Usage {} {
  2382.     global appvals
  2383.     set usage [IntlErr USAGE $appvals(script)]
  2384.     puts stderr $usage
  2385. }
  2386. proc ParseCommandLine {} {
  2387.     global argv argc optarg opterr optind appvals
  2388.     # scan for commandline flags
  2389.     set optString    "f:h:"
  2390.     set argc [llength $argv]
  2391.     if {$argc == 0} {
  2392.         Usage; Exit 1
  2393.     }
  2394.     set opterr 0
  2395.     while {[set opt [getopt $argc $argv $optString]] != -1} {
  2396.         switch $opt {
  2397.             {f} {
  2398.                 set appvals(filename) $optarg
  2399.             }
  2400.             {h} {
  2401.                 set appvals(hostname) $optarg
  2402.             }
  2403.             {?} {
  2404.                 Usage; Exit 1
  2405.             }
  2406.         }
  2407.     }
  2408.     # process commandline arguments
  2409.     set optCount [expr "$argc - $optind"]
  2410.     if {$optCount > 0} {
  2411.         Usage; Exit 1
  2412.     }
  2413.     if {"$appvals(filename)" == ""} {
  2414.         Usage; Exit 1
  2415.     }
  2416. }
  2417. proc Main {} {
  2418.     global appvals errorInfo
  2419.     # Collect command line options
  2420.     ParseCommandLine
  2421.     # Initialize UI, build main form, present initial view
  2422.     # Init a few globals first
  2423.     DomainInit
  2424.     UiStart
  2425.     # Main UI is now presented and Locked
  2426.     # Time-consuming startup operations can now take place with
  2427.     # optional status messages 
  2428.     #
  2429.     # + collect data to populate main form widgets
  2430.     # + populate main form widgets with live data
  2431.     SaStatusBarSet \
  2432.         [VxGetVar $appvals(vtMain) statusBar] [IntlMsg INIT] 
  2433.     # Show/hide the toolbar, depending on screen policy
  2434.     if {! [VtInfo -charm]} {
  2435.         set cmd "set visibility \[SaScreenPolicyGet $appvals(client) toolbarVisibility\]"
  2436.         if {[ErrorCatch errStack 0 $cmd errMsg] != 0} {
  2437.             set visibility 1
  2438.         }
  2439.         set menuBar [VxGetVar $appvals(vtMain) menuBar]
  2440.         set optionMenu [VxGetVar $menuBar optionMenu]
  2441.         set toolBarToggle [VxGetVar $optionMenu toolBarToggle]
  2442.         set toolBar [VxGetVar $appvals(vtMain) toolBar]
  2443.         set toolBarFrame [VxGetVar $appvals(vtMain) toolBarFrame]
  2444.         VtSetValues $toolBarToggle -value $visibility
  2445.         UiToolBarSetVisibilityCB
  2446.         }
  2447.     # if file does not exist, let the user know
  2448.     if {![file exists $appvals(filename)]} {
  2449.         set main $appvals(vtMain)
  2450.         set dialog [VtInformationDialog $main.exist \
  2451.                 -message [IntlMsg FILE_DOESNT_EXIST] \
  2452.                 -ok]
  2453.         VtShow $dialog
  2454.     }
  2455.     # if file is a directory, show error and exit
  2456.     if {[file isdirectory $appvals(filename)]} {
  2457.         set main $appvals(vtMain)
  2458.         set dialog [VtErrorDialog $main.error \
  2459.             -message [IntlErr DIRECTORY $appvals(filename)] \
  2460.             -ok -okCallback UiCloseCB -wmCloseCallback UiCloseCB]
  2461.         VtShow $dialog
  2462.         VtUnLock
  2463.         VtMainLoop
  2464.         return
  2465.     }
  2466.     # Open the file and read in the data to back end structures
  2467.     if {[ErrorCatch errStack 0 "Map:Open $appvals(filename)" result]} {
  2468.         ErrorPush errStack 0 [IntlErrId NONSTDCMD] [list $errorInfo]
  2469.         ErrorPush errStack 0 [IntlErrId LOAD] $appvals(filename)
  2470.         VtUnLock
  2471.         UiDisplayErrorStacks Main $errStack UiCloseCB
  2472.     } else {
  2473.         set appvals(fileid) $result
  2474.     }
  2475.     # Refresh main form data
  2476.     UiRefreshCB
  2477.     # Select first item, if exists
  2478.     set mainList [VxGetVar $appvals(vtMain) mainList]
  2479.     if {![lempty [VtDrawnListGetItem $mainList -all]]} {
  2480.         VtDrawnListSelectItem $mainList -position 1
  2481.     }
  2482.     # update the count label
  2483.     UiUpdateCountLabel
  2484.     # Set initial focus (list or menu bar)
  2485.     UiSetAppFocus
  2486.     # Set sensitivity of all main screen ui selection devices
  2487.     UiSensitizeMainFunctions
  2488.     # Setup complete
  2489.     # Wait for user events
  2490.     SaStatusBarClear [VxGetVar $appvals(vtMain) statusBar]
  2491.     VtUnLock
  2492.     VtMainLoop
  2493. }
  2494. proc CloseWithUi {} {
  2495.     set saveConfirmDlg [UiBuildSaveConfirmDialog]
  2496.     VtShow $saveConfirmDlg
  2497. }
  2498. proc CloseAfterUi {} {
  2499.     Exit
  2500. }
  2501. proc Refresh {} {
  2502.     global appvals
  2503.     # Populate main form data here
  2504.     set data {}
  2505.     # TODO
  2506.     # Setup simple example using the "who" module
  2507.     # Except for the following line, Refresh should be generic
  2508.     # and usable as is.
  2509.     # load Ui
  2510.     set data [DomainGetData]
  2511.     UiMainListSetItems $data
  2512. }
  2513. ErrorTopLevelCatch {Main} $appvals(script)
  2514.