home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / scoadmin / root.3 / etc / mail / admin / aliases / aliases~
Text File  |  1998-08-19  |  79KB  |  2,468 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_ALIAS_MSGS {} {}
  17. global SCO_MAIL_ADMIN_ALIAS_MSGS
  18. set SCO_MAIL_ADMIN_ALIAS_MSGS(@catalog@) {alias.cat@mail 1}
  19. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELPBOOK) {1 aliases}
  20. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SAVE_CONFIRM_TITLE) {2 {Save Changes?}}
  21. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SAVE_CONFIRM_QUERY) {3 {Do you wish to save the changes made?}}
  22. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SAVE_CONFIRM_PB_YES) {4 { Yes }}
  23. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SAVE_CONFIRM_PB_NO) {5 {  No  }}
  24. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SAVE_CONFIRM_PB_CANCEL) {6 Cancel}
  25. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_STATUS_BOX_TITLE) {7 Information}
  26. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_TITLE) {8 {Alias File %1$s}}
  27. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_FILE_DOESNT_EXIST) {9 {File does not exist}}
  28. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_DIRECTORY) {10 {\"%1$s\" is a directory, not a file}}
  29. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SEARCH) {11 Search:}
  30. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_SEARCH) {12 {Type the first few letters of a name to search for}}
  31. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_NAME) {13 {Alias names cannot contain \" \", \":\" or \",\" characters.}}
  32. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_READING) {14 {Reading alias configuration.\nPlease wait...}}
  33. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SAVING) {15 {Saving alias configuration.\nPlease wait...}}
  34. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_REMOVE) {16 {Really remove %1$s \"%2$s\"?}}
  35. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ALIAS) {17 alias}
  36. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMBER) {18 member}
  37. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_REMOVE_MEMBERS) {19 {Really remove all the selected members?}}
  38. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_NONAMES) {20 {The alias must have both a name and at least one member}}
  39. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_DUPLICATE) {21 {An alias with that name already exists}}
  40. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_NO_REDIR) {22 {You must specify a mail redirection address}}
  41. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ADD_TITLE) {23 {Add Alias}}
  42. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MFY_TITLE) {24 {Modify Alias \"%1$s\"}}
  43. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ADD_NAME) {25 Name}
  44. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ADD_MEMBERS_TITLE) {26 {Name list}}
  45. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ADD_MEMBERS) {27 Members}
  46. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_NOMEMBERS) {28 {You must add at least one member}}
  47. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMBER_TITLE) {29 {Add Member}}
  48. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMBER_ADD) {30 {Member(s) to add to \"%1$s\"?}}
  49. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMBER_ADD_INST) {31 {(Enter names separated with spaces)}}
  50. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_LAST_MEMBER) {32 {You cannot remove the last member of\nan alias.  Delete the alias instead.\n}}
  51. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_LIST_TITLE) {33 Aliases}
  52. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMBERS_TITLE) {34 Members}
  53. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_LABEL) {35 Aliases}
  54. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_MNEM) {36 A}
  55. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_ADD_LABEL) {37 Add...}
  56. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_ADD_MNEM) {38 A}
  57. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_REMOVE_LABEL) {39 Remove}
  58. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_REMOVE_MNEM) {40 R}
  59. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_MODIFY_LABEL) {41 Modify...}
  60. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_MODIFY_MNEM) {42 M}
  61. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_SAVE_LABEL) {43 Save}
  62. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_SAVE_MNEM) {44 S}
  63. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_EXIT_LABEL) {45 Exit}
  64. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MENU_EXIT_MNEM) {46 x}
  65. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMB_MENU_LABEL) {47 Members}
  66. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMB_MENU_MNEM) {48 M}
  67. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMB_MENU_ADD) {49 Add...}
  68. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMB_MENU_ADD_MNEM) {50 A}
  69. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMB_MENU_REMOVE) {51 Remove}
  70. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_MEMB_MENU_REMOVE_MNEM) {52 R}
  71. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USERS_MENU_LABEL) {53 Users}
  72. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USERS_MENU_MNEM) {54 U}
  73. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USERS_MENU_SUB) {55 Subscribe...}
  74. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USERS_MENU_SUB_MNEM) {56 S}
  75. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USERS_MENU_RET) {57 Retire...}
  76. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USERS_MENU_RET_MNEM) {58 R}
  77. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ADD_PB) {59 { Add name(s) }}
  78. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_REMOVE_PB) {60 { Remove }}
  79. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_EDIT_PB) {61 { Edit }}
  80. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_SELECT_PB) {62 { Select name... }}
  81. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_ADD_TYPE) {63 {Enter name(s):}}
  82. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SELECT_TITLE) {64 {Select User(s)}}
  83. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_LIST_TITLE) {65 {Select one or more users:}}
  84. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SELECT_PB) {66 Select...}
  85. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_TITLE) {67 {Subscribe user %1$s}}
  86. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_INST) {68 {Select aliases for %1$s to join:}}
  87. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_INST_SPACE) {69 {Select aliases for '%1$s' to join:}}
  88. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_ADD_PB) {70 {   ADD >>}}
  89. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_RMV_PB) {71 {<< REMOVE}}
  90. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_SYSLIST) {72 {System aliases}}
  91. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_SUB_ULIST) {73 {Aliases %1$s subscribes to}}
  92. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_RET_TITLE) {74 {Remove User %1$s}}
  93. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_RET_INST) {75 {This removes user %1$s from all aliases in\n%2$s.\n}}
  94. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_USER_RET_REDIR) {76 {Redirect mail for %1$s to:}}
  95. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_USAGE) {77 {Usage: aliases -f [dbm:|btree:|hash:|implicit:]filename\n\t[-h hostname]\n\t[-a alias:member[,member...]] [-d alias[,alias...]]\n\t[-s user:alias[,alias...]] [-S user[,user...]]\n\t[-r user:alias[,alias...]] [-R user[,user...]]}}
  96. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_MISSING_ADD_ARG) {78 {Missing recipient list argument for -a option}}
  97. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_MISSING_FILE_OPT) {79 {Missing filename argument}}
  98. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_UNKNOWN_ARG) {80 {Unknown option \"%1$s\"}}
  99. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_UNKNOWN_CLASS) {81 {Unknown database class \"%1$s\" specified in -f argument}}
  100. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_ALIASES) {82 {Add and Remove aliases, Save, Quit}}
  101. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_ALIASES_ADD) {83 {Add an alias to the system}}
  102. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_ALIASES_RMV) {84 {Remove the selected alias from the system}}
  103. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_ALIASES_MFY) {85 {Modify the selected alias}}
  104. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_ALIASES_SAVE) {86 {Save any changes}}
  105. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_ALIASES_QUIT) {87 {Exit this program}}
  106. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_MEMBERS) {88 {Add and Remove members}}
  107. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_MEMBERS_ADD) {89 {Add a member to the selected alias to the system}}
  108. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_MEMBERS_RMV) {90 {Remove the selected member from the selected alias}}
  109. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_ADD_NAME) {91 {Type the name of the alias you wish to create}}
  110. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_ADD_MEMBERS) {92 {The list of members for the alias}}
  111. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIASES_LIST) {93 {The list of aliases in file %1$s}}
  112. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MEMBERS_LIST) {94 {The list of members of a selected alias}}
  113. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_ADD_PB) {95 {Press to add typed names(s) to list}}
  114. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_REM_PB) {96 {Press to remove selected names(s)}}
  115. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_EDIT_PB) {97 {Press to edit selected names(s)}}
  116. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_SEL_PB) {98 {Press to select names from a list}}
  117. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_ALIAS_ADD_TYPE) {99 {Type name(s) to be added, separated by spaces}}
  118. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_USERS) {100 {Subscribe or Retire users}}
  119. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_USERS_SUB) {101 {Subscribe user(s) to aliases}}
  120. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_MENU_USERS_RET) {102 {Retire user(s)}}
  121. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_USER_SUB_SYSLIST) {103 {Aliases in file %1$s}}
  122. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_USER_SUB_ADD_PB) {104 {Moves the selected alias(es) to the user's subscription list}}
  123. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_USER_SUB_RMV_PB) {105 {Removes the selected alias(es) back to the system list}}
  124. set SCO_MAIL_ADMIN_ALIAS_MSGS(MSG_HELP_USER_SUB_ULIST) {106 {The aliases that the user will subscribe to}}
  125. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_CANT_SAVE) {107 {aliases: Unable to save: %1$s}}
  126. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_NEWALIASES) {108 {aliases: Unable to compile alias database: %1$s}}
  127. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_CANT_LOAD) {109 {Failed to load alias file:\n%1$s}}
  128. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_WRITE) {110 {Failed to write alias file:\n%1$s}}
  129. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_DB) {111 {Failed to create alias database:\n%1$s}}
  130. set SCO_MAIL_ADMIN_ALIAS_MSGS(ERR_NONSTDCMD) {112 %s}
  131. proc ConfigFile:Open {} {
  132.     global Config_next
  133.     if {![info exists Config_next]} {
  134.     set Config_next 0
  135.     }
  136.     set file "config$Config_next"
  137.     incr Config_next
  138.     upvar #0 Config_${file}_next file_next
  139.     set file_next "1.0"
  140.     return $file
  141. }
  142. proc ConfigFile:Close {file} {
  143.     upvar #0 Config_$file fileList
  144.     upvar #0 Config_${file}_next file_next
  145.     unset file_next
  146.     foreach line [ConfigFile:GetList $file] {
  147.     unset fileList($line)
  148.     }
  149. }
  150. proc ConfigFile:Compare {line1 line2} {
  151.     set subLine1 [ctoken line1 "."]
  152.     set subLine2 [ctoken line2 "."]
  153.     if {$subLine1 == "" && $subLine2 == ""} {
  154.     return 0
  155.     } elseif {$subLine1 == ""} {
  156.     return -1
  157.     }  elseif {$subLine2 == ""} {
  158.     return 1
  159.     } elseif {$subLine1 < $subLine2} {
  160.     return -1
  161.     } elseif {$subLine1 > $subLine2} {
  162.     return 1
  163.     } else {
  164.     set line1 [string trimleft $line1 "."]
  165.     set line2 [string trimleft $line2 "."]
  166.     return [ConfigFile:Compare $line1 $line2]
  167.     }
  168. }
  169. proc ConfigFile:ReplaceLine {file line type id dataVar} {
  170.     upvar #0 Config_$file fileList
  171.     upvar #0 Config_${file}_next file_next
  172.     upvar $dataVar data
  173.     keylset fileList($line) type $type
  174.     keylset fileList($line) data $data
  175.     keylset fileList($line) id $id
  176.     if {[ConfigFile:Compare $line $file_next] == 1} {
  177.     set temp $line
  178.     set file_next [ctoken temp "."]
  179.     incr file_next
  180.     set file_next "${file_next}.0"
  181.     }
  182. }
  183. proc ConfigFile:AppendLine {file line type id dataVar} {
  184.     upvar #0 Config_$file fileList
  185.     upvar #0 Config_${file}_next file_next
  186.     upvar $dataVar data
  187.     if {$line == -1} {
  188.     set line $file_next
  189.     set temp [ctoken file_next "."]
  190.     incr temp
  191.     set file_next "${temp}.0"
  192.     } else {
  193.     set found 0
  194.     set left [ctoken line "."]
  195.     set right [ctoken line "."]
  196.     if {$right == "0"} {
  197.         set tryNext $left
  198.         incr tryNext
  199.         set tryNext "${tryNext}.0"
  200.         if {![info exists fileList($tryNext)]} { 
  201.         set found 1
  202.         }
  203.     }
  204.     if {!$found} {
  205.         set lastDigit [cindex $right end]
  206.         if {$lastDigit < 9} {
  207.             incr lastDigit
  208.             set tryNext "${left}.[csubstr $right 0 end]${lastDigit}"
  209.             if {![info exists fileList($tryNext)]} {
  210.             set found 1
  211.             }    
  212.         }
  213.     }
  214.     if {!$found} {
  215.         set leadingZeros ""
  216.         set tryNext "${left}.${right}.1"
  217.         while {[info exists fileList($tryNext)]} {
  218.         set leadingZeros "${leadingZeros}.0"
  219.         set tryNext "${left}.${right}${leadingZeros}.1"
  220.         }
  221.     }
  222.     set line $tryNext
  223.     }
  224.     keylset fileList($line) type $type
  225.     keylset fileList($line) id $id
  226.     keylset fileList($line) data $data
  227.     if {[string compare $line $file_next] == 1} {
  228.     set temp $line
  229.     set file_next [ctoken temp "."]
  230.     incr file_next
  231.     set file_next "${file_next}.0"
  232.     }
  233.     return $line
  234. }
  235. proc ConfigFile:GetLine {file line typeVar idVar dataVar} {
  236.     upvar #0 Config_$file fileList
  237.     upvar $typeVar type
  238.     upvar $idVar id
  239.     upvar $dataVar data
  240.     if {![info exists fileList($line)]} {
  241.     set type {}
  242.     set id {}
  243.     set data {}
  244.     return -1
  245.     }
  246.     keylget fileList($line) type type
  247.     keylget fileList($line) id id
  248.     keylget fileList($line) data data
  249.     return 0
  250. }
  251. proc ConfigFile:RemoveLine {file line} {
  252.     upvar #0 Config_$file fileList
  253.     if {![info exists fileList($line)]} {
  254.     # already gone
  255.     return
  256.     }
  257.     unset fileList($line)
  258. }
  259. proc ConfigFile:GetList {file} {
  260.     upvar #0 Config_$file fileList
  261.     if {![info exists fileList]} {
  262.     return {}
  263.     }
  264.     return [lsort -command ConfigFile:Compare [array names fileList]]
  265. }
  266. proc Table:ProcessLine {fileID type id data} {
  267.     global Table_lastType Table_lastID
  268.     set lineNum [ConfigFile:AppendLine $fileID -1 $type $id data]
  269.     if {[Table:GetOption $fileID makelower] != {}} {
  270.     set id [string tolower $id]
  271.     }
  272.     case $type {
  273.     CONTINUATION {
  274.         set type $Table_lastType
  275.         set id $Table_lastID
  276.     }
  277.     COMMENT {
  278.     }
  279.     default {
  280.         set Table_lastType $type
  281.         set Table_lastID $id
  282.     }
  283.     }
  284.     if {$id != {}} {
  285.     upvar #0 Table_${fileID}_$type typeList
  286.     lappend typeList($id) $lineNum
  287.     }
  288. }
  289. proc Table:Read {fileName callBack mode} {
  290.     global Table_info
  291.     if {[info exists Table_info($fileName.ID)]} {
  292.     return $Table_info($fileName.ID)
  293.     }
  294.     set fileID [ConfigFile:Open]
  295.     set Table_info($fileID.mode) $mode
  296.     if {![file exists $fileName]} {
  297.     return $fileID
  298.     }
  299.     set fp [open $fileName r]
  300.     set Table_info($fileName.ID) $fileID
  301.     set Table_info($fileID.fileName) $fileName
  302.     eval $callBack $fileID $fp
  303.     close $fp
  304.     return $fileID
  305. }
  306. proc Table:Write {fileID {fileName {}} {callBack {}}} {
  307.     global Table_info
  308.     if {[info exists Table_info($fileID.deferred)]} {
  309.     return
  310.     }
  311.     if {![info exists Table_info($fileID.modified)] && $fileName == {}} {
  312.     return
  313.     }
  314.     if {$callBack == {}} {
  315.     set callBack $Table_info($fileID.writeCB)
  316.     }
  317.     if {$fileName == {}} {
  318.     set fileName $Table_info($fileID.fileName)
  319.     set clearModified 1
  320.     } else {
  321.     set clearModified 0
  322.     }
  323.     #
  324.     # If the file exists, make sure the new file has the
  325.     # same owner and perms.  Otherwise, make sure the
  326.     # parent directory exists.
  327.     #
  328.     if {[file exists $fileName]} {
  329.     file stat $fileName info
  330.     set Table_info($fileID.uid) $info(uid)
  331.     set Table_info($fileID.gid) $info(gid)
  332.     set Table_info($fileID.mode) $info(mode)
  333.     } else {
  334.     set directory [file dirname $fileName]
  335.     set oldUmask [umask]
  336.     umask 0222
  337.     if {![file isdirectory $directory]} {
  338.         mkdir -path $directory
  339.     }
  340.     umask $oldUmask
  341.     }
  342.     set fp [open ${fileName}.new w]
  343.     chmod $Table_info($fileID.mode) ${fileName}.new
  344.     if {[info exists Table_info($fileID.uid)]} {
  345.     chown [list $Table_info($fileID.uid) $Table_info($fileID.gid)] \
  346.         ${fileName}.new
  347.     }
  348.     foreach line [ConfigFile:GetList $fileID] {
  349.     if {[ConfigFile:GetLine $fileID $line type id data] != 0} {
  350.         continue
  351.     }
  352.     eval "$callBack $fileID $fp {$type} {$id} {$data}"
  353.     }
  354.     close $fp
  355.     if {[file exists $fileName]} {
  356.     unlink $fileName
  357.     }
  358.     frename ${fileName}.new $fileName
  359.     if {$clearModified} {
  360.     unset Table_info($fileID.modified)
  361.     }
  362. }
  363. proc Table:Open {fileName readCB writeCB {mode 0666}} {
  364.     global Table_info
  365.     set fileID [Table:Read $fileName $readCB $mode]
  366.     set Table_info($fileID.fileName) $fileName
  367.     set Table_info($fileID.readCB) $readCB
  368.     set Table_info($fileID.writeCB) $writeCB
  369.     set Table_info($fileName.ID) $fileID
  370.     return $fileID
  371. }
  372. proc Table:Close {fileID {fileName {}}} {
  373.     global Table_info
  374.     if {![info exists Table_info($fileID.fileName)]} {
  375.     return
  376.     }
  377.     if {[info exists Table_info($fileID.deferred)]} {
  378.     unset Table_info($fileID.deferred)
  379.     }
  380.     Table:Write $fileID $fileName $Table_info($fileID.writeCB)
  381.     if {$fileName == {}} {
  382.     set fileName $Table_info($fileID.fileName)
  383.     }
  384.     unset Table_info($fileID.fileName)
  385.     unset Table_info($fileName.ID)
  386.     ConfigFile:Close $fileID
  387. }
  388. proc Table:CloseNoWrite {fileID {fileName {}}} {
  389.     global Table_info
  390.     if {![info exists Table_info($fileID.fileName)]} {
  391.     return
  392.     }
  393.     if {[info exists Table_info($fileID.deferred)]} {
  394.     unset Table_info($fileID.deferred)
  395.     }
  396.     if {$fileName == {}} {
  397.     set fileName $Table_info($fileID.fileName)
  398.     }
  399.     unset Table_info($fileID.fileName)
  400.     unset Table_info($fileName.ID)
  401.     ConfigFile:Close $fileID
  402. }
  403. proc Table:DeferWrites {fileID} {
  404.     global Table_info
  405.     set Table_info($fileID.deferred) 1
  406. }
  407. proc Table:ForceWrites {fileID} {
  408.     global Table_info
  409.     if {[info exists Table_info($fileID.deferred)]} {
  410.     unset Table_info($fileID.deferred)
  411.     }
  412.     set Table_info($fileID.modified) 1
  413. } 
  414. proc Table:SetOption {fileID option {value 1}} {
  415.     global Table_options
  416.     set Table_options($fileID.$option) $value
  417. }
  418. proc Table:HasOption {fileID option} {
  419.     return [info exists Table_options($fileID.$option)]
  420. }
  421. proc Table:GetOption {fileID option} {
  422.     global Table_options
  423.     if {![info exists Table_options($fileID.$option)]} {
  424.     return {}
  425.     }
  426.     return $Table_options($fileID.$option)
  427. }
  428. proc Table:Modified {fileID} {
  429.     global Table_info
  430.     if {[info exists Table_info($fileID.modified)]} {
  431.     return $Table_info($fileID.modified)
  432.     } else {
  433.     return 0
  434.     }
  435. }
  436. proc Table:GetLineList {fileID type {idList {}}} {
  437.     upvar #0 Table_${fileID}_$type typeList
  438.     if {![info exists typeList]} {
  439.     return {}
  440.     }
  441.     if {$idList == {}} {
  442.     set idList [array names typeList]
  443.     }
  444.     set lineList {}
  445.     foreach id $idList {
  446.     if {[info exists typeList($id)]} {
  447.         append lineList " $typeList($id)"
  448.     }
  449.     }
  450.     return [lsort -command ConfigFile:Compare $lineList]
  451. }
  452. proc Table:Get {fileID type id {separator {}}} {
  453.     upvar #0 Table_${fileID}_$type typeList
  454.     if {[Table:GetOption $fileID makelower] != {}} {
  455.     set id [string tolower $id]
  456.     }
  457.     set value {}
  458.     if {![info exists typeList($id)]} {
  459.     return $value
  460.     }
  461.     set numLines [llength [Table:GetLineList $fileID $type $id]]
  462.     set thisLine 1
  463.     foreach line $typeList($id) {
  464.     ConfigFile:GetLine $fileID $line dummy dummy data
  465.     if {$thisLine == $numLines} {
  466.         append value "$data"
  467.     } else {
  468.         set data [string trim $data "$separator"]
  469.         append value "$data$separator"
  470.     }
  471.     incr thisLine
  472.     }
  473.     set value [string trimleft $value $separator]
  474.     return $value
  475. }
  476. proc Table:Set {fileID type id data} {
  477.     upvar #0 Table_${fileID}_${type} typeList
  478.     global Table_info
  479.     global Table_lastType Table_lastID
  480.     set name $id
  481.     if {[Table:GetOption $fileID makelower] != {}} {
  482.     set id [string tolower $id]
  483.     }
  484.     if {[info exists typeList($id)]} {
  485.     foreach line $typeList($id) {
  486.         ConfigFile:RemoveLine $fileID $line
  487.     }
  488.     set line [lindex $typeList($id) 0]
  489.     unset typeList($id)
  490.     } else {
  491.     if {[set lineList [Table:GetLineList $fileID $type]] != {}} {
  492.         set line [lindex $lineList end]
  493.     } else {
  494.         if {[Table:GetOption $fileID newFirst] == 1} {
  495.         set line 0
  496.         } else {
  497.         set line -1
  498.         }
  499.     }
  500.     }
  501.     lappend typeList($id) [ConfigFile:AppendLine $fileID $line \
  502.     $type $name data]
  503.     set Table_lastType $type
  504.     set Table_lastID $id
  505.     set Table_info($fileID.modified) 1
  506. }
  507. proc Table:Unset {fileID type id} {
  508.     upvar #0 Table_${fileID}_$type typeList
  509.     global Table_info
  510.     if {[Table:GetOption $fileID makelower] != {}} {
  511.     set id [string tolower $id]
  512.     }
  513.     if {![info exists typeList($id)]} {
  514.     return
  515.     }
  516.     foreach line $typeList($id) {
  517.     ConfigFile:RemoveLine $fileID $line
  518.     }
  519.     unset typeList($id)
  520.     set Table_info($fileID.modified) 1
  521. }
  522. proc Table:AppendLine {fileID type id value {line {}}} {
  523.     global Table_lastType Table_lastID
  524.     global Table_info
  525.     if {$type == "CONTINUATION"} {
  526.     upvar #0 Table_${fileID}_$Table_lastType typeList
  527.     } else {
  528.     upvar #0 Table_${fileID}_$type typeList
  529.     }
  530.     if {[Table:GetOption $fileID makelower] != {}} {
  531.     set id [string tolower $id]
  532.     }
  533.     if {$line == ""} {
  534.     if {[info exists typeList($id)]} {
  535.         set line [lindex $typeList($id) end]
  536.     } else {
  537.         if {[set lineList [Table:GetLineList $fileID $type]] == {}} {
  538.         set line [lindex $lineList end]
  539.         } else {
  540.         if {[Table:GetOption $fileID newFirst] == 1} {
  541.             set line 0
  542.         } else {
  543.             set line -1
  544.         }
  545.         }
  546.     }
  547.     }
  548.     if {$type == "CONTINUATION"} {
  549.     lappend typeList($id) \
  550.         [ConfigFile:AppendLine $fileID $line $type {} value]
  551.     } else {
  552.     lappend typeList($id) \
  553.         [ConfigFile:AppendLine $fileID $line $type $id value]
  554.     }
  555.     set Table_info($fileID.modified) 1
  556. }
  557. proc Table:RemoveLine {fileID type id deleteLine} {
  558.     upvar #0 Table_${fileID}_$type typeList
  559.     global Table_info
  560.     if {[Table:GetOption $fileID makelower] != {}} {
  561.     set id [string tolower $id]
  562.     }
  563.     if {![info exists typeList($id)]} {
  564.     return
  565.     }
  566.     set index 0
  567.     foreach line $typeList($id) {
  568.     if {$line == $deleteLine} {
  569.         lvarpop typeList($id) $index
  570.         ConfigFile:RemoveLine $fileID $line
  571.         break
  572.     }
  573.     incr index
  574.     }
  575.     set Table_info($fileID.modified) 1
  576. }
  577. proc Table:ReplaceLine {fileID type replaceLine id data} {
  578.     global Table_info
  579.     upvar #0 Table_${fileID}_$type typeList
  580.     if {[ConfigFile:GetLine $fileID $replaceLine oldType oldId oldData] == 0} {
  581.     if {$oldId != ""} {
  582.             upvar #0 Table_${fileID}_$oldType oldTypeList
  583.         set index [lsearch -exact $oldTypeList($oldId) $replaceLine]
  584.         if {$index != -1} {
  585.         lvarpop oldTypeList($oldId) $index
  586.         if {[lempty $oldTypeList($oldId)]} {
  587.             unset oldTypeList($oldId)
  588.         }
  589.         }
  590.     }
  591.     }
  592.     ConfigFile:ReplaceLine $fileID $replaceLine $type $id data
  593.     if {$id != ""} {
  594.     if {![info exists typeList($id)]} {
  595.         set typeList($id) {}
  596.     }
  597.     lappend typeList($id) $replaceLine
  598.     }
  599.     set Table_info($fileID.modified) 1
  600. }
  601. proc Table:List {fileID type {ordered 0}} {
  602.     upvar #0 Table_${fileID}_$type typeList
  603.     if {![info exists typeList]} {
  604.     return {}
  605.     }
  606.     if {[Table:GetOption $fileID makelower] == {} && $ordered == 0} {
  607.     return [array names typeList]
  608.     }
  609.     #
  610.     # We have to go get the original ids from before they were converted 
  611.     # to lower case, or they want the ids in the order they appear anyway.
  612.     #
  613.     set returnList {}
  614.     foreach line [Table:GetLineList $fileID $type] {
  615.     ConfigFile:GetLine $fileID $line dummy id dummy
  616.     append returnList " $id"
  617.     }
  618.     return [string trimleft $returnList]
  619. }
  620. set Alias_MaxLine    80
  621. proc Alias:ReadCB {fileID fp} {
  622.     set context [scancontext create]
  623.     scanmatch $context {^(#.*|[     ]*)$} {
  624.     Table:ProcessLine $fileID COMMENT {} $matchInfo(line)
  625.     continue
  626.     }
  627.     scanmatch $context {^([^:     ]+):(.*)} {
  628.     Table:ProcessLine $fileID alias $matchInfo(submatch0) \
  629.         $matchInfo(submatch1)
  630.     }
  631.     scanmatch $context {^[     ]+[^     ]+} {
  632.     Table:ProcessLine $fileID CONTINUATION {} $matchInfo(line)
  633.     }
  634.     scanmatch $context {
  635.     Table:ProcessLine $fileID COMMENT {} $matchInfo(line)
  636.     }
  637.     scanfile $context $fp
  638.     scancontext delete $context
  639. }
  640. proc Alias:WriteCB {fileID fp type id data} {
  641.     case $type {
  642.     alias {
  643.         if {$id != {}} {
  644.         puts $fp "$id:" nonewline
  645.         }
  646.         puts $fp $data
  647.     }
  648.     default {
  649.         puts $fp $data
  650.     }
  651.     }
  652. }
  653. proc Alias:Open {fileName {mode 0644}} {
  654.     return [Table:Open $fileName Alias:ReadCB Alias:WriteCB $mode]
  655. }
  656. proc Alias:Write {fileID {fileName {}}} {
  657.     return [Table:Write $fileID $fileName]
  658. }
  659. proc Alias:Close {fileID} {
  660.     return [Table:Close $fileID]
  661. }
  662. proc Alias:DeferWrites {fileID} {
  663.     return [Table:DeferWrites $fileID]
  664. }
  665. proc Alias:ForceWrites {fileID} {
  666.     return [Table:ForceWrites $fileID]
  667. }
  668. proc Alias:Get {fileID id} {
  669.     set value [Table:Get $fileID alias $id]
  670.     set result {}
  671.     # alias recipients are separated by commas--
  672.     # but a recipient may be a quoted string which also has a comma
  673.     while {[clength $value] > 0} {
  674.     set thisToken [ctoken value ","]
  675.     set numQuotes [expr [llength [split $thisToken "\""]] - 1]
  676.     if {[fmod $numQuotes 2] == 1.0} {
  677.         set restOfQuotedPart [ctoken value "\""]
  678.         append thisToken $restOfQuotedPart
  679.         append thisToken [ctoken value ","]
  680.     }
  681.     set recipient [string trim $thisToken]
  682.     if {[clength $recipient] > 0} {
  683.         lappend result $recipient
  684.     }
  685.     }
  686.     return $result
  687. }
  688. proc Alias:Set {fileID id value} {
  689.     global Alias_MaxLine
  690.     set data " [lvarpop value],"
  691.     # for first line, add length of alias name, plus 1 for the colon,
  692.     # plus length of $data
  693.     set length [expr [string length $data] + [string length $id] + 1]
  694.     set first 1
  695.     foreach word $value {
  696.     set wordLen [string length $word]
  697.     if {[expr "$length + $wordLen + 2"] <= $Alias_MaxLine} {
  698.         append data " $word,"
  699.         set length [expr "$length + $wordLen + 2"]
  700.     } else {
  701.         if {$first} {
  702.         Table:Set $fileID alias $id $data
  703.         } else {
  704.         # if this isn't the first line, append as a continued line
  705.         Table:AppendLine $fileID CONTINUATION $id $data
  706.         }
  707.         set first 0
  708.         set data "\t${word},"
  709.         set length [expr "$wordLen + 9"]
  710.     }
  711.     }
  712.     set data [string trimright $data ","]
  713.     if {$first} {
  714.     return [Table:Set $fileID alias $id $data]
  715.     } else {
  716.     return [Table:AppendLine $fileID CONTINUATION $id $data]
  717.     }
  718. }
  719. proc Alias:Unset {fileID id} {
  720.     return [Table:Unset $fileID alias $id]
  721. }
  722. proc Alias:List {fileID} {
  723.     return [Table:List $fileID alias]
  724. }
  725. proc Alias:AddValue {fileID id addValue} {
  726.     set currentValue [Alias:Get $fileID $id]
  727.     if {[lempty $currentValue]} {
  728.     set newValue $addValue
  729.     } else {
  730.     set newValue [union $currentValue $addValue]
  731.     }
  732.     return [Alias:Set $fileID $id $newValue]
  733. }
  734. proc Alias:RemoveValue {fileID id removeValue} {
  735.     set currentValue [Alias:Get $fileID $id]
  736.     set newValue [lindex [intersect3 $currentValue $removeValue] 0]
  737.     if {[lempty $newValue]} {
  738.     return [Alias:Unset $fileID $id]
  739.     } else {
  740.     return [Alias:Set $fileID $id $newValue]
  741.     }
  742. }
  743. proc Alias:Modified {fileID} {
  744.     return [Table:Modified $fileID]
  745. }
  746. proc Alias:IsMember {fileID id recipient} {
  747.     set members [Alias:Get $fileID $id]
  748.     if {[lempty [lmatch -exact $members $recipient]]} {
  749.     return 0
  750.     } else {
  751.     return 1
  752.     }
  753. }
  754. proc Alias:Memberships {fileID recipient} {
  755.     set result {}
  756.     foreach alias [Alias:List $fileID] {
  757.     if {[Alias:IsMember $fileID $alias $recipient]} {
  758.         lappend result $alias
  759.     }
  760.     }
  761.     return $result
  762. }
  763. set MA_ALIAS_FILEID -1
  764. set MA_ALIAS_FILENAME ""
  765. set MA_ALIAS_CLASS NONE
  766. set MA_ALIAS_DATABASE_CLASSES [list dbm btree hash implicit NONE]
  767. set MA_ALIAS_MANAGED_HOST "localhost"
  768. set MA_ALIAS_SENDMAILCF /etc/mail/sendmailcf.factory
  769. set MA_ALIAS_NEWALIASES /etc/mail/newaliases
  770. proc SaSetFocusUnlock { what cbs } {
  771.     SaSetFocus $what $cbs
  772.     VtUnLock
  773. }
  774. proc GetUsers {} {
  775.     global MA_ALIAS_MANAGED_HOST
  776.     # SaUsersGet should already sort the users
  777.     return [SaUsersGet $MA_ALIAS_MANAGED_HOST]
  778. }
  779. proc NameErr { parent } {
  780.     VtShow\
  781.         [VtErrorDialog $parent.eb -ok\
  782.             -message [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_NAME]]
  783. }
  784. set MyStatusCurID "*not*a*form*id*"
  785. set MyStatusCurForm ""
  786. proc MyStatusBox { id what } {
  787.     global MyStatusCurID MyStatusCurForm
  788.     if {$what == "-close"} {
  789.         if {$id == $MyStatusCurID} {
  790.             VtDestroyDialog $MyStatusCurForm
  791.             VtUnLock -once
  792.             set MyStatusCurID "*not*a*form*id*"
  793.         } else {
  794.             error "MyStatusBox: $id not the current form"
  795.         }
  796.         return
  797.     }
  798.     if {$id == $MyStatusCurID} {
  799.         set label [VxGetVar $MyStatusCurForm "label"]
  800.         VtSetValues $label -label "$what"
  801.         return
  802.     }
  803.     if {$MyStatusCurID != "*not*a*form*id*"} {
  804.         error "MyStatusBox: another status box already being displayed"
  805.         return
  806.     }
  807.     set MyStatusCurID $id
  808.     #VtLock
  809.     set MyStatusCurForm\
  810.         [VtFormDialog $id\
  811.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_STATUS_BOX_TITLE]]
  812.     set label\
  813.         [VtLabel $MyStatusCurForm.Label\
  814.             -label $what\
  815.             -rightSide FORM\
  816.             -bottomSide FORM]
  817.     VxSetVar $MyStatusCurForm "label" $label
  818.     VtShow $MyStatusCurForm
  819.     VtLock
  820. }
  821. proc SaveCB { cbs {doUnlock 1}} {
  822.     global MA_ALIAS_FILEID MA_ALIAS_FILENAME MA_ALIAS_CLASS
  823.     global MA_ALIAS_SENDMAILCF MA_ALIAS_NEWALIASES
  824.     global mainForm errorInfo
  825.     MyStatusBox $mainForm.savebox [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SAVING]
  826.     # We want to save whether there have been modifications or not
  827.     Alias:ForceWrites $MA_ALIAS_FILEID
  828.     if {[ErrorCatch errStack 0 { Alias:Write $MA_ALIAS_FILEID } errmsg] != 0} {
  829.         MyStatusBox $mainForm.savebox -close
  830.         SaDisplayErrorInfo $mainForm.ErrorWrite [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_WRITE $MA_ALIAS_FILENAME] noHelp
  831.         if {$doUnlock} {
  832.             VtUnLock
  833.         }
  834.         return 0
  835.     }
  836.     # the newaliases command doesn't work if the alias file specified in
  837.     # the command line is not a full pathname
  838.     if {[cindex $MA_ALIAS_FILENAME 0] != "/"} {
  839.         set MA_ALIAS_FILENAME "[pwd]/${MA_ALIAS_FILENAME}"
  840.     }
  841.     if {$MA_ALIAS_CLASS == "NONE"} {
  842.         set cmd \
  843.         "exec $MA_ALIAS_NEWALIASES -oA${MA_ALIAS_FILENAME} -C${MA_ALIAS_SENDMAILCF} >& /dev/null"
  844.     } else {
  845.         set cmd \
  846.         "exec $MA_ALIAS_NEWALIASES -oA${MA_ALIAS_CLASS}:${MA_ALIAS_FILENAME} -C${MA_ALIAS_SENDMAILCF} >& /dev/null"
  847.     }
  848.     if {[ErrorCatch errStack 0 $cmd errmsg] != 0} {
  849.         MyStatusBox $mainForm.savebox -close
  850.         SaDisplayErrorInfo $mainForm.ErrorDB [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_DB ${MA_ALIAS_FILENAME}.db] noHelp
  851.         if {$doUnlock} {
  852.             VtUnLock
  853.         }
  854.         return 0
  855.     }
  856.     MyStatusBox $mainForm.savebox -close
  857.     if {$doUnlock} {
  858.         VtUnLock
  859.     }
  860.     return 1
  861. }
  862. proc quitCB { cbs } {
  863.     quit
  864. }
  865. proc quit {} {
  866.     VtUnLock
  867.     VtClose
  868.     exit
  869. }
  870. proc _saveConCB { which cbs } {
  871.     set parent [keylget cbs "dialog"]
  872.     set callback [VxGetVar $parent "callback"]
  873.     VtDestroyDialog $parent
  874.     $callback $which
  875. }
  876. proc saveConfirm { wname callback } {
  877.     set isCharm [VtInfo -charm]
  878.     set dlog\
  879.         [VtFormDialog $wname\
  880.             -okLabel [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SAVE_CONFIRM_PB_YES]\
  881.             -okCallback {_saveConCB "save"}\
  882.             -autoLock _saveConCB\
  883.             -applyLabel [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SAVE_CONFIRM_PB_NO]\
  884.             -applyCallback {_saveConCB "discard"}\
  885.             -cancelLabel\
  886.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SAVE_CONFIRM_PB_CANCEL]\
  887.             -cancelCallback {_saveConCB "cancel"}\
  888.             -wmCloseCallback {_saveConCB "cancel"}\
  889.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SAVE_CONFIRM_TITLE]]
  890.     VxSetVar $dlog "callback" $callback
  891.     VtLabel $dlog.label\
  892.         -rightSide FORM\
  893.         -font medBoldFont\
  894.         -label "\n[IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SAVE_CONFIRM_QUERY]\n"
  895.     VtShow $dlog
  896. }
  897. proc saveConfirmCB { action } {
  898.     if { $action == "cancel"} {
  899.         VtUnLock
  900.         return
  901.     }
  902.     if { $action == "save"} {
  903.         if {![SaveCB {} 0]} {
  904.             VtUnLock
  905.             return
  906.         }
  907.     }
  908.     quit
  909. }
  910. proc CloseCB { cbs } {
  911.     global MA_ALIAS_FILEID
  912.     if {[Alias:Modified $MA_ALIAS_FILEID]} {
  913.         set parent [keylget cbs "dialog"]
  914.         saveConfirm $parent.savebox saveConfirmCB
  915.         VtUnLock
  916.         return
  917.     }
  918.     quit
  919. }
  920. proc ConfirmRemoval { what names okCB remove } {
  921.     global    mainForm
  922.     if {[llength $names] > 1} {
  923.         set msg [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_REMOVE_MEMBERS]
  924.     } else {
  925.         set msg\
  926.           [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_REMOVE [list $what $names]]
  927.     }
  928.     if {"$remove" == "alias"} {
  929.         set formname $mainForm.iboxAlias
  930.     } else {
  931.         set formname $mainForm.iboxMember
  932.     }
  933.     VtShow [VtQuestionDialog $formname\
  934.                 -okCallback $okCB -autoLock $okCB -message $msg]
  935. }
  936. set _UserSelPBCallback "<null>"
  937. proc _UserSelPBDone { what cbs } {
  938.     global _UserSelPBCallback
  939.     set parent [keylget cbs "dialog"]
  940.     if {$what == "OK"} {
  941.         set userSelectList [VxGetVar $parent "userSelectList"]
  942.         set users [VtListGetSelectedItem $userSelectList -byItemList]
  943.     } else {
  944.         set users {}
  945.     }
  946.     VtDestroyDialog $parent
  947.     if {$_UserSelPBCallback != "<null>" && ![lempty $users]} {
  948.         set routine [lvarpop _UserSelPBCallback]
  949.         eval $routine [list $users] $_UserSelPBCallback [list $cbs]
  950.     }
  951.     VtUnLock
  952. }
  953. proc UserSelectPBCB { callbackName cbs } {
  954.     global _UserSelPBCallback
  955.     set parent [keylget cbs "dialog"]
  956.     set _UserSelPBCallback $callbackName
  957.     set userSelForm\
  958.         [VtFormDialog $parent.userSelForm\
  959.             -help\
  960.             -okCallback { _UserSelPBDone OK }\
  961.             -autoLock _UserSelPBDone\
  962.             -cancelCallback { _UserSelPBDone Cancel }\
  963.             -wmCloseCallback { _UserSelPBDone Cancel }\
  964.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SELECT_TITLE]]
  965.     set userSelectList\
  966.         [VxList $userSelForm.userSelectList\
  967.             -rightSide FORM\
  968.             -bottomSide FORM\
  969.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_LIST_TITLE]\
  970.             -itemList [GetUsers]\
  971.             -MOTIF_selection EXTENDED\
  972.             -CHARM_selection MULTIPLE\
  973.             -rows 10\
  974.             -columns 20]
  975.     VxSetVar $userSelForm "userSelectList" $userSelectList
  976.     VtSetFocus $userSelectList
  977.     VtShowDialog $userSelForm
  978.     VtUnLock
  979. }
  980. set _UserSelCallback "<null>"
  981. proc _UserSelDone { what cbs } {
  982.     global _UserSelCallback
  983.     set parent [keylget cbs "dialog"]
  984.     if {$what == "OK"} {
  985.         set userSelectText [VxGetVar $parent "userSelectText"]
  986.         set users [alias_recipients_parse \
  987.             [VtGetValues $userSelectText -value] " "]
  988.     } else {
  989.         set users {}
  990.     }
  991.     VtDestroyDialog $parent
  992.     if {$_UserSelCallback != "<null>"} {
  993.         set routine [lvarpop _UserSelCallback]
  994.         eval $routine [list $users] $_UserSelCallback [list $cbs]
  995.     }
  996.     VtUnLock
  997. }
  998. proc _UserSelectInsCB { userList parent cbs } {
  999.     set userSelectText [VxGetVar $parent "userSelectText"]
  1000.         set currentList [alias_recipients_parse \
  1001.         [VtGetValues $userSelectText -value] " "]
  1002.     if {$currentList == ""} {
  1003.         set newValue $userList
  1004.     } else {
  1005.         set newList [lrmdups [concat $currentList $userList]]
  1006.         set newValue [alias_list_to_string $newList]
  1007.     }
  1008.     VtSetValues $userSelectText \
  1009.         -value $newValue
  1010.     VtSetValues $userSelectText \
  1011.         -xmArgs [list XmNcursorPosition [clength $newValue]]
  1012.     VtSetFocus $userSelectText
  1013.     VtUnLock
  1014. }
  1015. proc UserSelectCB { callbackName cbs } {
  1016.     global _UserSelCallback
  1017.     set parent [keylget cbs "dialog"]
  1018.     set _UserSelCallback $callbackName
  1019.     set userSelDlg\
  1020.         [VtFormDialog $parent.userSelDlg\
  1021.             -help\
  1022.             -okCallback {_UserSelDone OK}\
  1023.             -autoLock _UserSelDone\
  1024.             -cancelCallback {_UserSelDone Cancel}\
  1025.             -wmCloseCallback {_UserSelDone Cancel}\
  1026.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SELECT_TITLE]]
  1027.     set selForm\
  1028.         [VtForm $userSelDlg.selForm\
  1029.             -topSide FORM\
  1030.             -bottomSide NONE\
  1031.             -leftSide FORM\
  1032.             -rightSide FORM\
  1033.             -MOTIF_marginHeight 5 -marginWidth 0]
  1034.     set label\
  1035.         [VtLabel $selForm.label\
  1036.             -topSide FORM\
  1037.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_LIST_TITLE]\
  1038.             -labelLeft]
  1039.     set userSelectButton\
  1040.         [VtPushButton $selForm.userSelectPB\
  1041.             -topSide $label\
  1042.             -bottomSide FORM\
  1043.             -leftSide NONE\
  1044.             -rightSide FORM\
  1045.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SELECT_PB]\
  1046.             -callback\
  1047.                 [list UserSelectPBCB [list _UserSelectInsCB $userSelDlg]]\
  1048.             -autoLock UserSelectPBCB]
  1049.     VxSetVar $userSelDlg "userSelectButton" $userSelectButton
  1050.     set userSelectText\
  1051.         [VxText $selForm.userSelectText\
  1052.             -topSide $label\
  1053.             -bottomSide FORM\
  1054.             -leftSide FORM\
  1055.             -rightSide $userSelectButton\
  1056.             -columns 30 \
  1057.             -callback {SaSetFocusUnlock next} \
  1058.             -autoLock SaSetFocusUnlock]
  1059.     VxSetVar $userSelDlg "userSelectText" $userSelectText
  1060.     set okButton [VtGetValues $userSelDlg -ok]
  1061.     SaSetFocusList $userSelDlg [list $userSelectText $okButton]
  1062.     VtShowDialog $userSelDlg
  1063.     VtSetFocus $userSelectText
  1064.     VtUnLock
  1065. }
  1066. proc aliasAddOK { isOK cbs } {
  1067.     global MA_ALIAS_FILEID
  1068.     global    curAlias
  1069.     set parent [keylget cbs "dialog"]
  1070.     set func [VxGetVar $parent "func"]
  1071.     if { $isOK } {
  1072.         aliasAddTypeCB $cbs 0        ;# In case the user forgot to press [Add]
  1073.         set newName [VxGetVar $parent "newName"]
  1074.         set newMembers [VxGetVar $parent "newMembers"]
  1075.         set name [VtGetValues $newName -value]
  1076.         set new [VtListGetItem $newMembers -all]
  1077.         if {$name == "" || $new == ""} {
  1078.             VtShow\
  1079.               [VtErrorDialog $parent.eb -ok -help\
  1080.                 -message [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_NONAMES]]
  1081.             VtUnLock
  1082.             return
  1083.         }
  1084.         if {[regexp {[:,     ]}  $name]} {
  1085.             NameErr $parent
  1086.             VtUnLock
  1087.             return
  1088.         }
  1089.         set aliasList [string tolower [Alias:List $MA_ALIAS_FILEID]]
  1090.         if { ( $func == "add" || \
  1091.                [string tolower $curAlias] != [string tolower $name] ) \
  1092.            && [lsearch $aliasList [string tolower $name]] != -1} {
  1093.             VtShow\
  1094.               [VtErrorDialog $parent.eb -ok -help\
  1095.                 -message [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_DUPLICATE]]
  1096.             VtUnLock
  1097.             return
  1098.         }
  1099.         if {$func == "add"} {
  1100.             Alias:Set $MA_ALIAS_FILEID $name $new
  1101.         } else {
  1102.             Alias:Unset $MA_ALIAS_FILEID $curAlias
  1103.             Alias:Set $MA_ALIAS_FILEID $name $new
  1104.         }
  1105.     }
  1106.     VtDestroyDialog $parent
  1107.     if { $isOK } {
  1108.         # Display new list
  1109.         aliasRedrawList $name
  1110.     }
  1111.     VtUnLock
  1112. }
  1113. proc aliasAddSelectCB { userList parent cbs } {
  1114.     set listWidget [VxGetVar $parent "newMembers"]
  1115.     set newList [lrmdups [concat [VtListGetItem $listWidget -all] $userList]]
  1116.     VtListSetItem $listWidget -itemList $newList
  1117.     VtListSelectItem $listWidget -itemList $userList
  1118.     SaListShowSelectedItem $listWidget
  1119.     aliasAddListCB $parent $cbs
  1120. }
  1121. proc aliasAddSelect { cbs } {
  1122.     set parent [keylget cbs "dialog"]
  1123.     UserSelectPBCB [list aliasAddSelectCB $parent] $cbs
  1124.     VtUnLock
  1125. }
  1126. proc aliasAddRem { cbs } {
  1127.     set parent [keylget cbs "dialog"]
  1128.     set newMembers [VxGetVar $parent "newMembers"]
  1129.     set posnList [VtListGetSelectedItem $newMembers -byPositionList]
  1130.     if {$posnList != 0} {
  1131.         set numAll [llength [VtListGetItem $newMembers -all]]
  1132.         VtListDeleteItem $newMembers -positionList $posnList
  1133.         set numLeft [llength [VtListGetItem $newMembers -all]]
  1134.         if {$numLeft > 0} {
  1135.             set first [lindex $posnList 0]
  1136.             set last [lindex $posnList end]
  1137.             set removed [llength $posnList]
  1138.             if {[expr $last - $first + 1] == $removed} {
  1139.                 set contiguous 1
  1140.             } else {
  1141.                 set contiguous 0
  1142.             }
  1143.             if {$last == $numAll && $contiguous} {
  1144.                 # select the one above
  1145.                 VtListSelectItem $newMembers -position [expr $first - 1]
  1146.             } else {
  1147.                 # select the item that was after the first
  1148.                 # deleted (same position number as first
  1149.                 # deleted was)
  1150.                 VtListSelectItem $newMembers -position $first
  1151.             }
  1152.             SaListShowSelectedItem $newMembers
  1153.         }
  1154.     }
  1155.     VtUnLock
  1156. }
  1157. proc aliasAddTypeCB { cbs {doUnlock 1} } {
  1158.     set parent [keylget cbs "dialog"]
  1159.     set textWidget [VxGetVar $parent "typeMembers"]
  1160.     set listWidget [VxGetVar $parent "newMembers"]
  1161.     set userList [alias_recipients_parse \
  1162.         [VtGetValues $textWidget -value] " "]
  1163.     if {![lempty $userList]} {
  1164.         set newList [lrmdups [concat [VtListGetItem $listWidget -all] $userList]]
  1165.         VtListSetItem $listWidget -itemList $newList
  1166.         positionList $listWidget [lindex [lsort $userList] 0]
  1167.         VtListSelectItem $listWidget -itemList $userList
  1168.         VtSetValues $textWidget -value {}
  1169.         aliasAddListCB $parent $cbs
  1170.     }
  1171.     if {$doUnlock} {
  1172.         VtUnLock
  1173.     }
  1174. }
  1175. proc aliasAddListCB { parent cbs } {
  1176.     VtUnLock
  1177. }
  1178. proc aliasAddEdit { cbs } {
  1179.     set parent [keylget cbs "dialog"]
  1180.     set typeMembers [VxGetVar $parent "typeMembers"]
  1181.     set listWidget [VxGetVar $parent "newMembers"]
  1182.     # Get the selected names
  1183.     set selList [VtListGetSelectedItem $listWidget -byItemList]
  1184.     if {![lempty $selList]} {
  1185.         set selString [alias_list_to_string $selList]
  1186.         # Put them into the text widget
  1187.         VtSetValues $typeMembers\
  1188.             -value $selString
  1189.         VtSetValues $typeMembers\
  1190.             -xmArgs [list \
  1191.                 XmNcursorPosition \
  1192.                 [string length $selString]]
  1193.         # Then remove them from the list
  1194.         aliasAddRem $cbs
  1195.     }
  1196.     VtUnLock
  1197. }
  1198. proc positionList { listWidget prefix {deSelect 0} } {
  1199.     set itemList [VtListGetItem $listWidget -all]
  1200.     set listCB [VxGetVar $listWidget "callback"]
  1201.     if {$prefix != ""} {
  1202.         # recipient names can have backslash, so need to
  1203.         # double them before the search
  1204.         regsub -all {\\} $prefix {\\\\} prefix
  1205.         set pos [lsearch -glob $itemList "${prefix}*"]
  1206.         if {$pos != -1} {
  1207.             set rows [VtGetValues $listWidget -rows]
  1208.             set mpos [expr $pos - ($rows / 2)]
  1209.             if {$mpos < 1} {
  1210.                 set mpos 1
  1211.             }
  1212.             VtSetValues $listWidget -topItemPosition $mpos
  1213.             if {$deSelect} {
  1214.                 VtListDeselectItem $listWidget -all
  1215.             }
  1216.             VtListSelectItem $listWidget -position [expr $pos + 1]
  1217.             if {$listCB != ""} {
  1218.                 $listCB 0 {}
  1219.             }
  1220.         }
  1221.     }
  1222. }
  1223. proc aliasJumpCB { listWidget cbs } {
  1224.     set prefix [keylget cbs "value"]
  1225.     positionList $listWidget $prefix 1
  1226.     VtUnLock
  1227. }
  1228. proc aliasAdd { func cbs } {
  1229.     global MA_ALIAS_FILEID
  1230.     global    isCharm curAlias
  1231.     set parent [keylget cbs "dialog"]
  1232.     if {$func == "add"} {
  1233.         set title  [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ADD_TITLE]
  1234.     } else {
  1235.         set title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MFY_TITLE $curAlias]
  1236.     }
  1237.     set aliasAddForm\
  1238.         [VtFormDialog $parent.aliasAddForm\
  1239.             -title "$title"\
  1240.             -help\
  1241.             -okCallback {aliasAddOK 1}\
  1242.             -autoLock aliasAddOK\
  1243.             -cancelCallback {aliasAddOK 0}\
  1244.             -wmCloseCallback {aliasAddOK 0}]
  1245.     SaCharmSetMaxFormDimensions $aliasAddForm 1
  1246.     VxSetVar $aliasAddForm "func" $func
  1247.     if {$func == "add"} {
  1248.         set value ""
  1249.     } else {
  1250.         set value $curAlias
  1251.     }
  1252.     set newName\
  1253.         [VxText $aliasAddForm.newName\
  1254.             -topSide FORM\
  1255.             -leftSide FORM\
  1256.             -rightSide FORM\
  1257.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ADD_NAME]\
  1258.             -shortHelpCallback SaShortHelpCB\
  1259.             -shortHelpString\
  1260.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_ADD_NAME]\
  1261.             -activateCallback {SaSetFocusUnlock next}\
  1262.             -autoLock SaSetFocusUnlock\
  1263.             -value $value\
  1264.             -columns 30]
  1265.     VxSetVar $aliasAddForm "newName" $newName
  1266.     set newNameForm [VxGetVar $newName "form"]
  1267.     if {$isCharm} {
  1268.         VtLabel $aliasAddForm.blank1 -label " "
  1269.     }
  1270.     VtLabel $aliasAddForm.newLabel\
  1271.         -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ADD_MEMBERS]
  1272.     set newForm [VtForm $aliasAddForm.newForm\
  1273.                     -leftSide FORM\
  1274.                     -rightSide FORM\
  1275.                     -borderWidth 1]
  1276.     set typeMembers\
  1277.         [VxText $newForm.typeMembers\
  1278.             -topSide FORM\
  1279.             -leftSide FORM\
  1280.             -rightSide FORM\
  1281.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ADD_TYPE]\
  1282.             -shortHelpCallback SaShortHelpCB\
  1283.             -shortHelpString\
  1284.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_ADD_TYPE]\
  1285.             -activateCallback aliasAddTypeCB\
  1286.             -autoLock aliasAddTypeCB]
  1287.     set typeMembersForm [VxGetVar $typeMembers "form"]
  1288.     VxSetVar $aliasAddForm "typeMembers" $typeMembers
  1289.     VtSetValues $typeMembers -rightSide NONE
  1290.     set addPB\
  1291.         [VtPushButton $typeMembersForm.add\
  1292.             -topSide FORM\
  1293.             -bottomSide FORM\
  1294.             -rightSide FORM\
  1295.             -leftSide NONE\
  1296.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ADD_PB]\
  1297.             -shortHelpCallback SaShortHelpCB\
  1298.             -shortHelpString\
  1299.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_ADD_PB]\
  1300.             -callback aliasAddTypeCB\
  1301.             -autoLock aliasAddTypeCB]
  1302.     VxSetVar $aliasAddForm "addPB" $addPB
  1303.     VtSetValues $typeMembers -rightSide $addPB
  1304.     if {$func == "add"} {
  1305.         set items {}
  1306.     } else {
  1307.         set items [lsort [Alias:Get $MA_ALIAS_FILEID $curAlias]]
  1308.     }
  1309.     VtLabel $newForm.newMembersLabel\
  1310.         -topSide $typeMembersForm\
  1311.         -leftSide FORM\
  1312.         -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ADD_MEMBERS_TITLE]
  1313.     set listForm\
  1314.         [VtForm $newForm.newMembers\
  1315.             -leftSide FORM\
  1316.             -rightSide FORM\
  1317.             -bottomSide FORM\
  1318.             -marginWidth 0\
  1319.             -marginHeight 0]
  1320.     set listJumpForm\
  1321.         [VtForm $listForm.newMembers\
  1322.             -leftSide FORM\
  1323.             -rightSide FORM\
  1324.             -bottomSide FORM\
  1325.             -marginWidth 0\
  1326.             -marginHeight 0]
  1327.     set newMembers\
  1328.         [VtList $listJumpForm.newMembers\
  1329.             -topSide FORM\
  1330.             -bottomSide NONE\
  1331.             -leftSide FORM\
  1332.             -rightSide FORM\
  1333.             -shortHelpCallback SaShortHelpCB\
  1334.             -shortHelpString\
  1335.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_ADD_MEMBERS]\
  1336.             -callback [list aliasAddListCB $aliasAddForm]\
  1337.             -autoLock aliasAddListCB\
  1338.             -MOTIF_rows 4 -CHARM_rows 10\
  1339.             -columns 25\
  1340.             -scrollBar 1\
  1341.             -itemList $items\
  1342.             -MOTIF_selection EXTENDED\
  1343.             -CHARM_selection MULTIPLE]
  1344.     VxSetVar $aliasAddForm "newMembers" $newMembers
  1345.     VxSetVar $newMembers "callback" {}
  1346.     set jumpbox\
  1347.         [VxText $listJumpForm.jumpbox\
  1348.             -topSide NONE\
  1349.             -bottomSide FORM\
  1350.             -leftSide FORM\
  1351.             -rightSide FORM\
  1352.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SEARCH]\
  1353.             -shortHelpCallback SaShortHelpCB\
  1354.             -shortHelpString\
  1355.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_SEARCH]\
  1356.             -valueChangedCallback [list aliasJumpCB $newMembers]\
  1357.             -autoLock aliasJumpCB]
  1358.     set jumpboxForm [VxGetVar $jumpbox "form"]
  1359.     VtSetValues $newMembers -bottomSide $jumpboxForm
  1360.     set pbForm [VtRowColumn $listForm.pbForm\
  1361.                 -topSide FORM\
  1362.                 -bottomSide FORM\
  1363.                 -rightSide FORM\
  1364.                 -leftSide NONE\
  1365.                 -vertical]
  1366.     VtSetValues $listJumpForm -rightSide $pbForm
  1367.     set selectPB\
  1368.         [VtPushButton $pbForm.select\
  1369.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SELECT_PB]\
  1370.             -shortHelpCallback SaShortHelpCB\
  1371.             -shortHelpString\
  1372.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_SEL_PB]\
  1373.             -callback aliasAddSelect\
  1374.             -autoLock aliasAddSelect]
  1375.     VxSetVar $aliasAddForm "selectPB" $selectPB
  1376.     set removePB\
  1377.         [VtPushButton $pbForm.remove\
  1378.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_REMOVE_PB]\
  1379.             -shortHelpCallback SaShortHelpCB\
  1380.             -shortHelpString\
  1381.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_REM_PB]\
  1382.             -callback aliasAddRem\
  1383.             -autoLock aliasAddRem]
  1384.     VxSetVar $aliasAddForm "removePB" $removePB
  1385.     VtSetValues $removePB -leftOffset -[expr [VtGetValues $removePB -width] / 2]
  1386.     set editPB\
  1387.         [VtPushButton $pbForm.edit\
  1388.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_EDIT_PB]\
  1389.             -shortHelpCallback SaShortHelpCB\
  1390.             -shortHelpString\
  1391.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIAS_EDIT_PB]\
  1392.             -callback aliasAddEdit\
  1393.             -autoLock aliasAddEdit]
  1394.     VxSetVar $aliasAddForm "editPB" $editPB
  1395.     VtSetValues $editPB -leftOffset -[expr [VtGetValues $editPB -width] / 2]
  1396.   # Now, pile things on the bottom of the form, in reverse order:
  1397.     set statusbar [SaStatusBar $aliasAddForm.StatusBar]
  1398.     set sep [VtSeparator $aliasAddForm._\
  1399.                 -rightSide FORM -rightOffset 0\
  1400.                 -leftSide FORM -leftOffset 0\
  1401.                 -bottomSide $statusbar -bottomOffset 0\
  1402.                 -topSide NONE]
  1403.     VtSetValues $newForm -bottomSide $sep
  1404.     VtShow $aliasAddForm
  1405.     SaSetFocusList $aliasAddForm [list $newName $typeMembers]
  1406.     SaSetTabGroups $aliasAddForm\
  1407.         [list $newName $typeMembers $addPB $newMembers $pbForm $jumpbox]
  1408.     VtSetFocus $newName
  1409.     VtUnLock
  1410. }
  1411. proc aliasRemoveCB { cbs } {
  1412.     global MA_ALIAS_FILEID
  1413.     global curAlias members aliasList
  1414.     Alias:Unset $MA_ALIAS_FILEID $curAlias
  1415.     # Update lists
  1416.     set selected [VtListGetSelectedItem $aliasList]
  1417.     VtListDeleteItem $aliasList -position $selected
  1418.     set numItems [llength [VtListGetItem $aliasList -all]]
  1419.     if {$numItems > 0} {
  1420.         if {$selected <= $numItems} {
  1421.             VtListSelectItem $aliasList \
  1422.                 -position $selected
  1423.             SaListShowSelectedItem $aliasList
  1424.         } else {
  1425.             VtListSelectItem $aliasList \
  1426.                 -position [expr $selected - 1]
  1427.         }
  1428.     }
  1429.         AliasCB 1 {} 0
  1430.     VtUnLock
  1431. }
  1432. proc aliasRemove { cbs } {
  1433.     global curAlias
  1434.     ConfirmRemoval [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_ALIAS]\
  1435.                     $curAlias aliasRemoveCB alias
  1436.     VtUnLock
  1437. }
  1438. proc memberAddOK { isOK cbs } {
  1439.     global MA_ALIAS_FILEID
  1440.     global curAlias members
  1441.     global memberList
  1442.     set parent [keylget cbs "dialog"]
  1443.     if { $isOK } {
  1444.         set newMembers [VxGetVar $parent "newMembers"]
  1445.         set new [alias_recipients_parse \
  1446.             [VtGetValues $newMembers -value] " "]
  1447.         if {$new == ""} {
  1448.             VtShow\
  1449.               [VtErrorDialog $parent.eb -ok -help\
  1450.                 -message [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_NOMEMBERS]]
  1451.             VtSetFocus $newMembers
  1452.             VtUnLock
  1453.             return
  1454.         }
  1455.         set alias $curAlias
  1456.         Alias:AddValue $MA_ALIAS_FILEID $alias $new
  1457.     }
  1458.     VtDestroyDialog $parent
  1459.     if { $isOK } {
  1460.         # Display new list
  1461.         set alias $curAlias
  1462.         set members [lsort [Alias:Get $MA_ALIAS_FILEID $alias]]
  1463.         VtListSetItem $memberList -itemList $members
  1464.         VtListSelectItem $memberList -itemList $new
  1465.         SaListShowSelectedItem $memberList
  1466.         MemberCB 1 {}
  1467.     }
  1468.     VtUnLock
  1469. }
  1470. proc memberAddSelectCB { userList parent cbs } {
  1471.     set textWidget [VxGetVar $parent "newMembers"]
  1472.     set oldList [alias_recipients_parse \
  1473.         [VtGetValues $textWidget -value] " "]
  1474.     set newList [lrmdups [concat $oldList $userList]]
  1475.     set newString [alias_list_to_string $newList]
  1476.     VtSetValues $textWidget \
  1477.         -value $newString
  1478.     VtSetValues $textWidget \
  1479.         -xmArgs [list XmNcursorPosition [clength $newString]]
  1480.     VtSetFocus $textWidget
  1481. }
  1482. proc memberAddSelect { cbs } {
  1483.     set parent [keylget cbs "dialog"]
  1484.     UserSelectPBCB [list memberAddSelectCB $parent] $cbs
  1485.     VtUnLock
  1486. }
  1487. proc memberAdd { cbs } {
  1488.     global curAlias
  1489.     set parent [keylget cbs "dialog"]
  1490.     set memberAddForm\
  1491.         [VtFormDialog $parent.memberAddForm\
  1492.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMBER_TITLE]\
  1493.             -help\
  1494.             -okCallback {memberAddOK 1}\
  1495.             -autoLock memberAddOK\
  1496.             -cancelCallback {memberAddOK 0}]
  1497.     set textLabel\
  1498.         [VtLabel $memberAddForm.textLabel\
  1499.             -label [IntlLocalizeMsg\
  1500.                 SCO_MAIL_ADMIN_ALIAS_MSG_MEMBER_ADD $curAlias]\
  1501.             -topSide FORM\
  1502.             -bottomSide NONE\
  1503.             -labelLeft]
  1504.     set selectForm\
  1505.         [VtForm $memberAddForm.selectForm\
  1506.             -topSide $textLabel\
  1507.             -leftSide FORM\
  1508.             -rightSide FORM\
  1509.             -bottomSide NONE\
  1510.             -marginHeight 0 -marginWidth 0]
  1511.     set selectPB\
  1512.         [VtPushButton $selectForm.selectPB\
  1513.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SELECT_PB]\
  1514.             -topSide FORM -MOTIF_topOffset 0\
  1515.             -bottomSide FORM -MOTIF_bottomOffset 18\
  1516.             -leftSide NONE\
  1517.             -rightSide FORM\
  1518.             -callback memberAddSelect\
  1519.             -autoLock memberAddSelect]
  1520.     set newMembers\
  1521.         [VxText $selectForm.newMembers\
  1522.             -topSide FORM\
  1523.             -bottomSide FORM\
  1524.             -leftSide FORM\
  1525.             -rightSide $selectPB\
  1526.             -columns 50\
  1527.             -activateCallback {SaSetFocusUnlock next}\
  1528.             -autoLock SaSetFocusUnlock\
  1529.             -horizontalScrollBar 1]
  1530.     VxSetVar $memberAddForm "newMembers" $newMembers
  1531.     set label\
  1532.         [VtLabel $memberAddForm.label\
  1533.             -topSide $selectForm\
  1534.             -bottomSide NONE\
  1535.             -leftSide FORM\
  1536.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMBER_ADD_INST]]
  1537.     VtShow $memberAddForm
  1538.     SaSetFocusList $memberAddForm [list \
  1539.         $newMembers \
  1540.         [VtGetValues $memberAddForm -ok]]
  1541.     VtSetFocus $newMembers
  1542.     VtUnLock
  1543. }
  1544. proc memberRemoveCB { cbs } {
  1545.     global MA_ALIAS_FILEID
  1546.     global curAlias
  1547.     global memberList
  1548.     set alias $curAlias
  1549.     set selMembers [VtListGetSelectedItem $memberList -byItemList]
  1550.     set numAll [llength [VtListGetItem $memberList -all]]
  1551.     Alias:RemoveValue $MA_ALIAS_FILEID $alias $selMembers
  1552.     # Display new list
  1553.     set selPositions [VtListGetSelectedItem $memberList -byPositionList]
  1554.     VtListDeleteItem $memberList -positionList $selPositions
  1555.     set numLeft [llength [VtListGetItem $memberList -all]]
  1556.     if {$numLeft > 0} {
  1557.         set first [lindex $selPositions 0]
  1558.         set last [lindex $selPositions end]
  1559.         set deleted [llength $selPositions]
  1560.         if {[expr $last - $first + 1] == $deleted} {
  1561.             set contiguous 1
  1562.         } else {
  1563.             set contiguous 0
  1564.         }
  1565.         if {$last == $numAll && $contiguous} {
  1566.             # select the one above
  1567.             VtListSelectItem $memberList -position [expr $first - 1]
  1568.         } else {
  1569.             # select the item that was after the first deleted
  1570.             # (same position number as first deleted was)
  1571.             VtListSelectItem $memberList -position $first
  1572.         }
  1573.         SaListShowSelectedItem $memberList
  1574.     }
  1575.     MemberCB 1 {} 0
  1576.     VtUnLock
  1577. }
  1578. proc memberRemove { cbs } {
  1579.     global MA_ALIAS_FILEID
  1580.     global mainForm memberList
  1581.     global curAlias
  1582.     set alias $curAlias
  1583.     set size [llength [Alias:Get $MA_ALIAS_FILEID $alias]]
  1584.     if {$size <= 1} {
  1585.         # Only allow member deletion if more than one member left
  1586.         VtShow\
  1587.           [VtErrorDialog $mainForm.eb -ok -help\
  1588.             -message [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_LAST_MEMBER]]
  1589.         VtUnLock
  1590.         return
  1591.     }
  1592.     set selMembers [VtListGetSelectedItem $memberList -byItemList]
  1593.     ConfirmRemoval [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMBER]\
  1594.                     $selMembers memberRemoveCB member
  1595.     VtUnLock
  1596. }
  1597. proc userSubscribe { userName {aliasList {}} } {
  1598.     global MA_ALIAS_FILEID
  1599.     # Since userName could be a quoted string (as in pipe to a program)
  1600.     set addList [list $userName]
  1601.     if {[lempty $aliasList]} {
  1602.         set allAliases [Alias:List $MA_ALIAS_FILEID]
  1603.         foreach alias $allAliases {
  1604.             Alias:AddValue $MA_ALIAS_FILEID $alias $addList
  1605.         }
  1606.     } else {
  1607.         foreach alias $aliasList {
  1608.             Alias:AddValue $MA_ALIAS_FILEID $alias $addList
  1609.         }
  1610.     }
  1611. }
  1612. proc usersSubscribeCB { userList cbs } {
  1613.     global list_o_users
  1614.     set list_o_users $userList
  1615.     usersSubscribeScreen
  1616. }
  1617. proc usersSubscribeDone { isOK cbs } {
  1618.     global MA_ALIAS_FILEID
  1619.     global    curAlias mainForm list_o_users user
  1620.     set parent [keylget cbs "dialog"]
  1621.     if {$isOK} {
  1622.         set sysListBox [VxGetVar $parent "sysList"]
  1623.         set userListBox [VxGetVar $parent "userList"]
  1624.         # First, go through all aliases *not* on the user's list 
  1625.         # and remove her
  1626.         set sysList [VtListGetItem $sysListBox -all]
  1627.         if {![lempty $sysList]} {
  1628.             userRemove $user $sysList
  1629.         }
  1630.         # Then, loop through the selected list and put her on
  1631.         set userList [VtListGetItem $userListBox -all]
  1632.         if {![lempty $userList]} {
  1633.             userSubscribe $user $userList
  1634.         }
  1635.         # Cause the current member list to be redrawn, just in case
  1636.         AliasCB 0 {} 0
  1637.     }
  1638.     VtDestroyDialog $parent
  1639.     if {![lempty $list_o_users]} {
  1640.         usersSubscribeScreen
  1641.     }
  1642.     VtUnLock
  1643. }
  1644. proc usersSubAdd { cbs } {
  1645.     set parent [keylget cbs "dialog"]
  1646.     set sysListBox [VxGetVar $parent "sysList"]
  1647.     set userListBox [VxGetVar $parent "userList"]
  1648.     set addList [VtListGetSelectedItem $sysListBox -byItemList]
  1649.     set userList [VtListGetItem $userListBox -all]
  1650.     VtSetValues $userListBox -itemList [lsort [concat $addList $userList]]
  1651.     VtListDeleteItem $sysListBox -itemList $addList
  1652.     VtUnLock
  1653. }
  1654. proc usersSubRem { cbs } {
  1655.     set parent [keylget cbs "dialog"]
  1656.     set sysListBox [VxGetVar $parent "sysList"]
  1657.     set userListBox [VxGetVar $parent "userList"]
  1658.     set remList [VtListGetSelectedItem $userListBox -byItemList]
  1659.     set sysList [VtListGetItem $sysListBox -all]
  1660.     VtSetValues $sysListBox -itemList [lsort [concat $remList $sysList]]
  1661.     VtListDeleteItem $userListBox -itemList $remList
  1662.     VtUnLock
  1663. }
  1664. proc usersSubscribeScreen {} {
  1665.     global MA_ALIAS_FILEID MA_ALIAS_FILENAME
  1666.     global mainForm list_o_users user
  1667.     if {[lempty $list_o_users]} {
  1668.         return
  1669.     }
  1670.     VtLock
  1671.     set parent $mainForm
  1672.     set user [lvarpop list_o_users]
  1673.     set userString [list $user]
  1674.     set title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SUB_TITLE $userString]
  1675.     set subForm\
  1676.         [VtFormDialog $parent.subform\
  1677.             -title $title\
  1678.             -help\
  1679.             -okCallback {usersSubscribeDone 1}\
  1680.             -autoLock usersSubscribeDone\
  1681.             -cancelCallback {usersSubscribeDone 0}]
  1682.     set label\
  1683.       [VtLabel $subForm.inst\
  1684.         -font largeBoldFont\
  1685.         -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SUB_INST $userString]]
  1686.     set label [VtSeparator -horizontal -rightSide FORM]
  1687.     set bForm\
  1688.         [VtRowColumn $subForm.bForm\
  1689.             -MOTIF_topOffset 50\
  1690.             -CHARM_topOffset 5\
  1691.             -leftSide 50\
  1692.             -vertical]
  1693.     set add\
  1694.         [VtPushButton $bForm.add\
  1695.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SUB_ADD_PB]\
  1696.             -shortHelpCallback SaShortHelpCB\
  1697.             -shortHelpString\
  1698.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_USER_SUB_ADD_PB]\
  1699.             -callback usersSubAdd\
  1700.             -autoLock usersSubAdd]
  1701.     set remove\
  1702.         [VtPushButton $bForm.remove\
  1703.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SUB_RMV_PB]\
  1704.             -shortHelpCallback SaShortHelpCB\
  1705.             -shortHelpString\
  1706.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_USER_SUB_RMV_PB]\
  1707.             -callback usersSubRem\
  1708.             -autoLock usersSubRem]
  1709.     set offset [expr [VtGetValues $add -width] / 2 + 10]    ;# 10 for border
  1710.     VtSetValues $bForm -leftOffset -$offset
  1711.     set sysList\
  1712.         [VxList $subForm.sysList\
  1713.             -topSide $label\
  1714.             -leftSide FORM\
  1715.             -rightSide $bForm\
  1716.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SUB_SYSLIST]\
  1717.             -shortHelpCallback SaShortHelpCB\
  1718.             -shortHelpString\
  1719.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_USER_SUB_SYSLIST $MA_ALIAS_FILENAME]\
  1720.             -itemList [lsort [Alias:List $MA_ALIAS_FILEID]]\
  1721.             -MOTIF_selection EXTENDED\
  1722.             -CHARM_selection MULTIPLE\
  1723.             -rows 10]
  1724.     set sysListForm [VxGetVar $sysList "form"]
  1725.     VxSetVar $subForm "sysList" $sysList
  1726.     set title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_SUB_ULIST $userString]
  1727.     set userList\
  1728.         [VxList $subForm.userList\
  1729.             -topSide $label\
  1730.             -leftSide $bForm\
  1731.             -rightSide FORM\
  1732.             -title $title\
  1733.             -shortHelpCallback SaShortHelpCB\
  1734.             -shortHelpString\
  1735.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_USER_SUB_ULIST]\
  1736.             -MOTIF_selection EXTENDED\
  1737.             -CHARM_selection MULTIPLE\
  1738.             -rows 10]
  1739.     set userListForm [VxGetVar $userList "form"]
  1740.     VxSetVar $subForm "userList" $userList
  1741.     set statusBar [SaStatusBar $subForm.StatusBar 0]
  1742.     VtSetValues $sysListForm -bottomSide $statusBar
  1743.     VtSetValues $userListForm -bottomSide $statusBar
  1744.     VtShow $subForm
  1745.     # Now find all aliases this user is a member of, and "ADD >>" them...
  1746.     set subList {}
  1747.     foreach alias [Alias:Memberships $MA_ALIAS_FILEID $user] {
  1748.         lappend subList $alias
  1749.     }
  1750.     if {![lempty $subList]} {
  1751.         # Select all items we found...
  1752.         VtListSelectItem $sysList -itemList $subList
  1753.         # NOW push the button, Max...
  1754.         keylset cbs "dialog" $subForm
  1755.         usersSubAdd $cbs
  1756.     }
  1757.     VtUnLock
  1758. }
  1759. proc userRemove { userName {aliasList {}} } {
  1760.     global MA_ALIAS_FILEID
  1761.     # Since userName could be a quoted string (as in pipe to a program)
  1762.     set removeList [list $userName]
  1763.     if {[llength $aliasList] == 0} {
  1764.         foreach alias [Alias:Memberships $MA_ALIAS_FILEID $userName] {
  1765.             Alias:RemoveValue $MA_ALIAS_FILEID $alias $removeList
  1766.         }
  1767.     } else {
  1768.         foreach alias $aliasList {
  1769.             Alias:RemoveValue $MA_ALIAS_FILEID $alias $removeList
  1770.         }
  1771.     }
  1772. }
  1773. proc usersRetireDone { isOK cbs } {
  1774.     global MA_ALIAS_FILEID
  1775.     global mainForm list_o_users user
  1776.     set parent [keylget cbs "dialog"]
  1777.     if {$isOK} {
  1778.         set redir [VxGetVar $parent "redir"]
  1779.         set doRedirection [VtGetValues $redir -value]
  1780.         set redirAlias [VxGetVar $parent "redirAlias"]
  1781.         set addrList [alias_recipients_parse \
  1782.             [VtGetValues $redirAlias -value] " "]
  1783.         # Check the redirection name(s)
  1784.         if {$doRedirection && [lempty $addrList]} {
  1785.             VtShow\
  1786.               [VtErrorDialog $parent.eb -ok\
  1787.                 -message [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_NO_REDIR]]
  1788.             VtUnLock
  1789.             VtSetFocus $redirAlias
  1790.             return
  1791.         }
  1792.         # Remove the user from all aliases and lists...
  1793.         userRemove $user
  1794.         # Redirect the user's mail, as if requested...
  1795.         if {$doRedirection} {
  1796.             Alias:Set $MA_ALIAS_FILEID $user $addrList
  1797.         }
  1798.         # Cause all lists to be redrawn, just in case they changed
  1799.         aliasRedrawList $user
  1800.     }
  1801.     VtDestroyDialog $parent
  1802.     if {![lempty $list_o_users]} {
  1803.         usersRetireScreen
  1804.     }
  1805.     VtUnLock
  1806. }
  1807. proc usersRetireCB { userList cbs } {
  1808.     global list_o_users
  1809.     set list_o_users $userList
  1810.     usersRetireScreen
  1811. }
  1812. proc usersRetCheckCB { cbs } {
  1813.     set parent [keylget cbs "dialog"]
  1814.     set value [keylget cbs "value"]
  1815.     set redir [VxGetVar $parent "redir"]
  1816.     set redirAlias [VxGetVar $parent "redirAlias"]
  1817.     if {$value == $redir } {
  1818.         VtSet $redirAlias -sensitive 1
  1819.         VtSetFocus $redirAlias
  1820.     } else {
  1821.         VtSet $redirAlias -sensitive 0
  1822.     }
  1823.     VtUnLock
  1824. }
  1825. proc usersRetireScreen {} {
  1826.     global mainForm list_o_users user tailorLoaded MA_ALIAS_FILENAME
  1827.     if {[lempty $list_o_users]} {
  1828.         return
  1829.     }
  1830.     VtLock
  1831.     set parent $mainForm
  1832.     set user [lvarpop list_o_users]
  1833.     set focusList {}
  1834.     # $user may be a quoted string (as in a pipe to program)
  1835.     # so want to make a list of $user before IntlLocalizeMsg
  1836.     set title [IntlLocalizeMsg \
  1837.         SCO_MAIL_ADMIN_ALIAS_MSG_USER_RET_TITLE [list $user]]
  1838.     set retireForm\
  1839.         [VtFormDialog $parent.retireForm\
  1840.             -title $title\
  1841.             -help\
  1842.             -okCallback {usersRetireDone 1}\
  1843.             -autoLock usersRetireDone\
  1844.             -cancelCallback {usersRetireDone 0}]
  1845.     set label\
  1846.       [VtLabel $retireForm.label\
  1847.         -rightSide FORM\
  1848.         -font medBoldFont\
  1849.         -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_RET_INST\
  1850.                 [list $user $MA_ALIAS_FILENAME]]]
  1851.     set sep [VtSeparator -horizontal -topSide $label -rightSide FORM]
  1852.     set cbox\
  1853.         [VtCheckBox $retireForm.cbox\
  1854.             -topSide $sep\
  1855.             -leftSide FORM\
  1856.             -callback usersRetCheckCB\
  1857.             -autoLock usersRetCheckCB]
  1858.     lappend focusList $cbox
  1859.     set redir\
  1860.                 [VtToggleButton $cbox.redir\
  1861.                         -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USER_RET_REDIR [list $user]]]
  1862.     VxSetVar $retireForm "redir" $redir
  1863.     set redirAlias\
  1864.         [VtText $retireForm.redirAlias\
  1865.             -rightSide FORM\
  1866.             -bottomSide FORM\
  1867.             -callback {SaSetFocus next}]
  1868.     VxSetVar $retireForm "redirAlias" $redirAlias
  1869.     VtSetSensitive $redirAlias 0
  1870.     lappend focusList $redirAlias
  1871.     set okButton [VtGetValues $retireForm -ok]
  1872.     lappend focusList $okButton
  1873.     if {[regexp {[:,     ]} $user] || [cequal [cindex $user 0] "\\"]} {
  1874.         VtSetSensitive $redir 0
  1875.     }
  1876.     VtShow $retireForm
  1877.     SaSetFocusList $retireForm $focusList
  1878.     SaSetTabGroups $retireForm $focusList
  1879.     VtSetFocus $redir
  1880.     VtUnLock
  1881. }
  1882. proc MemberCB { clearSearch cbs {doUnlock 1}} {
  1883.     global memberList meRmv membSearch
  1884.     set curMember [lindex [VtListGetSelectedItem $memberList -byItemList] 0]
  1885.     if { $curMember == "" } {
  1886.         VtSetSensitive $meRmv 0
  1887.     } else {
  1888.         VtSetSensitive $meRmv 1
  1889.     }
  1890.     if {$clearSearch} {
  1891.         VtSetValues $membSearch -value ""
  1892.     }
  1893.     if {$doUnlock} {
  1894.         VtUnLock
  1895.     }
  1896. }
  1897. proc AliasCB { clearSearch cbs {doUnlock 1}} {
  1898.     global MA_ALIAS_FILEID
  1899.     global curAlias members
  1900.     global aliasList memberList alMfy alRmv meAdd meRmv usSub usRet aliasSearch
  1901.     if {[lempty [VtListGetItem $aliasList -all]]} {
  1902.         set curAlias ""
  1903.     } else {
  1904.         set selItem [lindex [VtListGetSelectedItem $aliasList -byItemList] 0]
  1905.         set curAlias [string trim [lindex $selItem 0]]
  1906.     }
  1907.     if {$curAlias == ""} {
  1908.         set members {}
  1909.         VtSetSensitive $alRmv 0
  1910.         VtSetSensitive $alMfy 0
  1911.         VtSetSensitive $meAdd 0
  1912.         VtSetSensitive $usSub 0
  1913.         VtSetSensitive $usRet 0
  1914.     } else {
  1915.         set members [lsort [Alias:Get $MA_ALIAS_FILEID $curAlias]]
  1916.         VtSetSensitive $alMfy 1
  1917.         VtSetSensitive $alRmv 1
  1918.         VtSetSensitive $meAdd 1
  1919.         VtSetSensitive $usSub 1
  1920.         VtSetSensitive $usRet 1
  1921.     }
  1922.     VtSetSensitive $meRmv 0
  1923.     VtListSetItem $memberList -itemList $members
  1924.     if {![lempty $members]} {
  1925.         VtListSelectItem $memberList -position 1
  1926.         MemberCB 1 {} 0
  1927.     }
  1928.     if {$clearSearch} {
  1929.         VtSetValues $aliasSearch -value ""
  1930.     }
  1931.     if {$doUnlock} {
  1932.         VtUnLock
  1933.     }
  1934. }
  1935. proc aliasRedrawList { itemToSelect } {
  1936.     global MA_ALIAS_FILEID
  1937.     global aliasList
  1938.     global Bypass Public ALIAS LIST
  1939.     set aliasLines {}
  1940.     set aliases [lsort [Alias:List $MA_ALIAS_FILEID]]
  1941.     set aliasLines $aliases
  1942.     VtSetValues $aliasList -itemList $aliasLines
  1943.     if {![lempty $aliases]} {
  1944.         if {$itemToSelect == ""} {
  1945.             VtListSelectItem $aliasList -position 1
  1946.         } else {
  1947.             set pos [expr {[lsearch $aliases $itemToSelect] + 1}]
  1948.             if {$pos == 0} {
  1949.                 set pos 1
  1950.             }
  1951.             VtListSelectItem $aliasList -position $pos
  1952.             # Now position the item to the middle (or as close as we can)
  1953.             set offset [expr [VtGetValues $aliasList -rows] / 2]
  1954.             incr pos -$offset
  1955.             if {$pos < 1} {
  1956.                 set pos 1
  1957.             }
  1958.             VtSetValues $aliasList -topItemPosition $pos
  1959.         }
  1960.     }
  1961.     AliasCB 1 {} 0
  1962. }
  1963. proc mainErrorCB { cbs } {
  1964.     VtUnLock
  1965.     VtClose
  1966.     exit 1
  1967. }
  1968. proc alias_load {} {
  1969.     global MA_ALIAS_FILENAME MA_ALIAS_FILEID 
  1970.     global mainForm MyStatusCurID errorInfo
  1971.     set cmd "Alias:Open $MA_ALIAS_FILENAME"
  1972.     if {[ErrorCatch errStack 0 $cmd result] != 0} {
  1973.         if {"$mainForm" == ""} {
  1974.             puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_CANT_LOAD $MA_ALIAS_FILENAME]
  1975.             puts stderr $result
  1976.             exit 1
  1977.         } else {
  1978.             SaDisplayErrorInfo $mainForm.ErrorLoad [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_CANT_LOAD $MA_ALIAS_FILENAME] noHelp quitCB
  1979.                 }
  1980.     } else {
  1981.         set MA_ALIAS_FILEID $result
  1982.     }
  1983. }
  1984. proc alias_list_to_string {memberList} {
  1985.     set memberString ""
  1986.     if {![lempty $memberList]} {
  1987.         set memberString [lvarpop memberList]
  1988.         foreach member $memberList {
  1989.             append memberString " $member"
  1990.         }
  1991.     }
  1992.     return $memberString
  1993. }
  1994. proc alias_recipients_parse {recipients {separator {}}} {
  1995.     set result {}
  1996.     if {$separator == ""} {
  1997.         set separator ","
  1998.     }
  1999.     # need to trim separators on the ends, otherwise
  2000.     # null list items will be created
  2001.     set recipients [string trim $recipients $separator]
  2002.     while {[clength $recipients] > 0} {
  2003.         set thisToken [ctoken recipients $separator]
  2004.         # Spaces are allowed between the ":include:" and filename,
  2005.         # which we must anticipate if the separator is also a space.
  2006.         if {[regexp {^:include:$} $thisToken] && \
  2007.             $separator == " "} {
  2008.             set filepath [ctoken recipients $separator]
  2009.             append thisToken $filepath
  2010.         }
  2011.         # If there is an un-matched quote, then we need to grab
  2012.         # text through the next quote.
  2013.         set numQuotes [expr [llength [split $thisToken "\""]] - 1]
  2014.         if {[fmod $numQuotes 2] == 1.0} {
  2015.             set restOfQuotedPart [ctoken recipients "\""]
  2016.             append thisToken $restOfQuotedPart
  2017.             append thisToken [ctoken recipients $separator]
  2018.         }
  2019.         lappend result [string trim $thisToken]
  2020.     }
  2021.     return $result
  2022. }
  2023. proc alias_sub_ret_parse {argument} {
  2024.     set user {}
  2025.     set aliases {}
  2026.     if {[regexp {^(:include:.*):(.*)$} $argument match \
  2027.         recipientName aliasNames]} {
  2028.         set user $recipientName 
  2029.         set aliases [translit "," " " $aliasNames]
  2030.     } else {
  2031.         set thisToken [ctoken argument ":"]
  2032.         if {[regexp {^[     ]+$} $thisToken]} {
  2033.             set thisToken ""
  2034.         }
  2035.         set numQuotes [expr [llength [split $thisToken "\""]] - 1]
  2036.         if {[fmod $numQuotes 2] == 1.0} {
  2037.             set restOfQuotedPart [ctoken argument "\""]
  2038.             append thisToken "${restOfQuotedPart}"
  2039.             append thisToken [ctoken argument ":"]
  2040.         }
  2041.         set user $thisToken
  2042.         set aliases [translit "," " " [crange $argument 1 len]]
  2043.     }
  2044.     return [list $user $aliases]
  2045. }
  2046. ErrorTopLevelCatch {
  2047.     global MA_ALIAS_FILENAME MA_ALIAS_CLASS MA_ALIAS_FILEID
  2048.     global MA_ALIAS_SENDMAILCF MA_ALIAS_NEWALIASES MA_ALIAS_MANAGED_HOST
  2049.     global argc optarg optind
  2050.     set ADD 0
  2051.     set DELETE 0
  2052.     set RETIRE 0
  2053.     set SUBSCRIBE 0
  2054.     set add_aliases {}
  2055.     set delete_aliases {}
  2056.     set retire_users {}
  2057.     set subscribe_users {}
  2058.     set mainForm ""
  2059.     # scan for commandline flags
  2060.     set argc [llength $argv]
  2061.     if {$argc == 0} {
  2062.         puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2063.         exit 1
  2064.     }
  2065.     while {[set opt [getopt $argc $argv "a:d:f:h:R:r:S:s:"]] != -1} {
  2066.         switch $opt {
  2067.         f {
  2068.             set beforeColon [ctoken optarg ":"]
  2069.             if {$optarg == ""} {
  2070.                 set MA_ALIAS_FILENAME [string trim $beforeColon]
  2071.                 set MA_ALIAS_CLASS NONE
  2072.             } else {
  2073.                 set MA_ALIAS_FILENAME \
  2074.                     [string trim [ctoken optarg ":"]]
  2075.                 set MA_ALIAS_CLASS [string trim $beforeColon]
  2076.             }
  2077.         }
  2078.         h {
  2079.             set MA_ALIAS_MANAGED_HOST $optarg
  2080.         }
  2081.         a {
  2082.             set aliasName [ctoken optarg ":"]
  2083.             set aliasRecipients \
  2084.                 [alias_recipients_parse [crange $optarg 1 len]]
  2085.             if {[lempty $aliasRecipients]} {
  2086.                 puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_MISSING_ADD_ARG]
  2087.                 puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2088.                 exit 1
  2089.             }
  2090.             lappend add_aliases [list $aliasName $aliasRecipients]
  2091.             set ADD 1
  2092.         }
  2093.         d {
  2094.             set delete_aliases [union $delete_aliases \
  2095.                         [translit "," " " $optarg]]
  2096.             set DELETE 1
  2097.         }
  2098.         s {
  2099.             set retVal [alias_sub_ret_parse $optarg]
  2100.             if {[clength [lindex $retVal 0]] == 0 || \
  2101.                 [lempty [lindex $retVal 1]]} {
  2102.                 puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2103.                 exit 1
  2104.             }
  2105.             lappend subscribe_users $retVal
  2106.             set SUBSCRIBE 1
  2107.         }
  2108.         S {
  2109.             set userList [alias_recipients_parse $optarg]
  2110.             foreach user $userList {
  2111.                 lappend subscribe_users [list $user {}]
  2112.             }
  2113.             set SUBSCRIBE 1
  2114.         }
  2115.         r {
  2116.             set retVal [alias_sub_ret_parse $optarg]
  2117.             if {[clength [lindex $retVal 0]] == 0 || \
  2118.                 [lempty [lindex $retVal 1]]} {
  2119.                 puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2120.                 exit 1
  2121.             }
  2122.             lappend retire_users $retVal
  2123.             set RETIRE 1
  2124.         }
  2125.         R {
  2126.             set userList [alias_recipients_parse $optarg]
  2127.             foreach user $userList {
  2128.                 lappend retire_users [list $user {}]
  2129.             }
  2130.             set RETIRE 1
  2131.         }
  2132.         ? {
  2133.             puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2134.             exit 1
  2135.         }
  2136.         }
  2137.     }
  2138.     # process commandline arguments
  2139.     set optCount [expr "$argc - $optind"]
  2140.     if {$optCount > 0} {
  2141.         puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2142.         exit 1
  2143.     }
  2144.     if {"$MA_ALIAS_FILENAME" == ""} {
  2145.         puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2146.         exit 1
  2147.     }
  2148.     if {$ADD || $DELETE || $RETIRE || $SUBSCRIBE} {
  2149.         if {[file isdirectory $MA_ALIAS_FILENAME]} {
  2150.             puts stderr [IntlLocalizeMsg \
  2151.                 SCO_MAIL_ADMIN_ALIAS_ERR_DIRECTORY $MA_ALIAS_FILENAME]
  2152.             puts stderr [IntlLocalizeMsg \
  2153.                 SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2154.             exit 1
  2155.         }
  2156.         if {[lsearch -exact $MA_ALIAS_DATABASE_CLASSES \
  2157.             $MA_ALIAS_CLASS] == -1} {
  2158.             puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_UNKNOWN_CLASS $MA_ALIAS_CLASS]
  2159.             puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]
  2160.             exit 1
  2161.         }
  2162.         alias_load
  2163.         foreach newAlias $add_aliases {
  2164.             set aliasName [lindex $newAlias 0]
  2165.             set aliasRecipients [lindex $newAlias 1]
  2166.             Alias:Set $MA_ALIAS_FILEID $aliasName $aliasRecipients
  2167.         }
  2168.         foreach delAlias $delete_aliases {
  2169.             Alias:Unset $MA_ALIAS_FILEID $delAlias
  2170.         }
  2171.         foreach subscriber $subscribe_users {
  2172.             set userName [lindex $subscriber 0]
  2173.             set aliasNames [lindex $subscriber 1]
  2174.             userSubscribe $userName $aliasNames
  2175.         }
  2176.         foreach retiree $retire_users {
  2177.             set userName [lindex $retiree 0]
  2178.             set aliasNames [lindex $retiree 1]
  2179.             userRemove $userName $aliasNames
  2180.         }
  2181.         if {[Alias:Modified $MA_ALIAS_FILEID]} {
  2182.             if {[ErrorCatch errStack 0 \
  2183.                 {Alias:Close $MA_ALIAS_FILEID} errmsg] != 0} {
  2184.                 puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_CANT_SAVE $MA_ALIAS_FILENAME]
  2185.                 puts stderr $errmsg
  2186.                 exit 1
  2187.                 }
  2188.             if {[cindex $MA_ALIAS_FILENAME 0] != "/"} {
  2189.                 set MA_ALIAS_FILENAME "[pwd]/${MA_ALIAS_FILENAME}"
  2190.             }
  2191.             if {$MA_ALIAS_CLASS == "NONE"} {
  2192.                 set cmd  "exec $MA_ALIAS_NEWALIASES -oA${MA_ALIAS_FILENAME} -C${MA_ALIAS_SENDMAILCF} >& /dev/null"
  2193.             } else {
  2194.                 set cmd "exec $MA_ALIAS_NEWALIASES -oA${MA_ALIAS_CLASS}:${MA_ALIAS_FILENAME} -C${MA_ALIAS_SENDMAILCF} >& /dev/null"
  2195.             }
  2196.             if {[catch $cmd errmsg] != 0} {
  2197.                 puts stderr [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_NEWALIASES "${MA_ALIAS_FILENAME}.db"]
  2198.                 puts stderr $errmsg
  2199.                 exit 1
  2200.             }
  2201.         }
  2202.         exit 0
  2203.     }
  2204.     set app [VtOpen aliases [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELPBOOK]]
  2205.     VtSetAppValues $app\
  2206.         -errorCallback {SaUnexpectedErrorCB mainErrorCB}
  2207.     set isCharm [VtInfo -charm]
  2208.     set mainForm\
  2209.         [VtFormDialog $app.form1\
  2210.             -marginWidth 0\
  2211.             -title [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_TITLE $MA_ALIAS_FILENAME]\
  2212.             -wmCloseCallback CloseCB\
  2213.             -wmShadowThickness 0\
  2214.             -autoLock {CloseCB aliasError}]
  2215.     SaCharmSetMaxFormDimensions $mainForm
  2216.     #-----
  2217.     set menubar\
  2218.         [VtMenuBar $mainForm.menubar\
  2219.             -helpMenuItemList [list \
  2220.             ON_CONTEXT \
  2221.             ON_WINDOW \
  2222.             ON_KEYS \
  2223.             INDEX \
  2224.             ON_HELP]]
  2225.     set aliasesMenu\
  2226.         [VtPulldown $menubar.aliases\
  2227.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_LABEL]\
  2228.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_MNEM]\
  2229.             -shortHelpCallback SaShortHelpCB\
  2230.             -shortHelpString\
  2231.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_ALIASES]]
  2232.       set alAdd\
  2233.          [VtPushButton $aliasesMenu.alAdd\
  2234.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_ADD_LABEL]\
  2235.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_ADD_MNEM]\
  2236.             -callback {aliasAdd add}\
  2237.             -autoLock aliasAdd\
  2238.             -shortHelpCallback SaShortHelpCB\
  2239.             -shortHelpString\
  2240.                [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_ALIASES_ADD]]
  2241.       set alRmv\
  2242.         [VtPushButton $aliasesMenu.alRmv\
  2243.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_REMOVE_LABEL]\
  2244.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_REMOVE_MNEM]\
  2245.             -shortHelpCallback SaShortHelpCB\
  2246.             -shortHelpString\
  2247.                [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_ALIASES_RMV]\
  2248.             -callback aliasRemove\
  2249.             -autoLock aliasRemove]
  2250.        VtSetSensitive alRmv 0
  2251.       set alMfy\
  2252.         [VtPushButton $aliasesMenu.alMfy\
  2253.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_MODIFY_LABEL]\
  2254.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_MODIFY_MNEM]\
  2255.             -shortHelpCallback SaShortHelpCB\
  2256.             -shortHelpString\
  2257.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_ALIASES_MFY]\
  2258.             -callback {aliasAdd modify}\
  2259.             -autoLock aliasAdd]
  2260.        VtSetSensitive alMfy 0
  2261.       VtSeparator $aliasesMenu._1
  2262.       set alSave\
  2263.         [VtPushButton $aliasesMenu.save\
  2264.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_SAVE_LABEL]\
  2265.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_SAVE_MNEM]\
  2266.             -shortHelpCallback SaShortHelpCB\
  2267.             -shortHelpString\
  2268.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_ALIASES_SAVE]\
  2269.             -callback SaveCB\
  2270.             -autoLock SaveCB]
  2271.       VtSeparator $aliasesMenu._2
  2272.      set alQuit\
  2273.         [VtPushButton $aliasesMenu.quit\
  2274.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_EXIT_LABEL]\
  2275.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MENU_EXIT_MNEM]\
  2276.             -shortHelpCallback SaShortHelpCB\
  2277.             -shortHelpString\
  2278.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_ALIASES_QUIT]\
  2279.             -callback CloseCB\
  2280.             -autoLock CloseCB]
  2281.     set membersMenu\
  2282.         [VtPulldown $menubar.members\
  2283.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMB_MENU_LABEL]\
  2284.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMB_MENU_MNEM]\
  2285.             -shortHelpCallback SaShortHelpCB\
  2286.             -shortHelpString\
  2287.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_MEMBERS]]
  2288.       set meAdd\
  2289.         [VtPushButton $membersMenu.meAdd\
  2290.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMB_MENU_ADD]\
  2291.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMB_MENU_ADD_MNEM]\
  2292.             -shortHelpCallback SaShortHelpCB\
  2293.             -shortHelpString\
  2294.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_MEMBERS_ADD]\
  2295.             -callback memberAdd\
  2296.             -autoLock memberAdd]
  2297.       VtSetSensitive $meAdd 0
  2298.       set meRmv\
  2299.         [VtPushButton $membersMenu.meRmv\
  2300.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMB_MENU_REMOVE]\
  2301.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMB_MENU_REMOVE_MNEM]\
  2302.             -shortHelpCallback SaShortHelpCB\
  2303.             -shortHelpString\
  2304.               [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_MEMBERS_RMV]\
  2305.             -callback memberRemove\
  2306.             -autoLock memberRemove]
  2307.       VtSetSensitive $meRmv 0
  2308.     set usersMenu\
  2309.         [VtPulldown $menubar.users\
  2310.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USERS_MENU_LABEL]\
  2311.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USERS_MENU_MNEM]\
  2312.             -shortHelpCallback SaShortHelpCB\
  2313.             -shortHelpString\
  2314.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_USERS]]
  2315.       set usSub\
  2316.         [VtPushButton $usersMenu.usSub\
  2317.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USERS_MENU_SUB]\
  2318.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USERS_MENU_SUB_MNEM]\
  2319.             -shortHelpCallback SaShortHelpCB\
  2320.             -shortHelpString\
  2321.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_USERS_SUB]\
  2322.             -callback {UserSelectCB usersSubscribeCB}\
  2323.             -autoLock UserSelectCB]
  2324.       VtSetSensitive $usSub 0
  2325.       set usRet\
  2326.         [VtPushButton $usersMenu.usRet\
  2327.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USERS_MENU_RET]\
  2328.             -mnemonic [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_USERS_MENU_RET_MNEM]\
  2329.             -shortHelpCallback SaShortHelpCB\
  2330.             -shortHelpString\
  2331.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MENU_USERS_RET]\
  2332.             -callback {UserSelectCB usersRetireCB}\
  2333.             -autoLock UserSelectCB]
  2334.       VtSetSensitive $usRet 0
  2335.     #-----
  2336.     VtLabel $mainForm.aliasLabel\
  2337.         -MOTIF_leftOffset 10\
  2338.         -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_LIST_TITLE]
  2339.     set aliasListForm\
  2340.         [VtForm $mainForm.aliasForm\
  2341.             -topOffset 0\
  2342.             -MOTIF_leftOffset 10\
  2343.             -leftSide FORM\
  2344.             -borderWidth 1]
  2345.     set aliasList\
  2346.         [VtList $aliasListForm.aliasList\
  2347.             -rightSide FORM\
  2348.             -shortHelpCallback SaShortHelpCB\
  2349.             -shortHelpString [IntlLocalizeMsg \
  2350.                 SCO_MAIL_ADMIN_ALIAS_MSG_HELP_ALIASES_LIST \
  2351.                 $MA_ALIAS_FILENAME]\
  2352.             -rows 10\
  2353.             -scrollBar 1\
  2354.             -callback {AliasCB 1}\
  2355.             -autoLock AliasCB\
  2356.             -defaultCallback {aliasAdd modify}\
  2357.             -autoLock aliasAdd]
  2358.     VxSetVar $aliasList "callback" "AliasCB"
  2359.     set aliasSearch\
  2360.         [VxText $aliasListForm.aliasSearch\
  2361.             -topSide NONE\
  2362.             -leftSide FORM\
  2363.             -rightSide FORM\
  2364.             -bottomSide FORM\
  2365.             -shortHelpCallback SaShortHelpCB\
  2366.             -shortHelpString\
  2367.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_SEARCH]\
  2368.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SEARCH]\
  2369.             -valueChangedCallback [list aliasJumpCB $aliasList]\
  2370.             -autoLock aliasJumpCB]
  2371.     set aliasSearchForm [VxGetVar $aliasSearch "form"]
  2372.     VtSetValues $aliasList -bottomSide $aliasSearchForm
  2373.     set members {}
  2374.     set memberListForm\
  2375.         [VtForm $mainForm.memberListForm\
  2376.             -topSide $menubar\
  2377.             -leftSide $aliasListForm\
  2378.             -MOTIF_leftOffset 15\
  2379.             -rightSide FORM\
  2380.             -MOTIF_rightOffset 10\
  2381.             -marginWidth 0\
  2382.             -marginHeight 0]
  2383.     VtLabel $memberListForm.memberLabel\
  2384.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_MEMBERS_TITLE]
  2385.     set memberListInnerForm\
  2386.         [VtForm $memberListForm.memberInnerForm\
  2387.             -topOffset 0\
  2388.             -borderWidth 1\
  2389.             -rightSide FORM\
  2390.             -bottomSide FORM]
  2391.     set memberList\
  2392.         [VtList $memberListInnerForm.memberList\
  2393.             -rightSide FORM\
  2394.             -shortHelpCallback SaShortHelpCB\
  2395.             -shortHelpString\
  2396.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_MEMBERS_LIST]\
  2397.             -itemList $members\
  2398.             -MOTIF_selection EXTENDED\
  2399.             -CHARM_selection MULTIPLE\
  2400.             -rows 10\
  2401.             -scrollBar 1\
  2402.             -MOTIF_columns 25\
  2403.             -CHARM_columns 20\
  2404.             -callback {MemberCB 1}\
  2405.             -autoLock MemberCB\
  2406.             -defaultCallback {aliasAdd modify}]
  2407.     VxSetVar $memberList "callback" "MemberCB"
  2408.     set membSearch\
  2409.          [VxText $memberListInnerForm.membSearch\
  2410.             -topSide NONE\
  2411.             -leftSide FORM\
  2412.             -rightSide FORM\
  2413.             -bottomSide FORM\
  2414.             -shortHelpCallback SaShortHelpCB\
  2415.             -shortHelpString\
  2416.                 [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_HELP_SEARCH]\
  2417.             -label [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_SEARCH]\
  2418.             -columns 5\
  2419.             -valueChangedCallback [list aliasJumpCB $memberList]\
  2420.             -autoLock aliasJumpCB]
  2421.     set membSearchForm [VxGetVar $membSearch "form"]
  2422.     VtSetValues $memberList -bottomSide $membSearchForm
  2423.     set statusBar [SaStatusBar $mainForm.StatusBar 1]
  2424.     VtSetValues $aliasListForm \
  2425.         -bottomSide $statusBar \
  2426.         -MOTIF_bottomOffset 10
  2427.     VtSetValues $memberListForm \
  2428.         -bottomSide $statusBar \
  2429.         -MOTIF_bottomOffset 10
  2430.     VtShow $mainForm
  2431.     if {[lsearch -exact $MA_ALIAS_DATABASE_CLASSES $MA_ALIAS_CLASS] == -1} {
  2432.         set errorDlg [VtErrorDialog $mainForm.error1 -ok \
  2433.             -message "[IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_UNKNOWN_CLASS $MA_ALIAS_CLASS]\n[IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_ERR_USAGE]"\
  2434.             -okCallback quitCB \
  2435.             -autoLock quitCB]
  2436.         VtShow $errorDlg
  2437.     } elseif {[file exists $MA_ALIAS_FILENAME] && \
  2438.           [file isdirectory $MA_ALIAS_FILENAME]} {
  2439.         set errorDlg [VtErrorDialog $mainForm.error2 -ok \
  2440.             -message [IntlLocalizeMsg \
  2441.                 SCO_MAIL_ADMIN_ALIAS_ERR_DIRECTORY \
  2442.                 $MA_ALIAS_FILENAME] \
  2443.             -okCallback quitCB \
  2444.             -autoLock quitCB]
  2445.         VtShow $errorDlg
  2446.     } elseif {! [file exists $MA_ALIAS_FILENAME]} {
  2447.         set dialog [VtInformationDialog $mainForm.exist \
  2448.             -message [IntlLocalizeMsg \
  2449.                 SCO_MAIL_ADMIN_ALIAS_MSG_FILE_DOESNT_EXIST] \
  2450.             -ok]
  2451.         VtShow $dialog
  2452.         alias_load
  2453.     } else {
  2454.         MyStatusBox $mainForm.loadbox\
  2455.             [IntlLocalizeMsg SCO_MAIL_ADMIN_ALIAS_MSG_READING]
  2456.         set loadTime [time alias_load]
  2457.         set redrawTime [time [list aliasRedrawList ""]]
  2458.         set totalTime \
  2459.             [expr [ctoken loadTime " "] + [ctoken redrawTime " "]]
  2460.         if {$totalTime < 2000000} {
  2461.             sleep 2
  2462.         }
  2463.         MyStatusBox $mainForm.loadbox -close
  2464.     }
  2465.     #-----
  2466.     VtMainLoop
  2467. } "Alias Client"
  2468.