home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / scoadmin / root.3 / etc / mail / admin / channel / channel~
Text File  |  1998-08-19  |  61KB  |  1,960 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_CHANNEL_MSGS {} {}
  17. global SCO_MAIL_ADMIN_CHANNEL_MSGS
  18. set SCO_MAIL_ADMIN_CHANNEL_MSGS(@catalog@) {channel.cat@mail 1}
  19. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_HELPBOOK) {1 channel}
  20. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_TITLE) {2 {Channel Table File %1$s}}
  21. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ITEMS) {3 Entries}
  22. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_FILE_DOESNT_EXIST) {4 {File does not exist}}
  23. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OK) {5 OK}
  24. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_CANCEL) {6 Cancel}
  25. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_HELP) {7 Help}
  26. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_COLUMN_HOST_LBL) {8 Host}
  27. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_COLUMN_FORWARD_LBL) {9 {Forward Via}}
  28. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OBJECT) {10 Entry}
  29. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OBJECT_MN) {11 E}
  30. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_ADD_LBL) {12 Add...}
  31. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_ADD_MN) {13 A}
  32. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_ADD_SH) {14 {Add a channel table entry...}}
  33. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_DELETE_LBL) {15 Delete}
  34. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_DELETE_MN) {16 D}
  35. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_DELETE_SH) {17 {Delete a channel table entry}}
  36. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_MODIFY_LBL) {18 Modify...}
  37. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_MODIFY_MN) {19 M}
  38. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_MODIFY_SH) {20 {Modify a channel table entry...}}
  39. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_UP_LBL) {21 {Move Up}}
  40. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_UP_MN) {22 U}
  41. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_UP_SH) {23 {Move a channel table entry up in order}}
  42. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_DOWN_LBL) {24 {Move Down}}
  43. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_DOWN_MN) {25 o}
  44. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_DOWN_SH) {26 {Move a channel table entry down in order}}
  45. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_SAVE_LBL) {27 Save}
  46. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_SAVE_MN) {28 S}
  47. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_SAVE_SH) {29 {Save any changes}}
  48. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_EXIT_LBL) {30 Exit}
  49. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_EXIT_MN) {31 x}
  50. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ENTRY_MENU_EXIT_SH) {32 {Exit %s}}
  51. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OPTIONS_MENU) {33 Options}
  52. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OPTIONS_MN) {34 O}
  53. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OPTIONS_TOOLBAR) {35 Toolbar}
  54. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_OPTIONS_TOOLBAR_SH) {36 {Show/hide Toolbar}}
  55. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ADD_TITLE) {37 {Add Channel Table Entry}}
  56. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_MODIFY_TITLE) {38 {Modify Channel Table Entry}}
  57. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_NAME_LBL) {39 {Host Name}}
  58. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_NAME_SH) {40 {Enter the host name to be matched for this entry}}
  59. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_NAME_MISSING) {41 {No host name specified for \"Host Name\" field}}
  60. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_NAME_DUPLICATE) {42 {An entry for host name \"%1$s\" already exists}}
  61. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_REAL_NAME_LBL) {43 {Forwarding Host Name}}
  62. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_REAL_NAME_SH) {44 {Enter the host mail will be forwarded to}}
  63. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_REAL_NAME_MISSING) {45 {No host name specified for \"Forwarding Host Name\" field}}
  64. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SELECT_BTN_LBL) {46 Select...}
  65. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_NAME_SPACE) {47 {A host name may not contain a space}}
  66. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_LIST_LBL) {48 {Route to host:}}
  67. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_ENTER_NAME) {49 {You did not enter a host name}}
  68. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_ADD_BTN_LBL) {50 {    Add...   }}
  69. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_ADD_BTN_SH) {51 {Add a host to the route}}
  70. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_DELETE_BTN_LBL) {52 {   Delete   }}
  71. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_DELETE_BTN_SH) {53 {Delete a host from the route}}
  72. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_UP_BTN_SH) {54 {Move this host name up in the route}}
  73. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_DOWN_BTN_SH) {55 {Move this host name down in the route}}
  74. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_DO_PARTIAL_LBL) {56 {Do subdomain lookups}}
  75. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_DO_PARTIAL_SH) {57 {Allow subdomain lookups on the host name}}
  76. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_ADD_DLG_TITLE) {58 {Add To Route}}
  77. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_ROUTE_ADD_DLG_TEXT_LBL) {59 {Enter host name(s):}}
  78. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SAVE_CONFIRM_TITLE) {60 {Save Changes?}}
  79. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SAVE_CONFIRM_QUERY) {61 {Do you wish to save the changes made?}}
  80. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SAVE_CONFIRM_BTN_YES) {62 Yes}
  81. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SAVE_CONFIRM_BTN_NO) {63 No}
  82. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SAVE_CONFIRM_BTN_CANCEL) {64 Cancel}
  83. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_TB_ADD) {65 Add...}
  84. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_TB_DELETE) {66 Delete}
  85. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_TB_MODIFY) {67 Modify...}
  86. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_BTN_UP_PX) {68 /etc/mail/admin/px/prev.px}
  87. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_BTN_DOWN_PX) {69 /etc/mail/admin/px/next.px}
  88. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SELECTED) {70 Selected}
  89. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_COUNT_LABEL_STRING) {71 {%1$s %2$s, %3$s %4$s}}
  90. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_PARTIAL_LABEL_STRING) {72 {* this entry allows subdomain lookups on the host name}}
  91. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_INIT) {73 Initializing...}
  92. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_REFRESH) {74 {Loading channel table data...}}
  93. set SCO_MAIL_ADMIN_CHANNEL_MSGS(MSG_SAVE) {75 {Saving channel table data...}}
  94. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_USAGE) {76 {Usage: %1$s -f filename [-h hostname]}}
  95. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_DIRECTORY) {77 {\"%1$s\" is a directory, not a file}}
  96. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_DATABASE) {78 {Unable to create channel table database\n\"%1$s\"}}
  97. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_WRITE) {79 {Unable to write channel table file\n\"%1$s\"}}
  98. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_LOAD) {80 {Unable to load channel table file\n\"%1$s\"}}
  99. set SCO_MAIL_ADMIN_CHANNEL_MSGS(ERR_NONSTDCMD) {81 %s}
  100. set appvals(intlpre) SCO_MAIL_ADMIN_CHANNEL        ;# i10n msg prefix
  101. proc IntlMsg {id {argList {}}} {
  102.     global appvals
  103.     return [IntlLocalizeMsg $appvals(intlpre)_MSG_$id $argList]
  104. }
  105. proc IntlErr {id {argList {}}} {
  106.     global appvals
  107.     return [IntlLocalizeMsg $appvals(intlpre)_ERR_$id $argList]
  108. }
  109. proc IntlErrId {id} {
  110.     global appvals
  111.     return $appvals(intlpre)_ERR_$id
  112. }
  113. proc ConfigFile:Open {} {
  114.     global Config_next
  115.     if {![info exists Config_next]} {
  116.     set Config_next 0
  117.     }
  118.     set file "config$Config_next"
  119.     incr Config_next
  120.     upvar #0 Config_${file}_next file_next
  121.     set file_next "1.0"
  122.     return $file
  123. }
  124. proc ConfigFile:Close {file} {
  125.     upvar #0 Config_$file fileList
  126.     upvar #0 Config_${file}_next file_next
  127.     unset file_next
  128.     foreach line [ConfigFile:GetList $file] {
  129.     unset fileList($line)
  130.     }
  131. }
  132. proc ConfigFile:Compare {line1 line2} {
  133.     set subLine1 [ctoken line1 "."]
  134.     set subLine2 [ctoken line2 "."]
  135.     if {$subLine1 == "" && $subLine2 == ""} {
  136.     return 0
  137.     } elseif {$subLine1 == ""} {
  138.     return -1
  139.     }  elseif {$subLine2 == ""} {
  140.     return 1
  141.     } elseif {$subLine1 < $subLine2} {
  142.     return -1
  143.     } elseif {$subLine1 > $subLine2} {
  144.     return 1
  145.     } else {
  146.     set line1 [string trimleft $line1 "."]
  147.     set line2 [string trimleft $line2 "."]
  148.     return [ConfigFile:Compare $line1 $line2]
  149.     }
  150. }
  151. proc ConfigFile:ReplaceLine {file line type id dataVar} {
  152.     upvar #0 Config_$file fileList
  153.     upvar #0 Config_${file}_next file_next
  154.     upvar $dataVar data
  155.     keylset fileList($line) type $type
  156.     keylset fileList($line) data $data
  157.     keylset fileList($line) id $id
  158.     if {[ConfigFile:Compare $line $file_next] == 1} {
  159.     set temp $line
  160.     set file_next [ctoken temp "."]
  161.     incr file_next
  162.     set file_next "${file_next}.0"
  163.     }
  164. }
  165. proc ConfigFile:AppendLine {file line type id dataVar} {
  166.     upvar #0 Config_$file fileList
  167.     upvar #0 Config_${file}_next file_next
  168.     upvar $dataVar data
  169.     if {$line == -1} {
  170.     set line $file_next
  171.     set temp [ctoken file_next "."]
  172.     incr temp
  173.     set file_next "${temp}.0"
  174.     } else {
  175.     set found 0
  176.     set left [ctoken line "."]
  177.     set right [ctoken line "."]
  178.     if {$right == "0"} {
  179.         set tryNext $left
  180.         incr tryNext
  181.         set tryNext "${tryNext}.0"
  182.         if {![info exists fileList($tryNext)]} { 
  183.         set found 1
  184.         }
  185.     }
  186.     if {!$found} {
  187.         set lastDigit [cindex $right end]
  188.         if {$lastDigit < 9} {
  189.             incr lastDigit
  190.             set tryNext "${left}.[csubstr $right 0 end]${lastDigit}"
  191.             if {![info exists fileList($tryNext)]} {
  192.             set found 1
  193.             }    
  194.         }
  195.     }
  196.     if {!$found} {
  197.         set leadingZeros ""
  198.         set tryNext "${left}.${right}.1"
  199.         while {[info exists fileList($tryNext)]} {
  200.         set leadingZeros "${leadingZeros}.0"
  201.         set tryNext "${left}.${right}${leadingZeros}.1"
  202.         }
  203.     }
  204.     set line $tryNext
  205.     }
  206.     keylset fileList($line) type $type
  207.     keylset fileList($line) id $id
  208.     keylset fileList($line) data $data
  209.     if {[string compare $line $file_next] == 1} {
  210.     set temp $line
  211.     set file_next [ctoken temp "."]
  212.     incr file_next
  213.     set file_next "${file_next}.0"
  214.     }
  215.     return $line
  216. }
  217. proc ConfigFile:GetLine {file line typeVar idVar dataVar} {
  218.     upvar #0 Config_$file fileList
  219.     upvar $typeVar type
  220.     upvar $idVar id
  221.     upvar $dataVar data
  222.     if {![info exists fileList($line)]} {
  223.     set type {}
  224.     set id {}
  225.     set data {}
  226.     return -1
  227.     }
  228.     keylget fileList($line) type type
  229.     keylget fileList($line) id id
  230.     keylget fileList($line) data data
  231.     return 0
  232. }
  233. proc ConfigFile:RemoveLine {file line} {
  234.     upvar #0 Config_$file fileList
  235.     if {![info exists fileList($line)]} {
  236.     # already gone
  237.     return
  238.     }
  239.     unset fileList($line)
  240. }
  241. proc ConfigFile:GetList {file} {
  242.     upvar #0 Config_$file fileList
  243.     if {![info exists fileList]} {
  244.     return {}
  245.     }
  246.     return [lsort -command ConfigFile:Compare [array names fileList]]
  247. }
  248. proc Table:ProcessLine {fileID type id data} {
  249.     global Table_lastType Table_lastID
  250.     set lineNum [ConfigFile:AppendLine $fileID -1 $type $id data]
  251.     if {[Table:GetOption $fileID makelower] != {}} {
  252.     set id [string tolower $id]
  253.     }
  254.     case $type {
  255.     CONTINUATION {
  256.         set type $Table_lastType
  257.         set id $Table_lastID
  258.     }
  259.     COMMENT {
  260.     }
  261.     default {
  262.         set Table_lastType $type
  263.         set Table_lastID $id
  264.     }
  265.     }
  266.     if {$id != {}} {
  267.     upvar #0 Table_${fileID}_$type typeList
  268.     lappend typeList($id) $lineNum
  269.     }
  270. }
  271. proc Table:Read {fileName callBack mode} {
  272.     global Table_info
  273.     if {[info exists Table_info($fileName.ID)]} {
  274.     return $Table_info($fileName.ID)
  275.     }
  276.     set fileID [ConfigFile:Open]
  277.     set Table_info($fileID.mode) $mode
  278.     if {![file exists $fileName]} {
  279.     return $fileID
  280.     }
  281.     set fp [open $fileName r]
  282.     set Table_info($fileName.ID) $fileID
  283.     set Table_info($fileID.fileName) $fileName
  284.     eval $callBack $fileID $fp
  285.     close $fp
  286.     return $fileID
  287. }
  288. proc Table:Write {fileID {fileName {}} {callBack {}}} {
  289.     global Table_info
  290.     if {[info exists Table_info($fileID.deferred)]} {
  291.     return
  292.     }
  293.     if {![info exists Table_info($fileID.modified)] && $fileName == {}} {
  294.     return
  295.     }
  296.     if {$callBack == {}} {
  297.     set callBack $Table_info($fileID.writeCB)
  298.     }
  299.     if {$fileName == {}} {
  300.     set fileName $Table_info($fileID.fileName)
  301.     set clearModified 1
  302.     } else {
  303.     set clearModified 0
  304.     }
  305.     #
  306.     # If the file exists, make sure the new file has the
  307.     # same owner and perms.  Otherwise, make sure the
  308.     # parent directory exists.
  309.     #
  310.     if {[file exists $fileName]} {
  311.     file stat $fileName info
  312.     set Table_info($fileID.uid) $info(uid)
  313.     set Table_info($fileID.gid) $info(gid)
  314.     set Table_info($fileID.mode) $info(mode)
  315.     } else {
  316.     set directory [file dirname $fileName]
  317.     set oldUmask [umask]
  318.     umask 0222
  319.     if {![file isdirectory $directory]} {
  320.         mkdir -path $directory
  321.     }
  322.     umask $oldUmask
  323.     }
  324.     set fp [open ${fileName}.new w]
  325.     chmod $Table_info($fileID.mode) ${fileName}.new
  326.     if {[info exists Table_info($fileID.uid)]} {
  327.     chown [list $Table_info($fileID.uid) $Table_info($fileID.gid)] \
  328.         ${fileName}.new
  329.     }
  330.     foreach line [ConfigFile:GetList $fileID] {
  331.     if {[ConfigFile:GetLine $fileID $line type id data] != 0} {
  332.         continue
  333.     }
  334.     eval "$callBack $fileID $fp {$type} {$id} {$data}"
  335.     }
  336.     close $fp
  337.     if {[file exists $fileName]} {
  338.     unlink $fileName
  339.     }
  340.     frename ${fileName}.new $fileName
  341.     if {$clearModified} {
  342.     unset Table_info($fileID.modified)
  343.     }
  344. }
  345. proc Table:Open {fileName readCB writeCB {mode 0666}} {
  346.     global Table_info
  347.     set fileID [Table:Read $fileName $readCB $mode]
  348.     set Table_info($fileID.fileName) $fileName
  349.     set Table_info($fileID.readCB) $readCB
  350.     set Table_info($fileID.writeCB) $writeCB
  351.     set Table_info($fileName.ID) $fileID
  352.     return $fileID
  353. }
  354. proc Table:Close {fileID {fileName {}}} {
  355.     global Table_info
  356.     if {![info exists Table_info($fileID.fileName)]} {
  357.     return
  358.     }
  359.     if {[info exists Table_info($fileID.deferred)]} {
  360.     unset Table_info($fileID.deferred)
  361.     }
  362.     Table:Write $fileID $fileName $Table_info($fileID.writeCB)
  363.     if {$fileName == {}} {
  364.     set fileName $Table_info($fileID.fileName)
  365.     }
  366.     unset Table_info($fileID.fileName)
  367.     unset Table_info($fileName.ID)
  368.     ConfigFile:Close $fileID
  369. }
  370. proc Table:CloseNoWrite {fileID {fileName {}}} {
  371.     global Table_info
  372.     if {![info exists Table_info($fileID.fileName)]} {
  373.     return
  374.     }
  375.     if {[info exists Table_info($fileID.deferred)]} {
  376.     unset Table_info($fileID.deferred)
  377.     }
  378.     if {$fileName == {}} {
  379.     set fileName $Table_info($fileID.fileName)
  380.     }
  381.     unset Table_info($fileID.fileName)
  382.     unset Table_info($fileName.ID)
  383.     ConfigFile:Close $fileID
  384. }
  385. proc Table:DeferWrites {fileID} {
  386.     global Table_info
  387.     set Table_info($fileID.deferred) 1
  388. }
  389. proc Table:ForceWrites {fileID} {
  390.     global Table_info
  391.     if {[info exists Table_info($fileID.deferred)]} {
  392.     unset Table_info($fileID.deferred)
  393.     }
  394.     set Table_info($fileID.modified) 1
  395. } 
  396. proc Table:SetOption {fileID option {value 1}} {
  397.     global Table_options
  398.     set Table_options($fileID.$option) $value
  399. }
  400. proc Table:HasOption {fileID option} {
  401.     return [info exists Table_options($fileID.$option)]
  402. }
  403. proc Table:GetOption {fileID option} {
  404.     global Table_options
  405.     if {![info exists Table_options($fileID.$option)]} {
  406.     return {}
  407.     }
  408.     return $Table_options($fileID.$option)
  409. }
  410. proc Table:Modified {fileID} {
  411.     global Table_info
  412.     if {[info exists Table_info($fileID.modified)]} {
  413.     return $Table_info($fileID.modified)
  414.     } else {
  415.     return 0
  416.     }
  417. }
  418. proc Table:GetLineList {fileID type {idList {}}} {
  419.     upvar #0 Table_${fileID}_$type typeList
  420.     if {![info exists typeList]} {
  421.     return {}
  422.     }
  423.     if {$idList == {}} {
  424.     set idList [array names typeList]
  425.     }
  426.     set lineList {}
  427.     foreach id $idList {
  428.     if {[info exists typeList($id)]} {
  429.         append lineList " $typeList($id)"
  430.     }
  431.     }
  432.     return [lsort -command ConfigFile:Compare $lineList]
  433. }
  434. proc Table:Get {fileID type id {separator {}}} {
  435.     upvar #0 Table_${fileID}_$type typeList
  436.     if {[Table:GetOption $fileID makelower] != {}} {
  437.     set id [string tolower $id]
  438.     }
  439.     set value {}
  440.     if {![info exists typeList($id)]} {
  441.     return $value
  442.     }
  443.     set numLines [llength [Table:GetLineList $fileID $type $id]]
  444.     set thisLine 1
  445.     foreach line $typeList($id) {
  446.     ConfigFile:GetLine $fileID $line dummy dummy data
  447.     if {$thisLine == $numLines} {
  448.         append value "$data"
  449.     } else {
  450.         set data [string trim $data "$separator"]
  451.         append value "$data$separator"
  452.     }
  453.     incr thisLine
  454.     }
  455.     set value [string trimleft $value $separator]
  456.     return $value
  457. }
  458. proc Table:Set {fileID type id data} {
  459.     upvar #0 Table_${fileID}_${type} typeList
  460.     global Table_info
  461.     global Table_lastType Table_lastID
  462.     set name $id
  463.     if {[Table:GetOption $fileID makelower] != {}} {
  464.     set id [string tolower $id]
  465.     }
  466.     if {[info exists typeList($id)]} {
  467.     foreach line $typeList($id) {
  468.         ConfigFile:RemoveLine $fileID $line
  469.     }
  470.     set line [lindex $typeList($id) 0]
  471.     unset typeList($id)
  472.     } else {
  473.     if {[set lineList [Table:GetLineList $fileID $type]] != {}} {
  474.         set line [lindex $lineList end]
  475.     } else {
  476.         if {[Table:GetOption $fileID newFirst] == 1} {
  477.         set line 0
  478.         } else {
  479.         set line -1
  480.         }
  481.     }
  482.     }
  483.     lappend typeList($id) [ConfigFile:AppendLine $fileID $line \
  484.     $type $name data]
  485.     set Table_lastType $type
  486.     set Table_lastID $id
  487.     set Table_info($fileID.modified) 1
  488. }
  489. proc Table:Unset {fileID type id} {
  490.     upvar #0 Table_${fileID}_$type typeList
  491.     global Table_info
  492.     if {[Table:GetOption $fileID makelower] != {}} {
  493.     set id [string tolower $id]
  494.     }
  495.     if {![info exists typeList($id)]} {
  496.     return
  497.     }
  498.     foreach line $typeList($id) {
  499.     ConfigFile:RemoveLine $fileID $line
  500.     }
  501.     unset typeList($id)
  502.     set Table_info($fileID.modified) 1
  503. }
  504. proc Table:AppendLine {fileID type id value {line {}}} {
  505.     global Table_lastType Table_lastID
  506.     global Table_info
  507.     if {$type == "CONTINUATION"} {
  508.     upvar #0 Table_${fileID}_$Table_lastType typeList
  509.     } else {
  510.     upvar #0 Table_${fileID}_$type typeList
  511.     }
  512.     if {[Table:GetOption $fileID makelower] != {}} {
  513.     set id [string tolower $id]
  514.     }
  515.     if {$line == ""} {
  516.     if {[info exists typeList($id)]} {
  517.         set line [lindex $typeList($id) end]
  518.     } else {
  519.         if {[set lineList [Table:GetLineList $fileID $type]] == {}} {
  520.         set line [lindex $lineList end]
  521.         } else {
  522.         if {[Table:GetOption $fileID newFirst] == 1} {
  523.             set line 0
  524.         } else {
  525.             set line -1
  526.         }
  527.         }
  528.     }
  529.     }
  530.     if {$type == "CONTINUATION"} {
  531.     lappend typeList($id) \
  532.         [ConfigFile:AppendLine $fileID $line $type {} value]
  533.     } else {
  534.     lappend typeList($id) \
  535.         [ConfigFile:AppendLine $fileID $line $type $id value]
  536.     }
  537.     set Table_info($fileID.modified) 1
  538. }
  539. proc Table:RemoveLine {fileID type id deleteLine} {
  540.     upvar #0 Table_${fileID}_$type typeList
  541.     global Table_info
  542.     if {[Table:GetOption $fileID makelower] != {}} {
  543.     set id [string tolower $id]
  544.     }
  545.     if {![info exists typeList($id)]} {
  546.     return
  547.     }
  548.     set index 0
  549.     foreach line $typeList($id) {
  550.     if {$line == $deleteLine} {
  551.         lvarpop typeList($id) $index
  552.         ConfigFile:RemoveLine $fileID $line
  553.         break
  554.     }
  555.     incr index
  556.     }
  557.     set Table_info($fileID.modified) 1
  558. }
  559. proc Table:ReplaceLine {fileID type replaceLine id data} {
  560.     global Table_info
  561.     upvar #0 Table_${fileID}_$type typeList
  562.     if {[ConfigFile:GetLine $fileID $replaceLine oldType oldId oldData] == 0} {
  563.     if {$oldId != ""} {
  564.             upvar #0 Table_${fileID}_$oldType oldTypeList
  565.         set index [lsearch -exact $oldTypeList($oldId) $replaceLine]
  566.         if {$index != -1} {
  567.         lvarpop oldTypeList($oldId) $index
  568.         if {[lempty $oldTypeList($oldId)]} {
  569.             unset oldTypeList($oldId)
  570.         }
  571.         }
  572.     }
  573.     }
  574.     ConfigFile:ReplaceLine $fileID $replaceLine $type $id data
  575.     if {$id != ""} {
  576.     if {![info exists typeList($id)]} {
  577.         set typeList($id) {}
  578.     }
  579.     lappend typeList($id) $replaceLine
  580.     }
  581.     set Table_info($fileID.modified) 1
  582. }
  583. proc Table:List {fileID type {ordered 0}} {
  584.     upvar #0 Table_${fileID}_$type typeList
  585.     if {![info exists typeList]} {
  586.     return {}
  587.     }
  588.     if {[Table:GetOption $fileID makelower] == {} && $ordered == 0} {
  589.     return [array names typeList]
  590.     }
  591.     #
  592.     # We have to go get the original ids from before they were converted 
  593.     # to lower case, or they want the ids in the order they appear anyway.
  594.     #
  595.     set returnList {}
  596.     foreach line [Table:GetLineList $fileID $type] {
  597.     ConfigFile:GetLine $fileID $line dummy id dummy
  598.     append returnList " $id"
  599.     }
  600.     return [string trimleft $returnList]
  601. }
  602. proc Map:ReadCB {fileID fp} {
  603.     set context [scancontext create]
  604.     scanmatch $context {^([^#][^     ]*)([     ].*)} {
  605.     Table:ProcessLine $fileID entry $matchInfo(submatch0) \
  606.         $matchInfo(submatch1)
  607.     }
  608.     scanmatch $context {
  609.     Table:ProcessLine $fileID COMMENT {} $matchInfo(line)
  610.     }
  611.     scanfile $context $fp
  612.     scancontext delete $context
  613. }
  614. proc Map:WriteCB {fileID fp type id data} {
  615.     case $type {
  616.     entry {
  617.         puts $fp "${id}${data}"
  618.     }
  619.     COMMENT {
  620.         puts $fp $data
  621.     }
  622.     }
  623. }
  624. proc Map:Open {fileName {mode 0644}} {
  625.     return [Table:Open $fileName Map:ReadCB Map:WriteCB $mode]
  626. }
  627. proc Map:Write {fileID {fileName {}}} {
  628.     return [Table:Write $fileID $fileName]
  629. }
  630. proc Map:ForceWrites {fileID} {
  631.     return [Table:ForceWrites $fileID]
  632. }
  633. proc Map:Get {fileID id} {
  634.     return [string trimleft [Table:Get $fileID entry $id]]
  635. }
  636. proc Map:Set {fileID id data} {
  637.     if {![string match {[     ]*} $data]} {
  638.     set data "    $data"
  639.     }
  640.     return [Table:Set $fileID entry $id $data]
  641. }
  642. proc Map:Unset {fileID id} {
  643.     return [Table:Unset $fileID entry $id]
  644. }
  645. proc Map:List {fileID} {
  646.     set lineOrdered 1
  647.     return [Table:List $fileID entry $lineOrdered]
  648. }
  649. proc Map:Insert {fileID id data idBefore} {
  650.     if {![string match {[     ]*} $data]} {
  651.     set data "    $data"
  652.     }
  653.     # there should really not be duplicate entry ids (keys),
  654.     # but in case a duplicate was hand edited in, we pick the first one
  655.     # as it is the only one that counts in the map file
  656.     set lineBefore [lindex [Table:GetLineList $fileID entry $idBefore] 0]
  657.     # put the new entry after $idBefore
  658.     Table:AppendLine $fileID entry $id $data $lineBefore 
  659. }
  660. proc Map:Modified {fileID} {
  661.     return [Table:Modified $fileID]
  662. }
  663. set appvals(vtApp)    {}        ;# VtOpen return; generally not used 
  664. set appvals(vtMain)    {}        ;# widget string of main dialog
  665. set appvals(toolbar)         1        ;# toolbar
  666. set appvals(toolbarcust)     0        ;# customizable toolbar
  667. set appvals(fieldAdjustment)    0.90
  668. proc UiDefaultFormSpacingSet {form} {
  669.     VtSetValues $form \
  670.         -horizontalSpacing 0 \
  671.         -verticalSpacing 0 \
  672.         -marginWidth 0 \
  673.         -marginHeight 0 
  674. }
  675. proc UiDisplayErrorStackCB {callback cbs} {
  676.     global appvals
  677.     set dialog [keylget cbs dialog]
  678.     VtDestroyDialog $dialog
  679.     SaStatusBarClear [VxGetVar $appvals(vtMain) statusBar]
  680.     if {![lempty $callback]} {
  681.         eval $callback [list $cbs]
  682.     }
  683. }
  684. proc UiDisplayErrorStacks {caller stack {callback ""}} {
  685.     global appvals
  686.     SaDisplayErrorStacks $appvals(vtMain).$caller [list $stack] HELP \
  687.         [list UiDisplayErrorStackCB $callback]
  688. }
  689. proc UiSetAppFocus {} {
  690.     global appvals
  691.     VtSetFocus [VxGetVar $appvals(vtMain) menuBar] 
  692.     if {![lempty [UiMainListGetItems]]} {
  693.         VtSetFocus [VxGetVar $appvals(vtMain) mainList]
  694.     }
  695. }
  696. proc AdjustFieldLength {charLength} {
  697.     global appvals
  698.     set fieldLength [expr $charLength * $appvals(fieldAdjustment)]
  699.     return $fieldLength
  700. }
  701. proc UiMainListSetItems {items} {
  702.     global appvals
  703.     set mainList [VxGetVar $appvals(vtMain) mainList]
  704.     VtDrawnListDeleteItem $mainList -all
  705.     set maxLength [VxGetVar $mainList maxLength]
  706.     ChannelSetMainListLabel $maxLength
  707.     set isCharm [VtInfo -charm]
  708.     set CHARM_formatList [list \
  709.         [list STRING $maxLength 0 2]]
  710.     set MOTIF_formatList [list \
  711.         [list STRING [AdjustFieldLength $maxLength] 0 10]]
  712.     foreach entry $items {
  713.         keylget entry hostName hostName
  714.         keylget entry realName realName
  715.         if {$isCharm} {
  716.             set formatList $CHARM_formatList
  717.         } else {
  718.             set formatList $MOTIF_formatList
  719.         }
  720.         lappend formatList [list STRING [clength $realName]]
  721.         set fieldList [list $hostName $realName]
  722.         VtDrawnListAddItem $mainList \
  723.             -formatList $formatList \
  724.             -fieldList $fieldList
  725.     }
  726. }
  727. proc UiMainListGetItems {} {
  728.     global appvals
  729.     return [VtDrawnListGetItem [VxGetVar $appvals(vtMain) mainList] -all]
  730. }
  731. proc UiMainListCB {cbs} {
  732.     global appvals
  733.     # update selected label and widget sensitivity
  734.     UiUpdateCountLabel
  735.     UiSensitizeMainFunctions
  736. }
  737. proc UiMainListDoubleCB {cbs} {
  738.     UiModifyEntryCB $cbs
  739.     VtUnLock
  740. }
  741. proc UiBuildMainList {form top} {
  742.     global appvals 
  743.     # Build basic main form drawnlist widget including:
  744.     # o Manually built title label for CHARM
  745.     # o Drawnlist record format
  746.     # o traditional Count label beneath the drawn list
  747.     set labelFont medNormalFont
  748.     set mainList [ChannelBuildMainList $form $top]
  749.     VxSetVar $form mainList $mainList
  750.     # Define the accompanying count label
  751.     set countLabel [VtLabel $form.countLabel -label " " \
  752.                 -topSide NONE \
  753.                 -leftSide FORM \
  754.                 -rightSide FORM \
  755.                 -bottomSide FORM \
  756.                 -labelRight]
  757.     VxSetVar $form countLabel $countLabel
  758.     VtSetValues $mainList -bottomSide $countLabel
  759.     # Stash the localized string "Selected" here so we only grab it once
  760.     # from the message catalog
  761.     VxSetVar $countLabel selected [IntlMsg SELECTED]
  762.     # Return the bottom-most widget for further attachments
  763.     return $countLabel
  764. }
  765. proc UiUpdateCountLabel {} {
  766.     global appvals
  767.     set mainList [VxGetVar $appvals(vtMain) mainList]
  768.     set countLabel [VxGetVar $appvals(vtMain) countLabel]
  769.     set numSelected [llength \
  770.         [VtDrawnListGetSelectedItem $mainList -byRecordList]]
  771.         lappend labelArgs [llength [VtDrawnListGetItem $mainList -all]]
  772.         lappend labelArgs $appvals(itemname)
  773.         lappend labelArgs $numSelected
  774.         lappend labelArgs [VxGetVar $countLabel selected]
  775.         set labelValue [IntlMsg COUNT_LABEL_STRING $labelArgs]
  776.     VtSetValues $countLabel -label $labelValue
  777. }
  778. proc UiBuildAddModifyScreen {function} {
  779.     global appvals
  780.     set parent $appvals(vtMain)
  781.     set addModifyScreen [VtFormDialog $parent.addModifyScreen \
  782.         -ok -okLabel [IntlMsg OK] \
  783.         -cancel -cancelLabel [IntlMsg CANCEL] \
  784.         -help -helpLabel [IntlMsg HELP] \
  785.         -cancelButton CANCEL \
  786.         -okCallback AddModifyOkCB \
  787.         -cancelCallback AddModifyCancelCB \
  788.         -wmCloseCallback AddModifyCancelCB \
  789.         -autoLock [list AddModifyOkCB AddModifyCancelCB] ]
  790.     VxSetVar $parent addModifyScreen $addModifyScreen
  791.     set nameForm [VtForm $addModifyScreen.nameForm \
  792.         -marginHeight 0 -marginWidth 0 \
  793.         -leftSide FORM -MOTIF_leftOffset 10 -CHARM_leftOffset 1 \
  794.         -rightSide FORM -MOTIF_rightOffset 10 -CHARM_rightOffset 1 \
  795.         -topSide FORM -topOffset 10 -CHARM_topOffset 1]
  796.     set nameLabel [VtLabel $nameForm.nameLabel \
  797.         -label [IntlMsg NAME_LBL] \
  798.         -labelLeft ]
  799.     set selectNameButton [VtPushButton $nameForm.selectNameButton \
  800.         -label [IntlMsg SELECT_BTN_LBL]\
  801.         -leftSide NONE \
  802.         -rightSide FORM \
  803.         -bottomSide FORM \
  804.         -callback SelectHostCB \
  805.         -autoLock SelectHostCB]
  806.     set nameText [VtText $nameForm.nameText \
  807.         -columns 30  -CHARM_columns 35 \
  808.         -leftSide FORM \
  809.         -rightSide $selectNameButton \
  810.         -alignTop $selectNameButton \
  811.         -shortHelpCallback SaShortHelpCB \
  812.         -shortHelpString [IntlMsg NAME_SH] \
  813.         -callback {SaSetFocus next}]
  814.     VxSetVar $addModifyScreen nameText $nameText
  815.     VxSetVar $addModifyScreen selectNameButton $selectNameButton
  816.     set realNameForm [VtForm $addModifyScreen.realNameForm \
  817.         -marginHeight 0 -marginWidth 0 \
  818.         -leftSide FORM -MOTIF_leftOffset 10 -CHARM_leftOffset 1 \
  819.         -rightSide FORM -MOTIF_rightOffset 10 -CHARM_rightOffset 1 \
  820.         -topSide $nameForm -MOTIF_topOffset 10 -CHARM_topOffset 1]
  821.     set realNameLabel [VtLabel $realNameForm.realNameLabel \
  822.         -label [IntlMsg REAL_NAME_LBL] \
  823.         -labelLeft ]
  824.     set selectRealNameButton [VtPushButton \
  825.                     $realNameForm.selectRealNameButton \
  826.         -label [IntlMsg SELECT_BTN_LBL]\
  827.         -leftSide NONE \
  828.         -rightSide FORM \
  829.         -bottomSide FORM \
  830.         -callback SelectHostCB \
  831.         -autoLock SelectHostCB]
  832.     set realNameText [VtText $realNameForm.realNameText \
  833.         -columns 30 -CHARM_columns 35 \
  834.         -leftSide FORM \
  835.         -rightSide $selectRealNameButton \
  836.         -alignTop $selectRealNameButton \
  837.         -shortHelpCallback SaShortHelpCB \
  838.         -shortHelpString [IntlMsg REAL_NAME_SH] \
  839.         -callback {SaSetFocus next}]
  840.     VxSetVar $addModifyScreen realNameText $realNameText
  841.     VxSetVar $addModifyScreen selectRealNameButton $selectRealNameButton
  842.     set separator [VtSeparator $addModifyScreen.separator \
  843.         -leftSide FORM -leftOffset 0 \
  844.         -rightSide FORM -rightOffset 0 \
  845.         -topSide $realNameForm -MOTIF_topOffset 10 -CHARM_topOffset 1]
  846.     set statusBar [SaStatusBar $addModifyScreen.statusbar 0]
  847.     VtSetValues $separator \
  848.         -bottomSide $statusBar -bottomOffset 0
  849.     if {$function == "add"} {
  850.         VxSetVar $addModifyScreen function add
  851.             VtSetValues $addModifyScreen -title [IntlMsg ADD_TITLE]
  852.     } else {
  853.         VxSetVar $addModifyScreen function modify
  854.             VtSetValues $addModifyScreen -title [IntlMsg MODIFY_TITLE]
  855.     }
  856.     SaSetTabGroups $addModifyScreen [list \
  857.         $nameText \
  858.         $selectNameButton \
  859.         $realNameText \
  860.         $selectRealNameButton]
  861.     set okButton [VtGetValues $addModifyScreen -ok]
  862.     SaSetFocusList $addModifyScreen [list \
  863.         $nameText \
  864.         $realNameText \
  865.         $okButton]
  866.         VtShow $addModifyScreen
  867.     VtSetFocus $nameText
  868.     return $addModifyScreen
  869. }
  870. proc UiBuildSaveConfirmDialog {} {
  871.     global appvals
  872.     set parent $appvals(vtMain)
  873.     # set autoDestroy FALSE, since we want to do cancel
  874.     # on a window manager close, and autoDestroy is not
  875.     # possible in that case
  876.     set saveConfirmDlg [VtQuestionDialog $parent.saveConfirmDlg \
  877.         -title [IntlMsg SAVE_CONFIRM_TITLE] \
  878.         -message [IntlMsg SAVE_CONFIRM_QUERY] \
  879.         -autoDestroy FALSE \
  880.         -okLabel [IntlMsg SAVE_CONFIRM_BTN_YES] \
  881.         -ok -okCallback SaveConfirmOkCB \
  882.         -applyLabel [IntlMsg SAVE_CONFIRM_BTN_NO] \
  883.         -apply -applyCallback SaveConfirmNoCB \
  884.         -cancelLabel [IntlMsg SAVE_CONFIRM_BTN_CANCEL] \
  885.         -cancel -cancelCallback SaveConfirmCancelCB \
  886.         -wmCloseCallback SaveConfirmCancelCB \
  887.         -autoLock [list \
  888.             SaveConfirmOkCB SaveConfirmNoCB SaveConfirmCancelCB]]
  889.     VxSetVar $parent saveConfirm $saveConfirmDlg
  890.     return $saveConfirmDlg
  891. }
  892. proc UiCloseCB {cbs} {
  893.     # Call underlying non-ui module: close that may need additional ui
  894.     if {[ChannelIsModified]} {
  895.         CloseWithUi
  896.         VtUnLock
  897.         return
  898.     }
  899.     UiStop    UiCloseCB2
  900. }
  901. proc UiCloseCB2 {{cbs {}}} {
  902.     # Call underlying non-ui module: close without Ui
  903.     CloseAfterUi
  904. }
  905. proc UiRefreshCB {{cbs {}}} {
  906.     global appvals
  907.     set statusBar [VxGetVar $appvals(vtMain) statusBar]
  908.     set mainList [VxGetVar $appvals(vtMain) mainList]
  909.     SaStatusBarSet $statusBar [IntlMsg REFRESH] 
  910.     Refresh
  911.     # Update count label and widget sensitivity
  912.     UiUpdateCountLabel
  913.     UiSensitizeMainFunctions
  914.     SaStatusBarClear $statusBar
  915.     VtUnLock
  916. }
  917. proc SelectHostOkCB {button cbs} {
  918.         global appvals
  919.         set addModifyScreen [VxGetVar $appvals(vtMain) addModifyScreen]
  920.     set selectNameButton \
  921.         [VxGetVar $addModifyScreen selectNameButton]
  922.     set selectRealNameButton \
  923.         [VxGetVar $addModifyScreen selectRealNameButton]
  924.     set nameText [VxGetVar $addModifyScreen nameText]
  925.     set realNameText [VxGetVar $addModifyScreen realNameText]
  926.     set instance $appvals(selecthost)
  927.     set selection [SaSelectHostGetSelection $instance]
  928.     if {[cequal $button $selectNameButton]} {
  929.         VtSetValues $nameText -value $selection
  930.         VtSetFocus $nameText
  931.     } else {
  932.         VtSetValues $realNameText -value $selection
  933.         VtSetFocus $realNameText
  934.     }
  935.     VtUnLock
  936. }
  937. proc SelectHostCB {cbs} {
  938.     global appvals
  939.     set parent [keylget cbs dialog]
  940.     set whichButton [keylget cbs widget]
  941.     keylset parameters parent $parent
  942.     keylset parameters instance selectHostScreen
  943.     set appvals(selecthost) selectHostScreen
  944.     keylset parameters userproc "SelectHostOkCB $whichButton"
  945.     SaSelectHostDialog $parameters $cbs
  946. }
  947. proc AddModifyCancelCB {cbs} {
  948.     set dialog [keylget cbs dialog]
  949.     VtDestroyDialog $dialog
  950.     VtUnLock
  951.     return
  952. }
  953. proc AddModifyOkCB {cbs} {
  954.     global appvals
  955.     set dialog [keylget cbs dialog]
  956.     set function [VxGetVar $dialog function]
  957.     set nameText [VxGetVar $dialog nameText]
  958.     set realNameText [VxGetVar $dialog realNameText]
  959.     # get the values entered into the widgets
  960.     set newHostName [string trim [VtGetValues $nameText -value]]
  961.     set newRealName [string trim [VtGetValues $realNameText -value]]
  962.     if {[clength $newHostName] == 0 || [ctype space $newHostName]} {
  963.         VtShow [VtErrorDialog $dialog.usererr1 \
  964.             -message [IntlErr NAME_MISSING] \
  965.             -ok]
  966.         VtUnLock
  967.         VtSetFocus $nameText
  968.         return
  969.     }
  970.     if {[regexp {[     ]} $newHostName]} { 
  971.         VtShow [VtErrorDialog $dialog.usererr2 \
  972.             -message [IntlErr NAME_SPACE] \
  973.             -ok]
  974.         VtUnLock
  975.         VtSetFocus $nameText
  976.         return
  977.     }
  978.     if {[clength $newRealName] == 0 || [ctype space $newRealName]} {
  979.         VtShow [VtErrorDialog $dialog.usererr3 \
  980.             -message [IntlErr REAL_NAME_MISSING] \
  981.             -ok]
  982.         VtUnLock
  983.         VtSetFocus $realNameText
  984.         return
  985.     }
  986.     if {[regexp {[     ]} $newRealName]} { 
  987.         VtShow [VtErrorDialog $dialog.usererr4 \
  988.             -message [IntlErr NAME_SPACE] \
  989.             -ok]
  990.         VtUnLock
  991.         VtSetFocus $realNameText
  992.         return
  993.     }
  994.     # set up the new entry
  995.     keylset newEntry hostName $newHostName
  996.     keylset newEntry realName $newRealName
  997.     set mainList [VxGetVar $appvals(vtMain) mainList]
  998.     set selected [VtDrawnListGetSelectedItem $mainList -byRecordList]
  999.     if {$function == "add"} {
  1000.         if {[ChannelEntryExists $newHostName]} {
  1001.             VtShow [VtErrorDialog $dialog.usererr5 \
  1002.                 -message [IntlErr NAME_DUPLICATE $newHostName] \
  1003.                 -ok]
  1004.             VtUnLock
  1005.             VtSetFocus $nameText
  1006.             return
  1007.                 }
  1008.         if {[lempty $selected]} {
  1009.             # just put the new entry last
  1010.             set position 0
  1011.             set before [lindex [VtDrawnListGetItem $mainList \
  1012.                         -position 0] 0]
  1013.         } else {
  1014.             # put the new entry after the last selected entry
  1015.             set selectedNum [lindex [VtDrawnListGetSelectedItem \
  1016.                         $mainList -byPositionList] end]
  1017.             set position [expr $selectedNum + 1] 
  1018.             set before [lindex $selected end]
  1019.         }
  1020.         if {[cequal $before ""]} {
  1021.             set beforeEntry ""
  1022.         } else {
  1023.             keylset beforeEntry hostName [lindex $before 0]
  1024.         }
  1025.         # update the data structures
  1026.         ChannelAdd $beforeEntry $newEntry
  1027.     } else {
  1028.         set position [lindex [VtDrawnListGetSelectedItem $mainList \
  1029.                     -byPositionList] 0]
  1030.         set old [lindex $selected 0]
  1031.         set oldHostName [lindex $old 0]
  1032.         set oldRealName [lindex $old 1]
  1033.         if {![cequal [string tolower $newHostName] \
  1034.                  [string tolower $oldHostName]] && \
  1035.             [ChannelEntryExists $newHostName]} {
  1036.             VtShow [VtErrorDialog $dialog.usererr6 \
  1037.                 -message [IntlErr NAME_DUPLICATE $newHostName] \
  1038.                 -ok]
  1039.             VtUnLock
  1040.             VtSetFocus $nameText
  1041.             return
  1042.                 }
  1043.         set modified 0
  1044.         if {![cequal $newHostName $oldHostName] || \
  1045.             ![cequal $newRealName $oldRealName]} {
  1046.             keylset oldEntry hostName $oldHostName
  1047.             keylset oldEntry realName $oldRealName
  1048.             ChannelModify $oldEntry $newEntry
  1049.             set modified 1
  1050.         }
  1051.     }
  1052.     VtDestroyDialog $dialog
  1053.     # update the main drawn list
  1054.     if {$function == "add" || ($function == "modify" && $modified)} {
  1055.         set maxLength [VxGetVar $mainList maxLength]
  1056.         set newLength [clength $newHostName]
  1057.         if {$newLength < $maxLength} {
  1058.             set newLength $maxLength
  1059.         }
  1060.         # For now, we punt on re-drawing the list if the new
  1061.         # host length is larger than the known max length --
  1062.         # this is an expensive operation.
  1063.         if {[VtInfo -charm]} {
  1064.             set formatList [list \
  1065.                 [list STRING $newLength 0 2] \
  1066.                 [list STRING [clength $newRealName]]]
  1067.         } else {
  1068.             set formatList [list \
  1069.                 [list STRING [AdjustFieldLength $newLength] \
  1070.                       0 10] \
  1071.                 [list STRING [clength $newRealName]]]
  1072.         }
  1073.         set fieldList [list \
  1074.             $newHostName \
  1075.             $newRealName]
  1076.         if {$function == "modify"} {
  1077.             VtDrawnListDeleteItem $mainList -position $position
  1078.         }
  1079.         VtDrawnListAddItem $mainList -formatList $formatList \
  1080.                          -fieldList $fieldList \
  1081.                          -position $position
  1082.         VtDrawnListSelectItem $mainList -position $position
  1083.         SaDrawnListShowSelectedItem $mainList
  1084.         UiSensitizeMainFunctions
  1085.         if {"$function" == "add"} {
  1086.             UiUpdateCountLabel
  1087.         }
  1088.     }
  1089.     VtUnLock
  1090.     return
  1091. }
  1092. proc UiAddEntryCB {cbs} {
  1093.     set addScreen [UiBuildAddModifyScreen add]
  1094.     VtUnLock
  1095. }
  1096. proc UiDeleteEntryCB {cbs} {
  1097.     global appvals
  1098.     set list [VxGetVar $appvals(vtMain) mainList]
  1099.     set selectedPositions [VtDrawnListGetSelectedItem $list -byPositionList]
  1100.     set prevTotal [llength [VtDrawnListGetItem $list -all]]
  1101.     set deleteEntries {}
  1102.     foreach item [VtDrawnListGetSelectedItem $list -byRecordList] {
  1103.         keylset entry hostName [lvarpop item]
  1104.         lappend deleteEntries $entry
  1105.     }
  1106.     ChannelDelete $deleteEntries
  1107.     VtDrawnListDeleteItem $list -positionList $selectedPositions
  1108.     set numItemsLeft [llength [VtDrawnListGetItem $list -all]]
  1109.     if {$numItemsLeft > 0} {
  1110.         set first [lindex $selectedPositions 0]
  1111.         set last [lindex $selectedPositions end]
  1112.         set numDeleted [llength $selectedPositions]
  1113.         if {[expr $last - $first + 1] == $numDeleted} {
  1114.             set contiguous 1
  1115.         } else {
  1116.             set contiguous 0
  1117.         }
  1118.         if {$last == $prevTotal && $contiguous} {
  1119.             # select the one above
  1120.             VtDrawnListSelectItem $list -position [expr $first - 1]
  1121.         } else {
  1122.             # select the item that was after the first deleted
  1123.             # (same position number as first deleted was)
  1124.             VtDrawnListSelectItem $list -position $first
  1125.         }
  1126.         SaDrawnListShowSelectedItem $list
  1127.     }
  1128.     UiSensitizeMainFunctions
  1129.     UiUpdateCountLabel
  1130.     VtUnLock
  1131. }
  1132. proc UiModifyEntryCB {cbs} {
  1133.     set dialog [keylget cbs dialog] 
  1134.     set mainList [VxGetVar $dialog mainList]
  1135.     set selected [lindex \
  1136.         [VtDrawnListGetSelectedItem $mainList -byItemList] 0]
  1137.     set modifyScreen [UiBuildAddModifyScreen modify]
  1138.     set nameText [VxGetVar $modifyScreen nameText]
  1139.     set realNameText [VxGetVar $modifyScreen realNameText]
  1140.     VtSetValues $nameText -value [lindex $selected 0]
  1141.     VtSetValues $realNameText -value [lindex $selected 1]
  1142.     VtUnLock
  1143. }
  1144. proc UiMoveUpEntryCB {cbs} {
  1145.     global appvals
  1146.     set list [VxGetVar $appvals(vtMain) mainList]
  1147.     set selectedNum [lindex \
  1148.         [VtDrawnListGetSelectedItem $list -byPositionList] 0]
  1149.     if {$selectedNum == 1} {
  1150.         VtBeep
  1151.         VtUnLock
  1152.         return
  1153.     }
  1154.     set selectedItem [lindex \
  1155.         [VtDrawnListGetItem $list -position $selectedNum] 0]
  1156.     set newPosition [expr $selectedNum - 1]
  1157.     set beforeItem [lindex \
  1158.         [VtDrawnListGetItem $list -position $newPosition] 0]
  1159.     #
  1160.     # Update table data structures
  1161.     #
  1162.     set beforeHostName [lindex $beforeItem 0]
  1163.     keylset entry1 hostName $beforeHostName
  1164.     set hostName [lindex $selectedItem 0]
  1165.     set realName [lindex $selectedItem 1]
  1166.     keylset entry2 hostName $hostName
  1167.     keylset entry2 realName $realName
  1168.     ChannelSwapPosition $entry1 $entry2
  1169.     #
  1170.     # Modify main list widget
  1171.     #
  1172.     # Delete the item selected in the list
  1173.     VtDrawnListDeleteItem $list -position $selectedNum
  1174.     # Add the deleted item back in the new position
  1175.     set maxLength [VxGetVar $list maxLength]    
  1176.     if {[VtInfo -charm]} {
  1177.         set formatList [list \
  1178.             [list STRING $maxLength 0 2] \
  1179.             [list STRING [clength $realName]]]
  1180.     } else {
  1181.         set formatList [list \
  1182.             [list STRING [AdjustFieldLength $maxLength] 0 10] \
  1183.             [list STRING [clength $realName]]]
  1184.     }
  1185.     VtDrawnListAddItem $list -position $newPosition \
  1186.         -fieldList $selectedItem \
  1187.         -formatList $formatList
  1188.     VtDrawnListSelectItem $list -position $newPosition
  1189.     SaDrawnListShowSelectedItem $list
  1190.     VtUnLock
  1191. }
  1192. proc UiMoveDownEntryCB {cbs} {
  1193.     global appvals
  1194.     set list [VxGetVar $appvals(vtMain) mainList]
  1195.     set selectedNum [lindex \
  1196.         [VtDrawnListGetSelectedItem $list -byPositionList] 0]
  1197.     set numItems [llength [VtDrawnListGetItem $list -all]]
  1198.     if {$selectedNum == $numItems} {
  1199.         VtBeep
  1200.         VtUnLock
  1201.         return
  1202.     }
  1203.     set selectedItem [lindex \
  1204.         [VtDrawnListGetItem $list -position $selectedNum] 0]
  1205.     set newPosition [expr $selectedNum + 1]
  1206.     set afterItem [lindex \
  1207.         [VtDrawnListGetItem $list -position $newPosition] 0]
  1208.     #
  1209.     # Update table data structures
  1210.     #
  1211.     set hostName [lindex $selectedItem 0]
  1212.     set realName [lindex $selectedItem 1]
  1213.     keylset entry1 hostName $hostName
  1214.     keylset entry1 realName $realName
  1215.     set afterHostName [lindex $afterItem 0]
  1216.     keylset entry2 hostName $afterHostName
  1217.     ChannelSwapPosition $entry1 $entry2
  1218.     #
  1219.     # Modify main list widget
  1220.     #
  1221.     # Delete the item selected in the list
  1222.     VtDrawnListDeleteItem $list -position $selectedNum
  1223.     # Add the deleted item back in the new position
  1224.     set maxLength [VxGetVar $list maxLength]
  1225.     if {[VtInfo -charm]} {
  1226.         set formatList [list \
  1227.             [list STRING $maxLength 0 2] \
  1228.             [list STRING [clength $realName]]]
  1229.     } else {
  1230.         set formatList [list \
  1231.             [list STRING [AdjustFieldLength $maxLength] 0 10] \
  1232.             [list STRING [clength $realName]]]
  1233.     }
  1234.     VtDrawnListAddItem $list -position $newPosition \
  1235.         -fieldList $selectedItem \
  1236.         -formatList $formatList
  1237.     VtDrawnListSelectItem $list -position $newPosition
  1238.     SaDrawnListShowSelectedItem $list
  1239.     VtUnLock
  1240. }
  1241. proc SaveConfirmOkCB {cbs} {
  1242.     set dialog [keylget cbs dialog]
  1243.     VtDestroyDialog $dialog
  1244.     if {[UiSaveCB {}] != 1} {
  1245.         VtUnLock
  1246.         return
  1247.     } else {
  1248.         VtUnLock
  1249.         UiStop  UiCloseCB2
  1250.     }
  1251. }
  1252. proc SaveConfirmNoCB {cbs} {
  1253.     set dialog [keylget cbs dialog]
  1254.     VtDestroyDialog $dialog
  1255.     VtUnLock
  1256.     UiStop  UiCloseCB2
  1257. }
  1258. proc SaveConfirmCancelCB {cbs} {
  1259.     set dialog [keylget cbs dialog]
  1260.     VtDestroyDialog $dialog
  1261.     VtUnLock
  1262.     return
  1263. }
  1264. proc UiSaveCB {cbs} {
  1265.     global appvals
  1266.     set statusBar [VxGetVar $appvals(vtMain) statusBar]
  1267.     SaStatusBarSet $statusBar [IntlMsg SAVE]
  1268.     if {[ErrorCatch errStack 0 ChannelWrite data]} {
  1269.         VtUnLock
  1270.         UiDisplayErrorStacks UiSaveCB $errStack
  1271.         return 0
  1272.     }
  1273.     SaStatusBarClear $statusBar
  1274.     VtUnLock
  1275.     return 1
  1276. }
  1277. proc UiSensitizeMainFunctions {} {
  1278.     # visit all appropriate menu items:
  1279.     #     VxGetVar
  1280.     #    VtSetsensitive
  1281.     global appvals
  1282.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1283.     set item [VtDrawnListGetSelectedItem $mainList]
  1284.     set selected [llength \
  1285.         [VtDrawnListGetSelectedItem $mainList -byRecordList]]
  1286.     set menuBar [VxGetVar $appvals(vtMain) menuBar]
  1287.     set add [VxGetVar $menuBar add]
  1288.     set delete [VxGetVar $menuBar delete]
  1289.     set modify [VxGetVar $menuBar modify]
  1290.     set moveUp [VxGetVar $menuBar moveUp]
  1291.     set moveDown [VxGetVar $menuBar moveDown]
  1292.     set isCharm [VtInfo -charm]
  1293.     if {!$isCharm} {
  1294.         set toolBar [VxGetVar $appvals(vtMain) toolBar]
  1295.         set addTB [VxGetVar $toolBar addTB]
  1296.         set deleteTB [VxGetVar $toolBar deleteTB]
  1297.         set modifyTB [VxGetVar $toolBar modifyTB]
  1298.         set upTB [VxGetVar $toolBar upTB]
  1299.         set downTB [VxGetVar $toolBar downTB]
  1300.     }
  1301.     if {$selected == 0} {
  1302.         VtSetSensitive $delete 0
  1303.         VtSetSensitive $modify 0
  1304.         VtSetSensitive $moveUp 0
  1305.         VtSetSensitive $moveDown 0
  1306.         if {!$isCharm} {
  1307.             VtSetSensitive $deleteTB 0
  1308.             VtSetSensitive $modifyTB 0
  1309.             VtSetSensitive $upTB 0
  1310.             VtSetSensitive $downTB 0
  1311.         }
  1312.     } elseif {$selected == 1} {
  1313.         VtSetSensitive $delete 1
  1314.         VtSetSensitive $modify 1
  1315.         VtSetSensitive $moveUp 1
  1316.         VtSetSensitive $moveDown 1
  1317.         if {!$isCharm} {
  1318.             VtSetSensitive $deleteTB 1
  1319.             VtSetSensitive $modifyTB 1
  1320.             VtSetSensitive $upTB 1
  1321.             VtSetSensitive $downTB 1
  1322.         }
  1323.     } else {
  1324.         VtSetSensitive $delete 1
  1325.         VtSetSensitive $modify 0
  1326.         VtSetSensitive $moveUp 0
  1327.         VtSetSensitive $moveDown 0
  1328.         if {!$isCharm} {
  1329.             VtSetSensitive $deleteTB 1
  1330.             VtSetSensitive $modifyTB 0
  1331.             VtSetSensitive $upTB 0
  1332.             VtSetSensitive $downTB 0
  1333.         }
  1334.     }
  1335. }
  1336. proc UiStart {} {
  1337.     global appvals
  1338.     # Open/connect to widget server
  1339.     set vtApp [VtOpen $appvals(client) [IntlMsg HELPBOOK]]
  1340.     set appvals(vtApp) $vtApp
  1341.     VtSetAppValues $vtApp \
  1342.                 -errorCallback {SaUnexpectedErrorCB {}}
  1343.     # Create main dialog
  1344.     set vtMain [VtFormDialog $vtApp.main \
  1345.             -title $appvals(title) \
  1346.             -resizable FALSE \
  1347.             -wmShadowThickness 0 \
  1348.             -wmCloseCallback UiCloseCB] 
  1349.     set appvals(vtMain) $vtMain
  1350.     VxSetVar $appvals(vtMain) vtMain $vtMain
  1351.     UiDefaultFormSpacingSet $vtMain
  1352.     SaCharmSetMaxFormDimensions $vtMain
  1353.     # Build pulldown menus
  1354.     set menuBar [UiBuildMenus $vtMain]
  1355.     VxSetVar $appvals(vtMain) menuBar $menuBar
  1356.     # Build the toolbar
  1357.     if {! [VtInfo -charm]} {
  1358.         set toolBar [UiBuildToolBar $vtMain $menuBar]
  1359.     }
  1360.     # Basic drawnlist for channel table entries
  1361.     # Pass main form and widget just above for attachments
  1362.     if {[VtInfo -charm]} {
  1363.         set mainList [UiBuildMainList $vtMain $menuBar]
  1364.     } else {
  1365.         set mainList [UiBuildMainList $vtMain $toolBar]
  1366.     }
  1367.     # Build the status bar with standard SCOadmin status bar pixmap
  1368.     set statusBar [SaStatusBar $vtMain.statusBar 1]
  1369.     VxSetVar $appvals(vtMain) statusBar $statusBar
  1370.     # Connect main screen widget bottom to statusbar
  1371.     VtSetValues $mainList -bottomSide $statusBar
  1372.     # Display the main form and lock it
  1373.     VtShow $vtMain
  1374.     VtLock
  1375. }
  1376. proc UiStop {cb} {
  1377.     global appvals
  1378.     set vtMain $appvals(vtMain)
  1379.     set client $appvals(client)
  1380.     # Store modified preferences
  1381.     # short help
  1382.     set cmd [list SaShortHelpStore $client]
  1383.     if {[ErrorCatch errorStack 0 $cmd dummy] != 0 } {
  1384.         lappend errorStacks $errorStack
  1385.     }
  1386.     # any problems?
  1387.     if [info exists errorStacks] {
  1388.         # present error dialog and enter event-driven Ui loop.
  1389.         # Re-gain procedural control via UiStop2 (part 2) and
  1390.         # eventuall, the caller's cb
  1391.         SaDisplayErrorStacks $vtMain.UIStop $errorStacks {} \
  1392.             [list UiStop2 $cb]
  1393.         VtUnLock
  1394.         VtMainLoop
  1395.     } else {
  1396.         # stop vtcl
  1397.         VtUnLock
  1398.         VtClose
  1399.         # return control to the caller
  1400.         eval $cb
  1401.     }
  1402. }
  1403. proc UiStop2 {cb {cbs {}}} {
  1404.     VtUnLock
  1405.     VtClose
  1406.     # return control to the caller
  1407.     eval $cb
  1408. }
  1409. proc UiBuildMenus {form} {
  1410.     global appvals
  1411.     set helpMenuItemList [list \
  1412.         ON_CONTEXT \
  1413.         ON_WINDOW \
  1414.         ON_KEYS \
  1415.         INDEX \
  1416.         ON_HELP]
  1417.     set menuBar [VtMenuBar $form.menuBar \
  1418.             -helpMenuItemList $helpMenuItemList]
  1419.     VxSetVar $form menuBar $menuBar
  1420.     # Main object menu
  1421.     UiBuildObjectMenu $menuBar
  1422.     # Options menu
  1423.     UiBuildOptionsMenu $menuBar
  1424.     return $menuBar
  1425. }
  1426. proc UiBuildObjectMenu {parent} {
  1427.     global appvals
  1428.     set label $appvals(object) 
  1429.     set mnemonic $appvals(objectmn) 
  1430.     set fileMenu [VtPulldown $parent.fileMenu \
  1431.             -label $label \
  1432.             -mnemonic $mnemonic \
  1433.             ]
  1434.     VxSetVar $parent fileMenu $fileMenu
  1435.     set add [VtPushButton $fileMenu.add \
  1436.         -label [IntlMsg ENTRY_MENU_ADD_LBL] \
  1437.         -mnemonic [IntlMsg ENTRY_MENU_ADD_MN]  \
  1438.         -shortHelpCallback SaShortHelpCB \
  1439.         -shortHelpString [IntlMsg ENTRY_MENU_ADD_SH] \
  1440.         -callback UiAddEntryCB  \
  1441.         -autoLock UiAddEntryCB]
  1442.     VxSetVar $parent add $add
  1443.     set delete [VtPushButton $fileMenu.delete \
  1444.         -label [IntlMsg ENTRY_MENU_DELETE_LBL] \
  1445.         -mnemonic [IntlMsg ENTRY_MENU_DELETE_MN]  \
  1446.         -shortHelpCallback SaShortHelpCB \
  1447.         -shortHelpString [IntlMsg ENTRY_MENU_DELETE_SH] \
  1448.         -callback UiDeleteEntryCB  \
  1449.         -autoLock UiDeleteEntryCB]
  1450.     VxSetVar $parent delete $delete
  1451.     set modify [VtPushButton $fileMenu.modify \
  1452.         -label [IntlMsg ENTRY_MENU_MODIFY_LBL] \
  1453.         -mnemonic [IntlMsg ENTRY_MENU_MODIFY_MN]  \
  1454.         -shortHelpCallback SaShortHelpCB \
  1455.         -shortHelpString [IntlMsg ENTRY_MENU_MODIFY_SH] \
  1456.         -callback UiModifyEntryCB  \
  1457.         -autoLock UiModifyEntryCB]
  1458.     VxSetVar $parent modify $modify
  1459.     VtSeparator $fileMenu.s1
  1460.     set moveUp [VtPushButton $fileMenu.moveUp \
  1461.         -label [IntlMsg ENTRY_MENU_UP_LBL] \
  1462.         -mnemonic [IntlMsg ENTRY_MENU_UP_MN]  \
  1463.         -shortHelpCallback SaShortHelpCB \
  1464.         -shortHelpString [IntlMsg ENTRY_MENU_UP_SH] \
  1465.         -callback UiMoveUpEntryCB  \
  1466.         -autoLock UiMoveUpEntryCB]
  1467.     VxSetVar $parent moveUp $moveUp
  1468.     set moveDown [VtPushButton $fileMenu.moveDown \
  1469.         -label [IntlMsg ENTRY_MENU_DOWN_LBL] \
  1470.         -mnemonic [IntlMsg ENTRY_MENU_DOWN_MN]  \
  1471.         -shortHelpCallback SaShortHelpCB \
  1472.         -shortHelpString [IntlMsg ENTRY_MENU_DOWN_SH] \
  1473.         -callback UiMoveDownEntryCB  \
  1474.         -autoLock UiMoveDownEntryCB]
  1475.     VxSetVar $parent moveDown $moveDown
  1476.     VtSeparator $fileMenu.s2
  1477.     set save [VtPushButton $fileMenu.save \
  1478.         -label [IntlMsg ENTRY_MENU_SAVE_LBL] \
  1479.         -mnemonic [IntlMsg ENTRY_MENU_SAVE_MN]  \
  1480.         -shortHelpCallback SaShortHelpCB \
  1481.         -shortHelpString [IntlMsg ENTRY_MENU_SAVE_SH] \
  1482.         -callback UiSaveCB  \
  1483.         -autoLock UiSaveCB]
  1484.     VxSetVar $parent save $save
  1485.     VtSeparator $fileMenu.s3
  1486.     set exit [VtPushButton $fileMenu.exit \
  1487.         -label [IntlMsg ENTRY_MENU_EXIT_LBL] \
  1488.         -mnemonic [IntlMsg ENTRY_MENU_EXIT_MN]  \
  1489.         -shortHelpCallback SaShortHelpCB \
  1490.         -shortHelpString \
  1491.             [IntlMsg ENTRY_MENU_EXIT_SH \
  1492.                 [list $appvals(title)]] \
  1493.         -callback UiCloseCB  \
  1494.         -autoLock UiCloseCB]
  1495.     VxSetVar $parent exit $exit
  1496. }
  1497. proc UiBuildOptionsMenu {form} {
  1498.     global appvals 
  1499.     # Define the Pulldown itself
  1500.     set optionMenu [VtPulldown $form.optionMenu \
  1501.         -label  [IntlMsg OPTIONS_MENU] \
  1502.         -mnemonic [IntlMsg OPTIONS_MN] \
  1503.         ] 
  1504.     # menu items
  1505.     # short help
  1506.     SaShortHelpLoad $appvals(client)
  1507.     SaShortHelpMenuOptions $optionMenu
  1508.     # toolbar
  1509.     if {$appvals(toolbar) && ![VtInfo -charm]} {
  1510.         UiToolBarBuildMenuOptions $optionMenu
  1511.     }
  1512.     VxSetVar $form optionMenu $optionMenu
  1513.     return $optionMenu
  1514. }
  1515. proc UiToolBarSetVisibilityCB {{cbs {}}} {
  1516.     global appvals
  1517.     set menuBar [VxGetVar $appvals(vtMain) menuBar]
  1518.     set optionMenu [VxGetVar $menuBar optionMenu]
  1519.     set toolBarToggle [VxGetVar $optionMenu toolBarToggle]
  1520.     set visible [VtGetValues $toolBarToggle -value]
  1521.     set toolBar [VxGetVar $appvals(vtMain) toolBar]
  1522.     set toolBarFrame [VxGetVar $appvals(vtMain) toolBarFrame]
  1523.     if {$visible} {
  1524.         # We *must* show the frame first, then the form
  1525.         VtShow $toolBarFrame
  1526.         VtShow $toolBar
  1527.     } else {
  1528.         # We *must* hide the form first, then the frame, in order
  1529.         # to obtain same re-drawing behaviour we get with Sa functions
  1530.         VtHide $toolBar
  1531.         VtHide $toolBarFrame
  1532.     }
  1533.     SaScreenPolicySet $appvals(client) toolbarVisibility $visible
  1534. }
  1535. proc UiToolBarBuildMenuOptions {menu} {
  1536.     global appvals
  1537.     set toolBarToggle [VtToggleButton $menu.toolBarToggle \
  1538.         -label [IntlMsg OPTIONS_TOOLBAR] \
  1539.         -callback UiToolBarSetVisibilityCB \
  1540.         -shortHelpCallback SaShortHelpCB \
  1541.         -shortHelpString [IntlMsg OPTIONS_TOOLBAR_SH] \
  1542.         -value 1]
  1543.     VxSetVar $menu toolBarToggle $toolBarToggle
  1544. }
  1545. proc UiBuildToolBar {form top} {
  1546.     global appvals
  1547.     set toolBarFrame [VtFrame $form.toolBarFrame \
  1548.             -topSide $top \
  1549.             -topOffset 2 \
  1550.             -leftSide FORM \
  1551.             -rightSide FORM \
  1552.             -marginHeight 0 \
  1553.             -marginWidth 0 \
  1554.             -horizontalSpacing 0 \
  1555.             -verticalSpacing 0 \
  1556.             -shadowType IN]
  1557.     set toolBarForm [VtForm $toolBarFrame.toolBarForm \
  1558.             -leftSide FORM \
  1559.             -rightSide FORM \
  1560.             -borderWidth 0 \
  1561.             -marginHeight 0 \
  1562.             -marginWidth 0 \
  1563.             -horizontalSpacing 0 \
  1564.             -verticalSpacing 0]
  1565.     set addTB [VtPushButton $toolBarForm.addTB \
  1566.             -label [IntlMsg TB_ADD] \
  1567.             -topSide FORM \
  1568.             -topOffset 0 \
  1569.             -leftSide FORM \
  1570.             -leftOffset 0 \
  1571.             -rightOffset 0 \
  1572.             -bottomSide FORM \
  1573.             -bottomOffset 0 \
  1574.             -shortHelpCallback SaShortHelpCB \
  1575.             -shortHelpString [IntlMsg ENTRY_MENU_ADD_SH] \
  1576.             -callback UiAddEntryCB \
  1577.             -autoLock UiAddEntryCB]
  1578.     VxSetVar $toolBarForm addTB $addTB
  1579.     set deleteTB [VtPushButton $toolBarForm.deleteTB \
  1580.             -label [IntlMsg TB_DELETE] \
  1581.             -topSide FORM \
  1582.             -leftSide $addTB \
  1583.             -leftOffset 0 \
  1584.             -bottomSide FORM \
  1585.             -bottomOffset 0 \
  1586.             -shortHelpCallback SaShortHelpCB \
  1587.             -shortHelpString [IntlMsg ENTRY_MENU_DELETE_SH] \
  1588.             -callback UiDeleteEntryCB \
  1589.             -autoLock UiDeleteEntryCB]
  1590.     VxSetVar $toolBarForm deleteTB $deleteTB
  1591.     set modifyTB [VtPushButton $toolBarForm.modifyTB \
  1592.             -label [IntlMsg TB_MODIFY] \
  1593.             -topSide FORM \
  1594.             -leftSide $deleteTB \
  1595.             -leftOffset 10 \
  1596.             -bottomSide FORM \
  1597.             -bottomOffset 0 \
  1598.             -shortHelpCallback SaShortHelpCB \
  1599.             -shortHelpString [IntlMsg ENTRY_MENU_MODIFY_SH] \
  1600.             -callback UiModifyEntryCB \
  1601.             -autoLock UiModifyEntryCB]
  1602.     VxSetVar $toolBarForm modifyTB $modifyTB
  1603.     set upTB [VtPushButton $toolBarForm.upTB \
  1604.             -pixmap [IntlMsg BTN_UP_PX] \
  1605.             -topSide FORM \
  1606.             -leftSide $modifyTB \
  1607.             -leftOffset 10 \
  1608.             -bottomSide FORM \
  1609.             -bottomOffset 0 \
  1610.             -shortHelpCallback SaShortHelpCB \
  1611.             -shortHelpString [IntlMsg ENTRY_MENU_UP_SH] \
  1612.             -callback UiMoveUpEntryCB \
  1613.             -autoLock UiMoveUpEntryCB]
  1614.     VxSetVar $toolBarForm upTB $upTB
  1615.     set downTB [VtPushButton $toolBarForm.downTB \
  1616.             -pixmap [IntlMsg BTN_DOWN_PX] \
  1617.             -topSide FORM \
  1618.             -leftSide $upTB \
  1619.             -leftOffset 0 \
  1620.             -rightSide NONE \
  1621.             -bottomSide FORM \
  1622.             -bottomOffset 0 \
  1623.             -shortHelpCallback SaShortHelpCB \
  1624.             -shortHelpString [IntlMsg ENTRY_MENU_DOWN_SH] \
  1625.             -callback UiMoveDownEntryCB \
  1626.             -autoLock UiMoveDownEntryCB]
  1627.     VxSetVar $toolBarForm downTB $downTB
  1628.     VxSetVar $appvals(vtMain) toolBar $toolBarForm
  1629.     VxSetVar $appvals(vtMain) toolBarFrame $toolBarFrame
  1630.     return $toolBarFrame
  1631. }
  1632. proc ChannelGetData {} {
  1633.     global appvals
  1634.     set data {}
  1635.     set maxLength 0
  1636.     foreach key [Map:List $appvals(fileid)] {
  1637.         set hostName $key
  1638.         set hostNameLength [clength $hostName]
  1639.         if {$hostNameLength > $maxLength} {
  1640.             set maxLength $hostNameLength
  1641.         }
  1642.         set value [Map:Get $appvals(fileid) $key]
  1643.         set realName [lvarpop value]
  1644.         keylset entry hostName $hostName
  1645.         keylset entry realName $realName
  1646.         lappend data $entry
  1647.     }
  1648.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1649.     if {$maxLength < 30} {
  1650.         set maxLength 30
  1651.     }
  1652.     VxSetVar $mainList maxLength $maxLength
  1653.     return $data
  1654. }
  1655. proc ChannelDelete {entries} {
  1656.     global appvals
  1657.     foreach entry $entries {
  1658.         set hostName ""
  1659.         keylget entry hostName hostName
  1660.         Map:Unset $appvals(fileid) $hostName
  1661.     }
  1662. }
  1663. proc ChannelAdd {beforeEntry newEntry} {
  1664.     global appvals
  1665.     set newKey ""
  1666.     set newData ""
  1667.     keylget newEntry hostName newKey
  1668.     keylget newEntry realName newData
  1669.     if {$beforeEntry == ""} {
  1670.         # the file was empty !
  1671.         Map:Set $appvals(fileid) $newKey $newData
  1672.     } else {
  1673.         set beforeKey ""
  1674.         keylget beforeEntry hostName beforeKey
  1675.         Map:Insert $appvals(fileid) $newKey $newData $beforeKey
  1676.     }
  1677. }
  1678. proc ChannelModify {oldEntry newEntry} {
  1679.     global appvals
  1680.     keylget newEntry hostName newKey
  1681.     keylget newEntry realName newData
  1682.     keylget oldEntry hostName oldKey
  1683.     if {[cequal $newKey $oldKey]} {
  1684.         Map:Set $appvals(fileid) $newKey $newData
  1685.     } else {
  1686.         Map:Insert $appvals(fileid) $newKey $newData $oldKey
  1687.         Map:Unset $appvals(fileid) $oldKey
  1688.     }
  1689. }
  1690. proc ChannelSwapPosition {entry1 entry2} {
  1691.     global appvals
  1692.     set key1 ""
  1693.     keylget entry1 hostName key1
  1694.     set data1 [Map:Get $appvals(fileid) $key1]
  1695.     set key2 ""
  1696.     keylget entry2 hostName key2
  1697.     Map:Unset $appvals(fileid) $key1
  1698.     Map:Insert $appvals(fileid) $key1 $data1 $key2
  1699. }
  1700. proc ChannelIsModified {} {
  1701.     global appvals
  1702.     if {$appvals(fileid) != -1} {
  1703.         return [Map:Modified $appvals(fileid)]
  1704.     } else {
  1705.         return 0
  1706.     }
  1707. }
  1708. proc ChannelEntryExists {hostname} {
  1709.     global appvals
  1710.     set allKeys [string tolower [Map:List $appvals(fileid)]]
  1711.     if {[lsearch -exact $allKeys [string tolower $hostname]] == -1} {
  1712.         return 0
  1713.     } else {
  1714.         return 1
  1715.     }
  1716. }
  1717. proc ChannelSetMainListLabel {maxHostNameLength} {
  1718.     global appvals
  1719.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1720.     set labelList [list \
  1721.         [IntlMsg COLUMN_HOST_LBL] \
  1722.         [IntlMsg COLUMN_FORWARD_LBL]]
  1723.     if {[VtInfo -charm]} {
  1724.         # add 2 for the right margin width
  1725.         set fieldLength [expr $maxHostNameLength + 2]
  1726.         # For charm, we can't really go beyond 60 chars for the
  1727.                 # hostname portion of the label
  1728.         if {$fieldLength > 60} {
  1729.             set fieldLength 60
  1730.         }
  1731.         set labelFormat "%-${fieldLength}s%-20s"
  1732.         set label [format $labelFormat \
  1733.                         [lindex $labelList 0] \
  1734.                         [lindex $labelList 1]]
  1735.         set header [VxGetVar $appvals(vtMain) header]
  1736.         VtSetValues $header -label $label
  1737.         }
  1738.     # adjust host name length, then add 1 for right margin width
  1739.     set fieldLength [expr [AdjustFieldLength $maxHostNameLength] + 1]
  1740.     set formatList [list \
  1741.         [list STRING $fieldLength 5] \
  1742.         [list STRING 20]]
  1743.     VtSetValues $mainList -labelFormatList $formatList
  1744.     VtSetValues $mainList -labelList $labelList
  1745. }
  1746. proc ChannelBuildMainList {form top} {
  1747.     global appvals
  1748.     if {[VtInfo -charm]} {
  1749.         set labelList [list \
  1750.             [IntlMsg COLUMN_HOST_LBL] \
  1751.             [IntlMsg COLUMN_FORWARD_LBL]]
  1752.         set label [format "%-20s%-20s" \
  1753.             [lindex $labelList 0] \
  1754.             [lindex $labelList 1]]
  1755.         set header [VtLabel $form.header \
  1756.                 -topOffset 1 \
  1757.                 -labelLeft \
  1758.                 -leftSide FORM -leftOffset 1 \
  1759.                 -rightSide FORM \
  1760.                 -topSide $top \
  1761.                 -bottomSide NONE \
  1762.                 -label $label]
  1763.         VxSetVar $form header $header
  1764.         set top $header
  1765.     }
  1766.     set mainList [VtDrawnList $form.mainList \
  1767.             -MOTIF_rows 10 -CHARM_rows 25 \
  1768.             -MOTIF_columns 60 -CHARM_columns 20 \
  1769.             -horizontalScrollBar TRUE \
  1770.             -leftSide FORM \
  1771.             -MOTIF_leftOffset 5 -CHARM_leftOffset 0 \
  1772.             -rightSide FORM \
  1773.             -MOTIF_rightOffset 5 -CHARM_rightOffset 0 \
  1774.             -topSide $top \
  1775.             -MOTIF_topOffset 10 -CHARM_topOffset 0 \
  1776.             -bottomSide NONE \
  1777.             -selection MULTIPLE \
  1778.             -callback ChannelMainListCB \
  1779.             -defaultCallback ChannelMainListDoubleCB \
  1780.             -autoLock {ChannelMainListDoubleCB}]
  1781.     VxSetVar $form mainList $mainList
  1782.     ChannelSetMainListLabel 30
  1783.     return $mainList
  1784. }
  1785. proc ChannelMainListCB {cbs} {
  1786.     UiMainListCB $cbs
  1787. }
  1788. proc ChannelMainListDoubleCB {cbs} {
  1789.     UiMainListDoubleCB $cbs
  1790. }
  1791. proc ChannelInit {} {
  1792.     global appvals
  1793.     set appvals(title)     [IntlMsg TITLE $appvals(filename)]
  1794.     set appvals(object)     [IntlMsg OBJECT]    
  1795.     set appvals(objectmn)    [IntlMsg OBJECT_MN]    
  1796.     set appvals(itemname)    [IntlMsg ITEMS]    
  1797. }
  1798. proc ChannelWrite {} {
  1799.     global appvals
  1800.     global errorInfo
  1801.     #
  1802.     # commit the changes to file
  1803.     #
  1804.     # force a write since Map:Write will only write if modifications
  1805.     # were made
  1806.     Map:ForceWrites $appvals(fileid)
  1807.     if {[ErrorCatch errStack 0 "Map:Write $appvals(fileid)" result]} {
  1808.         ErrorPush errStack 0 [IntlErrId NONSTDCMD] [list $errorInfo]
  1809.         ErrorPush errStack 1 [IntlErrId WRITE] $appvals(filename)
  1810.     }
  1811.     # compile the database
  1812.     set cmd [list exec /etc/mail/makemap hash $appvals(filename) \
  1813.             < $appvals(filename) >& /dev/null]
  1814.     if {[ErrorCatch errStack 0 $cmd result]} {
  1815.         ErrorPush errStack 0 [IntlErrId NONSTDCMD] [list $errorInfo]
  1816.         ErrorPush errStack 1 [IntlErrId DATABASE] $appvals(filename).db
  1817.     }
  1818. }
  1819. set appvals(script) [file tail [info script]]    ;# argv[0]: UNIX command name 
  1820. set appvals(client) $appvals(script)        ;# widget strings, preferences
  1821. set appvals(filename) {}            ;# filename of channel table
  1822. set appvals(fileid) -1                ;# backend file id of table
  1823. set appvals(hostname) localhost            ;# name of host being managed
  1824. proc Exit {{code 0}} {
  1825.     # Final exit tasks
  1826.     exit $code
  1827. }
  1828. proc Usage {} {
  1829.     global appvals
  1830.     set usage [IntlErr USAGE $appvals(script)]
  1831.     puts stderr $usage
  1832. }
  1833. proc ParseCommandLine {} {
  1834.     global argv argc optarg opterr optind appvals
  1835.     # scan for commandline flags
  1836.     set optString    "f:h:"
  1837.     set argc [llength $argv]
  1838.     if {$argc == 0} {
  1839.         Usage; Exit 1
  1840.     }
  1841.     set opterr 0
  1842.     while {[set opt [getopt $argc $argv $optString]] != -1} {
  1843.         switch $opt {
  1844.             {f} {
  1845.                 set appvals(filename) $optarg
  1846.             }
  1847.             {h} {
  1848.                 set appvals(hostname) $optarg
  1849.             }
  1850.             {?} {
  1851.                 Usage; Exit 1
  1852.             }
  1853.         }
  1854.     }
  1855.     set optCount [expr "$argc - $optind"]
  1856.     if {$optCount > 0} {
  1857.         Usage; Exit 1
  1858.     }
  1859.     if {"$appvals(filename)" == ""} {
  1860.         Usage; Exit 1
  1861.     }
  1862. }
  1863. proc Main {} {
  1864.     global appvals errorInfo
  1865.     # Collect command line options
  1866.     ParseCommandLine
  1867.     # Initialize UI, build main form, present initial view
  1868.     # Init a few globals first
  1869.     ChannelInit
  1870.     UiStart
  1871.     # Main UI is now presented and Locked
  1872.     # Time-consuming startup operations can now take place with
  1873.     # optional status messages 
  1874.     #
  1875.     # + collect data to populate main form widgets
  1876.     # + populate main form widgets with live data
  1877.     SaStatusBarSet \
  1878.         [VxGetVar $appvals(vtMain) statusBar] [IntlMsg INIT] 
  1879.     # Show/hide the toolbar, depending on screen policy
  1880.     if {! [VtInfo -charm]} {
  1881.         set cmd "set visibility \[SaScreenPolicyGet $appvals(client) toolbarVisibility\]"
  1882.         if {[ErrorCatch errStack 0 $cmd errMsg] != 0} {
  1883.             set visibility 1
  1884.         }
  1885.         set menuBar [VxGetVar $appvals(vtMain) menuBar]
  1886.         set optionMenu [VxGetVar $menuBar optionMenu]
  1887.         set toolBarToggle [VxGetVar $optionMenu toolBarToggle]
  1888.         set toolBar [VxGetVar $appvals(vtMain) toolBar]
  1889.         set toolBarFrame [VxGetVar $appvals(vtMain) toolBarFrame]
  1890.         VtSetValues $toolBarToggle -value $visibility
  1891.         UiToolBarSetVisibilityCB
  1892.         }
  1893.     # if file does not exist, let the user know
  1894.     if {![file exists $appvals(filename)]} {
  1895.         set main $appvals(vtMain)
  1896.         set dialog [VtInformationDialog $main.exist \
  1897.             -message [IntlMsg FILE_DOESNT_EXIST] \
  1898.             -ok]
  1899.         VtShow $dialog
  1900.     }
  1901.     # if file is a directory, show error and exit
  1902.     if {[file isdirectory $appvals(filename)]} {
  1903.         set main $appvals(vtMain)
  1904.         set dialog [VtErrorDialog $main.error \
  1905.             -message [IntlErr DIRECTORY $appvals(filename)] \
  1906.             -ok -okCallback UiCloseCB -wmCloseCallback UiCloseCB]
  1907.         VtShow $dialog
  1908.         VtUnLock
  1909.         VtMainLoop
  1910.         return
  1911.     }
  1912.     # Open the file and read in the data to back end structures
  1913.     if {[ErrorCatch errStack 0 "Map:Open $appvals(filename)" result]} {
  1914.         ErrorPush errStack 0 [IntlErrId NONSTDCMD] [list $errorInfo]
  1915.         ErrorPush errStack 0 [IntlErrId LOAD] $appvals(filename)
  1916.         VtUnLock
  1917.         UiDisplayErrorStacks Main $errStack UiCloseCB
  1918.     } else {
  1919.         set appvals(fileid) $result
  1920.     }
  1921.     # Refresh main form data
  1922.     UiRefreshCB
  1923.     # Select first item, if exists
  1924.     set mainList [VxGetVar $appvals(vtMain) mainList]
  1925.     if {![lempty [VtDrawnListGetItem $mainList -all]]} {
  1926.         VtDrawnListSelectItem $mainList -position 1
  1927.     }
  1928.     # update the count label
  1929.     UiUpdateCountLabel
  1930.     # Set initial focus (list or menu bar)
  1931.     UiSetAppFocus
  1932.     # Set sensitivity of all main screen ui selection devices
  1933.     UiSensitizeMainFunctions
  1934.     # Setup complete
  1935.     # Wait for user events
  1936.     SaStatusBarClear [VxGetVar $appvals(vtMain) statusBar]
  1937.     VtUnLock
  1938.     VtMainLoop
  1939. }
  1940. proc CloseWithUi {} {
  1941.     set saveConfirmDlg [UiBuildSaveConfirmDialog]
  1942.     VtShow $saveConfirmDlg
  1943. }
  1944. proc CloseAfterUi {} {
  1945.     Exit
  1946. }
  1947. proc Refresh {} {
  1948.     global appvals
  1949.     # Populate main form data here
  1950.     set data {}
  1951.     # TODO
  1952.     # Setup simple example using the "who" module
  1953.     # Except for the following line, Refresh should be generic
  1954.     # and usable as is.
  1955.     # load Ui
  1956.     set data [ChannelGetData]
  1957.     UiMainListSetItems $data
  1958. }
  1959. ErrorTopLevelCatch {Main} $appvals(script)
  1960.