home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / update701 / root.13 / usr / lib / scoadmin / account / accountGUI / accountGUI~
Text File  |  1998-08-18  |  270KB  |  7,354 lines
  1. #!/bin/osavtcl
  2. # Copyright (c) 1992-1998 The Santa Cruz Operation, Inc.. All Rights Reserved. 
  3. #                                                                         
  4. #        THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF THE               
  5. #                   SANTA CRUZ OPERATION INC.                             
  6. #                                                                         
  7. #   The copyright notice above does not evidence any actual or intended   
  8. #   publication of such source code.                                      
  9.  
  10. #******************************************************************************
  11. #
  12. #    Copyright (C) 1992-1998 The Santa Cruz Operation, Inc.
  13. #        All Rights Reserved.
  14. #
  15. #    The information in this file is provided for the exclusive use of
  16. #    the licensees of The Santa Cruz Operation, Inc.  Such users have the
  17. #    right to use, modify, and incorporate this code into other products
  18. #    for purposes authorized by the license agreement provided they include
  19. #    this notice and the associated copyright notice with any such product.
  20. #    The information in this file is provided "AS IS" without warranty.
  21. #
  22. #===============================================================================
  23. #@package: SCO_ACCOUNTGUI_MSGS SCO_ACCOUNTGUI_MSGS
  24. proc SCO_ACCOUNTGUI_MSGS {} {}
  25. global SCO_ACCOUNTGUI_MSGS
  26. set SCO_ACCOUNTGUI_MSGS(@catalog@) {accountGUI.cat@sa 1}
  27. set SCO_ACCOUNTGUI_MSGS(ERR_NOUSERNAME) {1 {You did not specify a user name and ID}}
  28. set SCO_ACCOUNTGUI_MSGS(ERR_GRPSCRNERR1) {2 {You did not specify a group name and ID}}
  29. set SCO_ACCOUNTGUI_MSGS(ERR_PWVALUEMISSING) {3 {You did not specify values for minimum days between changes, \n password lifetime and expiration, or set to defaults}}
  30. set SCO_ACCOUNTGUI_MSGS(ERR_MINCHGERR) {4 {Minimum days between changes must be a number or 'infinite'}}
  31. set SCO_ACCOUNTGUI_MSGS(ERR_PWEXPIRERR) {5 {Password expiration must be a number or 'infinite'}}
  32. set SCO_ACCOUNTGUI_MSGS(ERR_PWLIFEERR) {6 {Password lifetime must be a number or 'infinite'}}
  33. set SCO_ACCOUNTGUI_MSGS(ERR_DEFUIDERR) {7 {Minimum and maximum user ID must be numbers}}
  34. set SCO_ACCOUNTGUI_MSGS(ERR_MINUIDLTMAXERR) {8 {Minimum user ID must be less than maximum user ID}}
  35. set SCO_ACCOUNTGUI_MSGS(ERR_NOLOGINGRPERR) {9 {You did not specify a login group}}
  36. set SCO_ACCOUNTGUI_MSGS(ERR_DEFGIDERR) {10 {Minimum and maximum group ID must be numbers}}
  37. set SCO_ACCOUNTGUI_MSGS(ERR_MINGIDLTMAXERR) {11 {Minimum group ID must be less than maximum group ID}}
  38. set SCO_ACCOUNTGUI_MSGS(ERR_NOPWENTERED) {12 {A password has not been entered}}
  39. set SCO_ACCOUNTGUI_MSGS(ERR_PWNOTSAME) {13 {The passwords you entered are not the same}}
  40. set SCO_ACCOUNTGUI_MSGS(ERR_FLIMITMISSING) {14 {You did not specify the number of failed login attempts,\n or set the value to default}}
  41. set SCO_ACCOUNTGUI_MSGS(ERR_FAILLIMITERR) {15 {Number of failed login attempts allowed must be a number, \n or set to 'infinite'}}
  42. set SCO_ACCOUNTGUI_MSGS(ERR_OPEN_HOST) {16 {Error opening new host: %s}}
  43. set SCO_ACCOUNTGUI_MSGS(ERR_USERISRETIRED) {17 {This account is already retired}}
  44. set SCO_ACCOUNTGUI_MSGS(ERR_NOROOTREMOVE) {18 {Root account cannot be removed}}
  45. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_USER_LIST) {19 {Unable to get initial list of users}}
  46. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_GROUP_LIST) {20 {Unable to get initial list of groups}}
  47. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_NIS_ENABLED) {21 {Unable to get NIS status information}}
  48. set SCO_ACCOUNTGUI_MSGS(ERR_NEWUSERDEFATTRIBS) {22 {Unable to get system default attributes for adding a new user}}
  49. set SCO_ACCOUNTGUI_MSGS(ERR_MODIFYUSERATTRIBS) {23 {Unable to retrieve attributes for user:  %s}}
  50. set SCO_ACCOUNTGUI_MSGS(ERR_NOUSERTYPE) {24 {Unable to determine user account type}}
  51. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_USERCREATE) {25 {Unable to create new user account:  %s}}
  52. set SCO_ACCOUNTGUI_MSGS(ERR_NUSER_CREATE_ACCT) {26 {General failure creating user account}}
  53. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_NEWHOME) {27 {Unable to create home directory for user:  %s}}
  54. set SCO_ACCOUNTGUI_MSGS(ERR_NEWHOME_INFO) {28 {You must create a home directory before the user can log in}}
  55. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_SETINITPW) {29 {Unable to set initial password for user:  %s}}
  56. set SCO_ACCOUNTGUI_MSGS(ERR_INITPW_INFO) {30 {You must set the password before the user can log in}}
  57. set SCO_ACCOUNTGUI_MSGS(ERR_SET_PASSWD) {31 {Unable to change user password}}
  58. set SCO_ACCOUNTGUI_MSGS(ERR_CHGATLOGIN) {32 {Unable to force password change at next login}}
  59. set SCO_ACCOUNTGUI_MSGS(ERR_NOCHANGE) {33 {Unable to set password for no forced change at login}}
  60. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_USERMODIFY) {34 {Unable to modify user account:  %s}}
  61. set SCO_ACCOUNTGUI_MSGS(ERR_MOD_START_GET) {35 {Unable to retrieve information needed to modify user account}}
  62. set SCO_ACCOUNTGUI_MSGS(ERR_MOD_USER_SET) {36 {Unable to set user account information}}
  63. set SCO_ACCOUNTGUI_MSGS(ERR_MOD_MOVE_HOME) {37 {Unable to move user's home directory}}
  64. set SCO_ACCOUNTGUI_MSGS(ERR_MOD_GET_MODE) {38 {Unable to retrieve system default mode for home directory creation}}
  65. set SCO_ACCOUNTGUI_MSGS(ERR_CREATE_HOME) {39 {Unable to create home directory}}
  66. set SCO_ACCOUNTGUI_MSGS(ERR_POPULATE) {40 {Unable to add shell files to home directory}}
  67. set SCO_ACCOUNTGUI_MSGS(ERR_RETIREFAILED) {41 {Unable to retire user account:  %s}}
  68. set SCO_ACCOUNTGUI_MSGS(ERR_USRDEL_FAILED) {42 {Unable to delete user account:  %s}}
  69. set SCO_ACCOUNTGUI_MSGS(ERR_GRPDEL_FAILED) {43 {Unable to delete group:  %s}}
  70. set SCO_ACCOUNTGUI_MSGS(ERR_LOGIN_STAT_GET) {44 {Unable to retrieve login status information for user:  %s}}
  71. set SCO_ACCOUNTGUI_MSGS(ERR_LOGIN_STAT_DEFLTS) {45 {Unable to retrieve system defaults for login status}}
  72. set SCO_ACCOUNTGUI_MSGS(ERR_LOGIN_STAT_SET_FAIL) {46 {Unable to set login status information for user:  %s}}
  73. set SCO_ACCOUNTGUI_MSGS(ERR_PWEXP_GET) {47 {Unable to retrieve password expiration information for user:  %s}}
  74. set SCO_ACCOUNTGUI_MSGS(ERR_PWEXP_DEFLTS) {48 {Unable to retrieve system defaults for password expiration}}
  75. set SCO_ACCOUNTGUI_MSGS(ERR_PWEXP_SET_FAIL) {49 {Unable to set password expiration for user:  %s}}
  76. set SCO_ACCOUNTGUI_MSGS(ERR_PWSEL_GET) {50 {Unable to retrieve password selection information for user:  %s}}
  77. set SCO_ACCOUNTGUI_MSGS(ERR_PWSEL_DEFLTS) {51 {Unable to retrieve system defaults for password selection}}
  78. set SCO_ACCOUNTGUI_MSGS(ERR_PWSEL_SET_FAIL) {52 {Unable to set password selection for user:  %s}}
  79. set SCO_ACCOUNTGUI_MSGS(ERR_PASSWD_SET_FAIL) {53 {Unable to set password for user:  %s}}
  80. set SCO_ACCOUNTGUI_MSGS(ERR_AUTHS_GET) {54 {Unable to retrieve system authorizations for user:  %s}}
  81. set SCO_ACCOUNTGUI_MSGS(ERR_AUTHS_DEFLTS) {55 {Unable to retrieve list of all authorizations}}
  82. set SCO_ACCOUNTGUI_MSGS(ERR_AUTHS_SET_FAIL) {56 {Unable to set system authorizations for user:  %s}}
  83. set SCO_ACCOUNTGUI_MSGS(ERR_PRIVS_GET) {57 {Unable to retrieve system privileges for user:  %s}}
  84. set SCO_ACCOUNTGUI_MSGS(ERR_PRIVS_SET_FAIL) {58 {Unable to set system privileges for user:  %s}}
  85. set SCO_ACCOUNTGUI_MSGS(ERR_GENPW_GET) {59 {Unable to retrieve a generated password}}
  86. set SCO_ACCOUNTGUI_MSGS(ERR_ADDUSER) {60 {Unable to add new user %s to list}}
  87. set SCO_ACCOUNTGUI_MSGS(ERR_ADDGRP) {61 {Unable to add new group %s to list}}
  88. set SCO_ACCOUNTGUI_MSGS(ERR_UPDATEUSER_GET) {62 {Unable to update user %s in main list}}
  89. set SCO_ACCOUNTGUI_MSGS(ERR_NGRP_DEFLTS) {63 {Unable to retrieve next group ID}}
  90. set SCO_ACCOUNTGUI_MSGS(ERR_MODGRP_GET) {64 {Unable to retrieve information to modify group}}
  91. set SCO_ACCOUNTGUI_MSGS(ERR_UPDATEGRP_GET) {65 {Unable to update group %s in main list}}
  92. set SCO_ACCOUNTGUI_MSGS(ERR_GRPDEF_GET_ATTRIB) {66 {Unable to retrieve group system default information}}
  93. set SCO_ACCOUNTGUI_MSGS(ERR_USRDEF_GET_ATTRIB) {67 {Unable to get user account system default information}}
  94. set SCO_ACCOUNTGUI_MSGS(ERR_USRDEF_SET) {68 {Unable to set user account system defaults}}
  95. set SCO_ACCOUNTGUI_MSGS(ERR_GRPDEF_SET) {69 {Unable to set group system defaults}}
  96. set SCO_ACCOUNTGUI_MSGS(ERR_MODGRP_SET) {70 {Unable to modify group:  %s}}
  97. set SCO_ACCOUNTGUI_MSGS(ERR_USRDEF_PWATTRIBUTE) {71 {Unable to retrieve default password information}}
  98. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_GRPCREATE) {72 {Unable to create group: %s}}
  99. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_LIST_UPDATE) {73 {Unable to get data needed to update display}}
  100. set SCO_ACCOUNTGUI_MSGS(MSG_ADDUSER_STAT) {74 {Creating new user account}}
  101. set SCO_ACCOUNTGUI_MSGS(MSG_DISTUSER_STAT) {75 {Creating distributed user account}}
  102. set SCO_ACCOUNTGUI_MSGS(MSG_MODUSER_STAT) {76 {Changing user account information}}
  103. set SCO_ACCOUNTGUI_MSGS(MSG_DELUSER_STAT) {77 {Removing user account}}
  104. set SCO_ACCOUNTGUI_MSGS(MSG_RETIREUSER_STAT) {78 {Retiring user account}}
  105. set SCO_ACCOUNTGUI_MSGS(MSG_CHGPASSWD_STAT) {79 {Changing user password}}
  106. set SCO_ACCOUNTGUI_MSGS(MSG_CHGLOGIN_STAT) {80 {Changing user login controls}}
  107. set SCO_ACCOUNTGUI_MSGS(MSG_LOCKING_STAT) {81 {Locking user account}}
  108. set SCO_ACCOUNTGUI_MSGS(MSG_UNLOCKING_STAT) {82 {Unlocking user account}}
  109. set SCO_ACCOUNTGUI_MSGS(MSG_PWSELECT_STAT) {83 {Changing password selection controls}}
  110. set SCO_ACCOUNTGUI_MSGS(MSG_PWEXPIRE_STAT) {84 {Changing password expiration limits}}
  111. set SCO_ACCOUNTGUI_MSGS(MSG_USERAUTHS_STAT) {85 {Changing user authorizations}}
  112. set SCO_ACCOUNTGUI_MSGS(MSG_USERPRIVS_STAT) {86 {Changing user privileges}}
  113. set SCO_ACCOUNTGUI_MSGS(MSG_ADDGROUP_STAT) {87 {Creating new group}}
  114. set SCO_ACCOUNTGUI_MSGS(MSG_MODGROUP_STAT) {88 {Changing group information}}
  115. set SCO_ACCOUNTGUI_MSGS(MSG_DELGROUP_STAT) {89 {Removing group}}
  116. set SCO_ACCOUNTGUI_MSGS(MSG_USERSYS_STAT) {90 {Changing system defaults for user accounts}}
  117. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPSYS_STAT) {91 {Changing system defaults for groups}}
  118. set SCO_ACCOUNTGUI_MSGS(MSG_GETUSER_STAT) {92 {Retrieving user account information}}
  119. set SCO_ACCOUNTGUI_MSGS(MSG_GETGROUP_STAT) {93 {Retrieving group information}}
  120. set SCO_ACCOUNTGUI_MSGS(MSG_GETSYS_STAT) {94 {Retrieving system defaults}}
  121. set SCO_ACCOUNTGUI_MSGS(MSG_APP_TITLE) {95 {Account Manager}}
  122. set SCO_ACCOUNTGUI_MSGS(MSG_MAIN_TITLE) {96 {Account Manager on %s}}
  123. set SCO_ACCOUNTGUI_MSGS(MSG_STATUS_LIST_TITLE) {97 Status}
  124. set SCO_ACCOUNTGUI_MSGS(MSG_USER_LIST_TITLE) {98 {User }}
  125. set SCO_ACCOUNTGUI_MSGS(MSG_GROUP_LIST_TITLE) {99 Group}
  126. set SCO_ACCOUNTGUI_MSGS(MSG_ID_LIST_TITLE) {100 ID}
  127. set SCO_ACCOUNTGUI_MSGS(MSG_COMMENT_LIST_TITLE) {101 Comment}
  128. set SCO_ACCOUNTGUI_MSGS(MSG_UMNLISTTITLE) {102 {User Accounts on %s:}}
  129. set SCO_ACCOUNTGUI_MSGS(MSG_GMNLISTTITLE) {103 {Groups on %s:}}
  130. set SCO_ACCOUNTGUI_MSGS(MSG_MAINMENUHOSTB) {104 Host}
  131. set SCO_ACCOUNTGUI_MSGS(MSG_HOSTMENUMNEM) {105 t}
  132. set SCO_ACCOUNTGUI_MSGS(MSG_OPENHOSTB) {106 {Open Host...}}
  133. set SCO_ACCOUNTGUI_MSGS(MSG_HOSTMNEM) {107 O}
  134. set SCO_ACCOUNTGUI_MSGS(MSG_EXITB) {108 Exit}
  135. set SCO_ACCOUNTGUI_MSGS(MSG_EXITMNEM) {109 x}
  136. set SCO_ACCOUNTGUI_MSGS(MSG_MAINMENUUSERSB) {110 Users}
  137. set SCO_ACCOUNTGUI_MSGS(MSG_USERMENUMNEM) {111 U}
  138. set SCO_ACCOUNTGUI_MSGS(MSG_ADDNEWUSERB) {112 {Add New User...}}
  139. set SCO_ACCOUNTGUI_MSGS(MSG_ADDUSERMNEM) {113 N}
  140. set SCO_ACCOUNTGUI_MSGS(MSG_NEWUSER_SH) {114 {Add a new user account}}
  141. set SCO_ACCOUNTGUI_MSGS(MSG_MODIFYUSERB) {115 Modify...}
  142. set SCO_ACCOUNTGUI_MSGS(MSG_MODUSERMNEM) {116 M}
  143. set SCO_ACCOUNTGUI_MSGS(MSG_MODIFYUSER_SH) {117 {Change attributes of selected user account}}
  144. set SCO_ACCOUNTGUI_MSGS(MSG_DELETEUSERB) {118 Delete}
  145. set SCO_ACCOUNTGUI_MSGS(MSG_DELUSERMNEM) {119 D}
  146. set SCO_ACCOUNTGUI_MSGS(MSG_DELETEUSER_SH) {120 {Delete the selected user account}}
  147. set SCO_ACCOUNTGUI_MSGS(MSG_RETIREUSERB) {121 Retire}
  148. set SCO_ACCOUNTGUI_MSGS(MSG_RETRUSERMNEM) {122 R}
  149. set SCO_ACCOUNTGUI_MSGS(MSG_RETIREUSER_SH) {123 {Retire the selected user account}}
  150. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGEPWB) {124 {Change Password...}}
  151. set SCO_ACCOUNTGUI_MSGS(MSG_CHGPWMNEM) {125 C}
  152. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGEPW_SH) {126 {Change the password for the selected user account}}
  153. set SCO_ACCOUNTGUI_MSGS(MSG_PWRESTRICTMENU) {127 {Password Restrictions}}
  154. set SCO_ACCOUNTGUI_MSGS(MSG_PWRESTRICTMMNEM) {128 P}
  155. set SCO_ACCOUNTGUI_MSGS(MSG_PWEXPIRATIONB) {129 Expiration...}
  156. set SCO_ACCOUNTGUI_MSGS(MSG_PWEXPIRMNEM) {130 E}
  157. set SCO_ACCOUNTGUI_MSGS(MSG_PWEXPIRE_SH) {131 {Change password expiration controls for selected user account}}
  158. set SCO_ACCOUNTGUI_MSGS(MSG_PWSELECTIONB) {132 Selection...}
  159. set SCO_ACCOUNTGUI_MSGS(MSG_PWSELECTMNEM) {133 S}
  160. set SCO_ACCOUNTGUI_MSGS(MSG_PWSELECT_SH) {134 {Change the password selection controls for selected user account}}
  161. set SCO_ACCOUNTGUI_MSGS(MSG_USERLOGINB) {135 {Login Controls...}}
  162. set SCO_ACCOUNTGUI_MSGS(MSG_ULOGINMNEM) {136 L}
  163. set SCO_ACCOUNTGUI_MSGS(MSG_ULOGIN_SH) {137 {Change the login controls for selected user account}}
  164. set SCO_ACCOUNTGUI_MSGS(MSG_USERAUTHSB) {138 Authorizations...}
  165. set SCO_ACCOUNTGUI_MSGS(MSG_UAUTHSMNEM) {139 A}
  166. set SCO_ACCOUNTGUI_MSGS(MSG_AUTHS_SH) {140 {Change the system authorizations for selected user account}}
  167. set SCO_ACCOUNTGUI_MSGS(MSG_USERPRIVSB) {141 Privileges...}
  168. set SCO_ACCOUNTGUI_MSGS(MSG_UPRIVSMNEM) {142 v}
  169. set SCO_ACCOUNTGUI_MSGS(MSG_PRIVS_SH) {143 {Change the kernel privileges for selected user account}}
  170. set SCO_ACCOUNTGUI_MSGS(MSG_MAINMENUGROUPSB) {144 Groups}
  171. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPMENUMNEM) {145 G}
  172. set SCO_ACCOUNTGUI_MSGS(MSG_ADDNEWGROUPB) {146 {Add New Group...}}
  173. set SCO_ACCOUNTGUI_MSGS(MSG_ADDGROUPMNEM) {147 N}
  174. set SCO_ACCOUNTGUI_MSGS(MSG_NEWGRP_SH) {148 {Add a new group}}
  175. set SCO_ACCOUNTGUI_MSGS(MSG_MODIFYGROUPB) {149 Modify...}
  176. set SCO_ACCOUNTGUI_MSGS(MSG_MODGROUPMNEM) {150 M}
  177. set SCO_ACCOUNTGUI_MSGS(MSG_MODIFYGRP_SH) {151 {Change attributes of the selected group}}
  178. set SCO_ACCOUNTGUI_MSGS(MSG_DELETEGROUPB) {152 Delete}
  179. set SCO_ACCOUNTGUI_MSGS(MSG_DELGROUPMNEM) {153 D}
  180. set SCO_ACCOUNTGUI_MSGS(MSG_DELGRP_SH) {154 {Delete the selected group}}
  181. set SCO_ACCOUNTGUI_MSGS(MSG_MAINMENUVIEWB) {155 View}
  182. set SCO_ACCOUNTGUI_MSGS(MSG_VIEWMENUMNEM) {156 V}
  183. set SCO_ACCOUNTGUI_MSGS(MSG_VIEWUSERSB) {157 {By Users}}
  184. set SCO_ACCOUNTGUI_MSGS(MSG_VUSERSMNEM) {158 U}
  185. set SCO_ACCOUNTGUI_MSGS(MSG_VUSER_SH) {159 {Display user accounts in list}}
  186. set SCO_ACCOUNTGUI_MSGS(MSG_VIEWGROUPSB) {160 {By Groups}}
  187. set SCO_ACCOUNTGUI_MSGS(MSG_VGROUPSMNEM) {161 G}
  188. set SCO_ACCOUNTGUI_MSGS(MSG_VGRP_SH) {162 {Display groups in list}}
  189. set SCO_ACCOUNTGUI_MSGS(MSG_MAINMENUOPTB) {163 Options}
  190. set SCO_ACCOUNTGUI_MSGS(MSG_OPTIONSMENUMNEM) {164 O}
  191. set SCO_ACCOUNTGUI_MSGS(MSG_USERDEFAULTSB) {165 {User Defaults}}
  192. set SCO_ACCOUNTGUI_MSGS(MSG_UDEFLTMNEM) {166 U}
  193. set SCO_ACCOUNTGUI_MSGS(MSG_UDFLTS_SH) {167 {Change the system defaults for user accounts}}
  194. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPDEFAULTSB) {168 {Group Defaults}}
  195. set SCO_ACCOUNTGUI_MSGS(MSG_GDEFLTMNEM) {169 G}
  196. set SCO_ACCOUNTGUI_MSGS(MSG_STATUSDISPB) {170 {Show Status}}
  197. set SCO_ACCOUNTGUI_MSGS(MSG_ICONSTAT_SH) {171 {Show/Omit status icons in list}}
  198. set SCO_ACCOUNTGUI_MSGS(MSG_GDFLTS_SH) {172 {Change the system defaults for groups}}
  199. set SCO_ACCOUNTGUI_MSGS(MSG_TB_NEWUSER) {173 {Add a new user account}}
  200. set SCO_ACCOUNTGUI_MSGS(MSG_TB_NEWGROUP) {174 {Add a new group}}
  201. set SCO_ACCOUNTGUI_MSGS(MSG_TB_MODIFY) {175 {Modify selected user account or group}}
  202. set SCO_ACCOUNTGUI_MSGS(MSG_TB_REMOVE) {176 {Remove selected user account or group}}
  203. set SCO_ACCOUNTGUI_MSGS(MSG_NEWUSERTITLE) {177 {%s: Add New User}}
  204. set SCO_ACCOUNTGUI_MSGS(MSG_MODUSERTITLE) {178 {%1$s: Modify User Account: %2$s}}
  205. set SCO_ACCOUNTGUI_MSGS(MSG_USERLOGIN) {179 {Login: }}
  206. set SCO_ACCOUNTGUI_MSGS(MSG_USERID) {180 {User ID: }}
  207. set SCO_ACCOUNTGUI_MSGS(MSG_USERCOMMENT) {181 {Comment: }}
  208. set SCO_ACCOUNTGUI_MSGS(MSG_NETWARE) {182 {Netware Login ID: }}
  209. set SCO_ACCOUNTGUI_MSGS(MSG_USERPW) {183 {Password: }}
  210. set SCO_ACCOUNTGUI_MSGS(MSG_SETPWNOW) {184 {Set Password Now}}
  211. set SCO_ACCOUNTGUI_MSGS(MSG_SETPWLATER) {185 {Set Password Later}}
  212. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINSHELL) {186 {Login Shell: }}
  213. set SCO_ACCOUNTGUI_MSGS(MSG_CHGNEWSHELLTITLE) {187 {%s: Change Login Shell: New User}}
  214. set SCO_ACCOUNTGUI_MSGS(MSG_CHGUSERSHELLTITLE) {188 {%1$s: Change Login Shell: %2$s}}
  215. set SCO_ACCOUNTGUI_MSGS(MSG_CHGUSERDISTRIBTITLE) {189 {%s: Change User Network Distribution}}
  216. set SCO_ACCOUNTGUI_MSGS(MSG_USERHOMEDIR) {190 {Home Directory: }}
  217. set SCO_ACCOUNTGUI_MSGS(MSG_USERLOGINGRP) {191 {Login Group: }}
  218. set SCO_ACCOUNTGUI_MSGS(MSG_CHGNEWLGRPTITLE) {192 {%s: Change Groups: New User}}
  219. set SCO_ACCOUNTGUI_MSGS(MSG_CHGUSERLGRPTITLE) {193 {%1$s:  Change Groups:  %2$s}}
  220. set SCO_ACCOUNTGUI_MSGS(MSG_CHGHOMEDIRTITLE) {194 {%1$s: Change Home Directory: %2$s}}
  221. set SCO_ACCOUNTGUI_MSGS(MSG_HOMEDIRLABEL) {195 {Home Directory: }}
  222. set SCO_ACCOUNTGUI_MSGS(MSG_CREATEHOMEDIR) {196 {Create Home Directory}}
  223. set SCO_ACCOUNTGUI_MSGS(MSG_CREATENEWHOME) {197 {Create New Home Directory}}
  224. set SCO_ACCOUNTGUI_MSGS(MSG_MOVEFILES) {198 {Move Files from Old Home Directory}}
  225. set SCO_ACCOUNTGUI_MSGS(MSG_USERNAME_HELP) {199 {Enter the new user's login name}}
  226. set SCO_ACCOUNTGUI_MSGS(MSG_USERID_HELP) {200 {Use the next ID number as supplied, or enter a user ID number}}
  227. set SCO_ACCOUNTGUI_MSGS(MSG_USERCOMMENT_HELP) {201 {Further information about this user account}}
  228. set SCO_ACCOUNTGUI_MSGS(MSG_NETWARE_HELP) {202 {The NetWare Directory Services (NDS) context used to authenticate the user login to the NetWare Services for UnixWare software}}
  229. set SCO_ACCOUNTGUI_MSGS(MSG_SETNOW_HELP) {203 {Set the password now, as the account is created}}
  230. set SCO_ACCOUNTGUI_MSGS(MSG_SETLATER_HELP) {204 {Set the password later, but the user cannot log in}}
  231. set SCO_ACCOUNTGUI_MSGS(MSG_RMVUSERWARNING) {205 {This will remove the account: %s}}
  232. set SCO_ACCOUNTGUI_MSGS(MSG_RETIREUSERWARN) {206 {This will retire the account: %s}}
  233. set SCO_ACCOUNTGUI_MSGS(MSG_NEWGRPTITLE) {207 {%1$s: Add New Group}}
  234. set SCO_ACCOUNTGUI_MSGS(MSG_MODGRPTITLE) {208 {%1$s: Modify Group: %2$s}}
  235. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPNAME) {209 {Group Name: }}
  236. set SCO_ACCOUNTGUI_MSGS(MSG_GRPNAME_HELP) {210 {Enter the name of the new group}}
  237. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPID) {211 {Group ID: }}
  238. set SCO_ACCOUNTGUI_MSGS(MSG_GRPID_HELP) {212 {Use next ID as supplied, or enter group ID number}}
  239. set SCO_ACCOUNTGUI_MSGS(MSG_INGROUP) {213 {Users in Group}}
  240. set SCO_ACCOUNTGUI_MSGS(MSG_GRPULIST_HELP) {214 {User accounts which belong to this group}}
  241. set SCO_ACCOUNTGUI_MSGS(MSG_NOTINGROUP) {215 {Other Users}}
  242. set SCO_ACCOUNTGUI_MSGS(MSG_GRPOLIST_HELP) {216 {Accounts which do not belong to the group}}
  243. set SCO_ACCOUNTGUI_MSGS(MSG_RMVGRPWARN) {217 {This will remove the group: %s}}
  244. set SCO_ACCOUNTGUI_MSGS(MSG_CHGGRPDISTRIBTITLE) {218 {%1$s: Change Group Distribution}}
  245. set SCO_ACCOUNTGUI_MSGS(MSG_AUTHSTITLE) {219 {%1$s: User Authorizations: %2$s}}
  246. set SCO_ACCOUNTGUI_MSGS(MSG_AUTHSUSEDEFLT) {220 {Use system default authorizations for this user account}}
  247. set SCO_ACCOUNTGUI_MSGS(MSG_PRIVSUSEDEFLT) {221 {Use system default privileges for this user account}}
  248. set SCO_ACCOUNTGUI_MSGS(MSG_USERAUTHS) {222 Authorized}
  249. set SCO_ACCOUNTGUI_MSGS(MSG_OTHERAUTHS) {223 {Not Authorized}}
  250. set SCO_ACCOUNTGUI_MSGS(MSG_PRIVSTITLE) {224 {%1$s: User Privileges: %2$s}}
  251. set SCO_ACCOUNTGUI_MSGS(MSG_USERPRIVS) {225 Allowed}
  252. set SCO_ACCOUNTGUI_MSGS(MSG_OTHERPRIVS) {226 {Not Allowed}}
  253. set SCO_ACCOUNTGUI_MSGS(MSG_PWEXPIRETITLE) {227 {%1$s: User Password Expiration: %2$s}}
  254. set SCO_ACCOUNTGUI_MSGS(MSG_SUCCESSCHG) {228 {Last Successful Change: }}
  255. set SCO_ACCOUNTGUI_MSGS(MSG_FAILEDCHG) {229 {Last Failed Change: }}
  256. set SCO_ACCOUNTGUI_MSGS(MSG_MINBETWLABEL) {230 {Days Allowed between Changes: }}
  257. set SCO_ACCOUNTGUI_MSGS(MSG_MINBETW_HELP) {231 {Number of days until the password can be changed again}}
  258. set SCO_ACCOUNTGUI_MSGS(MSG_EXPIRELABEL) {232 {Days until Password Expires: }}
  259. set SCO_ACCOUNTGUI_MSGS(MSG_EXPIRE_HELP) {233 {Number of days for which a password will be valid}}
  260. set SCO_ACCOUNTGUI_MSGS(MSG_LIFETIME) {234 {Days until account is locked: }}
  261. set SCO_ACCOUNTGUI_MSGS(MSG_LIFE_HELP) {235 {Number of days until an expired password causes account to lock}}
  262. set SCO_ACCOUNTGUI_MSGS(MSG_PWDEFBUTTON) {236 {Default of %s}}
  263. set SCO_ACCOUNTGUI_MSGS(MSG_UPWSELECTSCRTITLE) {237 {%1$s: User Password Selection: %2$s}}
  264. set SCO_ACCOUNTGUI_MSGS(MSG_PWREQUIRED) {238 {Password Required: }}
  265. set SCO_ACCOUNTGUI_MSGS(MSG_CHOOSEOWNPW) {239 {Can Choose Own Password: }}
  266. set SCO_ACCOUNTGUI_MSGS(MSG_CHECKOBVIOUS) {240 {Check For Obviousness: }}
  267. set SCO_ACCOUNTGUI_MSGS(MSG_RUNGENERATE) {241 {Can Run Password Generator: }}
  268. set SCO_ACCOUNTGUI_MSGS(MSG_MAXGENLEN) {242 {Maximum Generated Password Length: }}
  269. set SCO_ACCOUNTGUI_MSGS(MSG_MAXGENDEFAULT) {243 {default of %s}}
  270. set SCO_ACCOUNTGUI_MSGS(MSG_CHGPWTITLE) {244 {%1$s: Change Password: %2$s}}
  271. set SCO_ACCOUNTGUI_MSGS(MSG_SETPWTITLE) {245 {%1$s: Set Password: %2$s}}
  272. set SCO_ACCOUNTGUI_MSGS(MSG_ENTERPW) {246 {Enter Password: }}
  273. set SCO_ACCOUNTGUI_MSGS(MSG_CONFIRMPW) {247 {Confirm Password: }}
  274. set SCO_ACCOUNTGUI_MSGS(MSG_PWOPTIONS) {248 {Password Options: }}
  275. set SCO_ACCOUNTGUI_MSGS(MSG_BLANKPWOK) {249 {Set password to blank}}
  276. set SCO_ACCOUNTGUI_MSGS(MSG_BLANK_HELP) {250 {Allow user to log in with a blank password}}
  277. set SCO_ACCOUNTGUI_MSGS(MSG_FORCECHANGE) {251 {Force Password Change at Next Login}}
  278. set SCO_ACCOUNTGUI_MSGS(MSG_FORCECHG_HELP) {252 {Force user to change the password at the next login}}
  279. set SCO_ACCOUNTGUI_MSGS(MSG_GENPWTITLE) {253 {Generated Password: }}
  280. set SCO_ACCOUNTGUI_MSGS(MSG_GENERATEPW) {254 {Generate a password}}
  281. set SCO_ACCOUNTGUI_MSGS(MSG_GENPW_HELP) {255 {Generated password is automatically entered into password entry fields}}
  282. set SCO_ACCOUNTGUI_MSGS(MSG_UNLOCKWARN) {256 {This will unlock account:  %s}}
  283. set SCO_ACCOUNTGUI_MSGS(MSG_LOCKWARN) {257 {This will lock account:  %s}}
  284. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINSCRTITLE) {258 {%1$s: User Login Controls: %2$s}}
  285. set SCO_ACCOUNTGUI_MSGS(MSG_LASTOKLOGIN) {259 {Last Successful Login:  }}
  286. set SCO_ACCOUNTGUI_MSGS(MSG_LASTFAILLOGIN) {260 {Last Failed Login:  }}
  287. set SCO_ACCOUNTGUI_MSGS(MSG_LASTLOGOUT) {261 {Last Logout:  }}
  288. set SCO_ACCOUNTGUI_MSGS(MSG_LOCATION) {262 Location}
  289. set SCO_ACCOUNTGUI_MSGS(MSG_LASTLOGTIME) {263 Time}
  290. set SCO_ACCOUNTGUI_MSGS(MSG_FAILEDATTEMPTS) {264 {Failed login attempts \n since last successful login: }}
  291. set SCO_ACCOUNTGUI_MSGS(MSG_FAILALLOW) {265 {Failed login attempts allowed \n before account is locked: }}
  292. set SCO_ACCOUNTGUI_MSGS(MSG_FAILDEFAULT) {266 {default of %s}}
  293. set SCO_ACCOUNTGUI_MSGS(MSG_LOCKSTATUS) {267 {Current Account Lock Status: }}
  294. set SCO_ACCOUNTGUI_MSGS(MSG_ACCTLOCKED) {268 Locked}
  295. set SCO_ACCOUNTGUI_MSGS(MSG_ACCTNOTLOCKED) {269 {Not Locked}}
  296. set SCO_ACCOUNTGUI_MSGS(MSG_REASON) {270 {Reason: }}
  297. set SCO_ACCOUNTGUI_MSGS(MSG_UNLOCK) {271 {Unlock Account}}
  298. set SCO_ACCOUNTGUI_MSGS(MSG_LOCK) {272 {Lock Account}}
  299. set SCO_ACCOUNTGUI_MSGS(MSG_ORSTRING) {273 (or)}
  300. set SCO_ACCOUNTGUI_MSGS(MSG_DEFAULTUSER) {274 {Default User}}
  301. set SCO_ACCOUNTGUI_MSGS(MSG_DEFHOMEDIROPTTITLE) {275 {%s: Default Home Directory Options}}
  302. set SCO_ACCOUNTGUI_MSGS(MSG_MODUSERDEFLTSTITLE) {276 {%s: Modify User Defaults}}
  303. set SCO_ACCOUNTGUI_MSGS(MSG_DEFMINUIDLABEL) {277 {Minimum User ID: }}
  304. set SCO_ACCOUNTGUI_MSGS(MSG_MINUID_HELP) {278 {Enter the minimum number allowed for a user ID}}
  305. set SCO_ACCOUNTGUI_MSGS(MSG_DEFMAXUIDLABEL) {279 {Maximum User ID: }}
  306. set SCO_ACCOUNTGUI_MSGS(MSG_MAXUID_HELP) {280 {Enter the maximum number allowed for a user ID}}
  307. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINSH) {281 {Login Shell: }}
  308. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFLOGSHTITLE) {282 {%s: Change Default Login Shell}}
  309. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFLOGSHB) {283 {Change Login Shell...}}
  310. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINSHBTN_HELP) {284 {Change the default login shell used for creating a new account}}
  311. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINSHTXT_CH_HELP) {285 {Login Shell -- to change, <TAB> to next button}}
  312. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINSHTXT_MF_HELP) {286 {Login Shell -- to change, use 'Change Login Shell'}}
  313. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFUDISTRIBTITLE) {287 {%s: Change Default User Distribution}}
  314. set SCO_ACCOUNTGUI_MSGS(MSG_DEFHOMEDIRPATH) {288 {Home Directory Base Path: }}
  315. set SCO_ACCOUNTGUI_MSGS(MSG_DEFHOMEDIROPTB) {289 {Home Directory Options...}}
  316. set SCO_ACCOUNTGUI_MSGS(MSG_DEFHDIRTXT_CH_HELP) {290 {Base path for home directories -- to change <TAB> to next button}}
  317. set SCO_ACCOUNTGUI_MSGS(MSG_DEFHDIRTXT_MF_HELP) {291 {Base path for home directories -- to change, use 'Home Directory Options'}}
  318. set SCO_ACCOUNTGUI_MSGS(MSG_DEFHDIRBTN_HELP) {292 {Change the base path of the home directory used for creating a new account}}
  319. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINGRP) {293 {Login Group: }}
  320. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINGRPTXT_CH_HELP) {294 {Default Login Group -- to change, <TAB> to next button}}
  321. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINGRPTXT_MF_HELP) {295 {Default Login Group -- to change, use 'Change Login Group'}}
  322. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINGRPBTN_HELP) {296 {Change the default login group used for creating a new account}}
  323. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFGROUPSTITLE) {297 {%s: Change Default Groups}}
  324. set SCO_ACCOUNTGUI_MSGS(MSG_DEFCHGGROUPMEMB) {298 {Change Group Membership...}}
  325. set SCO_ACCOUNTGUI_MSGS(MSG_MODGRPDEFLTSTITLE) {299 {%s: Modify Group Defaults}}
  326. set SCO_ACCOUNTGUI_MSGS(MSG_DEFMINGIDLABEL) {300 {Minimum Group ID: }}
  327. set SCO_ACCOUNTGUI_MSGS(MSG_MINGRPID_HELP) {301 {Enter the minimum group ID number}}
  328. set SCO_ACCOUNTGUI_MSGS(MSG_DEFMAXGIDLABEL) {302 {Maximum Group ID: }}
  329. set SCO_ACCOUNTGUI_MSGS(MSG_MAXGRPID_HELP) {303 {Enter the maximum group ID number, less than 60000}}
  330. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFGDISTRIBTITLE) {304 {%1s: Change Default Group Distribution}}
  331. set SCO_ACCOUNTGUI_MSGS(MSG_TWOLISTREMOVE) {305 {Remove >>}}
  332. set SCO_ACCOUNTGUI_MSGS(MSG_TWOLISTADD) {306 {<< Add}}
  333. set SCO_ACCOUNTGUI_MSGS(MSG_YES_STRING) {307 Yes}
  334. set SCO_ACCOUNTGUI_MSGS(MSG_NO_STRING) {308 No}
  335. set SCO_ACCOUNTGUI_MSGS(MSG_YES_DEFAULT) {309 {Default (Yes)}}
  336. set SCO_ACCOUNTGUI_MSGS(MSG_NO_DEFAULT) {310 {Default (No)}}
  337. set SCO_ACCOUNTGUI_MSGS(MSG_INFINITE1) {311 infinite}
  338. set SCO_ACCOUNTGUI_MSGS(MSG_INFINITE2) {312 Infinite}
  339. set SCO_ACCOUNTGUI_MSGS(MSG_DISTRIBVIA) {313 {Networked via: }}
  340. set SCO_ACCOUNTGUI_MSGS(MSG_HMDIRPERMBOXTITLE) {314 {Home Directory Permissions: }}
  341. set SCO_ACCOUNTGUI_MSGS(MSG_READPERM) {315 Read}
  342. set SCO_ACCOUNTGUI_MSGS(MSG_WRITEPERM) {316 Write}
  343. set SCO_ACCOUNTGUI_MSGS(MSG_EXECUTEPERM) {317 Execute}
  344. set SCO_ACCOUNTGUI_MSGS(MSG_USERHEADER) {318 User}
  345. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPHEADER) {319 Group}
  346. set SCO_ACCOUNTGUI_MSGS(MSG_OTHERHEADER) {320 Other}
  347. set SCO_ACCOUNTGUI_MSGS(MSG_SELECTDIST) {321 {Select Network Distribution Methods: }}
  348. set SCO_ACCOUNTGUI_MSGS(MSG_NODISTRIB) {322 {Local Only}}
  349. set SCO_ACCOUNTGUI_MSGS(MSG_SELECTLOGINSH) {323 {Select Login Shell: }}
  350. set SCO_ACCOUNTGUI_MSGS(MSG_POPULATE) {324 {Add Shell Environment Files to Home Directory}}
  351. set SCO_ACCOUNTGUI_MSGS(MSG_LGROUPTXTLABEL) {325 {Login Group: }}
  352. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPBELONG) {326 {Member of: }}
  353. set SCO_ACCOUNTGUI_MSGS(MSG_GROUPOTHER) {327 {Other Groups: }}
  354. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGESHELLB) {328 {Change Login Shell...}}
  355. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINSHBTN_HELP) {329 {Change the user's login shell}}
  356. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINSHTXT_CH_HELP) {330 {Login shell -- to change, <TAB> to next button}}
  357. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINSHTXT_MF_HELP) {331 {Login shell -- to change, use 'Change Login Shell' button}}
  358. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGEDISTRIBB) {332 {Change Distribution...}}
  359. set SCO_ACCOUNTGUI_MSGS(MSG_DISTRIBTXT_CH_HELP) {333 {Distribution -- to change, <TAB> to next button}}
  360. set SCO_ACCOUNTGUI_MSGS(MSG_DISTRIBTXT_MF_HELP) {334 {Distribution -- to change, use 'Change Distribution' button}}
  361. set SCO_ACCOUNTGUI_MSGS(MSG_DISTRIBBTN_HELP) {335 {Change the distribution methods for this account}}
  362. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGEHOMEDIRB) {336 {Change Home Directory...}}
  363. set SCO_ACCOUNTGUI_MSGS(MSG_HOMEDIRTXT_CH_HELP) {337 {Home directory -- to change, <TAB> to next button}}
  364. set SCO_ACCOUNTGUI_MSGS(MSG_HOMEDIRTXT_MF_HELP) {338 {Home directory -- to change, use 'Change Home Directory' Button}}
  365. set SCO_ACCOUNTGUI_MSGS(MSG_HOMEDIRBTN_HELP) {339 {Change the user's home directory}}
  366. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGELOGINGRPSB) {340 {Change Group Membership...}}
  367. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINGRPTXT_CH_HELP) {341 {Login group -- to change, <TAB> to next button}}
  368. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINGRPTXT_MF_HELP) {342 {Login group -- to change, use 'Change Groups' button}}
  369. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINGRPBTN_HELP) {343 {Change the user's login group}}
  370. set SCO_ACCOUNTGUI_MSGS(MSG_ADMINLOCK) {344 {Account Locked by Administrator}}
  371. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINLOCK) {345 {Account locked due to \ntoo many failed login attempts}}
  372. set SCO_ACCOUNTGUI_MSGS(MSG_PASSWDLOCK) {346 {Account locked due to expired password}}
  373. set SCO_ACCOUNTGUI_MSGS(MSG_NEVER) {347 NEVER}
  374. set SCO_ACCOUNTGUI_MSGS(MSG_UNKNOWN) {348 UNKNOWN}
  375. set SCO_ACCOUNTGUI_MSGS(MSG_NONE) {349 NONE}
  376. set SCO_ACCOUNTGUI_MSGS(MSG_HELPBOOK) {350 UG_admin}
  377. set SCO_ACCOUNTGUI_MSGS(MSG_tb_newuser_icon) {351 /usr/lib/scoadmin/account/new_user.px}
  378. set SCO_ACCOUNTGUI_MSGS(MSG_tb_newgroup_icon) {352 /usr/lib/scoadmin/account/new_group.px}
  379. set SCO_ACCOUNTGUI_MSGS(MSG_tb_modify_icon) {353 /usr/lib/scoadmin/icons/examine.px}
  380. set SCO_ACCOUNTGUI_MSGS(MSG_tb_delete_icon) {354 /usr/lib/scoadmin/icons/delete.px}
  381. set SCO_ACCOUNTGUI_MSGS(MSG_dl_blank_icon) {355 /usr/lib/scoadmin/account/blank.px}
  382. set SCO_ACCOUNTGUI_MSGS(MSG_dl_user_icon) {356 /usr/lib/scoadmin/account/user.px}
  383. set SCO_ACCOUNTGUI_MSGS(MSG_dl_superuser_icon) {357 /usr/lib/scoadmin/icons/superuser.px}
  384. set SCO_ACCOUNTGUI_MSGS(MSG_dl_retired_icon) {358 /usr/lib/scoadmin/account/retired.px}
  385. set SCO_ACCOUNTGUI_MSGS(MSG_dl_group_icon) {359 /usr/lib/scoadmin/account/group.px}
  386. set SCO_ACCOUNTGUI_MSGS(MSG_dl_locked_icon) {360 /usr/lib/scoadmin/account/locked.px}
  387. set SCO_ACCOUNTGUI_MSGS(MSG_dl_distrib_icon) {361 /usr/lib/scoadmin/icons/distributed.px}
  388. set SCO_ACCOUNTGUI_MSGS(MSG_dl_puser_icon) {362 /usr/lib/scoadmin/account/puser.px}
  389. set SCO_ACCOUNTGUI_MSGS(MSG_dl_nopasswd_icon) {363 /usr/lib/scoadmin/account/nopasswd.px}
  390. set SCO_ACCOUNTGUI_MSGS(MSG_charm_blank_icon) {364 { }}
  391. set SCO_ACCOUNTGUI_MSGS(MSG_charm_user_icon) {365 { }}
  392. set SCO_ACCOUNTGUI_MSGS(MSG_charm_superuser_icon) {366 S}
  393. set SCO_ACCOUNTGUI_MSGS(MSG_charm_retired_icon) {367 R}
  394. set SCO_ACCOUNTGUI_MSGS(MSG_charm_group_icon) {368 G}
  395. set SCO_ACCOUNTGUI_MSGS(MSG_charm_locked_icon) {369 #}
  396. set SCO_ACCOUNTGUI_MSGS(MSG_charm_distrib_icon) {370 >}
  397. set SCO_ACCOUNTGUI_MSGS(MSG_charm_puser_icon) {371 P}
  398. set SCO_ACCOUNTGUI_MSGS(MSG_charm_nopasswd_icon) {372 !}
  399. set SCO_ACCOUNTGUI_MSGS(ERR_HDRESET) {373 {Unable to reset home directory}}
  400. set SCO_ACCOUNTGUI_MSGS(MSG_SETPASSWD_STAT) {374 {Setting new user password}}
  401. set SCO_ACCOUNTGUI_MSGS(MSG_MAKEHOME_STAT) {375 {Creating new user home directory}}
  402. set SCO_ACCOUNTGUI_MSGS(MSG_NOGROUPTITLE) {376 {Create Group}}
  403. set SCO_ACCOUNTGUI_MSGS(MSG_NOSUCHGRP) {377 {The login group you specified does not exist}}
  404. set SCO_ACCOUNTGUI_MSGS(MSG_MAKEGRP) {378 {Create New Group: }}
  405. set SCO_ACCOUNTGUI_MSGS(ERR_HELPSTORE) {379 {Unable to save short help settings}}
  406. set SCO_ACCOUNTGUI_MSGS(ERR_TOOLBRSTORE) {380 {Unable to save toolbar settings}}
  407. set SCO_ACCOUNTGUI_MSGS(ERR_ISTATSTORE) {381 {Unable to save icon status settings}}
  408. set SCO_ACCOUNTGUI_MSGS(ERR_LISTVSTORE) {382 {Unable to save list view settings}}
  409. set SCO_ACCOUNTGUI_MSGS(ERR_EXITERR) {383 {Unable to save screen settings}}
  410. set SCO_ACCOUNTGUI_MSGS(ERR_ENTERNAME) {384 {You did not enter a user name}}
  411. set SCO_ACCOUNTGUI_MSGS(ERR_ENTERGROUP) {385 {You did not enter a group name}}
  412. set SCO_ACCOUNTGUI_MSGS(ERR_NODEFMINUID) {386 {You did not enter a minimum user ID}}
  413. set SCO_ACCOUNTGUI_MSGS(ERR_NODEFMAXUID) {387 {You did not enter a maximum user ID}}
  414. set SCO_ACCOUNTGUI_MSGS(ERR_NOLOGINSHERR) {388 {You did not specify a login shell}}
  415. set SCO_ACCOUNTGUI_MSGS(ERR_NOMINGID) {389 {You did not enter a minimum group ID}}
  416. set SCO_ACCOUNTGUI_MSGS(ERR_NOMAXGID) {390 {You did not enter a maximum group ID}}
  417. set SCO_ACCOUNTGUI_MSGS(MSG_NEWPW) {391 {Enter a New Password}}
  418. set SCO_ACCOUNTGUI_MSGS(MSG_NEWPW_HELP) {392 {Enter a new password for this user}}
  419. set SCO_ACCOUNTGUI_MSGS(MSG_KEEPPW) {393 {Keep Existing Password}}
  420. set SCO_ACCOUNTGUI_MSGS(MSG_KEEPPW_HELP) {394 {Do not change the existing password for this user}}
  421. set SCO_ACCOUNTGUI_MSGS(MSG_USEGEN) {395 {Use machine generated password}}
  422. set SCO_ACCOUNTGUI_MSGS(MSG_USEGEN_HELP) {396 {Use the machine generated password for this user}}
  423. set SCO_ACCOUNTGUI_MSGS(MSG_RMVPW) {397 {Remove Password}}
  424. set SCO_ACCOUNTGUI_MSGS(MSG_RMVPW_HELP) {398 {Allow the user to log in without a password}}
  425. set SCO_ACCOUNTGUI_MSGS(MSG_GENTXT_HELP) {399 {Use the Generate Password button to generate a password}}
  426. set SCO_ACCOUNTGUI_MSGS(ERR_NOPWENT1) {400 {You did not enter a password in the first field}}
  427. set SCO_ACCOUNTGUI_MSGS(ERR_NOPWENT2) {401 {You did not enter a password in the second field}}
  428. set SCO_ACCOUNTGUI_MSGS(ERR_NOPWGEN) {402 {You have not generated a password}}
  429. set SCO_ACCOUNTGUI_MSGS(ERR_CHGPW_GET) {403 {Unable to retrieve system password information for user:  %s}}
  430. set SCO_ACCOUNTGUI_MSGS(ERR_SETPW_GET) {404 {Unable to retrieve system default password information}}
  431. set SCO_ACCOUNTGUI_MSGS(MSG_CHDEFLSH_TITLE) {405 {Change Default Login Shell}}
  432. set SCO_ACCOUNTGUI_MSGS(MSG_CHDEFHDIR_TITLE) {406 {Default Home Directory Options}}
  433. set SCO_ACCOUNTGUI_MSGS(MSG_CHDEFUSRDIST_TITLE) {407 {Change Default User Distribution}}
  434. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFGRPS_TITLE) {408 {Change Default Groups}}
  435. set SCO_ACCOUNTGUI_MSGS(MSG_CHGDEFGRPDIST_TITLE) {409 {Change Default Group Distribution}}
  436. set SCO_ACCOUNTGUI_MSGS(ERR_HALFUSER1) {410 {A home directory has not been created for the new user account}}
  437. set SCO_ACCOUNTGUI_MSGS(ERR_HALFUSER2) {411 {A password has not been set for the new user account}}
  438. set SCO_ACCOUNTGUI_MSGS(ERR_NEWUNAME) {412 {You did not enter a user name}}
  439. set SCO_ACCOUNTGUI_MSGS(ERR_NEWUID) {413 {You did not enter a user ID}}
  440. set SCO_ACCOUNTGUI_MSGS(ERR_DEFHOMEDIR) {414 {The home directory base path '%s' does not exist}}
  441. set SCO_ACCOUNTGUI_MSGS(ERR_NOHDBASE) {415 {You did not enter a home directory base path}}
  442. set SCO_ACCOUNTGUI_MSGS(ERR_NOHDENTERED) {416 {You did not enter a home directory}}
  443. set SCO_ACCOUNTGUI_MSGS(ERR_CHECKDIR) {417 {Unable to verify specified home directory}}
  444. set SCO_ACCOUNTGUI_MSGS(ERR_DIREXISTS) {418 {You have chosen to create a home directory that already exists}}
  445. set SCO_ACCOUNTGUI_MSGS(ERR_NOBASEPATH) {419 {The parent directory '%s' does not exist}}
  446. set SCO_ACCOUNTGUI_MSGS(ERR_NOCREATEHOME) {420 {The home directory you have entered does not exist, \n but you have not chosen to create it}}
  447. set SCO_ACCOUNTGUI_MSGS(ERR_NOPOPULATE) {421 {You have asked to add shell files to \n the home directory, '%s', \n but it does not exist}}
  448. set SCO_ACCOUNTGUI_MSGS(ERR_NOMOVETO) {422 {You have specified moving the user's files\n to the new home directory '%s', \n but it does not exist}}
  449. set SCO_ACCOUNTGUI_MSGS(ERR_NOMOVEFROM) {423 {You have specified moving the user's files\n from the home directory '%s', \n but it does not exist}}
  450. set SCO_ACCOUNTGUI_MSGS(ERR_DIRSAME) {424 {You have not specified a new home directory \n for moving the user's existing files}}
  451. set SCO_ACCOUNTGUI_MSGS(MSG_INFINITE3) {425 INFINITE}
  452. set SCO_ACCOUNTGUI_MSGS(ERR_BADUID) {426 {UID must be a number}}
  453. set SCO_ACCOUNTGUI_MSGS(ERR_BADUSERNAME) {427 {You have entered an invalid user name}}
  454. set SCO_ACCOUNTGUI_MSGS(ERR_NEWGRPNONAME) {428 {You did not enter a group name}}
  455. set SCO_ACCOUNTGUI_MSGS(ERR_NEWGRPNOGID) {429 {You did not enter a group ID}}
  456. set SCO_ACCOUNTGUI_MSGS(ERR_BADGID) {430 {GID must be a number}}
  457. set SCO_ACCOUNTGUI_MSGS(ERR_BADGROUPNAME) {431 {You have entered an invalid group name}}
  458. set SCO_ACCOUNTGUI_MSGS(ERR_PWGENLEN) {432 {Password generated length must be a number}}
  459. set SCO_ACCOUNTGUI_MSGS(ERR_MINBTWCHG) {433 {Minimum days between changes must be a number}}
  460. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_ASU_ENABLED) {434 {Unable to get Advanced Server status information}}
  461. set SCO_ACCOUNTGUI_MSGS(MSG_ASU) {435 {Advanced Server}}
  462. set SCO_ACCOUNTGUI_MSGS(ERR_USRDEF_LCL_GET) {436 {Unable to retrieve list of installed locales}}
  463. set SCO_ACCOUNTGUI_MSGS(MSG_LOGINLCLBTN_HELP) {437 {Change the user's login locale}}
  464. set SCO_ACCOUNTGUI_MSGS(MSG_USERLOGINLCL) {438 {Login Locale: }}
  465. set SCO_ACCOUNTGUI_MSGS(MSG_CHGNEWLLLPTITLE) {439 {%s: Change Locale: New User}}
  466. set SCO_ACCOUNTGUI_MSGS(MSG_CHGUSERLLLPTITLE) {440 {%1$s:  Change Locale:  %2$s}}
  467. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINLCLTXT_CH_HELP) {441 {Default Login Locale -- to change, <TAB> to next button}}
  468. set SCO_ACCOUNTGUI_MSGS(MSG_DEFLOGINLCLTXT_MF_HELP) {442 {Default Login Locale -- to change, use 'Change Login Locale'}}
  469. set SCO_ACCOUNTGUI_MSGS(MSG_SELECTLOGINLCL) {443 {Select Login Locale: }}
  470. set SCO_ACCOUNTGUI_MSGS(MSG_CHANGELOGINLCLSB) {444 {Change Locale...}}
  471. set SCO_ACCOUNTGUI_MSGS(ERR_NOLOGINLCLERR) {445 {You did not specify a login locale}}
  472. set SCO_ACCOUNTGUI_MSGS(MSG_OWNER) {446 {Account %1$s Has Owner Privileges}}
  473. set SCO_ACCOUNTGUI_MSGS(MSG_USERRHOSTSB) {447 {Remote Access...}}
  474. set SCO_ACCOUNTGUI_MSGS(MSG_URHOSTSMNEM) {448 R}
  475. set SCO_ACCOUNTGUI_MSGS(MSG_RHOSTS_SH) {449 {Change the list of systems allowed remote access to this account}}
  476. set SCO_ACCOUNTGUI_MSGS(MSG_RHOSTSTITLE) {450 {%1$s: Remote Host Access: %2$s}}
  477. set SCO_ACCOUNTGUI_MSGS(MSG_HOSTSBELONG) {451 {Current Hosts: }}
  478. set SCO_ACCOUNTGUI_MSGS(MSG_HOSTSOTHER) {452 {Other Hosts: }}
  479. set SCO_ACCOUNTGUI_MSGS(ERR_PWWARNERR) {453 {Password warning time must be a number}}
  480. set SCO_ACCOUNTGUI_MSGS(MSG_WARNTIME) {454 {Days until Account is Warned: }}
  481. set SCO_ACCOUNTGUI_MSGS(MSG_WARN_HELP) {455 {A warning message is issued this number of days before the password expires}}
  482. set SCO_ACCOUNTGUI_MSGS(MSG_NOUSEPAST) {456 {Date Login Will Expire: }}
  483. set SCO_ACCOUNTGUI_MSGS(MSG_NOUSE_HELP) {457 {The account will no longer be active after this date.}}
  484. set SCO_ACCOUNTGUI_MSGS(MSG_EXPIRLABEL) {458 {Days before Password Expires: }}
  485. set SCO_ACCOUNTGUI_MSGS(MSG_INACTIVETIME) {459 {Days Inactive before Locking: }}
  486. set SCO_ACCOUNTGUI_MSGS(MSG_INACTIVE_HELP) {460 {Number of days of inactivity before the account is locked.}}
  487. set SCO_ACCOUNTGUI_MSGS(MSG_NEVER1) {461 never}
  488. set SCO_ACCOUNTGUI_MSGS(MSG_NEVER2) {462 Never}
  489. set SCO_ACCOUNTGUI_MSGS(MSG_MINBETWLABEL1) {463 {Days Required between Changes: }}
  490. set SCO_ACCOUNTGUI_MSGS(ERR_PWVALUEMISSING1) {464 {You haven't specified values for all the fields.\nEither fill in the field or click the default button}}
  491. set SCO_ACCOUNTGUI_MSGS(ERR_ACCEXPIRERR) {465 {Account expiration must be a date greater than todays date or 'Never'}}
  492. set SCO_ACCOUNTGUI_MSGS(ERR_INACTIVERR) {466 {Days of inactivity must be a number or 'Infinite'}}
  493. set SCO_ACCOUNTGUI_MSGS(ERR_LOCKFAILED) {467 {Unable to lock user account:  %s}}
  494. set SCO_ACCOUNTGUI_MSGS(ERR_USERISLOCKED) {468 {This account is already locked}}
  495. set SCO_ACCOUNTGUI_MSGS(MSG_LOCKUSERB) {469 Lock}
  496. set SCO_ACCOUNTGUI_MSGS(MSG_LOCKUSERMNEM) {470 L}
  497. set SCO_ACCOUNTGUI_MSGS(MSG_LOCKUSER_SH) {471 {Lock the selected user account}}
  498. set SCO_ACCOUNTGUI_MSGS(MSG_COPYUSERB) {472 {Copy Selected User...}}
  499. set SCO_ACCOUNTGUI_MSGS(MSG_COPYUSERMNEM) {473 C}
  500. set SCO_ACCOUNTGUI_MSGS(MSG_COPYUSER_SH) {474 {Create a new user account by copying an existing account}}
  501. set SCO_ACCOUNTGUI_MSGS(MSG_tb_copyuser_icon) {475 /usr/lib/scoadmin/account/copy_user.px}
  502. set SCO_ACCOUNTGUI_MSGS(MSG_TB_COPYUSER) {476 {Copy a user account}}
  503. set SCO_ACCOUNTGUI_MSGS(MSG_OPENGRPB) {477 {Open Host Group...}}
  504. set SCO_ACCOUNTGUI_MSGS(MSG_OPENGRPM) {478 G}
  505. set SCO_ACCOUNTGUI_MSGS(MSG_RHOST_STAT) {479 {Creating rhosts file}}
  506. set SCO_ACCOUNTGUI_MSGS(ERR_FAILED_RHOSTS) {480 {Unable to create rhosts file}}
  507. set SCO_ACCOUNTGUI_MSGS(MSG_GETRHOSTS_STAT) {481 {Retrieving rhosts file}}
  508. set SCO_ACCOUNTGUI_MSGS(MSG_GETALLHOSTS_STAT) {482 {Retrieving list of all hosts}}
  509. set SCO_ACCOUNTGUI_MSGS(MSG_VALIDHOSTS_STAT) {483 {Validating hosts}}
  510. set SCO_ACCOUNTGUI_MSGS(ERR_BADUID1) {484 {UID must be a positive number}}
  511. set SCO_ACCOUNTGUI_MSGS(MSG_ON) {485 {Account Manager on %1$s}}
  512. set SCO_ACCOUNTGUI_MSGS(MSG_ONGROUP) {486 {Account Manager Machine Group on Template %1$s}}
  513. set SCO_ACCOUNTGUI_MSGS(MSG_Shutdown_System) {487 {Shutdown System}}
  514. set SCO_ACCOUNTGUI_MSGS(MSG_Administer_File_Systems) {488 {Administer File Systems}}
  515. set SCO_ACCOUNTGUI_MSGS(MSG_Change_System_Tunables) {489 {Change System Tunables}}
  516. set SCO_ACCOUNTGUI_MSGS(MSG_Monitor_System_Resources) {490 {Monitor System Resources}}
  517. set SCO_ACCOUNTGUI_MSGS(MSG_Administer_Intranet) {491 {Administer Intranet}}
  518. set SCO_ACCOUNTGUI_MSGS(MSG_Administer_Printers) {492 {Administer Printers}}
  519. loadlibindex /usr/lib/sysadm.tlib
  520. set patchArea {__SSO_ID_ST@SCO:                @SSO_ID_END__}
  521. set SSORoot [SSO_GetSegmentRootPath SHARED $patchArea]
  522. set versionNumber [SaGetSSOVersion $patchArea]
  523. set SSOAccountDir $SSORoot/etc/sysadm.d/account
  524. proc Initialization {} {
  525.     global uData
  526.     global yes_string no_string yes_default no_default
  527.     global infinite Infinite INFINITE
  528.     global never Never
  529.     set uData(userSelected) 1
  530.     set uData(groupSelected) 1
  531.     set uData(hostname) "local"
  532.     set uData(scriptname) [file tail [info script]]
  533.     set uData(remoteCmd) ""
  534.     set uData(mainlist) ""
  535.     set uData(showIcons) 0
  536.     set uData(listView) "users"
  537.     set yes_string [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_YES_STRING]
  538.     set no_string [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NO_STRING]
  539.     set yes_default [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_YES_DEFAULT]
  540.     set no_default [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NO_DEFAULT]
  541.     set infinite [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INFINITE1]
  542.     set Infinite [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INFINITE2]
  543.     set INFINITE [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INFINITE3]
  544.     set never [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEVER1]
  545.     set Never [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEVER2]
  546.     ObjectEventNotification DisplayNotice notification
  547.     ObjectEventNotification DisplayWarning warning
  548. }
  549. proc InitCheckASU {} {
  550.     global uData
  551.     SaStatusBarSet $uData(statusbar) \
  552.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GETSYS_STAT]
  553.     if {[ErrorCatch errorStack 0 {GetASUEnabled $uData(hostname)} asu] != 0} {
  554.         set uData(asuEnabled) 0
  555.         SaStatusBarClear $uData(statusbar)
  556.         ErrorPush errorStack 1 SCO_ACCOUNTGUI_ERR_FAILED_ASU_ENABLED
  557.     } else {
  558.         set isEnabled [keylget asu isASUEnabled]
  559.         set uData(asuEnabled) $isEnabled
  560.     }
  561.     SaStatusBarClear $uData(statusbar)
  562.     return 0
  563. }
  564. proc InitCheckNIS {} {
  565.     global uData 
  566.     SaStatusBarSet $uData(statusbar) \
  567.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GETSYS_STAT]
  568.     if {[ErrorCatch errorStack 0 {GetNISEnabled $uData(hostname)} nis] != 0} {
  569.     set uData(nisEnabled) 0
  570.     SaStatusBarClear $uData(statusbar)
  571.     ErrorPush errorStack 1 SCO_ACCOUNTGUI_ERR_FAILED_NIS_ENABLED
  572.     } else {
  573.     set isEnabled [keylget nis isNISEnabled]
  574.     set uData(nisEnabled) $isEnabled
  575.     }
  576.     SaStatusBarClear $uData(statusbar)
  577.     return 0
  578. }
  579. proc InitUserList {} {
  580.     global users uData
  581.     set host $uData(hostname)
  582.     set icons $uData(showIcons)
  583.     SaStatusBarSet $uData(statusbar) \
  584.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GETUSER_STAT]
  585.     if {[ErrorCatch errorStack 0 \
  586.       {GetInitUserAttribs $host $icons} userlist] != 0} { 
  587.     SaStatusBarClear $uData(statusbar)
  588.     ErrorThrow errorStack
  589.     }
  590.     set position 1
  591.     set userlist [lsort $userlist]
  592.     foreach item $userlist {
  593.     set ulist $item
  594.     keylset users($position) name [keylget ulist pw_name]
  595.     keylset users($position) id [keylget ulist pw_uid]
  596.     keylset users($position) comment [keylget ulist comment]
  597.     if {$icons} {
  598.         if {[keylget ulist isNISUser] == 0 &&
  599.             [keylget ulist isASUUser] == 0} {
  600.         keylset users($position) distribution  "local"
  601.         } else {
  602.         keylset users($position) distribution  "isNISUser"
  603.         }
  604.         set type [keylget ulist userType]
  605.         keylset users($position) type $type
  606.         set admin [keylget ulist administrative_lock_applied]
  607.         keylset users($position) lockstatus [IsLocked $type $admin]
  608.     }
  609.     incr position 1
  610.     }
  611.     SaStatusBarClear $uData(statusbar)
  612.     return 0
  613. }
  614. proc InitGroupList {} {
  615.     global groups uData
  616.     SaStatusBarSet $uData(statusbar) \
  617.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GETGROUP_STAT]
  618.     if {[ErrorCatch errorStack 0 \
  619.       {GetInitGroupAttribs $uData(hostname)} grouplist] != 0} { 
  620.     SaStatusBarClear $uData(statusbar)
  621.     ErrorThrow errorStack
  622.     }
  623.     set position 1
  624.     foreach item $grouplist {
  625.     set glist $item
  626.     keylset groups($position) name [keylget glist gr_name]
  627.     keylset groups($position) id [keylget glist gr_gid]
  628.     if {[keylget glist isNISUser] == 0} {
  629.         keylset groups($position) distribution  "local"
  630.     } else {
  631.         keylset groups($position) distribution  "isNISUser"
  632.     }
  633.     incr position 1
  634.     }
  635.     SaStatusBarClear $uData(statusbar)
  636.     return 0
  637. }
  638. ####################
  639. ####################
  640. ####################
  641. ####################
  642. proc GetInitUserAttribs {host icons} {
  643.     set fullinstance [FullInstance $host NULL]
  644.     set userlist {}
  645.     if {$icons} {
  646.     set attriblist [list pw_name \
  647.                  pw_uid \
  648.                  comment \
  649.                  isNISUser \
  650.                  isASUUser \
  651.                  userType \
  652.                  administrative_lock_applied \
  653.                  account_lifetime \
  654.                  passwd_successful_change_date]
  655.     } else {
  656.     set attriblist [list pw_name \
  657.                  pw_uid \
  658.                  comment ]
  659.     }
  660.     set objcall [list ObjectGet \
  661.             -scope 1 [list sco accounts] $fullinstance $attriblist]
  662.     set bmipResponse [SaMakeObjectCall $objcall]
  663.     set firstBmip [lindex $bmipResponse 0]
  664.     set errorStack [BmipResponseErrorStack firstBmip]
  665.     if { ![lempty $errorStack] } {
  666.     ErrorThrow errorStack
  667.     } else {
  668.     foreach item $bmipResponse {
  669.         set attrval [BmipResponseAttrValList item]
  670.         lappend userlist $attrval
  671.     }
  672.     }
  673.     return $userlist
  674. }
  675. proc GetInitGroupAttribs {host} {
  676.     set fullinstance [FullInstance $host NULL]
  677.     set grouplist {}
  678.     set attriblist \
  679.     [list gr_name gr_gid isNISUser]
  680.     set objcall [list ObjectGet \
  681.             -scope 1 [list sco groups] $fullinstance $attriblist]
  682.     set bmipResponse [SaMakeObjectCall $objcall]
  683.     set firstBmip [lindex $bmipResponse 0]
  684.     set errorStack [BmipResponseErrorStack firstBmip]
  685.     if { ![lempty $errorStack] } {
  686.     ErrorThrow errorStack
  687.     } else {
  688.     foreach item $bmipResponse {
  689.         set attrval [BmipResponseAttrValList item]
  690.         lappend grouplist $attrval
  691.     }
  692.     }
  693.     return $grouplist
  694. }
  695. proc GetASUEnabled {host} {
  696.     set fullinstance [FullInstance $host NULL]
  697.     set objcall [list \
  698.         ObjectGet {sco accounts} $fullinstance {isASUEnabled}]
  699.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  700.     if {[BmipResponseErrorIsPresent bmipResult]} {
  701.         set errorStack [BmipResponseErrorStack bmipResult]
  702.         ErrorThrow errorStack
  703.     } else {
  704.         set attrval [BmipResponseAttrValList bmipResult]
  705.         return $attrval
  706.     }
  707. }
  708. proc GetNISEnabled {host} {
  709.     set fullinstance [FullInstance $host NULL]
  710.     set objcall [list \
  711.     ObjectGet {sco accounts} $fullinstance {isNISEnabled}]
  712.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  713.     if {[BmipResponseErrorIsPresent bmipResult]} {
  714.     set errorStack [BmipResponseErrorStack bmipResult]
  715.     ErrorThrow errorStack
  716.     } else {
  717.     set attrval [BmipResponseAttrValList bmipResult]
  718.     return $attrval
  719.     }
  720. }
  721. proc GetGenPW {host} {
  722.     set fullinstance [FullInstance $host NULL]
  723.     set objcall [list \
  724.     ObjectGet {sco accounts} $fullinstance {genPassword}]
  725.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  726.     if {[BmipResponseErrorIsPresent bmipResult]} {
  727.     set errorStack [BmipResponseErrorStack bmipResult]
  728.     ErrorThrow errorStack
  729.     } else {
  730.     set attrval [BmipResponseAttrValList bmipResult]
  731.     return $attrval
  732.     }
  733. }
  734. proc GetAllPrivs {} {
  735.     set kernelPrivs [list \
  736.         "suspendaudit" \
  737.         "configaudit" \
  738.         "writeaudit" \
  739.             "execsuid" \
  740.         "chmodsugid" \
  741.         "chown"]
  742.     return $kernelPrivs
  743. }
  744. proc SetRHosts {host errStack user attrs} {
  745.     upvar $errStack errorStack
  746.     global uData
  747.     set fullinstance [FullInstance $host $user]
  748.     lappend attribs [list "systemList" $attrs]
  749.     set objcall [list \
  750.     ObjectReplace {sco rhosts} $fullinstance $attribs]
  751.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  752.     if {[BmipResponseErrorIsPresent bmipResult]} {
  753.     set errorStack [BmipResponseErrorStack bmipResult]
  754.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_MOD_USER_SET
  755.     return 1
  756.     } 
  757.     return 0
  758. }
  759. proc GetRHosts {user} {
  760.     global uData
  761.     set userinstance [FullInstance $uData(hostname) $user]
  762.     set objcall [list ObjectGet {sco rhosts} $userinstance "systemList"]
  763.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  764.     if {[BmipResponseErrorIsPresent bmipResult]} {
  765.     set errorStack [BmipResponseErrorStack bmipResult]
  766.     ErrorThrow errorStack
  767.     } else {
  768.     set attrval [BmipResponseAttrValList bmipResult]
  769.     return $attrval
  770.     }
  771. }
  772. proc GetUserAttribs {hostname user attriblist} {
  773.     set userinstance [FullInstance $hostname $user]
  774.     set objcall [list ObjectGet {sco account} $userinstance $attriblist]
  775.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  776.     if {[BmipResponseErrorIsPresent bmipResult]} {
  777.     set errorStack [BmipResponseErrorStack bmipResult]
  778.     ErrorThrow errorStack
  779.     } else {
  780.     set attrval [BmipResponseAttrValList bmipResult]
  781.     return $attrval
  782.     }
  783. }
  784. proc IsLocked {type admin {reason ""}} {
  785.     upvar $reason localreason
  786.     if {$type == "root"} {
  787.     set localreason ""
  788.     return 0
  789.     }
  790.     if {$admin} {
  791.     set localreason [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADMINLOCK]
  792.     return 1
  793.     }
  794.     set localreason ""
  795.     return 0
  796. }
  797. proc IsDefaultValue {defaults attribs attr} {
  798.     if {[keylget attribs $attr given] == 0} {
  799.     return 0
  800.     }
  801.     if {[keylget defaults $attr default] == 0} {
  802.     return 0
  803.     }
  804.     if {$given == $default} {
  805.     return 1
  806.     } else {
  807.     return 0
  808.     }
  809. }
  810. proc ValidateUserName {host name} {
  811.     set userinstance [FullInstance $host $name]
  812.     set objcall [list \
  813.     ObjectAction {sco account} $userinstance validateUserName {}]
  814.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  815.     if {[BmipResponseErrorIsPresent bmipResult]} {
  816.     set errorStack [BmipResponseErrorStack bmipResult]
  817.     ErrorThrow errorStack
  818.     } else {
  819.     return 0
  820.     }
  821. }
  822. ####################
  823. ####################
  824. proc GetGroupAttribs {host group attriblist} {
  825.     set groupinstance [FullInstance $host $group]
  826.     set objcall [list \
  827.     ObjectGet {sco group} $groupinstance $attriblist]
  828.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  829.     if {[BmipResponseErrorIsPresent bmipResult]} {
  830.     set errorStack [BmipResponseErrorStack bmipResult]
  831.     ErrorThrow errorStack
  832.     } else {
  833.     set attrval [BmipResponseAttrValList bmipResult]
  834.     return $attrval
  835.     }
  836. }
  837. proc ValidateGroupName {host name} {
  838.     set groupinstance [FullInstance $host $name]
  839.     set objcall [list \
  840.     ObjectAction {sco group} $groupinstance validateGroupName {}]
  841.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  842.     if {[BmipResponseErrorIsPresent bmipResult]} {
  843.     set errorStack [BmipResponseErrorStack bmipResult]
  844.     ErrorThrow errorStack
  845.     } else {
  846.     return 0
  847.     }
  848. }
  849. ######################
  850. ######################
  851. proc GetGroupDefaults  {host attriblist} {
  852.     set fullinstance [FullInstance $host NULL]
  853.     set objcall [list \
  854.     ObjectGet {sco groups} $fullinstance $attriblist]
  855.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  856.     if {[BmipResponseErrorIsPresent bmipResult]} {
  857.     set errorStack [BmipResponseErrorStack bmipResult]
  858.     ErrorThrow errorStack
  859.     } else {
  860.     set attrval [BmipResponseAttrValList bmipResult]
  861.     return $attrval
  862.     }
  863. }
  864. ######################
  865. ######################
  866. proc GetUserDefaults  {host attriblist} {
  867.     set fullinstance [FullInstance $host NULL]
  868.     set objcall [list \
  869.     ObjectGet {sco accounts} $fullinstance $attriblist]
  870.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  871.     if {[BmipResponseErrorIsPresent bmipResult]} {
  872.     set errorStack [BmipResponseErrorStack bmipResult]
  873.     ErrorThrow errorStack
  874.     } else {
  875.     set attrval [BmipResponseAttrValList bmipResult]
  876.     return $attrval
  877.     }
  878. }
  879. ###########################################################
  880. ###########################################################
  881. proc SetUserDefaults {host errStack attribs} {
  882.     upvar $errStack errorStack
  883.     set fullinstance [FullInstance $host NULL]
  884.     set objcall [list \
  885.     ObjectReplace {sco accounts} $fullinstance $attribs]
  886.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  887.     if {[BmipResponseErrorIsPresent bmipResult]} {
  888.     set errorStack [BmipResponseErrorStack bmipResult]
  889.     ErrorThrow errorStack
  890.     } 
  891.     return 0
  892. }
  893. proc SetGroupDefaults {host errStack attribs} {
  894.     upvar $errStack errorStack
  895.     set fullinstance [FullInstance $host NULL]
  896.     set objcall [list \
  897.     ObjectReplace {sco groups} $fullinstance $attribs]
  898.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  899.     if {[BmipResponseErrorIsPresent bmipResult]} {
  900.     set errorStack [BmipResponseErrorStack bmipResult]
  901.     ErrorThrow errorStack
  902.     } 
  903.     return 0
  904. }
  905. proc SetUserAttributes {host errStack user attribs} {
  906.     upvar $errStack errorStack
  907.     if {[lempty $attribs]} {
  908.     return 0
  909.     }
  910.     set userinstance [FullInstance $host $user]
  911.     set newattribs {}
  912.     set defattribs {}
  913.     foreach item $attribs {
  914.     set what [lindex $item 0]
  915.     set value [lindex $item 1]
  916.     if {$value == "SET_TO_DEFAULT"} {
  917.         lappend defattribs $what
  918.     } else {
  919.         lappend newattribs $item
  920.     }
  921.     }
  922.     if {![lempty $newattribs]} {
  923.     set objcall [list \
  924.         ObjectReplace {sco account} $userinstance $newattribs]
  925.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  926.     if {[BmipResponseErrorIsPresent bmipResult]} {
  927.         set errorStack [BmipResponseErrorStack bmipResult]
  928.         return 1
  929.     } 
  930.     } 
  931.     if {![lempty $defattribs]} {
  932.     set objcall [list ObjectAdd {sco account} \
  933.         $userinstance [list [list "defaultedAttributes" $defattribs]]]
  934.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  935.     if {[BmipResponseErrorIsPresent bmipResult]} {
  936.         set errorStack [BmipResponseErrorStack bmipResult]
  937.         return 1
  938.     } 
  939.     } 
  940.     return 0
  941. }
  942. proc SetGroupAttributes {host errStack group attribs} {
  943.     upvar $errStack errorStack
  944.     set groupinstance [FullInstance $host $group]
  945.     set objcall [list \
  946.     ObjectReplace {sco group} $groupinstance $attribs]
  947.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  948.     if {[BmipResponseErrorIsPresent bmipResult]} {
  949.     set errorStack [BmipResponseErrorStack bmipResult]
  950.     return 1
  951.     } 
  952.     return 0
  953. }
  954. proc CreateGroup {host errStack groupkeyl} {
  955.     upvar $errStack errorStack
  956.     set groupname [keylget groupkeyl gr_name]
  957.     set groupid [keylget groupkeyl gr_gid]
  958.     set groupinstance [FullInstance $host $groupname]
  959.     lappend attrlist [list "gr_name" $groupname]
  960.     lappend attrlist [list "gr_gid" $groupid]
  961.     set mem [keylget groupkeyl gr_mem]
  962.     if {![lempty $mem]} {
  963.     lappend attrlist [list "gr_mem" $mem]
  964.     }
  965.     set distrib [keylget groupkeyl distribval]
  966.     case $distrib {
  967.     {local} {
  968.         lappend attrlist [list "isNISUser" 0]
  969.     }
  970.     {isNISUser} { 
  971.         lappend attrlist [list "isNISUser" 1]
  972.     }
  973.     }
  974.     set objcall [list \
  975.     ObjectCreate {sco group} $groupinstance $attrlist]
  976.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  977.     if {[BmipResponseErrorIsPresent bmipResult]} {
  978.     set errorStack [BmipResponseErrorStack bmipResult]
  979.     return 1
  980.     }
  981.     return 0
  982. }
  983. proc DeleteGroup {host errStack group} {
  984.     upvar $errStack errorStack
  985.     set groupinstance [FullInstance $host $group]
  986.     set objcall [list \
  987.     ObjectDelete {sco group} $groupinstance ]
  988.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  989.     if {[BmipResponseErrorIsPresent bmipResult]} {
  990.     set errorStack [BmipResponseErrorStack bmipResult]
  991.     return 1
  992.     }
  993.     return 0
  994. }
  995. proc CreateUser {host errStack userkeyl} {
  996.     upvar $errStack errorStack
  997.     set name [keylget userkeyl name]
  998.     set userinstance [FullInstance $host $name]
  999.     lappend attrlist [list "pw_name" $name]
  1000.     lappend attrlist [list "pw_uid" [keylget userkeyl id]]
  1001.     lappend attrlist [list "comment" [keylget userkeyl comment]]
  1002.     lappend attrlist [list "netwareLoginID" [keylget userkeyl netware]]
  1003.     lappend attrlist [list "createHome" [keylget userkeyl createhome]]
  1004.     lappend attrlist [list "lang" [keylget userkeyl lang]]
  1005.     lappend attrlist [list "loginGroup" [keylget userkeyl logingroup]]
  1006.     lappend attrlist [list "mode" [keylget userkeyl mode]]
  1007.     set usergroups [keylget userkeyl grouplist]
  1008.     if {[lempty $usergroups]} {
  1009.     set groups [list "groups" {}]
  1010.     } else {
  1011.     set groups [list "groups" $usergroups]
  1012.     }
  1013.     lappend attrlist $groups
  1014.     lappend attrlist [list "pw_shell" [keylget userkeyl pw_shell]]
  1015.     lappend attrlist [list "pw_dir" [keylget userkeyl pw_dir]]
  1016.     set distrib [keylget userkeyl distribval]
  1017.     case $distrib {
  1018.     {local} {
  1019.         set distribval [list "isNISUser" 0] 
  1020.     }
  1021.     {isNISUser} { 
  1022.         set distribval [list "isNISUser" 1] 
  1023.     }
  1024.     }
  1025.     lappend attrlist $distribval
  1026.     set asudistrib [keylget userkeyl asudistribval]
  1027.     case $asudistrib {
  1028.     {local} {
  1029.         set asudistribval [list "isASUUser" 0] 
  1030.     }
  1031.     {isNISUser} { 
  1032.         set asudistribval [list "isASUUser" 1] 
  1033.     }
  1034.     }
  1035.     lappend attrlist $asudistribval
  1036.     set objcall [list ObjectCreate {sco account} $userinstance $attrlist]
  1037.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1038.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1039.     set errorStack [BmipResponseErrorStack bmipResult]
  1040.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NUSER_CREATE_ACCT
  1041.     return 1
  1042.     }
  1043.     return 0
  1044. }
  1045. proc SetInitialPassword {host errStack userkeyl} {
  1046.     upvar $errStack errorStack
  1047.     set name [keylget userkeyl name]
  1048.     set userinstance [FullInstance $host $name]
  1049.     set passwd [keylget userkeyl password]
  1050.     if {$passwd == "REMOVE"} {
  1051.     set passwd {}
  1052.     }
  1053.     set objcall [list \
  1054.     ObjectAction {sco account} $userinstance setPassword $passwd]
  1055.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1056.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1057.     set errorStack [BmipResponseErrorStack bmipResult]
  1058.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_SET_PASSWD
  1059.     return 1
  1060.     } 
  1061.     set change [keylget userkeyl chgatlogin]
  1062.     if {$change} {
  1063.     set objcall [list ObjectReplace {sco account} $userinstance \
  1064.         [list [list passwd_successful_change_date 0]]]
  1065.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1066.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1067.         set errorStack [BmipResponseErrorStack bmipResult]
  1068.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHGATLOGIN
  1069.         return 1
  1070.     } 
  1071.     } else {
  1072.     set objcall [list \
  1073.         ObjectAction {sco account} $userinstance noLoginChange {} ]
  1074.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1075.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1076.         set errorStack [BmipResponseErrorStack bmipResult]
  1077.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NOCHANGE
  1078.         return 1
  1079.     } 
  1080.     }
  1081.     return 0
  1082. } 
  1083. proc SetUserPassword {host errStack user password change} {
  1084.     upvar $errStack errorStack
  1085.     set userinstance [FullInstance $host $user]
  1086.     if {$password == "REMOVE"} {
  1087.     set password {}
  1088.     }
  1089.     if {$password != "KEEPPW"} {
  1090.     set objcall [list \
  1091.         ObjectAction {sco account} $userinstance setPassword $password]
  1092.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1093.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1094.         set errorStack [BmipResponseErrorStack bmipResult]
  1095.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_SET_PASSWD
  1096.         return 1
  1097.     } 
  1098.     }
  1099.     if {$change} {
  1100.     set objcall [list ObjectReplace {sco account} $userinstance \
  1101.         [list [list passwd_successful_change_date 0]]]
  1102.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1103.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1104.         set errorStack [BmipResponseErrorStack bmipResult]
  1105.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHGATLOGIN
  1106.         return 1
  1107.     } 
  1108.     } else {
  1109.     set objcall [list \
  1110.         ObjectAction {sco account} $userinstance noLoginChange {} ]
  1111.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1112.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1113.         set errorStack [BmipResponseErrorStack bmipResult]
  1114.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NOCHANGE
  1115.         return 1
  1116.     } 
  1117.     }
  1118.     return 0
  1119. }
  1120. proc DeleteUser {host errStack user} {
  1121.     upvar $errStack errorStack
  1122.     set userinstance [FullInstance $host $user]
  1123.     set objcall [list \
  1124.     ObjectDelete {sco account} $userinstance ]
  1125.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1126.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1127.     set errorStack [BmipResponseErrorStack bmipResult]
  1128.     return 1
  1129.     } 
  1130.     return 0
  1131. }
  1132. proc RetireUser {host errStack user} {
  1133.     upvar $errStack errorStack
  1134.     set userinstance [FullInstance $host $user]
  1135.     set objcall [list \
  1136.     ObjectAction {sco account} $userinstance retire {} ]
  1137.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1138.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1139.     set errorStack [BmipResponseErrorStack bmipResult]
  1140.     return 1
  1141.     } 
  1142.     return 0
  1143. }
  1144. proc FullInstance {host instance} { 
  1145.     return [list [list [list systemId $host] $instance]]
  1146. }
  1147. proc DirExists {host pathname} {
  1148.     set fileinstance [FullInstance $host $pathname]
  1149.     set attribs [list name]
  1150.     set objcall [list ObjectGet {sco directory} $fileinstance $attribs]
  1151.     set bmipResult [lindex [SaMakeObjectCall $objcall] 0]
  1152.     if {[BmipResponseErrorIsPresent bmipResult]} {
  1153.     if {[BmipResponseErrorId bmipResult] ==
  1154.         "SCO_OSA_ERR_NO_SUCH_OBJECT_INSTANCE"} {
  1155.         return 0
  1156.     } else {
  1157.         set errorStack [BmipResponseErrorStack bmipResult]
  1158.         ErrorThrow errorStack
  1159.     }
  1160.     } else {
  1161.     return 1
  1162.     }
  1163. }
  1164. proc PB:GetValue {form} {
  1165.     set homeperms "7"
  1166.     set groupreadb [VxGetVar $form groupreadb ]
  1167.     set groupwriteb [VxGetVar $form groupwriteb ]
  1168.     set groupexecb [VxGetVar $form groupexecb ]
  1169.     set otherreadb [VxGetVar $form otherreadb ]
  1170.     set otherwriteb [VxGetVar $form otherwriteb ]
  1171.     set otherexecb [VxGetVar $form otherexecb ]
  1172.     set grpread [VtGetValues $groupreadb -value]
  1173.     set grpwrite [VtGetValues groupwriteb -value]
  1174.     set grpexec [VtGetValues $groupexecb -value]
  1175.     set groupperms [expr {($grpread * 4) + ($grpwrite * 2) + $grpexec}]
  1176.     set oread [VtGetValues $otherreadb -value]
  1177.     set owrite [VtGetValues $otherwriteb -value]
  1178.     set oexec [VtGetValues $otherexecb -value]
  1179.     set otherperms [expr {($oread * 4) + ($owrite * 2) + $oexec}]
  1180.     append homeperms $groupperms $otherperms
  1181.     return $homeperms
  1182. }
  1183. proc DoHomeDirPermsBox {perms dialog buttoncb} {
  1184.     set homeperms $perms
  1185.     set permsform [VtForm $dialog.permsform \
  1186.     -marginHeight 0 -marginWidth 0]
  1187.     set permslabel [VtLabel $permsform.permslabel \
  1188.          -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HMDIRPERMBOXTITLE] ]
  1189.     set permsframe [VtFrame $permsform.permsframe \
  1190.     -shadowType ETCHED_IN ]
  1191.     set permsbox [VtRowColumn $permsframe.permsbox \
  1192.     -numColumns 4 ]
  1193.     set userperms [cindex $homeperms 0]
  1194.     set groupperms [cindex $homeperms 1]
  1195.     set otherperms [cindex $homeperms 2]
  1196.     set blank1 [VtLabel $permsbox.blank1 -label " "]
  1197.     set readlabel [VtLabel $permsbox.readlabel \
  1198.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_READPERM] \
  1199.     -labelRight ]
  1200.     set writelabel [VtLabel $permsbox.writelabel \
  1201.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_WRITEPERM] \
  1202.     -labelRight ]
  1203.     set execlabel [VtLabel $permsbox.execlabel \
  1204.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_EXECUTEPERM] \
  1205.     -labelRight ]
  1206.     set userheader [VtLabel $permsbox.userheader \
  1207.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERHEADER] \
  1208.     -labelLeft ]
  1209.     set ureadlabel [VtLabel $permsbox.ureadlabel -label "+" ]
  1210.     set uwritelabel [VtLabel $permsbox.uwritelabel -label "+" ]
  1211.     set uexeclabel [VtLabel $permsbox.uexeclabel -label "+" ]
  1212.     set groupheader [VtLabel $permsbox.groupheader \
  1213.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPHEADER] \
  1214.     -labelLeft ]
  1215.     set groupreadb [VtToggleButton $permsbox.groupreadb \
  1216.     -label ""  \
  1217.     -callback $buttoncb]
  1218.     set groupwriteb [VtToggleButton $permsbox.groupwriteb \
  1219.     -label "" \
  1220.     -callback $buttoncb]
  1221.     set groupexecb [VtToggleButton $permsbox.groupexecb \
  1222.     -label "" \
  1223.     -callback $buttoncb]
  1224.     case $groupperms {
  1225.     0 { # no permissions }
  1226.     1 {
  1227.         VtSetValues $groupexecb -value 1 
  1228.     }
  1229.     2 {
  1230.         VtSetValues $groupwriteb -value 1 
  1231.     }
  1232.     3 { 
  1233.         VtSetValues $groupwriteb -value 1 
  1234.         VtSetValues $groupexecb -value 1
  1235.     }
  1236.     4 {
  1237.         VtSetValues $groupreadb -value 1 
  1238.     }
  1239.     5 { 
  1240.         VtSetValues $groupreadb -value 1
  1241.         VtSetValues $groupexecb -value 1
  1242.     }
  1243.     6 { 
  1244.         VtSetValues $groupreadb -value 1
  1245.         VtSetValues $groupwriteb -value 1
  1246.     }
  1247.     7 { 
  1248.         VtSetValues $groupreadb -value 1
  1249.         VtSetValues $groupwriteb -value 1
  1250.         VtSetValues $groupexecb -value 1
  1251.     }
  1252.     }
  1253.     set otherheader [VtLabel $permsbox.otherheader \
  1254.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OTHERHEADER] \
  1255.     -labelLeft ]
  1256.     set otherreadb [VtToggleButton $permsbox.otherreadb \
  1257.     -label "" \
  1258.     -callback $buttoncb]
  1259.     set otherwriteb [VtToggleButton $permsbox.otherwriteb \
  1260.         -label "" \
  1261.     -callback $buttoncb]
  1262.     set otherexecb [VtToggleButton $permsbox.otherexecb \
  1263.     -label "" \
  1264.     -callback $buttoncb]
  1265.     case $otherperms {
  1266.     0 { # no permissions }
  1267.     1 { 
  1268.         VtSetValues $otherexecb -value 1 
  1269.     }
  1270.     2 {
  1271.         VtSetValues $otherwriteb -value 1 
  1272.     }
  1273.     3 {
  1274.         VtSetValues $otherwriteb -value 1
  1275.         VtSetValues $otherexecb -value 1
  1276.     }
  1277.     4 {
  1278.         VtSetValues $otherreadb -value 1 
  1279.     }
  1280.     5 { 
  1281.         VtSetValues $otherreadb -value 1
  1282.         VtSetValues $otherexecb -value 1
  1283.     }
  1284.     6 { 
  1285.         VtSetValues $otherreadb -value 1
  1286.         VtSetValues $otherwriteb -value 1
  1287.     }
  1288.     7 { 
  1289.         VtSetValues $otherreadb -value 1
  1290.         VtSetValues $otherwriteb -value 1
  1291.         VtSetValues $otherexecb -value 1
  1292.     }
  1293.     }
  1294.     VxSetVar $permsform permsbox $permsbox
  1295.     VxSetVar $permsform groupreadb $groupreadb
  1296.     VxSetVar $permsform groupwriteb $groupwriteb
  1297.     VxSetVar $permsform groupexecb $groupexecb
  1298.     VxSetVar $permsform otherreadb $otherreadb
  1299.     VxSetVar $permsform otherwriteb $otherwriteb
  1300.     VxSetVar $permsform otherexecb $otherexecb
  1301.     return $permsform
  1302. }
  1303. proc DB:DistOkCB {cbs} {
  1304.     set dialog [keylget cbs dialog]
  1305.     set nextwidget [VxGetVar $dialog nextwidget]
  1306.     set parent_dlog [VxGetVar $dialog parent_dlog]
  1307.     set dlist [VxGetVar $dialog list]
  1308.     set disttext [VxGetVar $parent_dlog disttext]
  1309.     set distmethods [VtListGetSelectedItem $dlist -byItemList]
  1310.     set distrib "local"
  1311.     set asudistrib [VxGetVar $parent_dlog asudistrib]
  1312.     if { $asudistrib != "none" } {
  1313.     set asudistrib "local"
  1314.     }
  1315.     if [lempty $distmethods] {
  1316.     set dstr " "
  1317.     } else {
  1318.     foreach item $distmethods {
  1319.         append dstr $item
  1320.         append dstr " "
  1321.         if {$item == "NIS" } {
  1322.         set distrib "isNISUser"
  1323.         } elseif {$item == [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ASU] } {
  1324.         set asudistrib "isNISUser"
  1325.         } 
  1326.     }
  1327.     set dstr [string trimright $dstr ", "]
  1328.     }
  1329.     VtSetValues $disttext -value $dstr
  1330.     VxSetVar $parent_dlog distrib $distrib
  1331.     VxSetVar $parent_dlog asudistrib $asudistrib
  1332.     VtDestroyDialog $dialog
  1333.     VtUnLock
  1334.     if [VtInfo -charm] {
  1335.     VtSetFocus $nextwidget
  1336.     }
  1337. }
  1338. proc DB:DistToggleCB {cbs} {
  1339.     set dialog [keylget cbs dialog]
  1340.     set tbutton [keylget cbs widget]
  1341.     set dlistlabel [VxGetVar $dialog listlabel]
  1342.     set dlist [VxGetVar $dialog list]
  1343.     set curvalue [VtGetValues $tbutton -value]
  1344.     if {$curvalue == 1} {
  1345.     VtSetSensitive $dlistlabel 0
  1346.     VtSetSensitive $dlist 0
  1347.     VtListDeselectItem $dlist -all
  1348.     } else {
  1349.     VtSetSensitive $dlistlabel 1
  1350.     VtSetSensitive $dlist 1
  1351.     VtListSelectItem $dlist -position 0
  1352.     }
  1353. }
  1354. proc DoChangeDistribCB {title cbs} {
  1355.     global uData
  1356.     set dialog [keylget cbs dialog]
  1357.     set widget [keylget cbs widget]
  1358.     set nextwidget [VxGetVar $widget nextwidget]
  1359.     set mode [keylget cbs mode]
  1360.     set distribvar [VxGetVar $dialog distrib]
  1361.     set asudistribvar [VxGetVar $dialog asudistrib]
  1362.     set disttext [VxGetVar $dialog disttext]
  1363.     set distdlog [VtFormDialog $dialog.distdlog \
  1364.      -title $title \
  1365.     -ok -cancel -help \
  1366.     -cancelButton CANCEL \
  1367.     -cancelCallback VxEndFormCB \
  1368.     -okCallback "DB:DistOkCB" \
  1369.     -autoLock DB:DistOkCB]
  1370.     set alldistmethods ""
  1371.     if { $uData(asuEnabled) != 0 && $asudistribvar != "none" } {
  1372.         lappend alldistmethods [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ASU]
  1373.     }
  1374.     if { $uData(nisEnabled) != 0 } {
  1375.         lappend alldistmethods "NIS"
  1376.     }
  1377.     set dlistlabel [VtLabel $distdlog.dlistlabel \
  1378.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SELECTDIST] \
  1379.     -leftOffset 10 -CHARM_leftOffset 1 \
  1380.     -topOffset 10 -CHARM_topOffset 1 ]
  1381.     set dlist [VtList $distdlog.dlist \
  1382.     -columns 20 \
  1383.     -rows 5 \
  1384.     -selection MULTIPLE \
  1385.     -itemList $alldistmethods]
  1386.     set dtoggle [VtToggleButton $distdlog.dtoggle \
  1387.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NODISTRIB] \
  1388.     -callback DB:DistToggleCB ]
  1389.     if {$distribvar == "local" && ($asudistribvar == "local" || $asudistribvar == "none") } {
  1390.     VtSetValues $dtoggle -value 1
  1391.     VtSetSensitive $dlistlabel 0
  1392.     VtSetSensitive $dlist 0
  1393.     VtListDeselectItem $dlist -all
  1394.     } else {
  1395.         if {$distribvar != "local"} {
  1396.             VtListSelectItem $dlist -item "NIS"
  1397.         }
  1398.         if {$asudistribvar == "isNISUser"} {
  1399.             VtListSelectItem $dlist -item [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ASU]
  1400.         }
  1401.     }
  1402.     VtSetValues $dtoggle \
  1403.     -leftSide $dlist -leftOffset 20 -CHARM_leftOffset 3 \
  1404.     -topSide NONE \
  1405.     -alignBottom $dlist
  1406.     VxSetVar $distdlog listlabel $dlistlabel
  1407.     VxSetVar $distdlog list $dlist
  1408.     VxSetVar $distdlog toggle $dtoggle
  1409.     VxSetVar $distdlog parent_dlog $dialog
  1410.     VxSetVar $distdlog mode $mode
  1411.     VxSetVar $distdlog nextwidget $nextwidget
  1412.     VtShow $distdlog
  1413.     VtUnLock
  1414. }
  1415. proc LS:LoginLocaleOkCB {cbs} {
  1416.     set dialog [keylget cbs dialog]
  1417.     set nextwidget [VxGetVar $dialog nextwidget]
  1418.     set parent_dialog [VxGetVar $dialog parent_dialog]
  1419.     set combobox [VxGetVar $dialog combo]
  1420.     set displaytext [VxGetVar $parent_dialog loginlcltext]
  1421.     set llocale [VtGetValues $combobox -value]
  1422.     if [lempty $llocale] {
  1423.     VtShow [VtErrorDialog $dialog.loginsherr \
  1424.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOLOGINLCLERR] \
  1425.         -ok]
  1426.     VtUnLock
  1427.     VtSetFocus $combobox
  1428.     return
  1429.     }
  1430.     VtSetValues $displaytext -label $llocale -columns 30 -CHARM_columns 15
  1431.     VxSetVar $parent_dialog loginlocale $llocale
  1432.     VtDestroyDialog $dialog
  1433.     VtUnLock
  1434.     if [VtInfo -charm] {
  1435.     VtSetFocus $nextwidget
  1436.     }
  1437. }
  1438. proc LS:LoginShellOkCB {cbs} {
  1439.     set dialog [keylget cbs dialog]
  1440.     set nextwidget [VxGetVar $dialog nextwidget]
  1441.     set parent_dialog [VxGetVar $dialog parent_dialog]
  1442.     set combobox [VxGetVar $dialog combo]
  1443.     set popbutton [VxGetVar $dialog popbutton]
  1444.     set displaytext [VxGetVar $parent_dialog loginshtext]
  1445.     set lshell [VtGetValues $combobox -value]
  1446.     if [lempty $lshell] {
  1447.     VtShow [VtErrorDialog $dialog.loginsherr \
  1448.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOLOGINSHERR] \
  1449.         -ok]
  1450.     VtUnLock
  1451.     VtSetFocus $combobox
  1452.     return
  1453.     }
  1454.     VtSetValues $displaytext -label $lshell -columns 30 -CHARM_columns 15
  1455.     VxSetVar $parent_dialog loginshell $lshell
  1456.     VxSetVar $parent_dialog populate [VtGetValues $popbutton -value]
  1457.     VtDestroyDialog $dialog
  1458.     VtUnLock
  1459.     if [VtInfo -charm] {
  1460.     VtSetFocus $nextwidget
  1461.     }
  1462. }
  1463. proc DoChangeLoginShellCB {title cbs} {
  1464.     global uData
  1465.     set dialog [keylget cbs dialog]
  1466.     set widget [keylget cbs widget]
  1467.     set nextwidget [VxGetVar $widget nextwidget]
  1468.     set loginshell [VxGetVar $dialog loginshell]
  1469.     set displaytext [VxGetVar $dialog loginshtext]
  1470.     set populate [VxGetVar $dialog populate]
  1471.     if {[ErrorCatch errorStack 0 \
  1472.     {GetUserDefaults $uData(hostname) [list installedShells]} attriblist] != 0} {
  1473.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_LSH_GET
  1474.     SaDisplayErrorStacks $uData(mainscreen).defltlsherr \
  1475.          [list $errorStack] HELP
  1476.     VtUnLock
  1477.     return
  1478.     }
  1479.     set shells [keylget attriblist installedShells] 
  1480.     set lshscreen [VtFormDialog $dialog.lshscreen \
  1481.      -title $title \
  1482.     -ok -cancel -help \
  1483.     -cancelButton CANCEL \
  1484.     -okCallback "LS:LoginShellOkCB" \
  1485.     -cancelCallback VxEndFormCB \
  1486.     -autoLock LS:LoginShellOkCB]
  1487.     set shboxlabel [VtLabel $lshscreen.shboxlabel \
  1488.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SELECTLOGINSH] \
  1489.     -leftOffset 10 -CHARM_leftOffset 1 \
  1490.     -topOffset 10 -CHARM_topOffset 1 ]
  1491.     set lshbox [VtComboBox $lshscreen.lshbox \
  1492.     -itemList $shells \
  1493.     -value $loginshell \
  1494.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 \
  1495.     -callback {SaSetFocus next} ]
  1496.     set popb [VtToggleButton $lshscreen.popb \
  1497.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_POPULATE] \
  1498.     -value $populate \
  1499.     -CHARM_topOffset 1 \
  1500.     -callback {SaSetFocus next}]
  1501.     VtHide $popb
  1502.     set okbutton [VtGetValues $lshscreen -ok]
  1503.     set focusList [list $lshbox $okbutton]
  1504.     VxSetVar $lshscreen parent_dialog $dialog
  1505.     VxSetVar $lshscreen combo $lshbox
  1506.     VxSetVar $lshscreen popbutton $popb
  1507.     VxSetVar $lshscreen focusList $focusList
  1508.     VxSetVar $lshscreen nextwidget $nextwidget
  1509.     VtShow $lshscreen
  1510.     VtUnLock
  1511. }
  1512. proc DoNewGroupOkCB {cbs} {
  1513.     global uData
  1514.     set dialog [keylget cbs dialog]
  1515.     set gname [VxGetVar $dialog groupname]
  1516.     set idtext [VxGetVar $dialog groupidtext]
  1517.     set gid [VtGetValues $idtext -value]
  1518.     set statusbar [VxGetVar $dialog statusbar]
  1519.     set twolist [VxGetVar $dialog twolist]
  1520.     keylset newgroup gr_name $gname
  1521.     keylset newgroup gr_gid $gid
  1522.     keylset newgroup gr_mem {}
  1523.     keylset newgroup distribval "local"
  1524.     if {[lempty $gid]} {
  1525.     VtShow [VtErrorDialog $dialog.errbox1 \
  1526.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_GRPSCRNERR1] \
  1527.         -ok]
  1528.     VtUnLock
  1529.     VtSetFocus $idtext
  1530.     return
  1531.     } 
  1532.     SaStatusBarSet $statusbar \
  1533.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDGROUP_STAT]
  1534.     if {![lempty $uData(groupList)]} {
  1535.     set ret 0
  1536.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  1537.         $uData(errorPrompt) [list CreateGroup $newgroup] \
  1538.         $uData(mainscreen) [list $cbs]
  1539.     } else {
  1540.     set ret [CreateGroup $uData(hostname) errorStack $newgroup]
  1541.     }
  1542.     if {$ret != 0} {
  1543.     SaStatusBarClear $statusbar
  1544.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_GRPCREATE $gname
  1545.     SaDisplayErrorStacks $dialog.grpcreateerr \
  1546.          [list $errorStack] HELP
  1547.     VtUnLock
  1548.     return
  1549.     } else {
  1550.     set otherlist [VxGetVar $dialog otherlist]
  1551.     AddGroupToList $gname
  1552.     SaTwoListAddItems $twolist 2 [list $gname]
  1553.     SaTwoListSelectItems $twolist 2 [list $gname]
  1554.     SaListShowSelectedItem $otherlist
  1555.     VtDestroyDialog $dialog
  1556.     if [VtInfo -charm] {
  1557.         VtSetFocus $otherlist
  1558.     }
  1559.     }
  1560.     VtUnLock
  1561. }
  1562. proc DoNewGroupDialog {parent group} {
  1563.     global uData
  1564.     set attriblist [list nextGid ]
  1565.     if {[ErrorCatch errorStack 0 \
  1566.     {GetGroupDefaults $uData(hostname) $attriblist} defattribs] != 0} {
  1567.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NGRP_DEFLTS
  1568.     SaDisplayErrorStacks $parent.newgrperr \
  1569.          [list $errorStack] HELP
  1570.     VtUnLock
  1571.     return
  1572.     }
  1573.     set newgroupd [VtFormDialog $parent.newgroupd \
  1574.      -title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NOGROUPTITLE] \
  1575.     -ok -cancel -help \
  1576.     -cancelButton CANCEL \
  1577.     -okCallback DoNewGroupOkCB \
  1578.     -cancelCallback VxEndFormCB \
  1579.     -autoLock DoNewGroupOkCB]
  1580.     set msglabel [VtLabel $newgroupd.msglabel \
  1581.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NOSUCHGRP] \
  1582.     -leftOffset 10 -CHARM_leftOffset 1 \
  1583.     -rightOffset 10 -CHARM_rightOffset 1 \
  1584.     -topOffset 10 -CHARM_topOffset 1 ]
  1585.     set sepline [VtSeparator $newgroupd.sepline \
  1586.     -horizontal \
  1587.     -topOffset 10 -CHARM_topOffset 0 \
  1588.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1\
  1589.     -leftSide FORM -leftOffset 10 -CHARM_leftOffset 1]
  1590.     set maxwidth 0
  1591.     set newgroupform [VtForm $newgroupd.newgroupform \
  1592.     -marginHeight 0 -marginWidth 0 \
  1593.     -rightSide FORM -leftSide FORM \
  1594.     -topOffset 5 -CHARM_topOffset 1]
  1595.     set newgrouplabel [VtLabel $newgroupform.newgrouplabel \
  1596.     -labelRight \
  1597.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAKEGRP] ]
  1598.     set newgroupname [VtLabel $newgroupform.newgroupname \
  1599.     -labelLeft \
  1600.     -label $group]
  1601.     set width [VtGetValues $newgrouplabel -width]
  1602.     if {$width > $maxwidth} {
  1603.     set maxwidth $width
  1604.     }
  1605.     lappend labellist $newgrouplabel
  1606.     lappend formlist $newgroupform
  1607.     set groupidform [VtForm $newgroupd.groupidform \
  1608.     -topOffset 5 -CHARM_topOffset 0 \
  1609.     -marginHeight 0 -marginWidth 0 \
  1610.     -rightSide FORM -leftSide FORM ]
  1611.     set groupidlabel [VtLabel $groupidform.groupidlabel \
  1612.     -labelRight \
  1613.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPID] ]
  1614.     set groupidtext [VtText $groupidform.groupidtext \
  1615.     -columns 5 -CHARM_columns 6 \
  1616.     -xmArgs [list XmNmaxLength 5] \
  1617.     -value [keylget defattribs nextGid] \
  1618.     -shortHelpCallback SaShortHelpCB \
  1619.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPID_HELP] \
  1620.     -callback {SaSetFocus next} ]
  1621.     set width [VtGetValues $groupidlabel -width]
  1622.     if {$width > $maxwidth} {
  1623.     set maxwidth $width
  1624.     }
  1625.     lappend labellist $groupidlabel
  1626.     lappend formlist $groupidform
  1627.     VtSetValues $newgrouplabel \
  1628.     -leftSide FORM -rightSide NONE \
  1629.     -topSide FORM -bottomSide FORM 
  1630.     VtSetValues $newgroupname \
  1631.     -leftSide $newgrouplabel -leftOffset 5 -CHARM_leftOffset 1 \
  1632.     -rightSide NONE \
  1633.     -topSide FORM -bottomSide FORM 
  1634.     VtSetValues $groupidlabel \
  1635.     -leftSide FORM -rightSide NONE \
  1636.     -topSide FORM -bottomSide FORM 
  1637.     VtSetValues $groupidtext \
  1638.     -leftSide $groupidlabel -leftOffset 5 -CHARM_leftOffset 1 \
  1639.     -rightSide NONE \
  1640.     -topSide FORM -bottomSide FORM 
  1641.     set statusBar [SaStatusBar $newgroupd.statusbar]
  1642.     VtSetValues $groupidform -bottomSide $statusBar -CHARM_bottomOffset 1
  1643.     AlignLabels $maxwidth $labellist $formlist
  1644.     set okbutton [VtGetValues $newgroupd -ok]
  1645.     VxSetVar $newgroupd groupname $group
  1646.     VxSetVar $newgroupd groupidtext $groupidtext
  1647.     VxSetVar $newgroupd statusbar $statusBar
  1648.     VxSetVar $newgroupd twolist [VxGetVar $parent twolist]
  1649.     VxSetVar $newgroupd otherlist [VxGetVar $parent otherlist]
  1650.     VxSetVar $newgroupd parent $parent
  1651.     VxSetVar $newgroupd focusList [list $groupidtext $okbutton]
  1652.     VtShow $newgroupd
  1653.     VtUnLock
  1654.     VtSetFocus $groupidtext
  1655. }
  1656. proc CG:ChangeGroupsOkCB {cbs } {
  1657.     global uData groups
  1658.     set dialog [keylget cbs dialog]
  1659.     set nextwidget [VxGetVar $dialog nextwidget]
  1660.     set twolist [VxGetVar $dialog twolist]
  1661.     set groupbox [VxGetVar $dialog groupbox]
  1662.     set parent_dlog [VxGetVar $dialog parent_dlog]
  1663.     set displaytext [VxGetVar $parent_dlog logingrptext]
  1664.     set groupname [VtGetValues $groupbox -value]
  1665.     set grouplist [SaTwoListGetItems $twolist 1]
  1666.     if {[lempty $groupname]} {
  1667.     VtShow [VtErrorDialog $dialog.logingrperr \
  1668.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOLOGINGRPERR] \
  1669.         -ok]
  1670.     VtSetFocus $groupbox
  1671.     VtUnLock
  1672.     return
  1673.     } 
  1674.     set allgroups {}
  1675.     set size [array size groups]
  1676.     incr size
  1677.     loop position 1 $size {
  1678.     lappend allgroups [keylget groups($position) name]
  1679.     }
  1680.     if {[lsearch -exact $allgroups $groupname] == -1} {
  1681.     if {[ErrorCatch errorStack 0 \
  1682.         {ValidateGroupName $uData(hostname) $groupname} dummyvar] != 0} {
  1683.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_BADGROUPNAME
  1684.         SaDisplayErrorStacks $dialog.newgrouperr1 \
  1685.              [list $errorStack] NOHELP
  1686.         VtSetFocus $groupbox
  1687.         VtUnLock
  1688.         return
  1689.     }
  1690.     DoNewGroupDialog $dialog $groupname 
  1691.     } else {
  1692.     VtSetValues $displaytext -label $groupname -columns 30 -CHARM_columns 15
  1693.     VxSetVar $parent_dlog logingroup $groupname
  1694.     VxSetVar $parent_dlog groups $grouplist
  1695.     VtDestroyDialog $dialog
  1696.     if [VtInfo -charm] {
  1697.         VtSetFocus $nextwidget
  1698.     }
  1699.     VtUnLock
  1700.     }
  1701. }
  1702. proc ChgGroupSetFocus {cbs} {
  1703.     if {[keylget cbs mode mode] != 0 && $mode == "done"} {
  1704.     set dialog [keylget cbs dialog]
  1705.     set twolist [VxGetVar $dialog twolist]
  1706.     set otherlist [VxGetVar $dialog otherlist]
  1707.     set item [VtListGetSelectedItem $otherlist -byItemList]
  1708.     if {[lempty $item]} {
  1709.         set item [VtListGetItem $otherlist -position 1]
  1710.     }
  1711.     SaTwoListSelectItems $twolist 2 [list $item]
  1712.     SaListShowSelectedItem $otherlist
  1713.     VtSetFocus $otherlist
  1714.     }
  1715. }
  1716. proc DoChangeGroupsCB {title cbs} {
  1717.     global groups
  1718.     set dialog [keylget cbs dialog]
  1719.     set widget [keylget cbs widget]
  1720.     set nextwidget [VxGetVar $widget nextwidget]
  1721.     set logingroup [VxGetVar $dialog logingroup]
  1722.     set usergroups [VxGetVar $dialog groups]
  1723.     set allgroups {}
  1724.     set size [array size groups]
  1725.     incr size
  1726.     loop position 1 $size {
  1727.     lappend grouplist [keylget groups($position) name]
  1728.     }
  1729.     set allgroups [lsort $grouplist]
  1730.     set chggrpscreen [VtFormDialog $dialog.chggrpscreen \
  1731.      -title $title \
  1732.     -ok -cancel -help \
  1733.     -cancelButton CANCEL \
  1734.     -okCallback CG:ChangeGroupsOkCB \
  1735.     -cancelCallback VxEndFormCB \
  1736.     -autoLock CG:ChangeGroupsOkCB ]
  1737.     set lgroupform [VtForm $chggrpscreen.lgroupform \
  1738.     -marginHeight 0 -marginWidth 0 \
  1739.     -rightSide FORM -MOTIF_rightOffset 10 -CHARM_rightOffset 1\
  1740.     -leftSide FORM -MOTIF_leftOffset 10 -CHARM_leftOffset 1 \
  1741.     -topSide FORM -MOTIF_topOffset 10 -CHARM_topOffset 1 ]
  1742.     set lgrouplabel [VtLabel $lgroupform.lgrouplabel \
  1743.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LGROUPTXTLABEL] \
  1744.     -leftSide FORM ]
  1745.     set lgroupbox [VtComboBox $lgroupform.lgroupbox \
  1746.     -itemList $allgroups \
  1747.     -value $logingroup \
  1748.     -callback ChgGroupSetFocus \
  1749.     -leftSide $lgrouplabel -leftOffset 5 -CHARM_leftOffset 1 \
  1750.     -topSide FORM -bottomSide FORM ]
  1751.     set othergroups {}
  1752.     set maxlen 0
  1753.     foreach item $allgroups {
  1754.     if {[lsearch $usergroups $item] == -1} {
  1755.         lappend othergroups $item
  1756.     }
  1757.     if {[clength $item] >= $maxlen} {
  1758.         set maxlen [clength $item]
  1759.     }
  1760.     }
  1761.     set listwidth [expr {$maxlen + 4}]
  1762.     set listoptions [list \
  1763.     [list -selection single] \
  1764.     [list -width $listwidth] \
  1765.     [list -search list2 ] ]
  1766.     set twolist [SaTwoList \
  1767.     $chggrpscreen.twolist \
  1768.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPBELONG] \
  1769.     $usergroups \
  1770.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPOTHER] \
  1771.     $othergroups \
  1772.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTREMOVE] \
  1773.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTADD] \
  1774.     $listoptions]
  1775.     VtSetValues $twolist \
  1776.     -topSide $lgroupform -MOTIF_topOffset 10 -CHARM_topOffset 1 \
  1777.     -leftSide FORM -MOTIF_leftOffset 10 -CHARM_leftOffset 1 \
  1778.     -rightSide FORM -MOTIF_rightOffset 10 -CHARM_rightOffset 1 \
  1779.     -bottomSide FORM -MOTIF_bottomOffset 10 -CHARM_bottomOffset 1
  1780.     set userlist [VxGetVar $twolist list1]
  1781.     set otherlist [VxGetVar $twolist list2]
  1782.     set othersearch [VxGetVar $twolist searchField2]
  1783.     set okbutton [VtGetValues $chggrpscreen -ok]
  1784.     VxSetVar $chggrpscreen groupbox $lgroupbox
  1785.     VxSetVar $chggrpscreen twolist $twolist
  1786.     VxSetVar $chggrpscreen userlist $userlist
  1787.     VxSetVar $chggrpscreen otherlist $otherlist
  1788.     VxSetVar $chggrpscreen othersearch $othersearch
  1789.     VxSetVar $chggrpscreen okbutton $okbutton
  1790.     VxSetVar $chggrpscreen parent_dlog $dialog
  1791.     VxSetVar $chggrpscreen nextwidget $nextwidget
  1792.     VtRemoveAllTabGroups $chggrpscreen
  1793.     VtAddTabGroup $lgroupbox
  1794.     VtAddTabGroup $userlist
  1795.     VtAddTabGroup $otherlist
  1796.     VtAddTabGroup $othersearch
  1797.     VtShow $chggrpscreen
  1798.     VtUnLock
  1799. }
  1800. proc ChangeRhostsOkCB {cbs } {
  1801.     global uData
  1802.     set dialog [keylget cbs dialog]
  1803.     set twolist [VxGetVar $dialog twolist]
  1804.     set rhostslist [SaTwoListGetItems $twolist 1]
  1805.     set statusbar [VxGetVar $dialog statusbar]
  1806.     set rhosts {}
  1807.     foreach host $rhostslist {
  1808.     lappend rhosts [lindex $host 0]
  1809.     }
  1810.     set user [UserSelectedName]
  1811.     SaStatusBarSet $statusbar \
  1812.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RHOST_STAT]
  1813.     if {![lempty $uData(groupList)]} {
  1814.     set ret 0
  1815.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  1816.         $uData(errorPrompt) [list SetRHosts $user $rhosts] \
  1817.         $uData(mainscreen) [list $cbs]
  1818.     } else {
  1819.     set ret [SetRHosts $uData(hostname) errorStack $user $rhosts]
  1820.     }
  1821.     if {$ret != 0} {
  1822.     SaStatusBarClear $statusbar
  1823.     ErrorPush errorStack 0 \
  1824.         SCO_ACCOUNTGUI_ERR_FAILED_RHOSTS $user
  1825.     SaDisplayErrorStacks $dialog.rhostserr \
  1826.          [list $errorStack] HELP
  1827.     VtUnLock
  1828.     return
  1829.     } else {
  1830.     VtDestroyDialog $dialog
  1831.     SaStatusBarClear $uData(statusbar)
  1832.     VtUnLock
  1833.     return
  1834.     }
  1835. }
  1836. proc RHostsCB {cbs} {
  1837.     global uData
  1838.     set dialog [keylget cbs dialog]
  1839.     set user [UserSelectedName]
  1840.     set chgrhostsscreen [VtFormDialog $dialog.chgrhostsscreen \
  1841.     -title [IntlLocalizeMsg \
  1842.         SCO_ACCOUNTGUI_MSG_AUTHSTITLE [list $uData(hostname) $user]] \
  1843.     -ok -cancel -help \
  1844.     -cancelButton CANCEL \
  1845.     -okCallback ChangeRhostsOkCB \
  1846.     -cancelCallback VxEndFormCB \
  1847.     -autoLock CG:ChangeRhostsOkCB ]
  1848.     set listoptions [list \
  1849.     [list -selection multiple] \
  1850.     [list -search both] \
  1851.     ]
  1852.     SaStatusBarSet $uData(statusbar) \
  1853.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GETRHOSTS_STAT]
  1854.     set userrhosts [GetRHosts $user]
  1855.     SaStatusBarSet $uData(statusbar) \
  1856.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GETALLHOSTS_STAT]
  1857.     set other [SaHostsGet]
  1858.     set otherrhosts {}
  1859.     SaStatusBarSet $uData(statusbar) \
  1860.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VALIDHOSTS_STAT]
  1861.     foreach host $other {
  1862.     set sysname [lindex $host 1]
  1863.     foreach userhost $userrhosts {
  1864.         if {$userhost == $sysname} {
  1865.         set sysname {}
  1866.         break
  1867.         }
  1868.     }
  1869.     if {![lempty $sysname]} {
  1870.         lappend otherrhosts [list $sysname [lindex $host 0]]
  1871.     }
  1872.     }
  1873.     set twolist [SaTwoList \
  1874.     $chgrhostsscreen.twolist \
  1875.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOSTSBELONG] \
  1876.     $userrhosts \
  1877.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOSTSOTHER] \
  1878.     $otherrhosts \
  1879.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTREMOVE] \
  1880.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTADD] \
  1881.     $listoptions]
  1882.     set statusbar [SaStatusBar $chgrhostsscreen.statusbar]
  1883.     VtSetValues $twolist -bottomSide $statusbar -CHARM_bottomOffset 1
  1884.     VtSetValues $twolist \
  1885.     -topSide FORM -MOTIF_topOffset 10 -CHARM_topOffset 1 \
  1886.     -leftSide FORM -MOTIF_leftOffset 10 -CHARM_leftOffset 1 \
  1887.     -rightSide FORM -MOTIF_rightOffset 10 -CHARM_rightOffset 1
  1888.     set userrhosts [VxGetVar $twolist list1]
  1889.     set otherrhosts [VxGetVar $twolist list2]
  1890.     set othersearch [VxGetVar $twolist searchField2]
  1891.     set okbutton [VtGetValues $chgrhostsscreen -ok]
  1892.     VxSetVar $chgrhostsscreen twolist $twolist
  1893.     VxSetVar $chgrhostsscreen userrhosts $userrhosts
  1894.     VxSetVar $chgrhostsscreen otherrhosts $otherrhosts
  1895.     VxSetVar $chgrhostsscreen othersearch $othersearch
  1896.     VxSetVar $chgrhostsscreen okbutton $okbutton
  1897.     VxSetVar $chgrhostsscreen statusbar $statusbar
  1898.     VtShow $chgrhostsscreen
  1899.     SaStatusBarClear $uData(statusbar)
  1900.     VtUnLock
  1901. }
  1902. proc DoChangeLocaleCB {title cbs} {
  1903.     global uData
  1904.     set dialog [keylget cbs dialog]
  1905.     set widget [keylget cbs widget]
  1906.     set nextwidget [VxGetVar $widget nextwidget]
  1907.     set loginlocale [VxGetVar $dialog loginlocale]
  1908.     set loginlcltext [VxGetVar $dialog loginlcltext]
  1909.     if {[ErrorCatch errorStack 0 \
  1910.     {GetUserDefaults $uData(hostname) [list locales]} attriblist] != 0} {
  1911.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_LCL_GET
  1912.     SaDisplayErrorStacks $uData(mainscreen).defltlsherr \
  1913.          [list $errorStack] HELP
  1914.     VtUnLock
  1915.     return
  1916.     }
  1917.     set locales [keylget attriblist locales] 
  1918.     set lclscreen [VtFormDialog $dialog.lclscreen \
  1919.      -title $title \
  1920.     -ok -cancel -help \
  1921.     -cancelButton CANCEL \
  1922.     -okCallback "LS:LoginLocaleOkCB" \
  1923.     -cancelCallback VxEndFormCB \
  1924.     -autoLock LS:LoginLocaleOkCB]
  1925.     set lclboxlabel [VtLabel $lclscreen.lclboxlabel \
  1926.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SELECTLOGINLCL] \
  1927.     -leftOffset 10 -CHARM_leftOffset 1 \
  1928.     -topOffset 10 -CHARM_topOffset 1 ]
  1929.     set lclbox [VtComboBox $lclscreen.lclbox \
  1930.     -itemList $locales \
  1931.     -value $loginlocale \
  1932.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 \
  1933.     -callback {SaSetFocus next} ]
  1934.     set okbutton [VtGetValues $lclscreen -ok]
  1935.     set focusList [list $lclbox $okbutton]
  1936.     VxSetVar $lclscreen parent_dialog $dialog
  1937.     VxSetVar $lclscreen combo $lclbox
  1938.     VxSetVar $lclscreen focusList $focusList
  1939.     VxSetVar $lclscreen nextwidget $nextwidget
  1940.     VtShow $lclscreen
  1941.     VtUnLock
  1942. }
  1943. proc DefaultButtonInfiniteCB {cbs} {
  1944.     global infinite Infinite uData
  1945.     set dialog [keylget cbs dialog]
  1946.     set button [keylget cbs widget]
  1947.     set mode [keylget cbs mode]
  1948.     set label [VxGetVar $button label]
  1949.     set text [VxGetVar $button text]
  1950.     set b_attribute [VxGetVar $button b_attribute]
  1951.     if {$mode == "select"} {
  1952.     set bstate [VtGetValues $button -value] 
  1953.     if {$bstate == 1} {
  1954.         if {[ErrorCatch errorStack 0 \
  1955.         {GetUserDefaults $uData(hostname) [list $b_attribute]} attriblist] != 0} {
  1956.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_PWATTRIBUTE
  1957.         SaDisplayErrorStacks $dialog.pwattriberr \
  1958.              [list $errorStack] HELP
  1959.         VtUnLock
  1960.         return
  1961.         }
  1962.         set newvalue [keylget attriblist $b_attribute]
  1963.         if {$newvalue == 0} {
  1964.         set newvalue $Infinite
  1965.         }
  1966.         VtSetSensitive $text 0
  1967.     } else {
  1968.         set newvalue ""
  1969.         VtSetSensitive $text 1
  1970.     }
  1971.     VtSetValues $text -value $newvalue
  1972.     } else {
  1973.     if {$mode == "done"} {
  1974.         MiscSetFocusNextCB $cbs
  1975.     }
  1976.     }
  1977. }
  1978. proc DefaultButtonNeverCB {cbs} {
  1979.     global Never uData
  1980.     set dialog [keylget cbs dialog]
  1981.     set button [keylget cbs widget]
  1982.     set mode [keylget cbs mode]
  1983.     set label [VxGetVar $button label]
  1984.     set text [VxGetVar $button text]
  1985.     set b_attribute [VxGetVar $button b_attribute]
  1986.     if {$mode == "select"} {
  1987.     set bstate [VtGetValues $button -value] 
  1988.     if {$bstate == 1} {
  1989.         if {[ErrorCatch errorStack 0 \
  1990.         {GetUserDefaults $uData(hostname) [list $b_attribute]} attriblist] != 0} {
  1991.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_PWATTRIBUTE
  1992.         SaDisplayErrorStacks $dialog.pwattriberr \
  1993.              [list $errorStack] HELP
  1994.         VtUnLock
  1995.         return
  1996.         }
  1997.         set newvalue [keylget attriblist $b_attribute]
  1998.         if {$newvalue == {""}} {
  1999.         set newvalue $Never
  2000.         }
  2001.         VtSetSensitive $text 0
  2002.     } else {
  2003.         set newvalue ""
  2004.         VtSetSensitive $text 1
  2005.     }
  2006.     VtSetValues $text -value $newvalue
  2007.     } else {
  2008.     if {$mode == "done"} {
  2009.         MiscSetFocusNextCB $cbs
  2010.     }
  2011.     }
  2012. }
  2013. proc DefaultButtonCB {cbs} {
  2014.     global uData
  2015.     set dialog [keylget cbs dialog]
  2016.     set button [keylget cbs widget]
  2017.     set mode [keylget cbs mode]
  2018.     set label [VxGetVar $button label]
  2019.     set text [VxGetVar $button text]
  2020.     set b_attribute [VxGetVar $button b_attribute]
  2021.     if {$mode == "select"} {
  2022.     set bstate [VtGetValues $button -value] 
  2023.     if {$bstate == 1} {
  2024.         if {[ErrorCatch errorStack 0 \
  2025.         {GetUserDefaults $uData(hostname) [list $b_attribute]} attriblist] != 0} {
  2026.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_PWATTRIBUTE
  2027.         SaDisplayErrorStacks $dialog.pwattriberr \
  2028.              [list $errorStack] HELP
  2029.         VtUnLock
  2030.         return
  2031.         }
  2032.         set newvalue [keylget attriblist $b_attribute]
  2033.         VtSetSensitive $text 0
  2034.     } else {
  2035.         set newvalue ""
  2036.         VtSetSensitive $text 1
  2037.     }
  2038.     VtSetValues $text -value $newvalue
  2039.     } else {
  2040.     if {$mode == "done"} {
  2041.         MiscSetFocusNextCB $cbs
  2042.     }
  2043.     }
  2044. }
  2045. proc AlignLabels {maxwidth labellist formlist} {
  2046.     set index [llength $labellist]
  2047.     set maxwidth [expr {$maxwidth + 1}]
  2048.     for {set i 0} {$i < $index} {incr i} {
  2049.     set label [lindex $labellist $i]
  2050.     set form [lindex $formlist $i]
  2051.     set width [VtGetValues $label -width]
  2052.     if {$width < $maxwidth} {
  2053.         set offset [expr {($maxwidth - $width) + 10}]
  2054.         set charmoffset [expr {($maxwidth - $width) + 1}]
  2055.         VtSetValues $form \
  2056.         -leftOffset $offset -CHARM_leftOffset $charmoffset
  2057.     }
  2058.     }
  2059. }
  2060. proc DistForm {parent callbacktitle distribval asudistribval} {
  2061.     set distform [VtForm $parent.distform \
  2062.     -topOffset 5 -CHARM_topOffset 0 \
  2063.     -marginHeight 0 -marginWidth 0 \
  2064.     -rightSide FORM -leftSide FORM]
  2065.     set distlabel [VtLabel $distform.distlabel \
  2066.     -labelRight \
  2067.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DISTRIBVIA] ]
  2068.     set ddstr ""
  2069.     if {$asudistribval == "isNISUser"} {
  2070.     set ddstr [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ASU]
  2071.     } 
  2072.     if {$distribval == "isNISUser"} {
  2073.     lappend ddstr "NIS"
  2074.     } 
  2075.     set disttext [VtLabel $distform.disttext \
  2076.     -label $ddstr \
  2077.     -labelLeft \
  2078.     -columns 30 -CHARM_columns 15 \
  2079.     -shortHelpCallback SaShortHelpCB \
  2080.     -MOTIF_shortHelpString \
  2081.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DISTRIBTXT_MF_HELP] \
  2082.     -CHARM_shortHelpString \
  2083.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DISTRIBTXT_CH_HELP] ]
  2084.     set chgdistb [VtPushButton $distform.chgdistb  \
  2085.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGEDISTRIBB] \
  2086.     -shortHelpCallback SaShortHelpCB \
  2087.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DISTRIBBTN_HELP] \
  2088.     -callback "DoChangeDistribCB {$callbacktitle}" \
  2089.     -autoLock DoChangeDistribCB ]
  2090.     VtSetValues $distlabel \
  2091.     -leftSide FORM -rightSide NONE \
  2092.     -topSide FORM -bottomSide FORM 
  2093.     VtSetValues $disttext \
  2094.     -leftSide $distlabel -leftOffset 5 -CHARM_leftOffset 1 \
  2095.     -rightSide NONE \
  2096.     -topSide FORM -bottomSide FORM 
  2097.     VtSetValues $chgdistb \
  2098.     -leftSide $disttext -leftOffset 20 -CHARM_leftOffset 3 \
  2099.     -rightSide NONE \
  2100.     -topSide FORM 
  2101.     VxSetVar $distform label $distlabel
  2102.     VxSetVar $distform text $disttext
  2103.     VxSetVar $distform button $chgdistb
  2104.     return $distform
  2105. }
  2106. proc LoginShellForm {parent callbacktitle loginshell} {
  2107.     set lshform [VtForm $parent.lshform \
  2108.     -topOffset 10 -CHARM_topOffset 1 \
  2109.     -marginHeight 0 -marginWidth 0 \
  2110.     -rightSide FORM -leftSide FORM]
  2111.     set lshlabel [VtLabel $lshform.lshlabel \
  2112.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINSHELL] \
  2113.     -labelRight ]
  2114.     set lshtext [VtLabel $lshform.lshtext \
  2115.         -label $loginshell \
  2116.     -labelLeft \
  2117.     -columns 30 -CHARM_columns 15 \
  2118.     -shortHelpCallback SaShortHelpCB \
  2119.     -CHARM_shortHelpString \
  2120.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINSHTXT_CH_HELP] \
  2121.     -MOTIF_shortHelpString \
  2122.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINSHTXT_MF_HELP] ]
  2123.     set chgshellb [VtPushButton $lshform.chgshellb \
  2124.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGESHELLB] \
  2125.     -shortHelpCallback SaShortHelpCB \
  2126.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINSHBTN_HELP] \
  2127.     -callback "DoChangeLoginShellCB {$callbacktitle}" \
  2128.     -autoLock DoChangeLoginShellCB ]
  2129.     VtSetValues $lshlabel \
  2130.     -leftSide FORM -rightSide NONE \
  2131.     -topSide FORM -bottomSide FORM 
  2132.     VtSetValues $lshtext \
  2133.     -leftSide $lshlabel -leftOffset 5 -CHARM_leftOffset 1 \
  2134.     -rightSide NONE \
  2135.     -topSide FORM -bottomSide FORM 
  2136.     VtSetValues $chgshellb \
  2137.     -leftSide $lshtext -leftOffset 20 -CHARM_leftOffset 3 \
  2138.     -rightSide NONE \
  2139.     -topSide FORM 
  2140.     VxSetVar $lshform label $lshlabel
  2141.     VxSetVar $lshform text $lshtext
  2142.     VxSetVar $lshform button $chgshellb
  2143.     return $lshform
  2144. }
  2145. proc HomeDirForm {parent homedirpath hdproc} {
  2146.     set hdform [VtForm $parent.hdform \
  2147.     -topOffset 5 -CHARM_topOffset 0 \
  2148.     -marginHeight 0 -marginWidth 0 \
  2149.     -rightSide FORM -leftSide FORM ]
  2150.     set hdlabel [VtLabel $hdform.hdlabel \
  2151.     -labelRight \
  2152.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERHOMEDIR] ]
  2153.     set hdtext [VtLabel $hdform.hdtext \
  2154.     -label $homedirpath \
  2155.     -labelLeft \
  2156.     -columns 30 -CHARM_columns 15 \
  2157.     -shortHelpCallback SaShortHelpCB \
  2158.     -CHARM_shortHelpString \
  2159.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOMEDIRTXT_CH_HELP] \
  2160.     -MOTIF_shortHelpString \
  2161.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOMEDIRTXT_MF_HELP] ]
  2162.     set chghomedirb [VtPushButton $hdform.chghomedirb  \
  2163.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGEHOMEDIRB] \
  2164.     -shortHelpCallback SaShortHelpCB \
  2165.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOMEDIRBTN_HELP] \
  2166.     -callback $hdproc \
  2167.     -autoLock $hdproc ]
  2168.     VtSetValues $hdlabel \
  2169.     -leftSide FORM -rightSide NONE \
  2170.     -topSide FORM -bottomSide FORM 
  2171.     VtSetValues $hdtext \
  2172.     -leftSide $hdlabel -leftOffset 5 -CHARM_leftOffset 1 \
  2173.     -rightSide NONE \
  2174.     -topSide FORM -bottomSide FORM 
  2175.     VtSetValues $chghomedirb \
  2176.     -leftSide $hdtext -leftOffset 20 -CHARM_leftOffset 3 \
  2177.     -rightSide NONE \
  2178.     -topSide FORM 
  2179.     VxSetVar $hdform label $hdlabel
  2180.     VxSetVar $hdform text $hdtext
  2181.     VxSetVar $hdform button $chghomedirb
  2182.     return $hdform
  2183. }
  2184. proc LoginGroupForm {parent callbacktitle logingroup} {
  2185.     set lgform [VtForm $parent.lgform \
  2186.     -topOffset 5 -CHARM_topOffset 0 \
  2187.     -marginHeight 0 -marginWidth 0 \
  2188.     -rightSide FORM -leftSide FORM ]
  2189.     set lglabel [VtLabel $lgform.lglabel \
  2190.     -labelRight \
  2191.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERLOGINGRP] ]
  2192.     set lgtext [VtLabel $lgform.lgtext \
  2193.     -label $logingroup \
  2194.     -labelLeft \
  2195.     -columns 30 -CHARM_columns 15 \
  2196.     -shortHelpCallback SaShortHelpCB \
  2197.     -CHARM_shortHelpString \
  2198.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINGRPTXT_CH_HELP] \
  2199.     -MOTIF_shortHelpString \
  2200.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINGRPTXT_MF_HELP] ]
  2201.     set chglogingrpb [VtPushButton $lgform.chglogingrpb  \
  2202.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGELOGINGRPSB] \
  2203.     -shortHelpCallback SaShortHelpCB \
  2204.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINGRPBTN_HELP] \
  2205.     -callback "DoChangeGroupsCB {$callbacktitle}" \
  2206.     -autoLock DoChangeGroupsCB ]
  2207.     VtSetValues $lglabel \
  2208.     -leftSide FORM -rightSide NONE \
  2209.     -topSide FORM -bottomSide FORM 
  2210.     VtSetValues $lgtext \
  2211.     -leftSide $lglabel -leftOffset 5 -CHARM_leftOffset 1 \
  2212.     -rightSide NONE \
  2213.     -topSide FORM -bottomSide FORM 
  2214.     VtSetValues $chglogingrpb \
  2215.     -leftSide $lgtext -leftOffset 20 -CHARM_leftOffset 3 \
  2216.     -rightSide NONE \
  2217.     -topSide FORM 
  2218.     VxSetVar $lgform label $lglabel
  2219.     VxSetVar $lgform text $lgtext
  2220.     VxSetVar $lgform button $chglogingrpb
  2221.     return $lgform
  2222. }
  2223. proc LoginLocaleForm {parent callbacktitle loginlocale} {
  2224.     set llform [VtForm $parent.llform \
  2225.     -topOffset 5 -CHARM_topOffset 0 \
  2226.     -marginHeight 0 -marginWidth 0 \
  2227.     -rightSide FORM -leftSide FORM ]
  2228.     set lllabel [VtLabel $llform.lllabel \
  2229.     -labelRight \
  2230.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERLOGINLCL] ]
  2231.     set lltext [VtLabel $llform.lltext \
  2232.     -label $loginlocale \
  2233.     -labelLeft \
  2234.     -columns 30 -CHARM_columns 15 \
  2235.     -shortHelpCallback SaShortHelpCB \
  2236.     -CHARM_shortHelpString \
  2237.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINLCLTXT_CH_HELP] \
  2238.     -MOTIF_shortHelpString \
  2239.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINLCLTXT_MF_HELP] ]
  2240.     set chgloginlclb [VtPushButton $llform.chgloginlclb  \
  2241.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGELOGINLCLSB] \
  2242.     -shortHelpCallback SaShortHelpCB \
  2243.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOGINLCLBTN_HELP] \
  2244.     -callback "DoChangeLocaleCB {$callbacktitle}" \
  2245.     -autoLock DoChangeLocaleCB ]
  2246.     VtSetValues $lllabel \
  2247.     -leftSide FORM -rightSide NONE \
  2248.     -topSide FORM -bottomSide FORM 
  2249.     VtSetValues $lltext \
  2250.     -leftSide $lllabel -leftOffset 5 -CHARM_leftOffset 1 \
  2251.     -rightSide NONE \
  2252.     -topSide FORM -bottomSide FORM 
  2253.     VtSetValues $chgloginlclb \
  2254.     -leftSide $lltext -leftOffset 20 -CHARM_leftOffset 3 \
  2255.     -rightSide NONE \
  2256.     -topSide FORM 
  2257.     VxSetVar $llform label $lllabel
  2258.     VxSetVar $llform text $lltext
  2259.     VxSetVar $llform button $chgloginlclb
  2260.     return $llform
  2261. }
  2262. proc stripPath {path} {
  2263.     set pathList [split $path .]
  2264.     set nameIndex [expr "[llength $pathList] - 1"]
  2265.     set name [lindex $pathList $nameIndex]
  2266.     return $name
  2267. }
  2268. proc DisplayNotice {errStack} {
  2269.     global uData
  2270.     set parent $uData(mainscreen)
  2271.     set topErrorText [BmipResponseErrorText errStack]
  2272.     set eventnoticebox [VtMessageDialog $parent.eventnoticebox \
  2273.     -ok \
  2274.     -message $topErrorText]
  2275.     VtShow $eventnoticebox
  2276. }
  2277. proc DisplayWarning {errStack} {
  2278.     global uData
  2279.     set parent $uData(mainscreen)
  2280.     set topErrorText [BmipResponseErrorText errStack]
  2281.     set eventwarningbox [VtWarningDialog $parent.eventwarningbox \
  2282.     -ok \
  2283.     -message $topErrorText]
  2284.     VtShow $eventwarningbox
  2285. }
  2286. proc MiscSetFocusNextCB {cbs} {
  2287.     set widget [keylget cbs widget]
  2288.     set mode [keylget cbs mode]
  2289.     if {$mode == "done"} {
  2290.     if {[catch \
  2291.         {VxGetVar $widget nextwidget} nextwidget] == 0} {
  2292.         if {[catch \
  2293.         {VxGetVar $nextwidget checkbeforefocus} checkbeforefocus] == 0} {
  2294.         set buttonstate [VtGetValues $nextwidget -value]
  2295.         if {$buttonstate == 0} {
  2296.             VtSetFocus [VxGetVar $nextwidget text]
  2297.         } else {
  2298.             VtSetFocus $nextwidget
  2299.         }
  2300.         } else {
  2301.         VtSetFocus $nextwidget
  2302.         }
  2303.     }
  2304.     }
  2305. }
  2306. proc ViewUsersCB {cbs} {
  2307.     global uData
  2308.     set uData(listView) "users"
  2309.     SetUserSensitivity
  2310.     UpdateMainList
  2311.     SaStatusBarClear $uData(statusbar)
  2312. }
  2313. proc ViewGroupsCB {cbs} {
  2314.     global uData
  2315.     set uData(listView) "groups"
  2316.     SetGroupSensitivity
  2317.     UpdateMainList
  2318.     SaStatusBarClear $uData(statusbar)
  2319. }
  2320. proc SetCopyUserSensitivity {} {
  2321.     global uData
  2322.     global users
  2323.     set id [keylget users($uData(userSelected)) id]
  2324.     set ucopyb [VxGetVar $uData(mainscreen) ucopyb]
  2325.     if {$id < 100} {
  2326.     VtSetSensitive $ucopyb 0
  2327.     SaToolbarButtonSetSensitive copyuser 0
  2328.     } else {
  2329.     VtSetSensitive $ucopyb 1
  2330.     SaToolbarButtonSetSensitive copyuser 1
  2331.     }
  2332. }
  2333. proc SetUserSensitivity {} {
  2334.     global uData
  2335.     SetCopyUserSensitivity
  2336.     VtSetSensitive [VxGetVar $uData(mainscreen) viewub] 0
  2337.     VtSetSensitive [VxGetVar $uData(mainscreen) viewgb] 1
  2338.     VtSetSensitive [VxGetVar $uData(mainscreen) umodifyb] 1
  2339.     VtSetSensitive [VxGetVar $uData(mainscreen) udeleteb] 1
  2340.     VtSetSensitive [VxGetVar $uData(mainscreen) uretireb] 1
  2341.     VtSetSensitive [VxGetVar $uData(mainscreen) uchangepwb] 1
  2342.     VtSetSensitive [VxGetVar $uData(mainscreen) uauthsb] 1
  2343.     VtSetSensitive [VxGetVar $uData(mainscreen) urhostsb] 1
  2344.     VtSetSensitive [VxGetVar $uData(mainscreen) gmodifyb] 0
  2345.     VtSetSensitive [VxGetVar $uData(mainscreen) gdeleteb] 0
  2346.     if [VtInfo -charm] {
  2347.     VtSetValues $uData(hostlabel) \
  2348.         -label [format " %s" [IntlLocalizeMsg \
  2349.         SCO_ACCOUNTGUI_MSG_UMNLISTTITLE $uData(fulldomain)]]
  2350.     } else {
  2351.     VtSetValues $uData(hostlabel) \
  2352.         -label [IntlLocalizeMsg \
  2353.         SCO_ACCOUNTGUI_MSG_UMNLISTTITLE $uData(fulldomain)]
  2354.     }
  2355. }
  2356. proc SetGroupSensitivity {} {
  2357.     global uData
  2358.     global uData
  2359.     VtSetSensitive [VxGetVar $uData(mainscreen) viewub] 1
  2360.     VtSetSensitive [VxGetVar $uData(mainscreen) viewgb] 0
  2361.     VtSetSensitive [VxGetVar $uData(mainscreen) umodifyb] 0
  2362.     VtSetSensitive [VxGetVar $uData(mainscreen) udeleteb] 0
  2363.     VtSetSensitive [VxGetVar $uData(mainscreen) uretireb] 0
  2364.     VtSetSensitive [VxGetVar $uData(mainscreen) uchangepwb] 0
  2365.     VtSetSensitive [VxGetVar $uData(mainscreen) upwexpb] 0
  2366.     VtSetSensitive [VxGetVar $uData(mainscreen) uauthsb] 0
  2367.     VtSetSensitive [VxGetVar $uData(mainscreen) urhostsb] 0
  2368.     VtSetSensitive [VxGetVar $uData(mainscreen) gmodifyb] 1
  2369.     VtSetSensitive [VxGetVar $uData(mainscreen) gdeleteb] 1
  2370.     if [VtInfo -charm] {
  2371.     VtSetValues $uData(hostlabel) \
  2372.         -label [format " %s" [IntlLocalizeMsg \
  2373.         SCO_ACCOUNTGUI_MSG_GMNLISTTITLE $uData(fulldomain)]]
  2374.     } else {
  2375.     VtSetValues $uData(hostlabel) \
  2376.         -label [IntlLocalizeMsg \
  2377.         SCO_ACCOUNTGUI_MSG_GMNLISTTITLE $uData(fulldomain)]
  2378.     }
  2379. }
  2380. proc ViewStatusDispCB {cbs} {
  2381.     global uData 
  2382.     set currentval [keylget cbs set]
  2383.     VtLock
  2384.     if {$currentval} {
  2385.     set uData(showIcons) 1
  2386.     if {[ErrorCatch errorStack 0 {InitUserList} dummy] != 0} {
  2387.         VtUnLock
  2388.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_LIST_UPDATE
  2389.         SaDisplayErrorStacks $uData(mainscreen).updlisterr \
  2390.              [list $errorStack] HELP
  2391.         return
  2392.     }
  2393.     } else {
  2394.     set uData(showIcons) 0
  2395.     }
  2396.     UpdateMainList
  2397.     SaStatusBarClear $uData(statusbar)
  2398.     VtUnLock
  2399. }
  2400. proc NewUserHomeDirOkCB {cbs} {
  2401.     global uData
  2402.     set dialog [keylget cbs dialog]
  2403.     set nextwidget [VxGetVar $dialog nextwidget]
  2404.     set parent_dlog [VxGetVar $dialog parent_dlog]
  2405.     set textfield [VxGetVar $dialog textfield]
  2406.     set permsform [VxGetVar $dialog permsform]
  2407.     set chomeb [VxGetVar $dialog chomeb]
  2408.     set displaytext [VxGetVar $parent_dlog homedirtext]
  2409.     set createhome [VtGetValues $chomeb -value]
  2410.     set homepath [VtGetValues $textfield -value]
  2411.     if {[lempty $homepath]} {
  2412.     VtShow [VtErrorDialog $dialog.direrror1 \
  2413.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOHDENTERED] \
  2414.         -ok ]
  2415.     VtSetFocus $textfield
  2416.     VtUnLock
  2417.     return
  2418.     }
  2419.     if {[ErrorCatch errorStack 0 \
  2420.     {DirExists $uData(hostname) $homepath} direxists] != 0} {
  2421.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  2422.     SaDisplayErrorStacks $dialog.direrror2 \
  2423.          [list $errorStack] NOHELP
  2424.     VtUnLock
  2425.     return
  2426.     }
  2427.     set basepath [file dirname $homepath]
  2428.     if {[ErrorCatch errorStack 0 \
  2429.     {DirExists $uData(hostname) $basepath} baseexists] != 0} {
  2430.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  2431.     SaDisplayErrorStacks $dialog.direrror3 \
  2432.          [list $errorStack] NOHELP
  2433.     VtUnLock
  2434.     return
  2435.     }
  2436.     if {$baseexists == 0} {
  2437.     VtShow [VtErrorDialog $dialog.direrror4 \
  2438.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOBASEPATH $basepath] \
  2439.         -ok ]
  2440.     VtSetFocus $textfield
  2441.     VtUnLock
  2442.     return
  2443.     }
  2444.     if {$direxists == 1} {
  2445.         if {$createhome == 1} {
  2446.             VtShow [VtErrorDialog $dialog.direrror6 \
  2447.                 -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_DIREXISTS] \
  2448.                 -ok ]
  2449.             VtSetFocus $textfield
  2450.             VtUnLock
  2451.             return
  2452.         }
  2453.     }
  2454.     VtSetValues $displaytext -label $homepath -columns 30 -CHARM_columns 15
  2455.     VxSetVar $parent_dlog homepath $homepath
  2456.     set newperms [PB:GetValue $permsform]
  2457.     VxSetVar $parent_dlog homeperms $newperms
  2458.     VxSetVar $parent_dlog createhome $createhome
  2459.     VtDestroyDialog $dialog
  2460.     if [VtInfo -charm] {
  2461.     VtSetFocus $nextwidget
  2462.     }
  2463.     VtUnLock
  2464. }
  2465. proc NewHomeDirSetFocus {cbs} {
  2466.     if {[keylget cbs mode mode] != 0 && $mode == "done"} {
  2467.     set dialog [keylget cbs dialog]
  2468.     set chomeb [VxGetVar $dialog chomeb]
  2469.     VtSetFocus $chomeb
  2470.     }
  2471. }
  2472. proc GetNewUserPerms {} {
  2473.     set defaultsfile /etc/default/useradd
  2474.     if { [file exists $defaultsfile] } {
  2475.         if { [catch {exec /sbin/grep HOME_MODE $defaultsfile} retVal] } {
  2476.             set perms 755
  2477.         } else {
  2478.             set perms [lindex [split $retVal "="] 1]
  2479.             if {[string length $perms] == "4" } {
  2480.                 set perms [string range $perms 1 4]
  2481.             }
  2482.         }
  2483.     } else {
  2484.         set perms 755
  2485.     }
  2486.     return $perms
  2487. }
  2488. proc NewUserHomeDirCB {cbs} {
  2489.     global uData
  2490.     set dialog [keylget cbs dialog]
  2491.     set widget [keylget cbs widget]
  2492.     set nextwidget [VxGetVar $widget nextwidget]
  2493.     set perms [GetNewUserPerms]
  2494.     set displaytext [VxGetVar $dialog homedirtext]
  2495.     set basehome [VxGetVar $dialog basehome]
  2496.     set homepath [VtGetValues $displaytext -label]
  2497.     set user [VxGetVar $dialog username]
  2498.     set hdscreen [VtFormDialog $dialog.hdscreen \
  2499.      -title [IntlLocalizeMsg \
  2500.         SCO_ACCOUNTGUI_MSG_CHGHOMEDIRTITLE [list $uData(hostname) $user]] \
  2501.     -ok -cancel -help \
  2502.     -cancelButton CANCEL \
  2503.     -okCallback NewUserHomeDirOkCB \
  2504.     -cancelCallback VxEndFormCB \
  2505.     -autoLock NewUserHomeDirOkCB ]
  2506.     VtSetValues $hdscreen -verticalSpacing 0 -horizontalSpacing 0
  2507.     set homedirform [VtForm $hdscreen.homedirform \
  2508.     -marginHeight 0 -marginWidth 0 \
  2509.     -rightSide FORM -rightOffset 5 -CHARM_rightOffset 1 \
  2510.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  2511.     -topOffset 10 -CHARM_topOffset 1]
  2512.     set homedirtextlabel [VtLabel $homedirform.homedirtextlabel \
  2513.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOMEDIRLABEL] ]
  2514.     set homedirtext [VtText $homedirform.homedirtext \
  2515.     -columns 40 -CHARM_columns 20 \
  2516.     -callback {SaSetFocus next} ]
  2517.     set permsform [DoHomeDirPermsBox $perms $hdscreen NewHomeDirSetFocus]
  2518.     VtSetValues $permsform \
  2519.     -topOffset 20 -CHARM_topOffset 1 \
  2520.     -rightSide FORM -rightOffset 5 -CHARM_rightOffset 1 \
  2521.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1
  2522.     if {$homepath == $basehome} {
  2523.     VtSetValues $homedirtext -value [format "%s/%s" $basehome $user]
  2524.     } else {
  2525.     VtSetValues $homedirtext -value $homepath
  2526.     }
  2527.     set chomeb [VtToggleButton $hdscreen.chomed \
  2528.         -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CREATEHOMEDIR] \
  2529.         -topOffset 20 -CHARM_topOffset 1 \
  2530.         -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  2531.         -callback {SaSetFocus next}]
  2532.     VtSetValues $chomeb -value 1
  2533.     VxSetVar $hdscreen parent_dlog $dialog
  2534.     VxSetVar $hdscreen textfield $homedirtext
  2535.     VxSetVar $hdscreen permsform $permsform
  2536.     VxSetVar $hdscreen chomeb $chomeb
  2537.     set okbutton [VtGetValues $hdscreen -ok]
  2538.     set focusList [list \
  2539.     $homedirtext \
  2540.     $permsform \
  2541.         $chomeb \
  2542.     $okbutton ]
  2543.     VxSetVar $hdscreen focusList $focusList
  2544.     VxSetVar $hdscreen nextwidget $nextwidget
  2545.     VtShow $hdscreen 
  2546.     VtUnLock 
  2547. }
  2548. proc NewUserErrorOkCB {cbs} {
  2549.     set errdlog [keylget cbs dialog]
  2550.     set parent [VxGetVar $errdlog parent]
  2551.     set username [VxGetVar $parent username]
  2552.     AddUserToList $username
  2553.     VtDestroyDialog $errdlog 
  2554.     VtDestroyDialog $parent
  2555.     VtUnLock
  2556. }
  2557. proc NewUserCancelCB {cbs} {
  2558.     set dialog [keylget cbs dialog]
  2559.     set userexists [VxGetVar $dialog userexists]
  2560.     if {$userexists == 0} {
  2561.     VtDestroyDialog $dialog
  2562.     } else { 
  2563.     set errdialog [VtErrorDialog $dialog.halfuser \
  2564.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_HALFUSER1] \
  2565.         -ok -okCallback NewUserErrorOkCB -autoLock NewUserErrorOkCB \
  2566.         -autoHide 0 -autoDestroy 0]
  2567.     VxSetVar $errdialog parent $dialog
  2568.     VtShow $errdialog
  2569.     }
  2570.     VtUnLock
  2571. }
  2572. proc NewUserOkCB {cbs} {
  2573.     global uData
  2574.     set dialog [keylget cbs dialog]
  2575.     set namelabel [VxGetVar $dialog namelabel]
  2576.     set nametext [VxGetVar $dialog nametext]
  2577.     set idlabel [VxGetVar $dialog idlabel]
  2578.     set idtext [VxGetVar $dialog idtext]
  2579.     set pwbox [VxGetVar $dialog pwbox]
  2580.     set lshbutton [VxGetVar $dialog loginshbutton]
  2581.     set hdbutton [VxGetVar $dialog homedirbutton]
  2582.     set lgbutton [VxGetVar $dialog logingrpbutton]
  2583.     set llbutton [VxGetVar $dialog loginlclbutton]
  2584.     set username [VtGetValues $nametext -value]
  2585.     set userid [VtGetValues $idtext -value]
  2586.     set comment [VtGetValues [VxGetVar $dialog commenttext] -value]
  2587.     set netware [VtGetValues [VxGetVar $dialog netwaretext] -value]
  2588.     set passwdset [stripPath [VtGetValues $pwbox -value]]
  2589.     set loginshell [VxGetVar $dialog loginshell]
  2590.     set distrib [VxGetVar $dialog distrib]
  2591.     set asudistrib [VxGetVar $dialog asudistrib]
  2592.     set homepath [VxGetVar $dialog homepath]
  2593.     set homeperms [VxGetVar $dialog homeperms]
  2594.     set logingroup [VxGetVar $dialog logingroup]
  2595.     set groups [VxGetVar $dialog groups]
  2596.     set createhome [VxGetVar $dialog createhome]
  2597.     set populate [VxGetVar $dialog populate]
  2598.     set llocale [VxGetVar $dialog loginlocale]
  2599.     set skeldir [VxGetVar $dialog skeldir]
  2600.     set statusbar [VxGetVar $dialog statusbar]
  2601.     set userexists [VxGetVar $dialog userexists]
  2602.     if {$userexists == 0} {
  2603.     if {([lempty $username])} { 
  2604.         VtShow [VtErrorDialog $dialog.usererr1 \
  2605.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NEWUNAME] \
  2606.         -ok ]
  2607.         VtSetFocus $nametext
  2608.         VtUnLock
  2609.         return
  2610.     }
  2611.     if {([lempty $userid])} { 
  2612.         VtShow [VtErrorDialog $dialog.usererr2 \
  2613.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NEWUID] \
  2614.         -ok ]
  2615.         VtSetFocus $idtext
  2616.         VtUnLock
  2617.         return
  2618.     }
  2619.     if {[ctype digit $userid] != 1} {
  2620.         VtShow [VtErrorDialog $dialog.usererr3 \
  2621.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_BADUID1] \
  2622.         -ok ]
  2623.         VtSetFocus $idtext
  2624.         VtUnLock
  2625.         return
  2626.     }
  2627.     if {[ErrorCatch errorStack 0 \
  2628.         {ValidateUserName $uData(hostname) $username} dummyvar] != 0} {
  2629.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_BADUSERNAME
  2630.         SaDisplayErrorStacks $dialog.usererr4 \
  2631.              [list $errorStack] NOHELP
  2632.         VtSetFocus $nametext
  2633.         VtUnLock
  2634.         return
  2635.     }
  2636.     if {[ErrorCatch errorStack 0 \
  2637.         {DirExists $uData(hostname) $homepath} direxists] != 0} {
  2638.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  2639.         SaDisplayErrorStacks $dialog.direrr1 \
  2640.              [list $errorStack] NOHELP
  2641.         VtUnLock
  2642.         return
  2643.     }
  2644.     set basepath [file dirname $homepath]
  2645.     if {[ErrorCatch errorStack 0 \
  2646.         {DirExists $uData(hostname) $basepath} baseexists] != 0} {
  2647.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  2648.         SaDisplayErrorStacks $dialog.direrr2 \
  2649.              [list $errorStack] NOHELP
  2650.         VtUnLock
  2651.         return
  2652.     }
  2653.     if {$baseexists == 0} {
  2654.         VtShow [VtErrorDialog $dialog.direrr3 \
  2655.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOBASEPATH $basepath] \
  2656.         -ok ]
  2657.         VtSetFocus $hdbutton
  2658.         VtUnLock
  2659.         return
  2660.     }
  2661.         if {$direxists == 0} {
  2662.             if {$populate == 1 && $createhome == 0} {
  2663.                 VtShow [VtErrorDialog $dialog.direrr4 \
  2664.                     -message [IntlLocalizeMsg \
  2665.                             SCO_ACCOUNTGUI_ERR_NOPOPULATE $homepath] \
  2666.                     -ok ]
  2667.                 VtSetFocus $hdbutton
  2668.                 VtUnLock
  2669.                 return
  2670.             }
  2671.         } else {
  2672.             if {$createhome == 1} {
  2673.                 VtShow [VtErrorDialog $dialog.direrr6 \
  2674.                     -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_DIREXISTS] \
  2675.                     -ok ]
  2676.                 VtSetFocus $hdbutton
  2677.                 VtUnLock
  2678.                 return
  2679.             }
  2680.         }
  2681.     keylset newuser name $username
  2682.     keylset newuser id $userid
  2683.     keylset newuser comment $comment
  2684.     keylset newuser netware $netware
  2685.     keylset newuser pw_shell $loginshell
  2686.     keylset newuser distribval $distrib
  2687.     keylset newuser asudistribval $asudistrib
  2688.     keylset newuser pw_dir $homepath
  2689.     keylset newuser mode $homeperms
  2690.     if {![lempty $skeldir]} {
  2691.             keylset newuser createhome $skeldir
  2692.     } else {
  2693.             keylset newuser createhome $createhome
  2694.     }
  2695.     keylset newuser populate $populate
  2696.     keylset newuser logingroup $logingroup
  2697.     keylset newuser grouplist $groups
  2698.     keylset newuser lang $llocale
  2699.     if {($passwdset == "setnowb")} {
  2700.         SetPassword $dialog $username $newuser
  2701.     } else {
  2702.         keylset newuser password "*"
  2703.         SaStatusBarSet $statusbar \
  2704.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDUSER_STAT]
  2705.         if {![lempty $uData(groupList)]} {
  2706.             set ret 0
  2707.         SaMachGroupProc $uData(hostname) $uData(groupList) \
  2708.             $uData(errorPrompt) [list CreateUser $newuser] \
  2709.             $uData(mainscreen) [list $cbs]
  2710.         } else {
  2711.             set ret [CreateUser $uData(hostname) errorStack $newuser]
  2712.         }
  2713.         if {$ret != 0} {
  2714.         SaStatusBarClear $statusbar
  2715.         ErrorPush errorStack 0 \
  2716.             SCO_ACCOUNTGUI_ERR_FAILED_USERCREATE $username
  2717.         SaDisplayErrorStacks $dialog.usercreateerr \
  2718.              [list $errorStack] HELP
  2719.         VtUnLock
  2720.         return
  2721.         } else {
  2722.         VxSetVar $dialog userexists 1
  2723.         SaStatusBarSet $statusbar \
  2724.             [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAKEHOME_STAT]
  2725.         AddUserToList $username
  2726.         VtDestroyDialog $dialog
  2727.         SaStatusBarClear $uData(statusbar)
  2728.         VtUnLock
  2729.         return
  2730.         }
  2731.     }
  2732.     } else {
  2733.     keylset newuser name $username
  2734.     keylset newuser pw_dir $homepath
  2735.     keylset newuser mode $homeperms
  2736.         keylset newuser createhome $createhome
  2737.     keylset newuser populate $populate
  2738.     SaStatusBarSet $statusbar \
  2739.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAKEHOME_STAT]
  2740.     if {[ErrorCatch errorStack 0 \
  2741.         {GetUserAttribs $uData(hostname) $username [list pw_dir]} userattribs] != 0} {
  2742.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_MODIFYUSERATTRIBS $username
  2743.         SaDisplayErrorStacks $dialog.modusererr \
  2744.              [list $errorStack] HELP
  2745.         VtUnLock
  2746.         return
  2747.     }
  2748.     set olddir [keylget userattribs pw_dir]
  2749.     if {$olddir != $homepath} {
  2750.         lappend attribs [list pw_dir $homepath]
  2751.         if {![lempty $uData(groupList)]} {
  2752.             set ret 0
  2753.         SaMachGroupProc $uData(hostname) $uData(groupList) \
  2754.             $uData(errorPrompt) [list SetUserAttributes \
  2755.             $username $attribs] $uData(mainscreen) [list $cbs]
  2756.         } else {
  2757.             set ret [SetUserAttributes $uData(hostname) errorStack \
  2758.             $username $attribs]
  2759.         }
  2760.         if {$ret != 0} {
  2761.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_HDRESET $username
  2762.         SaDisplayErrorStacks $dialog.modusererr \
  2763.              [list $errorStack] HELP
  2764.         VtUnLock
  2765.         return
  2766.         }
  2767.     }
  2768.     }
  2769. }
  2770. proc NewUserNameCB {cbs} {
  2771.     global uData
  2772.     set dialog [keylget cbs dialog]
  2773.     set widget [keylget cbs widget]
  2774.     set mode [keylget cbs mode]
  2775.     set currentname [keylget cbs value]
  2776.     set nextwidget [VxGetVar $widget nextwidget]
  2777.     set previous [VxGetVar $dialog username]
  2778.     set basehome [VxGetVar $dialog basehome]
  2779.     if {$mode == "done"} {
  2780.     if [lempty $currentname] {
  2781.         VtShow [VtErrorDialog $dialog.usererr1 \
  2782.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_ENTERNAME] \
  2783.         -ok]
  2784.         VtUnLock
  2785.         return
  2786.     } else {
  2787.         VtSetSensitive [VxGetVar $dialog loginshbutton] 1
  2788.         if {$uData(nisEnabled) || $uData(asuEnabled)} {
  2789.         VtSetSensitive [VxGetVar $dialog distbutton] 1
  2790.         }
  2791.         VtSetSensitive [VxGetVar $dialog homedirbutton] 1
  2792.         VtSetSensitive [VxGetVar $dialog logingrpbutton] 1
  2793.         VtSetSensitive [VxGetVar $dialog loginlclbutton] 1
  2794.         VtSetSensitive [VxGetVar $dialog pwlabel] 1
  2795.         VtSetSensitive [VxGetVar $dialog pwbox] 1
  2796.         set default $basehome
  2797.         append homepath $default "/" $currentname
  2798.         VtSetValues [VxGetVar $dialog homedirtext] -label $homepath \
  2799.             -columns 30 -CHARM_columns 15
  2800.         VxSetVar $dialog homepath $homepath
  2801.         VxSetVar $dialog username $currentname
  2802.         VtSetFocus $nextwidget
  2803.     }
  2804.     } else {
  2805.     if {$currentname == $previous} {
  2806.         VtUnLock
  2807.         return
  2808.     }
  2809.     if [lempty $currentname] {
  2810.         VtSetSensitive [VxGetVar $dialog loginshbutton] 0
  2811.         VtSetSensitive [VxGetVar $dialog distbutton] 0
  2812.         VtSetSensitive [VxGetVar $dialog homedirbutton] 0
  2813.         VtSetSensitive [VxGetVar $dialog logingrpbutton] 0
  2814.         VtSetSensitive [VxGetVar $dialog loginlclbutton] 0
  2815.         VtSetSensitive [VxGetVar $dialog pwlabel] 0
  2816.         VtSetSensitive [VxGetVar $dialog pwbox] 0
  2817.         VtSetValues [VxGetVar $dialog homedirtext] -label $basehome \
  2818.             -columns 30 -CHARM_columns 15
  2819.         VxSetVar $dialog username $currentname
  2820.     } else {
  2821.         VtSetSensitive [VxGetVar $dialog loginshbutton] 1
  2822.         if {$uData(nisEnabled) ||$uData(asuEnabled)} {
  2823.         VtSetSensitive [VxGetVar $dialog distbutton] 1
  2824.         }
  2825.         VtSetSensitive [VxGetVar $dialog homedirbutton] 1
  2826.         VtSetSensitive [VxGetVar $dialog logingrpbutton] 1
  2827.         VtSetSensitive [VxGetVar $dialog loginlclbutton] 1
  2828.         VtSetSensitive [VxGetVar $dialog pwlabel] 1
  2829.         VtSetSensitive [VxGetVar $dialog pwbox] 1
  2830.         set default $basehome
  2831.         append homepath $default "/" $currentname
  2832.         VtSetValues [VxGetVar $dialog homedirtext] -label $homepath \
  2833.             -columns 30 -CHARM_columns 15
  2834.         VxSetVar $dialog homepath $homepath
  2835.         VxSetVar $dialog username $currentname
  2836.     }
  2837.     }
  2838.     VtUnLock
  2839. }
  2840. proc NewUser {cbs defattribs} {
  2841.     global uData 
  2842.     set pdialog [keylget cbs dialog]
  2843.     set newuserscreen [VtFormDialog $pdialog.newuserscreen \
  2844.     -title [IntlLocalizeMsg \
  2845.         SCO_ACCOUNTGUI_MSG_NEWUSERTITLE $uData(hostname)] \
  2846.     -ok -cancel -help \
  2847.     -cancelButton CANCEL \
  2848.     -okCallback NewUserOkCB -cancelCallback NewUserCancelCB \
  2849.     -autoLock [list NewUserOkCB NewUserCancelCB ] ]
  2850.     set maxwidth 0
  2851.     set nametext [ VxText $newuserscreen.nameform \
  2852.     -columns 8 -CHARM_columns 9 \
  2853.     -xmArgs [list XmNmaxLength 8] \
  2854.     -shortHelpCallback SaShortHelpCB \
  2855.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERNAME_HELP] \
  2856.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERLOGIN] \
  2857.     -callback NewUserNameCB \
  2858.     -autoLock NewUserNameCB ]
  2859.     set nameform [VxGetVar $nametext "form"]
  2860.     set namelabel [VxGetVar $nametext "label"]
  2861.     set width [VtGetValues $namelabel -width]
  2862.     if {$width > $maxwidth} {
  2863.     set maxwidth $width
  2864.     }
  2865.     lappend labellist $namelabel
  2866.     lappend formlist $nameform
  2867.     set idform [VtForm $newuserscreen.idform \
  2868.     -marginHeight 0 -marginWidth 0 \
  2869.     -rightSide FORM -leftSide FORM]
  2870.     set idlabel [VtLabel $idform.idlabel \
  2871.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERID] \
  2872.     -labelRight ]
  2873.     set width [VtGetValues $idlabel -width]
  2874.     if {$width > $maxwidth} {
  2875.     set maxwidth $width
  2876.     }
  2877.     lappend labellist $idlabel
  2878.     lappend formlist $idform
  2879.     set idtext [ VtText $idform.idtext \
  2880.     -columns 5 -CHARM_columns 6 \
  2881.     -xmArgs [list XmNmaxLength 5] \
  2882.     -shortHelpCallback SaShortHelpCB \
  2883.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERID_HELP] \
  2884.     -value [keylget defattribs nextUid] \
  2885.     -callback MiscSetFocusNextCB]
  2886.     set commentform [VtForm $newuserscreen.commentform \
  2887.     -marginHeight 0 -marginWidth 0 \
  2888.     -rightSide FORM -leftSide FORM]
  2889.     set commentlabel [VtLabel $commentform.commentlabel \
  2890.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERCOMMENT] \
  2891.     -labelRight ]
  2892.     set width [VtGetValues $commentlabel -width]
  2893.     if {$width > $maxwidth} {
  2894.     set maxwidth $width
  2895.     }
  2896.     lappend labellist $commentlabel
  2897.     lappend formlist $commentform
  2898.     set commenttext [ VtText $commentform.commenttext \
  2899.     -columns 50 \
  2900.     -xmArgs [list XmNmaxLength 80] \
  2901.     -shortHelpCallback SaShortHelpCB \
  2902.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERCOMMENT_HELP] \
  2903.     -callback MiscSetFocusNextCB]
  2904.     set netwareform [VtForm $newuserscreen.netwareform \
  2905.     -marginHeight 0 -marginWidth 0 \
  2906.     -rightSide FORM -leftSide FORM]
  2907.     set netwarelabel [VtLabel $netwareform.netwarelabel \
  2908.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NETWARE] \
  2909.     -labelRight ]
  2910.     set width [VtGetValues $netwarelabel -width]
  2911.     if {$width > $maxwidth} {
  2912.     set maxwidth $width
  2913.     }
  2914.     lappend labellist $netwarelabel
  2915.     lappend formlist $netwareform
  2916.     set netwaretext [ VtText $netwareform.netwaretext \
  2917.     -columns 50 \
  2918.     -xmArgs [list XmNmaxLength 80] \
  2919.     -shortHelpCallback SaShortHelpCB \
  2920.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NETWARE_HELP] \
  2921.     -callback MiscSetFocusNextCB]
  2922.     VtSetValues $namelabel \
  2923.     -leftSide FORM -rightSide NONE \
  2924.     -topSide FORM -bottomSide FORM 
  2925.     VtSetValues $nametext \
  2926.     -leftSide $namelabel -leftOffset 5 -CHARM_leftOffset 1 \
  2927.     -rightSide NONE \
  2928.     -topSide FORM -bottomSide FORM 
  2929.     VtSetValues $idlabel \
  2930.     -leftSide FORM -rightSide NONE \
  2931.     -topSide FORM -bottomSide FORM 
  2932.     VtSetValues $idtext \
  2933.     -leftSide $idlabel -leftOffset 5 -CHARM_leftOffset 1 \
  2934.     -rightSide NONE \
  2935.     -topSide FORM -bottomSide FORM 
  2936.     VtSetValues $commentlabel \
  2937.     -leftSide FORM -rightSide NONE \
  2938.     -topSide FORM -bottomSide FORM 
  2939.     VtSetValues $commenttext \
  2940.     -leftSide $commentlabel -leftOffset 5 -CHARM_leftOffset 1 \
  2941.     -rightSide NONE \
  2942.     -topSide FORM -bottomSide FORM 
  2943.     VtSetValues $netwarelabel \
  2944.     -leftSide FORM -rightSide NONE \
  2945.     -topSide FORM -bottomSide FORM 
  2946.     VtSetValues $netwaretext \
  2947.     -leftSide $netwarelabel -leftOffset 5 -CHARM_leftOffset 1 \
  2948.     -rightSide NONE \
  2949.     -topSide FORM -bottomSide FORM 
  2950.     set pwform [VtForm $newuserscreen.pwform \
  2951.     -marginHeight 0 -marginWidth 0 \
  2952.     -rightSide FORM -leftSide FORM]
  2953.     set pwlabel [VtLabel $pwform.label \
  2954.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERPW] ]
  2955.     set width [VtGetValues $pwlabel -width]
  2956.     if {$width > $maxwidth} {
  2957.     set maxwidth $width
  2958.     }
  2959.     lappend labellist $pwlabel
  2960.     lappend formlist $pwform
  2961.     set pwframe [VtFrame $pwform.pwframe \
  2962.     -shadowType IN ]
  2963.     set pwbox [VtRadioBox $pwframe.pwbox \
  2964.     -numColumns 2 \
  2965.     -autoSelect 1 ]
  2966.     set setnowb [VtToggleButton $pwbox.setnowb \
  2967.     -shortHelpCallback SaShortHelpCB \
  2968.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SETNOW_HELP] \
  2969.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SETPWNOW] \
  2970.     -callback MiscSetFocusNextCB]
  2971.     set setlaterb [VtToggleButton $pwbox.setlaterb \
  2972.     -shortHelpCallback SaShortHelpCB \
  2973.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SETLATER_HELP] \
  2974.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SETPWLATER] \
  2975.     -callback MiscSetFocusNextCB]
  2976.     VtSetValues $pwlabel \
  2977.     -leftSide FORM -rightSide NONE \
  2978.     -topSide FORM -bottomSide FORM 
  2979.     VtSetValues $pwframe \
  2980.     -leftSide $pwlabel -leftOffset 5 -CHARM_leftOffset 1 \
  2981.     -rightSide NONE \
  2982.     -topSide FORM -bottomSide FORM 
  2983.     VtSetValues $setnowb -value 1
  2984.     set sepline [VtSeparator $newuserscreen.sepline \
  2985.     -horizontal \
  2986.     -topOffset 10 -CHARM_topOffset 0 \
  2987.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 \
  2988.     -leftSide FORM -leftOffset 10 -CHARM_leftOffset 1 ]
  2989.     set userLoginShell [keylget defattribs pw_shell]
  2990.     set title [IntlLocalizeMsg \
  2991.     SCO_ACCOUNTGUI_MSG_CHGNEWSHELLTITLE $uData(hostname)]
  2992.     set lshform [LoginShellForm $newuserscreen $title $userLoginShell]
  2993.     set lshlabel [VxGetVar $lshform label]
  2994.     set lshtext [VxGetVar $lshform text]
  2995.     set lshbutton [VxGetVar $lshform button]
  2996.     set width [VtGetValues $lshlabel -width]
  2997.     if {$width > $maxwidth} {
  2998.     set maxwidth $width
  2999.     }
  3000.     lappend labellist $lshlabel
  3001.     lappend formlist $lshform
  3002.     set distval [keylget defattribs isNISUser]
  3003.     if {$distval} {
  3004.     set userDistribution "isNISUser" 
  3005.     } else {
  3006.     set userDistribution "local" 
  3007.     }
  3008.     set distval [keylget defattribs isASUUser]
  3009.     if {$distval} {
  3010.     set asuuserDistribution "isNISUser" 
  3011.     } else {
  3012.     set asuuserDistribution "local" 
  3013.     }
  3014.     set title [IntlLocalizeMsg \
  3015.     SCO_ACCOUNTGUI_MSG_CHGUSERDISTRIBTITLE $uData(hostname)]
  3016.     set distform [DistForm $newuserscreen $title $userDistribution \
  3017.     $asuuserDistribution]
  3018.     set distlabel [VxGetVar $distform label]
  3019.     set disttext [VxGetVar $distform text]
  3020.     set distbutton [VxGetVar $distform button]
  3021.     set width [VtGetValues $distlabel -width]
  3022.     if {$width > $maxwidth} {
  3023.     set maxwidth $width
  3024.     }
  3025.     lappend labellist $distlabel
  3026.     lappend formlist $distform
  3027.     set homedirpath [keylget defattribs baseHome]
  3028.     set perms [keylget defattribs mode]
  3029.     set hdform [HomeDirForm $newuserscreen $homedirpath NewUserHomeDirCB]
  3030.     set hdlabel [VxGetVar $hdform label]
  3031.     set hdtext [VxGetVar $hdform text]
  3032.     set hdbutton [VxGetVar $hdform button]
  3033.     set width [VtGetValues $hdlabel -width]
  3034.     if {$width > $maxwidth} {
  3035.     set maxwidth $width
  3036.     }
  3037.     lappend labellist $hdlabel
  3038.     lappend formlist $hdform
  3039.     set userLoginGroup [keylget defattribs loginGroup]
  3040.     set userGroupNames [keylget defattribs groups]
  3041.     set title [IntlLocalizeMsg \
  3042.     SCO_ACCOUNTGUI_MSG_CHGNEWLGRPTITLE $uData(hostname)]
  3043.     set lgform [LoginGroupForm $newuserscreen $title $userLoginGroup]
  3044.     set lglabel [VxGetVar $lgform label]
  3045.     set lgtext [VxGetVar $lgform text]
  3046.     set lgbutton [VxGetVar $lgform button]
  3047.     set width [VtGetValues $lglabel -width]
  3048.     if {$width > $maxwidth} {
  3049.     set maxwidth $width
  3050.     }
  3051.     lappend labellist $lglabel
  3052.     lappend formlist $lgform
  3053.     set userLoginLocale [keylget defattribs lang]
  3054.     set title [IntlLocalizeMsg \
  3055.     SCO_ACCOUNTGUI_MSG_CHGNEWLLLPTITLE $uData(hostname)]
  3056.     set llform [LoginLocaleForm $newuserscreen $title $userLoginLocale]
  3057.     set lllabel [VxGetVar $llform label]
  3058.     set lltext [VxGetVar $llform text]
  3059.     set llbutton [VxGetVar $llform button]
  3060.     set width [VtGetValues $lllabel -width]
  3061.     if {$width > $maxwidth} {
  3062.     set maxwidth $width
  3063.     }
  3064.     lappend labellist $lllabel
  3065.     lappend formlist $llform
  3066.     set statusBar [SaStatusBar $newuserscreen.statusbar]
  3067.     VtSetValues $llform -bottomSide $statusBar -CHARM_bottomOffset 1
  3068.     AlignLabels $maxwidth $labellist $formlist
  3069.     if {!$uData(nisEnabled) && !$uData(asuEnabled)} {
  3070.     VtSetSensitive $disttext 0
  3071.     VtSetSensitive $distlabel 0
  3072.     VtSetSensitive $distbutton 0
  3073.     }
  3074.     VtRemoveAllTabGroups $newuserscreen
  3075.     set okbutton [VtGetValues $newuserscreen -ok]
  3076.     VtAddTabGroup $nametext
  3077.     VxSetVar $nametext nextwidget $idtext
  3078.     VtAddTabGroup $idtext
  3079.     VxSetVar $idtext nextwidget $commenttext
  3080.     VtAddTabGroup $commenttext
  3081.     VxSetVar $commenttext nextwidget $netwaretext
  3082.     VtAddTabGroup $netwaretext
  3083.     VxSetVar $netwaretext nextwidget $pwbox
  3084.     VtAddTabGroup $pwbox
  3085.     VxSetVar $setnowb nextwidget $lshtext
  3086.     VxSetVar $setlaterb nextwidget $lshtext
  3087.     VtAddTabGroup $lshtext
  3088.     VtAddTabGroup $lshbutton 
  3089.     if {$uData(nisEnabled) || $uData(asuEnabled) } {
  3090.     VtAddTabGroup $disttext
  3091.     VtAddTabGroup $distbutton 
  3092.     VxSetVar $lshtext nextwidget $disttext
  3093.     VxSetVar $lshbutton nextwidget $disttext
  3094.     VxSetVar $disttext nextwidget $hdtext
  3095.     VxSetVar $distbutton nextwidget $hdtext
  3096.     } else {
  3097.     VxSetVar $lshtext nextwidget $hdtext
  3098.     VxSetVar $lshbutton nextwidget $hdtext
  3099.     }
  3100.     VtAddTabGroup $hdtext
  3101.     VtAddTabGroup $hdbutton
  3102.     VxSetVar $hdtext nextwidget $lgtext
  3103.     VxSetVar $hdbutton nextwidget $lgtext
  3104.     VtAddTabGroup $lgtext
  3105.     VtAddTabGroup $lgbutton
  3106.     VxSetVar $lgtext nextwidget $llbutton
  3107.     VxSetVar $lgbutton nextwidget $llbutton
  3108.     VtAddTabGroup $lltext
  3109.     VtAddTabGroup $llbutton
  3110.     VxSetVar $lltext nextwidget $okbutton
  3111.     VxSetVar $llbutton nextwidget $okbutton
  3112.     VxSetVar $newuserscreen namelabel $namelabel
  3113.     VxSetVar $newuserscreen nametext $nametext
  3114.     VxSetVar $newuserscreen idlabel $idlabel
  3115.     VxSetVar $newuserscreen idtext $idtext 
  3116.     VxSetVar $newuserscreen commentlabel $commentlabel
  3117.     VxSetVar $newuserscreen commenttext $commenttext
  3118.     VxSetVar $newuserscreen netwarelabel $netwarelabel
  3119.     VxSetVar $newuserscreen netwaretext $netwaretext
  3120.     VxSetVar $newuserscreen pwlabel $pwlabel
  3121.     VxSetVar $newuserscreen pwbox $pwbox
  3122.     VxSetVar $newuserscreen loginshlabel $lshlabel
  3123.     VxSetVar $newuserscreen loginshtext $lshtext 
  3124.     VxSetVar $newuserscreen loginshbutton $lshbutton
  3125.     VxSetVar $newuserscreen distlabel $distlabel
  3126.     VxSetVar $newuserscreen disttext $disttext
  3127.     VxSetVar $newuserscreen distbutton $distbutton
  3128.     VxSetVar $newuserscreen homedirlabel $hdlabel
  3129.     VxSetVar $newuserscreen homedirtext $hdtext
  3130.     VxSetVar $newuserscreen homedirbutton $hdbutton
  3131.     VxSetVar $newuserscreen logingrplabel $lglabel
  3132.     VxSetVar $newuserscreen logingrptext $lgtext
  3133.     VxSetVar $newuserscreen logingrpbutton $lgbutton
  3134.     VxSetVar $newuserscreen loginlcllabel $lllabel
  3135.     VxSetVar $newuserscreen loginlcltext $lltext
  3136.     VxSetVar $newuserscreen loginlclbutton $llbutton
  3137.     VxSetVar $newuserscreen username ""
  3138.     VxSetVar $newuserscreen loginshell $userLoginShell 
  3139.     VxSetVar $newuserscreen distrib $userDistribution
  3140.     VxSetVar $newuserscreen asudistrib $asuuserDistribution
  3141.     VxSetVar $newuserscreen basehome [keylget defattribs baseHome]
  3142.     VxSetVar $newuserscreen homepath $homedirpath 
  3143.     VxSetVar $newuserscreen homeperms $perms 
  3144.     VxSetVar $newuserscreen logingroup $userLoginGroup
  3145.     VxSetVar $newuserscreen loginlocale $userLoginLocale
  3146.     VxSetVar $newuserscreen groups $userGroupNames 
  3147.     VxSetVar $newuserscreen createhome 1
  3148.     VxSetVar $newuserscreen populate 0
  3149.     VxSetVar $newuserscreen skeldir [keylget defattribs skelDir]
  3150.     VxSetVar $newuserscreen statusbar $statusBar
  3151.     VxSetVar $newuserscreen userexists 0
  3152.     VxSetVar $newuserscreen pwset 0
  3153.     VtSetSensitive $pwlabel 0
  3154.     VtSetSensitive $pwbox 0
  3155.     VtSetSensitive $lshbutton 0
  3156.     VtSetSensitive $distbutton 0
  3157.     VtSetSensitive $hdbutton 0
  3158.     VtSetSensitive $lgbutton 0
  3159.     VtSetSensitive $llbutton 0
  3160.     VtShow $newuserscreen
  3161.     VtSetFocus $nametext
  3162.     VtUnLock 
  3163. }
  3164. proc CopyUserCB {cbs} {
  3165.     global uData
  3166.     set attribs [list nextUid]
  3167.     if {[ErrorCatch errorStack 0 \
  3168.     {GetUserDefaults $uData(hostname) $attribs} defattrs] != 0} {
  3169.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NEWUSERDEFATTRIBS
  3170.     SaDisplayErrorStacks $uData(mainscreen).newusererr \
  3171.          [list $errorStack] HELP
  3172.     VtUnLock
  3173.     return
  3174.     }
  3175.     set attribs [list \
  3176.          pw_dir \
  3177.          pw_shell \
  3178.          isNISUser \
  3179.          isASUUser \
  3180.          mode \
  3181.          loginGroup \
  3182.          groups \
  3183.          lang]
  3184.     set user [UserSelectedName]
  3185.     if {[ErrorCatch errorStack 0 \
  3186.     {GetUserAttribs $uData(hostname) $user $attribs} attrs] != 0} {
  3187.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NEWUSERDEFATTRIBS
  3188.     SaDisplayErrorStacks $uData(mainscreen).newusererr \
  3189.          [list $errorStack] HELP
  3190.     VtUnLock
  3191.     return
  3192.     }
  3193.     set home [exec dirname [keylget attrs pw_dir]]
  3194.     keylset attrs baseHome $home
  3195.     keylset attrs skelDir [keylget attrs pw_dir]
  3196.     NewUser $cbs [concat $defattrs $attrs]
  3197. }
  3198. proc NewUserCB {cbs} {
  3199.     global uData
  3200.     set attribs [list \
  3201.          pw_shell \
  3202.          isNISUser \
  3203.          isASUUser \
  3204.          baseHome \
  3205.          mode \
  3206.          loginGroup \
  3207.          groups \
  3208.          lang \
  3209.          nextUid]
  3210.     if {[ErrorCatch errorStack 0 \
  3211.     {GetUserDefaults $uData(hostname) $attribs} defattribs] != 0} {
  3212.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NEWUSERDEFATTRIBS
  3213.     SaDisplayErrorStacks $uData(mainscreen).newusererr \
  3214.          [list $errorStack] HELP
  3215.     VtUnLock
  3216.     return
  3217.     }
  3218.     keylset defattribs skelDir {}
  3219.     NewUser $cbs $defattribs
  3220. }
  3221. proc ResetNewUserTabGroups {dialog} {
  3222.     global uData
  3223.     set namelabel [VxGetVar $dialog namelabel]
  3224.     set nametext [VxGetVar $dialog nametext]
  3225.     set idlabel [VxGetVar $dialog idlabel]
  3226.     set idtext [VxGetVar $dialog idtext]
  3227.     set commentlabel [VxGetVar $dialog commentlabel]
  3228.     set commenttext [VxGetVar $dialog commenttext]
  3229.     set netwarelabel [VxGetVar $dialog netwarelabel]
  3230.     set netwaretext [VxGetVar $dialog netwaretext]
  3231.     set pwlabel [VxGetVar $dialog pwlabel] 
  3232.     set pwbox [VxGetVar $dialog pwbox]
  3233.     set loginshlabel [VxGetVar $dialog loginshlabel]
  3234.     set loginshtext [VxGetVar $dialog loginshtext]
  3235.     set loginshbutton [VxGetVar $dialog loginshbutton]
  3236.     set distlabel [VxGetVar $dialog distlabel]
  3237.     set disttext [VxGetVar $dialog disttext]
  3238.     set distbutton [VxGetVar $dialog distbutton]
  3239.     set homedirlabel [VxGetVar $dialog homedirlabel]
  3240.     set homedirtext [VxGetVar $dialog homedirtext]
  3241.     set homedirbutton [VxGetVar $dialog homedirbutton]
  3242.     set logingrouplabel [VxGetVar $dialog logingrplabel]
  3243.     set logingrouptext [VxGetVar $dialog logingrptext]
  3244.     set logingroupbutton [VxGetVar $dialog logingrpbutton]
  3245.     VtSetSensitive $namelabel 0
  3246.     VtSetSensitive $nametext 0
  3247.     VtSetSensitive $idlabel 0
  3248.     VtSetSensitive $idtext 0
  3249.     VtSetSensitive $commentlabel 0
  3250.     VtSetSensitive $commenttext 0
  3251.     VtSetSensitive $netwarelabel 0
  3252.     VtSetSensitive $netwaretext 0
  3253.     VtSetSensitive $pwlabel 0
  3254.     VtSetSensitive $pwbox 0
  3255.     VtSetSensitive $loginshlabel 0
  3256.     VtSetSensitive $loginshtext 0
  3257.     VtSetSensitive $loginshbutton 0
  3258.     VtSetSensitive $distlabel 0
  3259.     VtSetSensitive $disttext 0
  3260.     VtSetSensitive $distbutton 0
  3261.     VtSetSensitive $logingrouplabel 0
  3262.     VtSetSensitive $logingrouptext 0
  3263.     VtSetSensitive $logingroupbutton 0
  3264.     VtSetSensitive $homedirtext 1
  3265.     VtSetSensitive $homedirbutton 1
  3266.     set focusList {}
  3267.     VtRemoveAllTabGroups $dialog
  3268.     VtAddTabGroup $homedirtext
  3269.     lappend focusList $homedirtext
  3270.     VtAddTabGroup $homedirbutton
  3271.     lappend focusList $homedirbutton
  3272.     set okbutton [VtGetValues $dialog -ok]
  3273.     lappend focusList $okbutton
  3274.     VxSetVar $dialog focusList $focusList
  3275.     VtSetFocus $homedirtext
  3276. }
  3277. proc ChangeHomeDirOkCB {cbs} {
  3278.     global uData
  3279.     set dialog [keylget cbs dialog]
  3280.     set nextwidget [VxGetVar $dialog nextwidget]
  3281.     set parent_dlog [VxGetVar $dialog parent_dlog]
  3282.     set textfield [VxGetVar $dialog textfield]
  3283.     set moveb [VxGetVar $dialog moveb]
  3284.     set oldhome [VxGetVar $dialog oldhome]
  3285.     set displaytext [VxGetVar $parent_dlog homedirtext]
  3286.     set homepath [VtGetValues $textfield -value]
  3287.     set movefiles [VtGetValues $moveb -value]
  3288.     if {[lempty $homepath]} {
  3289.     VtShow [VtErrorDialog $dialog.direrror1 \
  3290.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOHDENTERED] \
  3291.         -ok ]
  3292.     VtSetFocus $textfield
  3293.     VtUnLock
  3294.     return
  3295.     }
  3296.     if {[ErrorCatch errorStack 0 \
  3297.     {DirExists $uData(hostname) $homepath} direxists] != 0} {
  3298.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  3299.     SaDisplayErrorStacks $dialog.direrror2 \
  3300.          [list $errorStack] NOHELP
  3301.     VtUnLock
  3302.     return
  3303.     }
  3304.     set basepath [file dirname $homepath]
  3305.     if {[ErrorCatch errorStack 0 \
  3306.     {DirExists $uData(hostname) $basepath} baseexists] != 0} {
  3307.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  3308.     SaDisplayErrorStacks $dialog.direrror3 \
  3309.          [list $errorStack] NOHELP
  3310.     VtUnLock
  3311.     return
  3312.     }
  3313.     if {$oldhome != $homepath} {
  3314.     if {[ErrorCatch errorStack 0 \
  3315.         {DirExists $uData(hostname) $oldhome} oldexists] != 0} {
  3316.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  3317.         SaDisplayErrorStacks $dialog.direrror4 \
  3318.              [list $errorStack] NOHELP
  3319.         VtUnLock
  3320.         return
  3321.     }
  3322.     } else {
  3323.     set oldexists $direxists
  3324.     }
  3325.     if {$baseexists == 0} {
  3326.     VtShow [VtErrorDialog $dialog.direrror5 \
  3327.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOBASEPATH $basepath] \
  3328.         -ok ]
  3329.     VtSetFocus $textfield
  3330.     VtUnLock
  3331.     return
  3332.     }
  3333.     if {! $direxists == 0} {
  3334.         VtShow [VtErrorDialog $dialog.direrr8 \
  3335.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_DIREXISTS] \
  3336.         -ok ]
  3337.         VtSetFocus $textfield
  3338.         VtUnLock
  3339.         return
  3340.     }
  3341.     if {$movefiles == 1} {
  3342.     if {$oldexists == 0} {
  3343.         VtShow [VtErrorDialog $dialog.direrr9 \
  3344.         -message [IntlLocalizeMsg \
  3345.             SCO_ACCOUNTGUI_ERR_NOMOVEFROM $oldhome] \
  3346.         -ok ]
  3347.         VtSetFocus $moveb
  3348.         VtUnLock
  3349.         return
  3350.     }
  3351.     if {$oldhome == $homepath} {
  3352.         VtShow [VtErrorDialog $dialog.direrr0 \
  3353.         -message [IntlLocalizeMsg \
  3354.             SCO_ACCOUNTGUI_ERR_DIRSAME] \
  3355.         -ok ]
  3356.         VtSetFocus $textfield
  3357.         VtUnLock
  3358.         return
  3359.     }
  3360.     }
  3361.     VtSetValues $displaytext -label $homepath -columns 30 -CHARM_columns 15
  3362.     VxSetVar $parent_dlog homepath $homepath
  3363.     VxSetVar $parent_dlog movefiles $movefiles
  3364.     VtDestroyDialog $dialog
  3365.     if [VtInfo -charm] {
  3366.     VtSetFocus $nextwidget
  3367.     }
  3368.     VtUnLock
  3369. }
  3370. proc ChangeHomeDirCB {cbs} {
  3371.     global uData
  3372.     set dialog [keylget cbs dialog]
  3373.     set widget [keylget cbs widget]
  3374.     set nextwidget [VxGetVar $widget nextwidget]
  3375.     set movefiles [VxGetVar $dialog movefiles]
  3376.     set displaytext [VxGetVar $dialog homedirtext]
  3377.     set homepath [VtGetValues $displaytext -label]
  3378.     set oldhome [VxGetVar $dialog oldhome]
  3379.     set user [VxGetVar $dialog username]
  3380.     set hdscreen [VtFormDialog $dialog.hdscreen \
  3381.      -title [IntlLocalizeMsg \
  3382.         SCO_ACCOUNTGUI_MSG_CHGHOMEDIRTITLE [list $uData(hostname) $user]] \
  3383.     -ok -cancel -help \
  3384.     -cancelButton CANCEL \
  3385.     -okCallback ChangeHomeDirOkCB \
  3386.     -cancelCallback VxEndFormCB \
  3387.     -autoLock ChangeHomeDirOkCB ]
  3388.     VtSetValues $hdscreen -verticalSpacing 0 -horizontalSpacing 0
  3389.     set homedirform [VtForm $hdscreen.homedirform \
  3390.     -marginHeight 0 -marginWidth 0 \
  3391.     -rightSide FORM -rightOffset 5 -CHARM_rightOffset 1 \
  3392.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  3393.     -topOffset 10 -CHARM_topOffset 1]
  3394.     set homedirtextlabel [VtLabel $homedirform.homedirtextlabel \
  3395.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOMEDIRLABEL] ]
  3396.     set homedirtext [VtText $homedirform.homedirtext \
  3397.     -columns 40 -CHARM_columns 20 \
  3398.     -callback {SaSetFocus next }]
  3399.     VtSetValues $homedirtext \
  3400.     -value $homepath
  3401.     set moveb [VtToggleButton $hdscreen.moveb \
  3402.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MOVEFILES] \
  3403.     -topOffset 5 -CHARM_topOffset 0  \
  3404.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  3405.     -callback {SaSetFocus next}]
  3406.     VtSetValues $moveb -value $movefiles
  3407.     if {$oldhome == "/"} {
  3408.     VtSetSensitive $moveb 0
  3409.     }
  3410.     VxSetVar $hdscreen parent_dlog $dialog
  3411.     VxSetVar $hdscreen textfield $homedirtext
  3412.     VxSetVar $hdscreen moveb $moveb
  3413.     set okbutton [VtGetValues $hdscreen -ok] 
  3414.     set focusList [list \
  3415.     $homedirtext \
  3416.     $moveb \
  3417.     $okbutton ]
  3418.     VxSetVar $hdscreen focusList $focusList
  3419.     VxSetVar $hdscreen nextwidget $nextwidget
  3420.     VxSetVar $hdscreen oldhome $oldhome
  3421.     VtShow $hdscreen 
  3422.     VtUnLock 
  3423. }
  3424. proc ModifyUserOkCB {cbs} {
  3425.     global uData
  3426.     set dialog [keylget cbs dialog]
  3427.     set user [UserSelectedName]
  3428.     set comment [VtGetValues [VxGetVar $dialog commenttext] -value]
  3429.     set netware [VtGetValues [VxGetVar $dialog netwaretext] -value]
  3430.     set hdbutton [VxGetVar $dialog hdbutton]
  3431.     set oldloginshell [VxGetVar $dialog oldloginshell]
  3432.     set loginshell [VxGetVar $dialog loginshell]
  3433.     set distrib [VxGetVar $dialog distrib]
  3434.     set asudistrib [VxGetVar $dialog asudistrib]
  3435.     set homepath [VxGetVar $dialog homepath]
  3436.     set oldhome [VxGetVar $dialog oldhome]
  3437.     set logingroup [VxGetVar $dialog logingroup]
  3438.     set groups [VxGetVar $dialog groups]
  3439.     set movefiles [VxGetVar $dialog movefiles]
  3440.     set llocale [VxGetVar $dialog loginlocale]
  3441.     set oldlocale [VxGetVar $dialog oldlocale]
  3442.     set statusbar [VxGetVar $dialog statusbar]
  3443.     lappend attribs [list "comment" $comment]
  3444.     lappend attribs [list "netwareLoginID" $netware]
  3445.     lappend attribs [list "loginGroup" $logingroup]
  3446.     if {[lempty $groups]} {
  3447.     lappend attribs [list "groups" {}]
  3448.     } else {
  3449.     lappend attribs [list "groups" $groups]
  3450.     }
  3451.     lappend attribs [list "pw_shell" $loginshell]
  3452.     if  { $homepath != $oldhome} {
  3453.         lappend attribs [list "pw_dir" $homepath]
  3454.     }
  3455.     lappend attribs [list "moveHome" $movefiles]
  3456.     if {$distrib == "isNISUser"} {
  3457.     lappend attribs [list "isNISUser" 1]
  3458.     } else { 
  3459.     lappend attribs [list "isNISUser" 0]
  3460.     }
  3461.     if {$asudistrib == "isNISUser"} {
  3462.     lappend attribs [list "isASUUser" 1]
  3463.     } else { 
  3464.     lappend attribs [list "isASUUser" 0]
  3465.     }
  3466.     if {$oldlocale != $llocale} {
  3467.         lappend attribs [list "lang" $llocale]
  3468.     }
  3469.     if {[ErrorCatch errorStack 0 \
  3470.     {DirExists $uData(hostname) $homepath} direxists] != 0} {
  3471.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  3472.     SaDisplayErrorStacks $dialog.direrr1 \
  3473.          [list $errorStack] NOHELP
  3474.     VtUnLock
  3475.     return
  3476.     }
  3477.     set basepath [file dirname $homepath]
  3478.     if {[ErrorCatch errorStack 0 \
  3479.     {DirExists $uData(hostname) $basepath} baseexists] != 0} {
  3480.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  3481.     SaDisplayErrorStacks $dialog.direrr2 \
  3482.          [list $errorStack] NOHELP
  3483.     VtUnLock
  3484.     return
  3485.     }
  3486.     if {$oldhome != $homepath} {
  3487.     if {[ErrorCatch errorStack 0 \
  3488.         {DirExists $uData(hostname) $oldhome} oldexists] != 0} {
  3489.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  3490.         SaDisplayErrorStacks $dialog.direrr3 \
  3491.              [list $errorStack] NOHELP
  3492.         VtUnLock
  3493.         return
  3494.     }
  3495.     } else {
  3496.     set oldexists $direxists
  3497.     }
  3498.     if {$baseexists == 0} {
  3499.     VtShow [VtErrorDialog $dialog.direrr4 \
  3500.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOBASEPATH $basepath] \
  3501.         -ok ]
  3502.     VtSetFocus $hdbutton
  3503.     VtUnLock
  3504.     return
  3505.     }
  3506.     if {$movefiles == 1} {
  3507.     if {$oldexists == 0} {
  3508.         VtShow [VtErrorDialog $dialog.direrr9 \
  3509.         -message [IntlLocalizeMsg \
  3510.             SCO_ACCOUNTGUI_ERR_NOMOVEFROM $oldhome] \
  3511.         -ok ]
  3512.         VtSetFocus $hdbutton
  3513.         VtUnLock
  3514.         return
  3515.     }
  3516.     if {$oldhome == $homepath} {
  3517.         VtShow [VtErrorDialog $dialog.direrr0 \
  3518.         -message [IntlLocalizeMsg \
  3519.             SCO_ACCOUNTGUI_ERR_DIRSAME] \
  3520.         -ok ]
  3521.         VtSetFocus $hdbutton
  3522.         VtUnLock
  3523.         return
  3524.     }
  3525.     }
  3526.     SaStatusBarSet $statusbar \
  3527.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODUSER_STAT]
  3528.     if {![lempty $uData(groupList)]} {
  3529.     set ret 0
  3530.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  3531.         $uData(errorPrompt) [list SetUserAttributes $user $attribs] \
  3532.         $uData(mainscreen) [list $cbs]
  3533.     } else {
  3534.     set ret [SetUserAttributes $uData(hostname) errorStack $user $attribs]
  3535.     }
  3536.     if {$ret != 0} {
  3537.     SaStatusBarClear $statusbar
  3538.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_USERMODIFY $user
  3539.     SaDisplayErrorStacks $dialog.usermodifyerr \
  3540.          [list $errorStack] HELP
  3541.     VtUnLock
  3542.     return
  3543.     } else {
  3544.     UpdateUserInList $user
  3545.     VtDestroyDialog $dialog
  3546.     SaStatusBarClear $uData(statusbar)
  3547.     VtUnLock
  3548.     return
  3549.     }
  3550. }
  3551. proc ModifyUserCB {cbs} {
  3552.     global uData 
  3553.     set pdialog [keylget cbs dialog]
  3554.     set user [UserSelectedName]
  3555.     set attriblist [list \
  3556.             pw_uid \
  3557.             comment \
  3558.             netwareLoginID \
  3559.             pw_shell \
  3560.             isNISUser \
  3561.             isASUUser \
  3562.             pw_dir \
  3563.             loginGroup \
  3564.             lang \
  3565.             userType \
  3566.             groups]
  3567.     if {[ErrorCatch errorStack 0 \
  3568.     {GetUserAttribs $uData(hostname) $user $attriblist} userattribs] != 0} {
  3569.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_MODIFYUSERATTRIBS $user
  3570.     SaDisplayErrorStacks $uData(mainscreen).modusererr \
  3571.          [list $errorStack] HELP
  3572.     VtUnLock
  3573.     return
  3574.     }
  3575.     set moduserscreen [VtFormDialog $pdialog.moduserscreen \
  3576.     -title [IntlLocalizeMsg \
  3577.         SCO_ACCOUNTGUI_MSG_MODUSERTITLE [list $uData(hostname) $user]] \
  3578.     -ok -okCallback ModifyUserOkCB -autoLock ModifyUserOkCB \
  3579.     -cancel -cancelCallback VxEndFormCB \
  3580.     -cancelButton CANCEL \
  3581.     -help]
  3582.     set maxwidth 0
  3583.     set nameform [VtForm $moduserscreen.nameform \
  3584.     -marginHeight 0 -marginWidth 0 \
  3585.     -rightSide FORM -leftSide FORM \
  3586.     -topSide FORM -topOffset 10 -CHARM_topOffset 1]
  3587.     set namelabel [VtLabel $nameform.namelabel \
  3588.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERLOGIN] \
  3589.     -labelRight ]
  3590.     set width [VtGetValues $namelabel -width]
  3591.     if {$width > $maxwidth} {
  3592.     set maxwidth $width
  3593.     }
  3594.     lappend labellist $namelabel
  3595.     lappend formlist $nameform
  3596.     set namedata [ VtLabel $nameform.namedata \
  3597.     -label $user \
  3598.     -labelLeft ]
  3599.     set idform [VtForm $moduserscreen.idform \
  3600.     -marginHeight 0 -marginWidth 0 \
  3601.     -rightSide FORM -leftSide FORM]
  3602.     set idlabel [VtLabel $idform.idlabel \
  3603.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERID] \
  3604.     -labelRight ]
  3605.     set width [VtGetValues $idlabel -width]
  3606.     if {$width > $maxwidth} {
  3607.     set maxwidth $width
  3608.     }
  3609.     lappend labellist $idlabel
  3610.     lappend formlist $idform
  3611.     set iddata [ VtLabel $idform.iddata \
  3612.     -label [keylget userattribs pw_uid] \
  3613.     -labelLeft ]
  3614.     set userType [keylget userattribs userType]
  3615.     if {$userType == "locked"} {
  3616.     set idlock [VtLabel $idform.locked \
  3617.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ACCTLOCKED] \
  3618.     -labelLeft]
  3619.     }
  3620.     set comment [keylget userattribs comment] 
  3621.     set commentform [VtForm $moduserscreen.commentform \
  3622.     -marginHeight 0 -marginWidth 0 \
  3623.     -rightSide FORM -leftSide FORM]
  3624.     set commentlabel [VtLabel $commentform.commentlabel \
  3625.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERCOMMENT] \
  3626.     -labelRight ]
  3627.     set width [VtGetValues $commentlabel -width]
  3628.     if {$width > $maxwidth} {
  3629.     set maxwidth $width
  3630.     }
  3631.     lappend labellist $commentlabel
  3632.     lappend formlist $commentform
  3633.     set commenttext [ VtText $commentform.commenttext \
  3634.     -value $comment \
  3635.     -shortHelpCallback SaShortHelpCB \
  3636.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERCOMMENT_HELP] \
  3637.     -callback MiscSetFocusNextCB \
  3638.     -columns 50 ]
  3639.     set netware [keylget userattribs netwareLoginID] 
  3640.     set netwareform [VtForm $moduserscreen.netwareform \
  3641.     -marginHeight 0 -marginWidth 0 \
  3642.     -rightSide FORM -leftSide FORM]
  3643.     set netwarelabel [VtLabel $netwareform.netwarelabel \
  3644.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NETWARE] \
  3645.     -labelRight ]
  3646.     set width [VtGetValues $netwarelabel -width]
  3647.     if {$width > $maxwidth} {
  3648.     set maxwidth $width
  3649.     }
  3650.     lappend labellist $netwarelabel
  3651.     lappend formlist $netwareform
  3652.     set netwaretext [ VtText $netwareform.netwaretext \
  3653.     -value $netware \
  3654.     -shortHelpCallback SaShortHelpCB \
  3655.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NETWARE_HELP] \
  3656.     -callback MiscSetFocusNextCB \
  3657.     -columns 50 ]
  3658.     VtSetValues $namelabel \
  3659.     -leftSide FORM -rightSide NONE \
  3660.     -topSide FORM -bottomSide FORM 
  3661.     VtSetValues $namedata \
  3662.     -leftSide $namelabel -leftOffset 5 -CHARM_leftOffset 1 \
  3663.     -rightSide NONE \
  3664.     -topSide FORM -bottomSide FORM 
  3665.     VtSetValues $idlabel \
  3666.     -leftSide FORM -rightSide NONE \
  3667.     -topSide FORM -bottomSide FORM 
  3668.     VtSetValues $iddata \
  3669.     -leftSide $idlabel -leftOffset 5 -CHARM_leftOffset 1 \
  3670.     -rightSide NONE \
  3671.     -topSide FORM -bottomSide FORM 
  3672.     if {[info exists idlock]} {
  3673.     VtSetValues $idlock \
  3674.         -leftSide $iddata -rightOffset 50 -CHARM_rightOffset 10 \
  3675.         -rightSide NONE \
  3676.         -topSide FORM -bottomSide FORM 
  3677.     }
  3678.     VtSetValues $commentlabel \
  3679.     -leftSide FORM -rightSide NONE \
  3680.     -topSide FORM -bottomSide FORM 
  3681.     VtSetValues $commenttext \
  3682.     -leftSide $commentlabel -leftOffset 5 -CHARM_leftOffset 1 \
  3683.     -rightSide NONE \
  3684.     -topSide FORM -bottomSide FORM 
  3685.     VtSetValues $netwarelabel \
  3686.     -leftSide FORM -rightSide NONE \
  3687.     -topSide FORM -bottomSide FORM 
  3688.     VtSetValues $netwaretext \
  3689.     -leftSide $netwarelabel -leftOffset 5 -CHARM_leftOffset 1 \
  3690.     -rightSide NONE \
  3691.     -topSide FORM -bottomSide FORM 
  3692.     set sepline [VtSeparator $moduserscreen.sepline \
  3693.     -horizontal \
  3694.     -topOffset 10 -CHARM_topOffset 0 \
  3695.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 \
  3696.     -leftSide FORM -leftOffset 10 -CHARM_leftOffset 1 ]
  3697.     set userLoginShell [keylget userattribs pw_shell]
  3698.     set title [IntlLocalizeMsg \
  3699.     SCO_ACCOUNTGUI_MSG_CHGUSERSHELLTITLE [list $uData(hostname) $user]]
  3700.     set lshform [LoginShellForm $moduserscreen $title $userLoginShell]
  3701.     set lshlabel [VxGetVar $lshform label]
  3702.     set lshtext [VxGetVar $lshform text]
  3703.     set lshbutton [VxGetVar $lshform button]
  3704.     set width [VtGetValues $lshlabel -width]
  3705.     if {$width > $maxwidth} {
  3706.     set maxwidth $width
  3707.     }
  3708.     lappend labellist $lshlabel
  3709.     lappend formlist $lshform
  3710.     set distval [keylget userattribs isNISUser]
  3711.     if {$distval} {
  3712.     set userDistribution "isNISUser"
  3713.     } else {
  3714.     set userDistribution "local"
  3715.     }
  3716.     set asudistval [keylget userattribs isASUUser]
  3717.     if {$asudistval} {
  3718.     set asuuserDistribution "isNISUser"
  3719.     } else {
  3720.     set asuuserDistribution "local"
  3721.     }
  3722.     set title [IntlLocalizeMsg \
  3723.     SCO_ACCOUNTGUI_MSG_CHGUSERDISTRIBTITLE $uData(hostname)]
  3724.     set distform [DistForm $moduserscreen $title $userDistribution \
  3725.     $asuuserDistribution]
  3726.     set distlabel [VxGetVar $distform label]
  3727.     set disttext [VxGetVar $distform text]
  3728.     set distbutton [VxGetVar $distform button]
  3729.     set width [VtGetValues $distlabel -width]
  3730.     if {$width > $maxwidth} {
  3731.     set maxwidth $width
  3732.     }
  3733.     lappend labellist $distlabel
  3734.     lappend formlist $distform
  3735.     set homedirpath [keylget userattribs pw_dir]
  3736.     set hdform [HomeDirForm $moduserscreen $homedirpath ChangeHomeDirCB]
  3737.     set hdlabel [VxGetVar $hdform label]
  3738.     set hdtext [VxGetVar $hdform text]
  3739.     set hdbutton [VxGetVar $hdform button]
  3740.     set width [VtGetValues $hdlabel -width]
  3741.     if {$width > $maxwidth} {
  3742.     set maxwidth $width
  3743.     }
  3744.     lappend labellist $hdlabel
  3745.     lappend formlist $hdform
  3746.     set userLoginGroup [keylget userattribs loginGroup]
  3747.     set userGroupNames [keylget userattribs groups]
  3748.     set title [IntlLocalizeMsg \
  3749.     SCO_ACCOUNTGUI_MSG_CHGUSERLGRPTITLE [list $uData(hostname) $user]]
  3750.     set lgform [LoginGroupForm $moduserscreen $title $userLoginGroup]
  3751.     set lglabel [VxGetVar $lgform label]
  3752.     set lgtext [VxGetVar $lgform text]
  3753.     set lgbutton [VxGetVar $lgform button]
  3754.     set width [VtGetValues $lglabel -width]
  3755.     if {$width > $maxwidth} {
  3756.     set maxwidth $width
  3757.     }
  3758.     lappend labellist $lglabel
  3759.     lappend formlist $lgform
  3760.     set userLoginLocale [keylget userattribs lang]
  3761.     set title [IntlLocalizeMsg \
  3762.         SCO_ACCOUNTGUI_MSG_CHGNEWLLLPTITLE $uData(hostname)]
  3763.     set llform [LoginLocaleForm $moduserscreen $title $userLoginLocale]
  3764.     set lllabel [VxGetVar $llform label]
  3765.     set lltext [VxGetVar $llform text]
  3766.     set llbutton [VxGetVar $llform button]
  3767.     set width [VtGetValues $lllabel -width]
  3768.     if {$width > $maxwidth} {
  3769.         set maxwidth $width
  3770.     }
  3771.     lappend labellist $lllabel
  3772.     lappend formlist $llform
  3773.     AlignLabels $maxwidth $labellist $formlist
  3774.     if {!$uData(nisEnabled) && !$uData(asuEnabled)} {
  3775.     VtSetSensitive $disttext 0
  3776.     VtSetSensitive $distlabel 0
  3777.     VtSetSensitive $distbutton 0
  3778.     }
  3779.     VtRemoveAllTabGroups $moduserscreen
  3780.     set okbutton [VtGetValues $moduserscreen -ok]
  3781.     VtAddTabGroup $commenttext
  3782.     VxSetVar $commenttext nextwidget $netwaretext
  3783.     VtAddTabGroup $netwaretext
  3784.     VxSetVar $netwaretext nextwidget $lshtext
  3785.     VtAddTabGroup $lshtext
  3786.     VtAddTabGroup $lshbutton 
  3787.     if {$uData(nisEnabled) || $uData(asuEnabled)} {
  3788.     VtAddTabGroup $disttext
  3789.     VtAddTabGroup $distbutton 
  3790.     VxSetVar $lshtext nextwidget $disttext
  3791.     VxSetVar $lshbutton nextwidget $disttext
  3792.     VxSetVar $disttext nextwidget $hdtext
  3793.     VxSetVar $distbutton nextwidget $hdtext
  3794.     } else {
  3795.     VxSetVar $lshtext nextwidget $hdtext
  3796.     VxSetVar $lshbutton nextwidget $hdtext
  3797.     }
  3798.     VtAddTabGroup $hdtext
  3799.     VtAddTabGroup $hdbutton
  3800.     VxSetVar $hdtext nextwidget $lgtext
  3801.     VxSetVar $hdbutton nextwidget $lgtext
  3802.     VtAddTabGroup $lgtext
  3803.     VtAddTabGroup $lgbutton
  3804.     VxSetVar $lgtext nextwidget $llbutton
  3805.     VxSetVar $lgbutton nextwidget $llbutton
  3806.     VtAddTabGroup $lltext
  3807.     VtAddTabGroup $llbutton
  3808.     VxSetVar $lltext nextwidget $okbutton
  3809.     VxSetVar $llbutton nextwidget $okbutton
  3810.     set statusBar [SaStatusBar $moduserscreen.statusbar]
  3811.     VtSetValues $llform -bottomSide $statusBar
  3812.     VxSetVar $moduserscreen commenttext $commenttext
  3813.     VxSetVar $moduserscreen netwaretext $netwaretext
  3814.     VxSetVar $moduserscreen loginshtext $lshtext 
  3815.     VxSetVar $moduserscreen disttext $disttext
  3816.     VxSetVar $moduserscreen homedirtext $hdtext
  3817.     VxSetVar $moduserscreen hdbutton $hdbutton
  3818.     VxSetVar $moduserscreen logingrptext $lgtext
  3819.     VxSetVar $moduserscreen loginlcllabel $lllabel
  3820.     VxSetVar $moduserscreen loginlcltext $lltext
  3821.     VxSetVar $moduserscreen loginlclbutton $llbutton
  3822.     VxSetVar $moduserscreen username $user
  3823.     VxSetVar $moduserscreen oldloginshell $userLoginShell
  3824.     VxSetVar $moduserscreen loginshell $userLoginShell 
  3825.     VxSetVar $moduserscreen distrib $userDistribution
  3826.     VxSetVar $moduserscreen asudistrib $asuuserDistribution
  3827.     VxSetVar $moduserscreen homepath $homedirpath 
  3828.     VxSetVar $moduserscreen oldhome $homedirpath
  3829.     VxSetVar $moduserscreen logingroup $userLoginGroup
  3830.     VxSetVar $moduserscreen loginlocale $userLoginLocale 
  3831.     VxSetVar $moduserscreen oldlocale $userLoginLocale 
  3832.     VxSetVar $moduserscreen groups $userGroupNames 
  3833.     VxSetVar $moduserscreen movefiles 0
  3834.     VxSetVar $moduserscreen populate 0
  3835.     VxSetVar $moduserscreen statusbar $statusBar
  3836.     VtShow $moduserscreen
  3837.     VtSetFocus $commenttext
  3838.     VtUnLock 
  3839. }
  3840. proc RemoveUserOkCB {cbs} {
  3841.     global uData
  3842.     set user [UserSelectedName]
  3843.     SaStatusBarSet $uData(statusbar) \
  3844.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELUSER_STAT]
  3845.     set ret 0
  3846.     if {![lempty $uData(groupList)]} {
  3847.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  3848.         $uData(errorPrompt) [list DeleteUser $user] \
  3849.         $uData(mainscreen) [list $cbs]
  3850.     } else {
  3851.         set ret [DeleteUser $uData(hostname) errorStack $user]
  3852.     }
  3853.     if {$ret != 0} {
  3854.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEL_FAILED $user
  3855.     SaDisplayErrorStacks $uData(mainscreen).faildelete \
  3856.          [list $errorStack] HELP
  3857.     } else {
  3858.     RemoveUserFromList $user
  3859.     }
  3860.     SaStatusBarClear $uData(statusbar)
  3861.     VtUnLock
  3862. }
  3863. proc RemoveUserCB {cbs} {
  3864.     set user [UserSelectedName]
  3865.     set dialog [keylget cbs dialog]
  3866.     RemoveUser $dialog
  3867. }
  3868. proc RemoveUser {parent} {
  3869.     global uData
  3870.     set user [UserSelectedName]
  3871.     if {[ErrorCatch errorStack 0 \
  3872.     {GetUserAttribs $uData(hostname) $user [list userType]} attrib] != 0} {
  3873.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NOUSERTYPE $user
  3874.     SaDisplayErrorStacks $uData(mainscreen).rmvusererr \
  3875.          [list $errorStack] HELP
  3876.     } else {
  3877.     if {[keylget attrib userType] == "root"} {
  3878.         VtShow [VtErrorDialog $parent.err1 \
  3879.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOROOTREMOVE] \
  3880.         -ok ]
  3881.     } else {
  3882.         VtShow [VtWarningDialog $parent.removeuser \
  3883.         -message \
  3884.             [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RMVUSERWARNING $user] \
  3885.         -ok -okCallback RemoveUserOkCB -autoLock RemoveUserOkCB \
  3886.         -cancel]
  3887.     }
  3888.     }
  3889.     VtUnLock
  3890. }
  3891. proc RetireUserOkCB {cbs} {
  3892.     global uData
  3893.     set user [UserSelectedName]
  3894.     SaStatusBarSet $uData(statusbar) \
  3895.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOCKING_STAT]
  3896.     if {![lempty $uData(groupList)]} {
  3897.     set ret 0
  3898.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  3899.         $uData(errorPrompt) [list RetireUser $user] \
  3900.         $uData(mainscreen) [list $cbs]
  3901.     } else {
  3902.     set ret [RetireUser $uData(hostname) errorStack $user]
  3903.     }
  3904.     if {$ret != 0} {
  3905.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_LOCKFAILED $user
  3906.     SaDisplayErrorStacks $uData(mainscreen).failretire \
  3907.          [list $errorStack] HELP
  3908.     } else {
  3909.     UpdateUserInList $user
  3910.     }
  3911.     SaStatusBarClear $uData(statusbar)
  3912.     VtUnLock
  3913. }
  3914. proc RetireUserCB {cbs} {
  3915.     global uData
  3916.     set user [UserSelectedName] 
  3917.     set dialog [keylget cbs dialog]
  3918.     if {[ErrorCatch errorStack 0 \
  3919.     {GetUserAttribs $uData(hostname) $user [list userType]} attrib] != 0} {
  3920.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NOUSERTYPE $user
  3921.     SaDisplayErrorStacks $uData(mainscreen).retireusererr \
  3922.          [list $errorStack] HELP
  3923.     } else {
  3924.     if {[keylget attrib userType] == "locked"} {
  3925.         VtShow [VtErrorDialog $dialog.err1 \
  3926.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_USERISLOCKED] \
  3927.         -ok ]
  3928.     } else {
  3929.         VtShow [VtWarningDialog $dialog.retireuser \
  3930.         -message \
  3931.             [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOCKWARN $user] \
  3932.         -ok -okCallback RetireUserOkCB -autoLock RetireUserOkCB \
  3933.         -cancel]
  3934.     }
  3935.     }
  3936.     VtUnLock
  3937. }
  3938. proc NewGroupOkCB {cbs} {
  3939.     global uData
  3940.     set dialog [keylget cbs dialog]
  3941.     set nametext [VxGetVar $dialog nametext]
  3942.     set gname [VtGetValues $nametext -value]
  3943.     set idtext [VxGetVar $dialog idtext]
  3944.     set gid [VtGetValues $idtext -value]
  3945.     set distrib [VxGetVar $dialog distrib]
  3946.     set twolist [VxGetVar $dialog twolist]
  3947.     set groupusers [VxGetVar $dialog groupusers]
  3948.     set statusbar [VxGetVar $dialog statusbar]
  3949.     keylset newgroup gr_name $gname
  3950.     keylset newgroup gr_gid $gid
  3951.     keylset newgroup gr_mem [SaTwoListGetItems $twolist $groupusers]
  3952.     if {$distrib == "isNISUser"} {
  3953.     keylset newgroup distribval "isNISUser"
  3954.     } else {
  3955.     keylset newgroup distribval "local"
  3956.     }
  3957.     if {[lempty $gname]} {
  3958.     VtShow [VtErrorDialog $dialog.grouperr1 \
  3959.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NEWGRPNONAME] \
  3960.         -ok ]
  3961.     VtSetFocus $nametext
  3962.     VtUnLock 
  3963.     return
  3964.     } 
  3965.     if {[lempty $gid]} {
  3966.     VtShow [VtErrorDialog $dialog.grouperr2 \
  3967.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NEWGRPNOGID] \
  3968.         -ok ]
  3969.     VtSetFocus $idtext
  3970.     VtUnLock 
  3971.     return
  3972.     }
  3973.     if {[ctype digit $gid] != 1} {
  3974.     VtShow [VtErrorDialog $dialog.grouperr3 \
  3975.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_BADGID] \
  3976.         -ok ]
  3977.     VtSetFocus $idtext
  3978.     VtUnLock 
  3979.     return
  3980.     }
  3981.     if {[ErrorCatch errorStack 0 \
  3982.     {ValidateGroupName $uData(hostname) $gname} dummyvar] != 0} {
  3983.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_BADGROUPNAME
  3984.     SaDisplayErrorStacks $dialog.grouperr4 \
  3985.          [list $errorStack] NOHELP
  3986.     VtSetFocus $nametext
  3987.     VtUnLock
  3988.     return
  3989.     }
  3990.     SaStatusBarSet $statusbar \
  3991.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDGROUP_STAT]
  3992.     if {![lempty $uData(groupList)]} {
  3993.     set ret 0
  3994.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  3995.         $uData(errorPrompt) [list CreateGroup $newgroup] \
  3996.         $uData(mainscreen) [list $cbs]
  3997.     } else {
  3998.     set ret [CreateGroup $uData(hostname) errorStack $newgroup]
  3999.     }
  4000.     if {$ret != 0} {
  4001.     SaStatusBarClear $statusbar
  4002.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_GRPCREATE $gname
  4003.     SaDisplayErrorStacks $dialog.grpcreateerr \
  4004.          [list $errorStack] HELP
  4005.     VtUnLock
  4006.     return
  4007.     } else {
  4008.     AddGroupToList $gname
  4009.     VtDestroyDialog $dialog
  4010.     SaStatusBarClear $uData(statusbar)
  4011.     }
  4012.     VtUnLock
  4013. }
  4014. proc NewGroupNameCB {cbs} {
  4015.     set dialog [keylget cbs dialog]
  4016.     set widget [keylget cbs widget]
  4017.     set mode [keylget cbs mode]
  4018.     set value [keylget cbs value]
  4019.     if {$mode == "done"} {
  4020.     if [lempty $value] {
  4021.         VtShow [VtErrorDialog $dialog.grouperror1 \
  4022.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_ENTERGROUP] \
  4023.         -ok]
  4024.     } else {
  4025.         set nextwidget [VxGetVar $widget nextwidget]
  4026.         VtSetFocus $nextwidget
  4027.     }
  4028.     }
  4029. }
  4030. proc NewGroupCB {cbs} {
  4031.     global uData users
  4032.     set pdialog [keylget cbs dialog]
  4033.     set attriblist [list \
  4034.             nextGid \
  4035.             isNISUser ]
  4036.     if {[ErrorCatch errorStack 0 \
  4037.     {GetGroupDefaults $uData(hostname) $attriblist} defattribs] != 0} {
  4038.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_NGRP_DEFLTS
  4039.     SaDisplayErrorStacks $uData(mainscreen).newgrperr \
  4040.          [list $errorStack] HELP
  4041.     VtUnLock
  4042.     return
  4043.     }
  4044.     set newgrpscreen [VtFormDialog $pdialog.newgrpscreen \
  4045.     -title [IntlLocalizeMsg \
  4046.         SCO_ACCOUNTGUI_MSG_NEWGRPTITLE $uData(hostname)] \
  4047.     -ok -cancel -help \
  4048.     -cancelButton CANCEL \
  4049.     -okCallback NewGroupOkCB \
  4050.     -cancelCallback VxEndFormCB \
  4051.     -autoLock NewGroupOkCB]
  4052.     set maxwidth 0
  4053.     set nform [VtForm $newgrpscreen.nform \
  4054.     -marginHeight 0 -marginWidth 0 \
  4055.     -rightSide FORM -leftSide FORM \
  4056.     -topOffset 5 -CHARM_topOffset 1]
  4057.     set nlabel [VtLabel $nform.nlabel \
  4058.     -labelRight \
  4059.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPNAME] ]
  4060.     set ntext [VtText $nform.ntext \
  4061.     -columns 8 -CHARM_columns 9 \
  4062.     -callback NewGroupNameCB \
  4063.     -xmArgs [list XmNmaxLength 8] \
  4064.     -shortHelpCallback SaShortHelpCB \
  4065.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPNAME_HELP] ]
  4066.     set width [VtGetValues $nlabel -width]
  4067.     if {$width > $maxwidth} {
  4068.     set maxwidth $width
  4069.     }
  4070.     lappend labellist $nlabel
  4071.     lappend formlist $nform
  4072.     set idform [VtForm $newgrpscreen.idform \
  4073.     -topOffset 5 -CHARM_topOffset 0 \
  4074.     -marginHeight 0 -marginWidth 0 \
  4075.     -rightSide FORM -leftSide FORM ]
  4076.     set idlabel [VtLabel $idform.idlabel \
  4077.     -labelRight \
  4078.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPID] ]
  4079.     set idtext [VtText $idform.idtext \
  4080.     -value [keylget defattribs nextGid] \
  4081.     -columns 5 -CHARM_columns 6 \
  4082.     -callback MiscSetFocusNextCB \
  4083.     -xmArgs [list XmNmaxLength 5] \
  4084.     -shortHelpCallback SaShortHelpCB \
  4085.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPID_HELP] ]
  4086.     set width [VtGetValues $idlabel -width]
  4087.     if {$width > $maxwidth} {
  4088.     set maxwidth $width
  4089.     }
  4090.     lappend labellist $idlabel
  4091.     lappend formlist $idform
  4092.     VtSetValues $nlabel \
  4093.     -leftSide FORM -rightSide NONE \
  4094.     -topSide FORM -bottomSide FORM 
  4095.     VtSetValues $ntext \
  4096.     -leftSide $nlabel -leftOffset 5 -CHARM_leftOffset 1 \
  4097.     -rightSide NONE \
  4098.     -topSide FORM -bottomSide FORM 
  4099.     VtSetValues $idlabel \
  4100.     -leftSide FORM -rightSide NONE \
  4101.     -topSide FORM -bottomSide FORM 
  4102.     VtSetValues $idtext \
  4103.     -leftSide $idlabel -leftOffset 5 -CHARM_leftOffset 1 \
  4104.     -rightSide NONE \
  4105.     -topSide FORM -bottomSide FORM 
  4106.     set distribval [keylget defattribs isNISUser]
  4107.     if {$distribval} {
  4108.     set groupDistribution  "isNISUser"
  4109.     } else {
  4110.     set groupDistribution  "local"
  4111.     }
  4112.     set title [IntlLocalizeMsg \
  4113.     SCO_ACCOUNTGUI_MSG_CHGGRPDISTRIBTITLE $uData(hostname)]
  4114.     set distform [DistForm $newgrpscreen $title $groupDistribution "none"]
  4115.     set distlabel [VxGetVar $distform label]
  4116.     set disttext [VxGetVar $distform text]
  4117.     set distbutton [VxGetVar $distform button]
  4118.     VtSetValues $distform \
  4119.     -topOffset 5 -CHARM_topOffset 0 \
  4120.     -marginHeight 0 -marginWidth 0 \
  4121.     -rightSide FORM -leftSide FORM
  4122.     set width [VtGetValues $distlabel -width]
  4123.     if {$width > $maxwidth} {
  4124.     set maxwidth $width
  4125.     }
  4126.     lappend labellist $distlabel
  4127.     lappend formlist $distform
  4128.     set sepline [VtSeparator $newgrpscreen.sepline \
  4129.     -topOffset 10 -CHARM_topOffset 0 \
  4130.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1\
  4131.     -leftSide FORM -leftOffset 10 -CHARM_leftOffset 1]
  4132.     set groupusers {}
  4133.     set otherusers {}
  4134.     set size [array size users]
  4135.     incr size
  4136.     loop position 1 $size {
  4137.     lappend allusers [keylget users($position) name]
  4138.     }
  4139.     set otherusers [lsort $allusers]
  4140.     set optionlist [list \
  4141.     [list -selection single] \
  4142.     [list -search both] \
  4143.     [list -rows 6]]
  4144.     set twolist [SaTwoList \
  4145.     $newgrpscreen.twolist \
  4146.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INGROUP] \
  4147.     $groupusers \
  4148.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NOTINGROUP] \
  4149.     $otherusers \
  4150.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTREMOVE] \
  4151.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTADD] \
  4152.     $optionlist]
  4153.     set offset [expr {$maxwidth + 15}]
  4154.     set charmoffset 10
  4155.     VtSetValues $twolist \
  4156.     -topOffset 10 -CHARM_topOffset 1 \
  4157.     -leftOffset $offset \
  4158.     -CHARM_leftOffset $charmoffset -CHARM_rightOffset $charmoffset
  4159.     set userlist [VxGetVar $twolist list1]
  4160.     set otherlist [VxGetVar $twolist list2]
  4161.     set usersearch [VxGetVar $twolist searchField1]
  4162.     set othersearch [VxGetVar $twolist searchField2]
  4163.     VtSetValues $userlist \
  4164.     -shortHelpCallback SaShortHelpCB \
  4165.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPULIST_HELP] 
  4166.     VtSetValues $otherlist \
  4167.     -shortHelpCallback SaShortHelpCB \
  4168.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPOLIST_HELP] 
  4169.     set statusBar [SaStatusBar $newgrpscreen.statusbar]
  4170.     VtSetValues $twolist -bottomSide $statusBar -CHARM_bottomOffset 1
  4171.     AlignLabels $maxwidth $labellist $formlist
  4172.     if {!$uData(nisEnabled)} {
  4173.     VtSetSensitive $disttext 0
  4174.     VtSetSensitive $distlabel 0
  4175.     VtSetSensitive $distbutton 0
  4176.     }
  4177.     VtRemoveAllTabGroups $newgrpscreen
  4178.     VtAddTabGroup $ntext
  4179.     VxSetVar $ntext nextwidget $idtext
  4180.     VtAddTabGroup $idtext
  4181.     if {$uData(nisEnabled)} {
  4182.     VtAddTabGroup $disttext
  4183.     VtAddTabGroup $distbutton
  4184.     VxSetVar $idtext nextwidget $disttext
  4185.     VxSetVar $disttext nextwidget $otherlist
  4186.     VxSetVar $distbutton nextwidget $otherlist
  4187.     } else {
  4188.     VxSetVar $idtext nextwidget $otherlist
  4189.     }
  4190.     VtAddTabGroup $otherlist
  4191.     VtAddTabGroup $othersearch
  4192.     VtAddTabGroup $userlist
  4193.     VtAddTabGroup $usersearch
  4194.     VxSetVar $newgrpscreen nametext $ntext
  4195.     VxSetVar $newgrpscreen idtext $idtext
  4196.     VxSetVar $newgrpscreen disttext $disttext
  4197.     VxSetVar $newgrpscreen distbutton $distbutton
  4198.     VxSetVar $newgrpscreen twolist $twolist
  4199.     VxSetVar $newgrpscreen userlist $userlist
  4200.     VxSetVar $newgrpscreen otherlist $otherlist
  4201.     VxSetVar $newgrpscreen distrib $groupDistribution
  4202.     VxSetVar $newgrpscreen asudistrib "none"
  4203.     VxSetVar $newgrpscreen groupusers 1
  4204.     VxSetVar $newgrpscreen statusbar $statusBar
  4205.     VtShow $newgrpscreen
  4206.     VtSetFocus $ntext
  4207.     VtUnLock
  4208. }
  4209. proc ModifyGroupOkCB {cbs} {
  4210.     global uData
  4211.     set dialog [keylget cbs dialog]
  4212.     set gname [GroupSelectedName]
  4213.     set distrib [VxGetVar $dialog distrib]
  4214.     set twolist [VxGetVar $dialog twolist]
  4215.     set groupusers [VxGetVar $dialog groupusers]
  4216.     set statusbar [VxGetVar $dialog statusbar]
  4217.     set gmem [SaTwoListGetItems $twolist $groupusers]
  4218.     lappend attribs [list "gr_mem" $gmem]
  4219.     if {$distrib == "isNISUser"} {
  4220.     lappend attribs [list "isNISUser" 1]
  4221.     } else {
  4222.     lappend attribs [list "isNISUser" 0]
  4223.     }
  4224.     SaStatusBarSet $statusbar \
  4225.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODGROUP_STAT]
  4226.     if {![lempty $uData(groupList)]} {
  4227.     set ret 0
  4228.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  4229.        $uData(errorPrompt) [list SetGroupAttributes $gname $attribs] \
  4230.        $uData(mainscreen) [list $cbs]
  4231.     } else {
  4232.         set ret [SetGroupAttributes $uData(hostname) errorStack $gname $attribs]
  4233.     }
  4234.     if {$ret != 0} {
  4235.     SaStatusBarClear $statusbar
  4236.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_MODGRP_SET $gname
  4237.     SaDisplayErrorStacks $dialog.modgrperr \
  4238.          [list $errorStack] HELP
  4239.     VtUnLock
  4240.     return
  4241.     } else {
  4242.     UpdateGroupInList $gname
  4243.     VtDestroyDialog $dialog
  4244.     SaStatusBarClear $uData(statusbar)
  4245.     }
  4246.     VtUnLock
  4247. }
  4248. proc ModifyGroupCB {cbs} {
  4249.     global uData users
  4250.     set pdialog [keylget cbs dialog]
  4251.     set groupname [GroupSelectedName]
  4252.     set attribs [list gr_gid isNISUser gr_mem]
  4253.     if {[ErrorCatch errorStack 0 \
  4254.     {GetGroupAttribs $uData(hostname) $groupname $attribs} glist] != 0} {
  4255.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_MODGRP_GET
  4256.     SaDisplayErrorStacks $uData(mainscreen).modgrpgeterr \
  4257.          [list $errorStack] HELP
  4258.     return
  4259.     }
  4260.     set modgrpscreen [VtFormDialog $pdialog.modgrpscreen \
  4261.     -title [IntlLocalizeMsg \
  4262.         SCO_ACCOUNTGUI_MSG_MODGRPTITLE [list $uData(hostname) $groupname]] \
  4263.     -ok -cancel -help \
  4264.     -cancelButton CANCEL \
  4265.     -okCallback ModifyGroupOkCB \
  4266.     -cancelCallback VxEndFormCB \
  4267.     -autoLock ModifyGroupOkCB ]
  4268.     set maxwidth 0
  4269.     set nform [VtForm $modgrpscreen.nform \
  4270.     -marginHeight 0 -marginWidth 0 \
  4271.     -rightSide FORM -leftSide FORM ]
  4272.     set nlabel [VtLabel $nform.nlabel \
  4273.     -labelRight \
  4274.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPNAME] ]
  4275.     set ndata [VtLabel $nform.ndata \
  4276.     -labelLeft \
  4277.     -label $groupname]
  4278.     set width [VtGetValues $nlabel -width]
  4279.     if {$width > $maxwidth} {
  4280.     set maxwidth $width
  4281.     }
  4282.     lappend labellist $nlabel
  4283.     lappend formlist $nform
  4284.     set idform [VtForm $modgrpscreen.idform \
  4285.     -topOffset 5 -CHARM_topOffset 0 \
  4286.     -marginHeight 0 -marginWidth 0 \
  4287.     -rightSide FORM -leftSide FORM ]
  4288.     set idlabel [VtLabel $idform.idlabel \
  4289.     -labelRight \
  4290.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPID] ]
  4291.     set iddata [VtLabel $idform.iddata \
  4292.     -labelLeft \
  4293.     -label [keylget glist gr_gid]]
  4294.     set width [VtGetValues $idlabel -width]
  4295.     if {$width > $maxwidth} {
  4296.     set maxwidth $width
  4297.     }
  4298.     lappend labellist $idlabel
  4299.     lappend formlist $idform
  4300.     VtSetValues $nlabel \
  4301.     -leftSide FORM -rightSide NONE \
  4302.     -topSide FORM -bottomSide FORM 
  4303.     VtSetValues $ndata \
  4304.     -leftSide $nlabel -leftOffset 5 -CHARM_leftOffset 1 \
  4305.     -rightSide NONE \
  4306.     -topSide FORM -bottomSide FORM 
  4307.     VtSetValues $idlabel \
  4308.     -leftSide FORM -rightSide NONE \
  4309.     -topSide FORM -bottomSide FORM 
  4310.     VtSetValues $iddata \
  4311.     -leftSide $idlabel -leftOffset 5 -CHARM_leftOffset 1 \
  4312.     -rightSide NONE \
  4313.     -topSide FORM -bottomSide FORM 
  4314.     set distribval [keylget glist isNISUser]
  4315.     if {$distribval} {
  4316.     set groupDistribution "isNISUser" 
  4317.     } else {
  4318.     set groupDistribution "local" 
  4319.     }
  4320.     set title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHGGRPDISTRIBTITLE \
  4321.         [list $uData(hostname) $groupname]]
  4322.     set distform [DistForm $modgrpscreen $title $groupDistribution "none"]
  4323.     set distlabel [VxGetVar $distform label]
  4324.     set disttext [VxGetVar $distform text]
  4325.     set distbutton [VxGetVar $distform button]
  4326.     VtSetValues $distform \
  4327.     -topOffset 5 -CHARM_topOffset 0 \
  4328.     -marginHeight 0 -marginWidth 0 \
  4329.     -rightSide FORM -leftSide FORM
  4330.     set width [VtGetValues $distlabel -width]
  4331.     if {$width > $maxwidth} {
  4332.     set maxwidth $width
  4333.     }
  4334.     lappend labellist $distlabel
  4335.     lappend formlist $distform
  4336.     set sepline [VtSeparator $modgrpscreen.sepline \
  4337.     -topOffset 10 -CHARM_topOffset 0 \
  4338.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 \
  4339.     -leftSide FORM -leftOffset 10 -CHARM_leftOffset 1]
  4340.     set groupusers [lsort [keylget glist gr_mem]]
  4341.     set allusers {}
  4342.     set size [array size users]
  4343.     incr size
  4344.     loop position 1 $size {
  4345.     lappend allusers [keylget users($position) name]
  4346.     }
  4347.     set otherusers {}
  4348.     if {[lempty $groupusers]} {
  4349.     set otherusers [lsort $allusers]
  4350.     } else {
  4351.     foreach item $allusers {
  4352.         if {[lsearch $groupusers $item] == -1} {
  4353.         lappend otherusers $item
  4354.         }
  4355.     }
  4356.     set allusers $otherusers
  4357.     set otherusers [lsort $allusers]
  4358.     }
  4359.     set optionlist [list \
  4360.     [list -selection single] \
  4361.     [list -search both] \
  4362.     [list -rows 6]]
  4363.     set twolist [SaTwoList \
  4364.     $modgrpscreen.twolist \
  4365.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INGROUP] \
  4366.     $groupusers \
  4367.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NOTINGROUP] \
  4368.     $otherusers \
  4369.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTREMOVE] \
  4370.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTADD] \
  4371.     $optionlist]
  4372.     set offset [expr {$maxwidth + 15}]
  4373.     set charmoffset 10
  4374.     VtSetValues $twolist \
  4375.     -topOffset 10 -CHARM_topOffset 1 \
  4376.     -leftOffset $offset \
  4377.     -CHARM_leftOffset $charmoffset -CHARM_rightOffset $charmoffset
  4378.     set userlist [VxGetVar $twolist list1]
  4379.     set otherlist [VxGetVar $twolist list2]
  4380.     set usersearch [VxGetVar $twolist searchField1]
  4381.     set othersearch [VxGetVar $twolist searchField2]
  4382.     VtSetValues $userlist \
  4383.     -shortHelpCallback SaShortHelpCB \
  4384.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPULIST_HELP] 
  4385.     VtSetValues $otherlist \
  4386.     -shortHelpCallback SaShortHelpCB \
  4387.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GRPOLIST_HELP] 
  4388.     set statusBar [SaStatusBar $modgrpscreen.statusbar]
  4389.     VtSetValues $twolist -bottomSide $statusBar -CHARM_bottomOffset 1
  4390.     if {!$uData(nisEnabled)} {
  4391.     VtSetSensitive $disttext 0
  4392.     VtSetSensitive $distlabel 0
  4393.     VtSetSensitive $distbutton 0
  4394.     }
  4395.     VtRemoveAllTabGroups $modgrpscreen
  4396.     if {$uData(nisEnabled)} {
  4397.     VtAddTabGroup $disttext
  4398.     VtAddTabGroup $distbutton
  4399.     VxSetVar $disttext nextwidget $otherlist
  4400.     VxSetVar $distbutton nextwidget $otherlist
  4401.     }
  4402.     VtAddTabGroup $otherlist
  4403.     VtAddTabGroup $othersearch
  4404.     VtAddTabGroup $userlist
  4405.     VtAddTabGroup $usersearch
  4406.     AlignLabels $maxwidth $labellist $formlist
  4407.     VxSetVar $modgrpscreen disttext $disttext
  4408.     VxSetVar $modgrpscreen twolist $twolist
  4409.     VxSetVar $modgrpscreen distrib $groupDistribution
  4410.     VxSetVar $modgrpscreen asudistrib "none"
  4411.     VxSetVar $modgrpscreen groupusers 1
  4412.     VxSetVar $modgrpscreen statusbar $statusBar
  4413.     VtShow $modgrpscreen
  4414.     VtSetFocus $otherlist
  4415.     VtUnLock
  4416. }
  4417. proc RemoveGroupOkCB {cbs} {
  4418.     global uData
  4419.     set group [GroupSelectedName]
  4420.     SaStatusBarSet $uData(statusbar) \
  4421.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELGROUP_STAT]
  4422.     if {![lempty $uData(groupList)]} {
  4423.     set ret 0
  4424.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  4425.        $uData(errorPrompt) [list DeleteGroup $group] \
  4426.        $uData(mainscreen) [list $cbs]
  4427.     } else {
  4428.     set ret [DeleteGroup $uData(hostname) errorStack $group]
  4429.     }
  4430.     if {$ret != 0} {
  4431.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_GRPDEL_FAILED $group
  4432.     SaDisplayErrorStacks $uData(mainscreen).grpdelete \
  4433.          [list $errorStack] HELP
  4434.     VtUnLock 
  4435.     return
  4436.     } else {
  4437.     RemoveGroupFromList $group
  4438.     SaStatusBarClear $uData(statusbar)
  4439.     }
  4440.     VtUnLock
  4441. }
  4442. proc RemoveGroupCB {cbs} {
  4443.     set dialog [keylget cbs dialog]
  4444.     set groupname [GroupSelectedName]
  4445.     RemoveGroup $dialog
  4446. }
  4447. proc RemoveGroup {parent} {
  4448.     set groupname [GroupSelectedName]
  4449.     VtShow [VtWarningDialog $parent.removegroup \
  4450.     -message [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RMVGRPWARN $groupname] \
  4451.     -ok -cancel \
  4452.     -okCallback RemoveGroupOkCB \
  4453.     -autoLock RemoveGroupOkCB]
  4454.     VtUnLock
  4455. }
  4456. proc PasswordExpirOkCB {cbs} {
  4457.     global uData
  4458.     global infinite Infinite INFINITE
  4459.     global never
  4460.     set dialog [keylget cbs dialog]
  4461.     set pastbtext [VxGetVar $dialog pastbtext]
  4462.     set pastbdefb [VxGetVar $dialog pastbdefb]
  4463.     set minbtext [VxGetVar $dialog minbtext]
  4464.     set minbdefb [VxGetVar $dialog minbdefb]
  4465.     set exptext [VxGetVar $dialog exptext]
  4466.     set expdefb [VxGetVar $dialog expdefb]
  4467.     set warntext [VxGetVar $dialog warntext]
  4468.     set warndefb [VxGetVar $dialog warndefb]
  4469.     set inactivetext [VxGetVar $dialog inactivetext]
  4470.     set inactivedefb [VxGetVar $dialog inactivedefb]
  4471.     set statusbar [VxGetVar $dialog statusbar]
  4472.     set user [UserSelectedName]
  4473.     set pastbvalue [string tolower [VtGetValues $pastbtext -value ]]
  4474.     set minbvalue [string tolower [VtGetValues $minbtext -value ]]
  4475.     set expvalue [string tolower [VtGetValues $exptext -value ]]
  4476.     set warnvalue [string tolower [VtGetValues $warntext -value ]]
  4477.     set inactivevalue [string tolower [VtGetValues $inactivetext -value ]]
  4478.     if {[lempty $minbvalue] || [lempty $expvalue] || [lempty $warnvalue]} {
  4479.     VtShow [VtErrorDialog $dialog.pwerrbox \
  4480.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWVALUEMISSING1] \
  4481.         -ok]
  4482.     VtUnLock
  4483.     return
  4484.     } 
  4485.     if {[lempty $pastbvalue] || [lempty $inactivevalue]} {
  4486.     VtShow [VtErrorDialog $dialog.pwerrbox \
  4487.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWVALUEMISSING1] \
  4488.         -ok]
  4489.     VtUnLock
  4490.     return
  4491.     } 
  4492.     if {[catch {convertclock $pastbvalue}] != 0 && $pastbvalue != $never} {
  4493.     VtShow [VtErrorDialog $dialog.pwerrbox2 \
  4494.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_ACCEXPIRERR] \
  4495.         -ok]
  4496.     VtUnLock
  4497.     return
  4498.     } 
  4499.     if {[ctype digit $minbvalue] != 1 } {
  4500.     VtShow [VtErrorDialog $dialog.pwerrbox1 \
  4501.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_MINBTWCHG] \
  4502.         -ok]
  4503.     VtUnLock
  4504.     return
  4505.     } 
  4506.     if {[ctype digit $expvalue] != 1 && $expvalue != $infinite} {
  4507.     VtShow [VtErrorDialog $dialog.pwerrbox1 \
  4508.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWEXPIRERR] \
  4509.         -ok]
  4510.     VtUnLock
  4511.     return
  4512.     } 
  4513.     if {[ctype digit $warnvalue] != 1} {
  4514.     VtShow [VtErrorDialog $dialog.pwerrbox3 \
  4515.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWWARNERR] \
  4516.         -ok]
  4517.     VtUnLock
  4518.     return
  4519.     } 
  4520.     if {[ctype digit $inactivevalue] != 1 && $inactivevalue != $infinite} {
  4521.     VtShow [VtErrorDialog $dialog.pwerrbox3 \
  4522.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_INACTIVERR] \
  4523.         -ok]
  4524.     VtUnLock
  4525.     return
  4526.     } 
  4527.     set pastb_use_default [VtGetValues $pastbdefb -value ]
  4528.     if {$pastb_use_default == 1} {
  4529.     lappend attribs [list "passwd_expiration_date" "SET_TO_DEFAULT"]
  4530.     } else {
  4531.     lappend attribs [list "passwd_expiration_date" $pastbvalue]
  4532.     }
  4533.     set minb_use_default [VtGetValues $minbdefb -value ]
  4534.     lappend attribs [list "passwd_min_change_time" $minbvalue]
  4535.     set exp_use_default [VtGetValues $expdefb -value ]
  4536.     lappend attribs [list "account_lifetime" $expvalue]
  4537.     set warntime_use_default [VtGetValues $warndefb -value ]
  4538.     lappend attribs [list "account_warn_time" $warnvalue]
  4539.     set inactivetime_use_default [VtGetValues $inactivedefb -value ]
  4540.     if {$inactivetime_use_default == 1} {
  4541.     lappend attribs [list "account_inactive_time" "SET_TO_DEFAULT"]
  4542.     } else {
  4543.     lappend attribs [list "account_inactive_time" $inactivevalue]
  4544.     }
  4545.     SaStatusBarSet $statusbar \
  4546.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWEXPIRE_STAT]
  4547.     if {![lempty $uData(groupList)]} {
  4548.     set ret 0
  4549.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  4550.         $uData(errorPrompt) [list SetUserAttributes $user $attribs] \
  4551.         $uData(mainscreen) [list $cbs]
  4552.     } else {
  4553.     set ret [SetUserAttributes $uData(hostname) errorStack $user $attribs]
  4554.     }
  4555.     if {$ret != 0} {
  4556.     SaStatusBarClear $statusbar
  4557.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_PWEXP_SET_FAIL $user
  4558.     SaDisplayErrorStacks $dialog.pwexpirefail \
  4559.          [list $errorStack] HELP
  4560.     VtUnLock
  4561.     return
  4562.     } else {
  4563.     UpdateUserInList $user
  4564.     VtDestroyDialog $dialog
  4565.     SaStatusBarClear $uData(statusbar)
  4566.     }
  4567.     VtUnLock
  4568. }
  4569. proc PasswordExpirationCB {cbs} {
  4570.     global uData
  4571.     global Infinite infinite
  4572.     global Never
  4573.     set pdialog [keylget cbs dialog]
  4574.     set user [UserSelectedName]
  4575.     set attriblist [list passwd_successful_change_date \
  4576.              passwd_min_change_time \
  4577.              passwd_expiration_date \
  4578.              account_inactive_time \
  4579.              account_lifetime \
  4580.              account_warn_time ]
  4581.     set defattrlist [list passwd_min_change_time \
  4582.              passwd_expiration_date \
  4583.              account_inactive_time \
  4584.                  account_lifetime \
  4585.                  account_warn_time]
  4586.     if {[ErrorCatch errorStack 0 \
  4587.     {GetUserAttribs $uData(hostname) $user $attriblist} userattribs] != 0} {
  4588.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_PWEXP_GET $user
  4589.     SaDisplayErrorStacks $uData(mainscreen).pwexperr \
  4590.          [list $errorStack] HELP
  4591.     VtUnLock
  4592.     return
  4593.     }
  4594.     if {[ErrorCatch errorStack 0 \
  4595.     {GetUserDefaults $uData(hostname) $defattrlist} defattribs] != 0} {
  4596.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_PWEXP_DEFLTS
  4597.     SaDisplayErrorStacks $uData(mainscreen).pwexperr \
  4598.          [list $errorStack] HELP
  4599.     VtUnLock
  4600.     return
  4601.     }
  4602.     if [VtInfo -charm] {
  4603.     set offset 0
  4604.     } else {
  4605.     set offset 10
  4606.     }
  4607.     set upwexpscreen [VtFormDialog $pdialog.upwexpscreen \
  4608.      -title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWEXPIRETITLE [list $uData(hostname) $user]] \
  4609.     -ok -cancel -help \
  4610.     -cancelButton CANCEL \
  4611.     -okCallback PasswordExpirOkCB \
  4612.     -cancelCallback VxEndFormCB \
  4613.     -autoLock PasswordExpirOkCB ]
  4614.     set cform [VtForm $upwexpscreen.cform \
  4615.     -marginHeight 0 -marginWidth 0 \
  4616.     -rightSide FORM -leftSide FORM \
  4617.     -topOffset 10 -CHARM_topOffset 1]
  4618.     set changelabel [VtLabel $cform.changelabel \
  4619.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SUCCESSCHG] \
  4620.     -labelRight \
  4621.     -leftSide FORM -rightSide NONE \
  4622.     -topSide FORM -bottomSide FORM ]
  4623.     set maxwidth [VtGetValues $changelabel -width]
  4624.     set time [keylget userattribs passwd_successful_change_date] 
  4625.     if {[lempty $time] || $time == 0} {
  4626.     set time $Never
  4627.     } else {
  4628.     set time [fmtclock $time "%a %b %d %Z %Y"]
  4629.     }
  4630.     set changestatus [VtLabel $cform.changestatus \
  4631.     -label $time \
  4632.     -font monoNormalFont \
  4633.     -labelLeft \
  4634.     -leftSide $changelabel -leftOffset 10 -CHARM_leftOffset 1 \
  4635.     -rightSide FORM \
  4636.     -topSide FORM -bottomSide FORM ]
  4637.     lappend labellist $changelabel
  4638.     lappend formlist $cform
  4639.     set pastb_initial [keylget userattribs passwd_expiration_date] 
  4640.     set pastbform [VtForm $upwexpscreen.pastbform \
  4641.     -topOffset 10 -CHARM_topOffset 2 \
  4642.     -marginHeight 0 -marginWidth 0 \
  4643.     -rightSide FORM -leftSide FORM]
  4644.     set pastblabel [VtLabel $pastbform.pastblabel \
  4645.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NOUSEPAST] \
  4646.     -labelRight ]
  4647.     set width [VtGetValues $pastblabel -width]
  4648.     if {$width > $maxwidth} {
  4649.     set maxwidth $width
  4650.     }
  4651.     lappend labellist $pastblabel
  4652.     lappend formlist $pastbform
  4653.     if {$pastb_initial == {""} || $pastb_initial == 0} {
  4654.     set pastb_initial $Never
  4655.     } else {
  4656.     set pastb_initial [fmtclock $pastb_initial "%m/%d/%Y"]
  4657.     }
  4658.     set pastbtext [VtText $pastbform.pastbtext \
  4659.     -value $pastb_initial \
  4660.     -shortHelpCallback SaShortHelpCB \
  4661.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NOUSE_HELP] \
  4662.     -callback MiscSetFocusNextCB \
  4663.     -columns 10 -CHARM_columns 11 \
  4664.     -xmArgs [list XmNmaxLength 10] ]
  4665.     set defexp_time [keylget defattribs passwd_expiration_date] 
  4666.     if {$defexp_time == {""} || $defexp_time == 0} {
  4667.     set defexp_time $Never
  4668.     } else {
  4669.     set defexp_time [fmtclock $defexp_time "%D"]
  4670.     }
  4671.     set pastbdeflabel [ \
  4672.     IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWDEFBUTTON $defexp_time]
  4673.     set or1 [VtLabel $pastbform.or1 \
  4674.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ORSTRING] \
  4675.     -font medNormalFont \
  4676.     -labelCenter ]
  4677.     set pastbdefb [VtToggleButton $pastbform.pastbdefb \
  4678.     -label $pastbdeflabel \
  4679.     -shortHelpCallback SaShortHelpCB \
  4680.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MINBETW_HELP] \
  4681.     -callback DefaultButtonNeverCB]
  4682.     if {[IsDefaultValue $defattribs $userattribs "passwd_expiration_date"]} {
  4683.     VtSetSensitive $pastbtext 0
  4684.     VtSetValues $pastbdefb -value 1
  4685.     }
  4686.     VtSetValues $pastblabel \
  4687.     -leftSide FORM -rightSide NONE \
  4688.     -topSide FORM -bottomSide FORM
  4689.     VtSetValues $pastbtext \
  4690.     -leftSide $pastblabel -leftOffset 10 -CHARM_leftOffset 1 \
  4691.     -rightSide NONE \
  4692.     -topSide FORM -bottomSide FORM
  4693.     VtSetValues $or1 \
  4694.     -leftSide $pastbtext -leftOffset 2 -CHARM_leftOffset 1 \
  4695.     -topSide FORM -bottomSide FORM
  4696.     VtSetValues $pastbdefb \
  4697.     -leftSide $or1 -leftOffset 2 -CHARM_leftOffset 1 \
  4698.     -rightSide NONE \
  4699.     -topSide FORM -bottomSide FORM
  4700.     set inactive_initial [keylget userattribs account_inactive_time]
  4701.     if {$inactive_initial <= 0} {
  4702.     set inactivetextstring $Infinite
  4703.     } else {
  4704.     set inactivetextstring $inactive_initial
  4705.     }
  4706.     set inactiveform [VtForm $upwexpscreen.inactiveform \
  4707.     -topOffset 3 -CHARM_topOffset 0 \
  4708.     -marginHeight 0 -marginWidth 0 \
  4709.     -rightSide FORM -leftSide FORM]
  4710.     set inactivelabel [VtLabel $inactiveform.inactivelabel \
  4711.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INACTIVETIME] \
  4712.     -labelRight ]
  4713.     set width [VtGetValues $inactivelabel -width]
  4714.     if {$width > $maxwidth} {
  4715.     set maxwidth $width
  4716.     }
  4717.     lappend labellist $inactivelabel
  4718.     lappend formlist $inactiveform
  4719.     set inactivetext [VtText $inactiveform.inactivetext \
  4720.     -value $inactivetextstring \
  4721.     -shortHelpCallback SaShortHelpCB \
  4722.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_INACTIVE_HELP] \
  4723.     -callback MiscSetFocusNextCB \
  4724.     -columns 10 -CHARM_columns 11 \
  4725.     -xmArgs [list XmNmaxLength 10] ]
  4726.     set definactive [keylget defattribs account_inactive_time]
  4727.     if {$definactive == 0} {
  4728.     set definactive $Infinite 
  4729.     }
  4730.     set inactivetimelabel \
  4731.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWDEFBUTTON $definactive]
  4732.     set or3 [VtLabel $inactiveform.or3 \
  4733.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ORSTRING] \
  4734.     -font medNormalFont \
  4735.     -labelCenter ]
  4736.     set inactivedefb [VtToggleButton $inactiveform.inactivedefb \
  4737.     -label $inactivetimelabel \
  4738.     -shortHelpCallback SaShortHelpCB \
  4739.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LIFE_HELP] \
  4740.     -callback DefaultButtonInfiniteCB]
  4741.     if {[IsDefaultValue $defattribs $userattribs "account_inactive_time"]} {
  4742.     VtSetSensitive $inactivetext 0
  4743.     VtSetValues $inactivedefb -value 1
  4744.     }
  4745.     VtSetValues $inactivelabel \
  4746.     -leftSide FORM -rightSide NONE \
  4747.     -topSide FORM -bottomSide FORM
  4748.     VtSetValues $inactivetext \
  4749.     -leftSide $inactivelabel -leftOffset 10 -CHARM_leftOffset 1 \
  4750.     -rightSide NONE \
  4751.     -topSide FORM -bottomSide FORM
  4752.     VtSetValues $or3 \
  4753.     -leftSide $inactivetext -leftOffset 2 -CHARM_leftOffset 1 \
  4754.     -topSide FORM -bottomSide FORM
  4755.     VtSetValues $inactivedefb \
  4756.     -leftSide $or3 -leftOffset 2 -CHARM_leftOffset 1 \
  4757.     -rightSide NONE \
  4758.     -topSide FORM -bottomSide FORM
  4759.     VtSeparator $upwexpscreen.separator -horizontal \
  4760.     -topOffset 10 -CHARM_topOffset 0 \
  4761.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 \
  4762.     -leftSide FORM -leftOffset 10 -CHARM_leftOffset 1
  4763.     set minb_initial [keylget userattribs passwd_min_change_time] 
  4764.     if {$minb_initial == "-1"} {
  4765.     set minb_initial 0
  4766.     }
  4767.     set minbform [VtForm $upwexpscreen.minbform \
  4768.     -topOffset 5 -CHARM_topOffset 1 \
  4769.     -marginHeight 0 -marginWidth 0 \
  4770.     -rightSide FORM -leftSide FORM]
  4771.     set minblabel [VtLabel $minbform.minblabel \
  4772.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MINBETWLABEL1] \
  4773.     -labelRight ]
  4774.     set width [VtGetValues $minblabel -width]
  4775.     if {$width > $maxwidth} {
  4776.     set maxwidth $width
  4777.     }
  4778.     lappend labellist $minblabel
  4779.     lappend formlist $minbform
  4780.     set minbtext [VtText $minbform.minbtext \
  4781.     -value $minb_initial \
  4782.     -shortHelpCallback SaShortHelpCB \
  4783.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MINBETW_HELP] \
  4784.     -callback MiscSetFocusNextCB \
  4785.     -columns 10 -CHARM_columns 11 \
  4786.     -xmArgs [list XmNmaxLength 10] ]
  4787.     set defmin_time [keylget defattribs passwd_min_change_time] 
  4788.     if {[lempty $defmin_time] || $defmin_time == 0 || $defmin_time == "-1"} {
  4789.     set defmin_time 0
  4790.     }
  4791.     set minbdeflabel \
  4792.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWDEFBUTTON $defmin_time] 
  4793.     set or1 [VtLabel $minbform.or1 \
  4794.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ORSTRING] \
  4795.     -font medNormalFont \
  4796.     -labelCenter ]
  4797.     set minbdefb [VtToggleButton $minbform.minbdefb \
  4798.     -label $minbdeflabel \
  4799.     -shortHelpCallback SaShortHelpCB \
  4800.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MINBETW_HELP] \
  4801.     -callback DefaultButtonCB]
  4802.     if {[IsDefaultValue $defattribs $userattribs "passwd_min_change_time"]} {
  4803.     VtSetSensitive $minbtext 0
  4804.     VtSetValues $minbdefb -value 1
  4805.     }
  4806.     VtSetValues $minblabel \
  4807.     -leftSide FORM -rightSide NONE \
  4808.     -topSide FORM -bottomSide FORM
  4809.     VtSetValues $minbtext \
  4810.     -leftSide $minblabel -leftOffset 10 -CHARM_leftOffset 1 \
  4811.     -rightSide NONE \
  4812.     -topSide FORM -bottomSide FORM
  4813.     VtSetValues $or1 \
  4814.     -leftSide $minbtext -leftOffset 2 -CHARM_leftOffset 1 \
  4815.     -topSide FORM -bottomSide FORM
  4816.     VtSetValues $minbdefb \
  4817.     -leftSide $or1 -leftOffset 2 -CHARM_leftOffset 1 \
  4818.     -rightSide NONE \
  4819.     -topSide FORM -bottomSide FORM
  4820.     set exp_initial [keylget userattribs account_lifetime]
  4821.     if {$exp_initial == 0 || $exp_initial == "-1"} {
  4822.     set exptextstring $Infinite
  4823.     } else {
  4824.     set exptextstring $exp_initial
  4825.     }
  4826.     set expform [VtForm $upwexpscreen.expform \
  4827.     -topOffset 3 -CHARM_topOffset 0 \
  4828.     -marginHeight 0 -marginWidth 0 \
  4829.     -rightSide FORM -leftSide FORM]
  4830.     set explabel [VtLabel $expform.explabel \
  4831.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_EXPIRLABEL] \
  4832.     -labelRight ]
  4833.     set width [VtGetValues $explabel -width]
  4834.     if {$width > $maxwidth} {
  4835.     set maxwidth $width
  4836.     }
  4837.     lappend labellist $explabel
  4838.     lappend formlist $expform
  4839.     set exptext [VtText $expform.exptext \
  4840.     -value $exptextstring \
  4841.     -shortHelpCallback SaShortHelpCB \
  4842.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_EXPIRE_HELP] \
  4843.     -callback MiscSetFocusNextCB \
  4844.     -columns 10 -CHARM_columns 11 \
  4845.     -xmArgs [list XmNmaxLength 10] ]
  4846.     ###-columns 11 
  4847.     set defexp [keylget defattribs account_lifetime]
  4848.     if {$defexp == 0} {
  4849.     set defexp $Infinite 
  4850.     }
  4851.     set expdeflabel \
  4852.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWDEFBUTTON $defexp] 
  4853.     set or2 [VtLabel $expform.or2 \
  4854.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ORSTRING] \
  4855.     -font medNormalFont \
  4856.     -labelCenter ]
  4857.     set expdefb [VtToggleButton $expform.expdefb \
  4858.     -label $expdeflabel \
  4859.     -shortHelpCallback SaShortHelpCB \
  4860.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_EXPIRE_HELP] \
  4861.     -callback DefaultButtonCB]
  4862.     if {[IsDefaultValue $defattribs $userattribs "account_lifetime"]} {
  4863.     VtSetSensitive $exptext 0
  4864.     VtSetValues $expdefb -value 1
  4865.     }
  4866.     VtSetValues $explabel \
  4867.     -leftSide FORM -rightSide NONE \
  4868.     -topSide FORM -bottomSide FORM
  4869.     VtSetValues $exptext \
  4870.     -leftSide $explabel -leftOffset 10 -CHARM_leftOffset 1 \
  4871.     -rightSide NONE \
  4872.     -topSide FORM -bottomSide FORM
  4873.     VtSetValues $or2 \
  4874.     -leftSide $exptext -leftOffset 2 -CHARM_leftOffset 1 \
  4875.     -topSide FORM -bottomSide FORM
  4876.     VtSetValues $expdefb \
  4877.     -leftSide $or2 -leftOffset 2 -CHARM_leftOffset 1 \
  4878.     -rightSide NONE \
  4879.     -topSide FORM -bottomSide FORM
  4880.     set warntextstring [keylget userattribs account_warn_time]
  4881.     if {$warntextstring == "-1"} {
  4882.     set warntextstring 0
  4883.     }
  4884.     set warnform [VtForm $upwexpscreen.warnform \
  4885.     -topOffset 3 -CHARM_topOffset 0 \
  4886.     -marginHeight 0 -marginWidth 0 \
  4887.     -rightSide FORM -leftSide FORM]
  4888.     set warnlabel [VtLabel $warnform.warnlabel \
  4889.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_WARNTIME] \
  4890.     -labelRight ]
  4891.     set width [VtGetValues $warnlabel -width]
  4892.     if {$width > $maxwidth} {
  4893.     set maxwidth $width
  4894.     }
  4895.     lappend labellist $warnlabel
  4896.     lappend formlist $warnform
  4897.     set warntext [VtText $warnform.warntext \
  4898.     -value $warntextstring \
  4899.     -shortHelpCallback SaShortHelpCB \
  4900.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_WARN_HELP] \
  4901.     -callback MiscSetFocusNextCB \
  4902.     -columns 10 -CHARM_columns 11 \
  4903.     -xmArgs [list XmNmaxLength 10] ]
  4904.     set defwarn [keylget defattribs account_warn_time]
  4905.     set warntimelabel \
  4906.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWDEFBUTTON $defwarn]
  4907.     set or3 [VtLabel $warnform.or3 \
  4908.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ORSTRING] \
  4909.     -font medNormalFont \
  4910.     -labelCenter ]
  4911.     set warndefb [VtToggleButton $warnform.warndefb \
  4912.     -label $warntimelabel \
  4913.     -shortHelpCallback SaShortHelpCB \
  4914.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_WARN_HELP] \
  4915.     -callback DefaultButtonInfiniteCB]
  4916.     if {[IsDefaultValue $defattribs $userattribs "account_warn_time"]} {
  4917.     VtSetSensitive $warntext 0
  4918.     VtSetValues $warndefb -value 1
  4919.     }
  4920.     VtSetValues $warnlabel \
  4921.     -leftSide FORM -rightSide NONE \
  4922.     -topSide FORM -bottomSide FORM
  4923.     VtSetValues $warntext \
  4924.     -leftSide $warnlabel -leftOffset 10 -CHARM_leftOffset 1 \
  4925.     -rightSide NONE \
  4926.     -topSide FORM -bottomSide FORM
  4927.     VtSetValues $or3 \
  4928.     -leftSide $warntext -leftOffset 2 -CHARM_leftOffset 1 \
  4929.     -topSide FORM -bottomSide FORM
  4930.     VtSetValues $warndefb \
  4931.     -leftSide $or3 -leftOffset 2 -CHARM_leftOffset 1 \
  4932.     -rightSide NONE \
  4933.     -topSide FORM -bottomSide FORM
  4934.     set statusBar [SaStatusBar $upwexpscreen.statusbar]
  4935.     VtSetValues $warnform -bottomSide $statusBar -CHARM_bottomOffset 1
  4936.     AlignLabels $maxwidth $labellist $formlist
  4937.     set okbutton [VtGetValues $upwexpscreen -ok]
  4938.     VtRemoveAllTabGroups $upwexpscreen
  4939.     VtAddTabGroup $pastbtext
  4940.     VtAddTabGroup $pastbdefb
  4941.     VtAddTabGroup $inactivetext
  4942.     VtAddTabGroup $inactivedefb
  4943.     VtAddTabGroup $minbtext
  4944.     VtAddTabGroup $minbdefb
  4945.     VtAddTabGroup $exptext
  4946.     VtAddTabGroup $expdefb
  4947.     VtAddTabGroup $warntext
  4948.     VtAddTabGroup $warndefb
  4949.     VxSetVar $upwexpscreen pastbtext $pastbtext
  4950.     VxSetVar $upwexpscreen pastbdefb $pastbdefb
  4951.     VxSetVar $pastbdefb label $pastblabel
  4952.     VxSetVar $pastbdefb text $pastbtext
  4953.     VxSetVar $pastbdefb b_attribute passwd_expiration_date
  4954.     VxSetVar $pastbdefb nextwidget $expdefb
  4955.     VxSetVar $pastbdefb checkbeforefocus "true"
  4956.     VxSetVar $pastbtext nextwidget $minbdefb
  4957.     VxSetVar $upwexpscreen minbtext $minbtext
  4958.     VxSetVar $upwexpscreen minbdefb $minbdefb
  4959.     VxSetVar $minbdefb label $minblabel
  4960.     VxSetVar $minbdefb text $minbtext
  4961.     VxSetVar $minbdefb b_attribute passwd_min_change_time
  4962.     VxSetVar $minbdefb nextwidget $expdefb
  4963.     VxSetVar $minbdefb checkbeforefocus "true"
  4964.     VxSetVar $minbtext nextwidget $expdefb
  4965.     VxSetVar $upwexpscreen exptext $exptext
  4966.     VxSetVar $upwexpscreen expdefb $expdefb
  4967.     VxSetVar $expdefb label $explabel
  4968.     VxSetVar $expdefb text $exptext
  4969.     VxSetVar $expdefb b_attribute account_lifetime
  4970.     VxSetVar $expdefb nextwidget $warndefb
  4971.     VxSetVar $expdefb checkbeforefocus "true"
  4972.     VxSetVar $exptext nextwidget $warndefb
  4973.     VxSetVar $upwexpscreen warntext $warntext
  4974.     VxSetVar $upwexpscreen warndefb $warndefb
  4975.     VxSetVar $warndefb label $warnlabel
  4976.     VxSetVar $warndefb text $warntext
  4977.     VxSetVar $warndefb b_attribute account_warn_time
  4978.     VxSetVar $warndefb nextwidget $inactivedefb
  4979.     VxSetVar $warndefb checkbeforefocus "true"
  4980.     VxSetVar $warntext nextwidget $inactivedefb
  4981.     VxSetVar $upwexpscreen inactivetext $inactivetext
  4982.     VxSetVar $upwexpscreen inactivedefb $inactivedefb
  4983.     VxSetVar $inactivedefb label $inactivelabel
  4984.     VxSetVar $inactivedefb text $inactivetext
  4985.     VxSetVar $inactivedefb b_attribute account_inactive_time
  4986.     VxSetVar $inactivedefb nextwidget $okbutton
  4987.     VxSetVar $inactivedefb checkbeforefocus "true"
  4988.     VxSetVar $inactivetext nextwidget $okbutton
  4989.     VxSetVar $upwexpscreen statusbar $statusBar
  4990.     VtShow $upwexpscreen
  4991.     VtSetFocus $okbutton
  4992.     VtUnLock
  4993. }
  4994. proc ChangePasswordOkCB {cbs} {
  4995.     global uData 
  4996.     set username [UserSelectedName]
  4997.     set dialog [keylget cbs dialog]
  4998.     set pwoptbox [VxGetVar $dialog pwoptbox] 
  4999.     set statusbar [VxGetVar $dialog statusbar]
  5000.     set which [stripPath [VtGetValues $pwoptbox -value]]
  5001.     case $which in {
  5002.     {enternew} {
  5003.         set text1 [VxGetVar $dialog text1]
  5004.         set text2 [VxGetVar $dialog text2]
  5005.         set passwd1 [VtGetValues $text1 -value]
  5006.         set passwd2 [VtGetValues $text2 -value]
  5007.         if {[lempty $passwd1]} {
  5008.         VtSetValues $text1 -value ""
  5009.         VtSetValues $text2 -value ""
  5010.         VtShow [VtErrorDialog $dialog.pwerrbox1 \
  5011.             -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOPWENT1] \
  5012.             -ok]
  5013.         VtSetFocus $text1
  5014.         VtUnLock
  5015.         return
  5016.         }
  5017.         if {[lempty $passwd2]} {
  5018.         VtSetValues $text1 -value ""
  5019.         VtSetValues $text2 -value ""
  5020.         VtShow [VtErrorDialog $dialog.pwerrbox2 \
  5021.             -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOPWENT2] \
  5022.             -ok]
  5023.         VtSetFocus $text1
  5024.         VtUnLock
  5025.         return
  5026.         }
  5027.         if {$passwd1 != $passwd2} {
  5028.         VtSetValues $text1 -value ""
  5029.         VtSetValues $text2 -value ""
  5030.         VtShow [VtErrorDialog $dialog.pwerrbox3 \
  5031.             -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWNOTSAME] \
  5032.             -ok]
  5033.         VtSetFocus $text1
  5034.         VtUnLock
  5035.         return
  5036.         }
  5037.         set newpasswd $passwd1
  5038.     }
  5039.     {keeppw} {
  5040.         set newpasswd "KEEPPW"
  5041.     }
  5042.     {removepw} {
  5043.         set newpasswd "REMOVE"
  5044.     }
  5045.     }
  5046.     set chgatlogin [VtGetValues [VxGetVar $dialog chgatlogin] -value]
  5047.     SaStatusBarSet $statusbar \
  5048.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHGPASSWD_STAT]
  5049.     if {![lempty $uData(groupList)]} {
  5050.     set ret 0
  5051.     SaMachGroupProc \
  5052.         $uData(hostname) $uData(groupList) $uData(errorPrompt) \
  5053.         [list SetUserPassword $username $newpasswd $chgatlogin] \
  5054.         $uData(mainscreen) [list $cbs]
  5055.     } else {
  5056.     set ret [SetUserPassword $uData(hostname) errorStack \
  5057.         $username $newpasswd $chgatlogin]
  5058.     }
  5059.     if {$ret != 0} {
  5060.     SaStatusBarClear $statusbar
  5061.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_PASSWD_SET_FAIL $username
  5062.     SaDisplayErrorStacks $dialog.setpasswdfail \
  5063.          [list $errorStack] HELP
  5064.     VtUnLock
  5065.     return
  5066.     } else {
  5067.     UpdateUserInList $username
  5068.     VtDestroyDialog $dialog
  5069.     SaStatusBarClear $uData(statusbar)
  5070.     VtUnLock
  5071.     return
  5072.     }
  5073. }
  5074. proc ChgPasswordOptCB {cbs} {
  5075.     set dialog [keylget cbs dialog]
  5076.     set widget [keylget cbs widget]
  5077.     set mode [keylget cbs mode]
  5078.     if {$mode == "done"} {
  5079.     set nextwidget [VxGetVar $widget nextwidget]
  5080.     VtSetFocus $nextwidget
  5081.     } else {
  5082.     set pwoptbox [VxGetVar $dialog pwoptbox]
  5083.     set text1 [VxGetVar $dialog text1]
  5084.     set text2 [VxGetVar $dialog text2]
  5085.     set chgatlogin [VxGetVar $dialog chgatlogin]
  5086.     set which [stripPath [VtGetValues $pwoptbox -value]]
  5087.     case $which in {
  5088.         {enternew} {
  5089.         VtSetSensitive $text1 1
  5090.         VtSetSensitive $text2 1
  5091.         VtRemoveAllTabGroups $dialog
  5092.         VtAddTabGroup $pwoptbox
  5093.         VtAddTabGroup $text1
  5094.         VtAddTabGroup $text2
  5095.         VtAddTabGroup $chgatlogin
  5096.         }
  5097.         {keeppw} {
  5098.         VtSetSensitive $text1 0
  5099.         VtSetSensitive $text2 0
  5100.         VtRemoveAllTabGroups $dialog
  5101.         VtAddTabGroup $pwoptbox
  5102.         VtAddTabGroup $chgatlogin
  5103.         }
  5104.         {removepw} {
  5105.         VtSetSensitive $text1 0
  5106.         VtSetSensitive $text2 0
  5107.         VtRemoveAllTabGroups $dialog
  5108.         VtAddTabGroup $pwoptbox
  5109.         VtAddTabGroup $chgatlogin
  5110.         }
  5111.     }
  5112.     }
  5113. }
  5114. proc ChangePasswordCB {cbs} {
  5115.     global uData
  5116.     set pdialog [keylget cbs dialog]
  5117.     set username [UserSelectedName]
  5118.     set chgpwscreen [VtFormDialog $pdialog.chgpwscreen \
  5119.      -title [IntlLocalizeMsg \
  5120.         SCO_ACCOUNTGUI_MSG_CHGPWTITLE [list $uData(hostname) $username]] \
  5121.     -ok -cancel -help \
  5122.     -cancelButton CANCEL \
  5123.     -okCallback "ChangePasswordOkCB" \
  5124.     -cancel -cancelCallback VxEndFormCB \
  5125.     -autoLock ChangePasswordOkCB ]
  5126.     set pwoptform [VtForm $chgpwscreen.pwoptform \
  5127.     -topOffset 15 -CHARM_topOffset 1 \
  5128.     -marginHeight 0 -marginWidth 0 \
  5129.     -rightSide FORM -leftSide FORM]
  5130.     set pwoptframe [VtFrame $pwoptform.pwoptframe \
  5131.     -shadowType IN ]
  5132.     set pwoptbox [VtRadioBox $pwoptframe.pwoptbox \
  5133.     -numColumns 1 \
  5134.     -autoSelect 1 ]
  5135.     set enternew [VtToggleButton $pwoptbox.enternew \
  5136.     -callback ChgPasswordOptCB \
  5137.     -shortHelpCallback SaShortHelpCB \
  5138.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEWPW_HELP] \
  5139.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEWPW] ]
  5140.     set keeppw [VtToggleButton $pwoptbox.keeppw \
  5141.     -callback ChgPasswordOptCB \
  5142.     -shortHelpCallback SaShortHelpCB \
  5143.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_KEEPPW_HELP] \
  5144.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_KEEPPW] ]
  5145.     set removepw [VtToggleButton $pwoptbox.removepw \
  5146.     -callback ChgPasswordOptCB \
  5147.     -shortHelpCallback SaShortHelpCB \
  5148.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RMVPW_HELP] \
  5149.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RMVPW] ]
  5150.     VtSetValues $pwoptframe \
  5151.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  5152.     -rightSide NONE 
  5153.     VtSetValues $enternew -value 1
  5154.     VxSetVar $chgpwscreen pwoptbox $pwoptbox
  5155.     VxSetVar $chgpwscreen enternew $enternew
  5156.     VxSetVar $chgpwscreen keeppw $keeppw
  5157.     VxSetVar $chgpwscreen removepw $removepw
  5158.     BuildPwScreen $chgpwscreen
  5159.     set text1 [VxGetVar $chgpwscreen text1]
  5160.     set text2 [VxGetVar $chgpwscreen text2]
  5161.     set chgatlogin [VxGetVar $chgpwscreen chgatlogin]
  5162.     VtSetSensitive $text1 1
  5163.     VtSetSensitive $text2 1
  5164.     VtSetSensitive $chgatlogin 1
  5165.     VtRemoveAllTabGroups $chgpwscreen
  5166.     VtAddTabGroup $pwoptbox
  5167.     VtAddTabGroup $text1
  5168.     VtAddTabGroup $text2
  5169.     VtAddTabGroup $chgatlogin
  5170.     VxSetVar $keeppw nextwidget $chgatlogin
  5171.     VxSetVar $enternew nextwidget $text1
  5172.     VxSetVar $removepw nextwidget $chgatlogin
  5173.     VtShow $chgpwscreen
  5174.     VtSetFocus $pwoptbox
  5175.     VtUnLock
  5176. }
  5177. proc SetPasswordErrorOkCB {cbs} {
  5178.     set errdlog [keylget cbs dialog]
  5179.     set parent [VxGetVar $errdlog parent]
  5180.     set gparent [VxGetVar $errdlog gparent]
  5181.     set username [VxGetVar $gparent username]
  5182.     AddUserToList $username
  5183.     VtDestroyDialog $errdlog 
  5184.     VtDestroyDialog $parent
  5185.     VtDestroyDialog $gparent
  5186.     VtUnLock
  5187. }
  5188. proc SetPasswordCancelCB {cbs} {
  5189.     set dialog [keylget cbs dialog]
  5190.     set pdialog [VxGetVar $dialog pdialog]
  5191.     set userexists [VxGetVar $pdialog userexists]
  5192.     if {$userexists == 0} {
  5193.     VtDestroyDialog $dialog
  5194.     VtUnLock
  5195.     return
  5196.     } 
  5197.     set errdialog [VtErrorDialog $dialog.halfuser2 \
  5198.     -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_HALFUSER2] \
  5199.     -ok \
  5200.     -autoHide 0 -autoDestroy 0 \
  5201.     -okCallback SetPasswordErrorOkCB \
  5202.     -autoLock SetPasswordErrorOkCB ]
  5203.     VxSetVar $errdialog parent $dialog
  5204.     VxSetVar $errdialog gparent $pdialog
  5205.     VtShow $errdialog
  5206.     VtUnLock
  5207. }
  5208. proc SetPasswordOkCB {username userkeyl cbs} {
  5209.     global uData
  5210.     set dialog [keylget cbs dialog]
  5211.     set pdialog [VxGetVar $dialog pdialog]
  5212.     set pwoptbox [VxGetVar $dialog pwoptbox]
  5213.     set statusbar [VxGetVar $dialog statusbar]
  5214.     set which [stripPath [VtGetValues $pwoptbox -value]]
  5215.     case $which in {
  5216.     {enternew} {
  5217.         set text1 [VxGetVar $dialog text1]
  5218.         set text2 [VxGetVar $dialog text2]
  5219.         set passwd1 [VtGetValues $text1 -value]
  5220.         set passwd2 [VtGetValues $text2 -value]
  5221.         if {[lempty $passwd1]} {
  5222.         VtSetValues $text1 -value ""
  5223.         VtSetValues $text2 -value ""
  5224.         VtShow [VtErrorDialog $dialog.pwerrbox1 \
  5225.             -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOPWENT1] \
  5226.             -ok]
  5227.         VtSetFocus $text1
  5228.         VtUnLock
  5229.         return
  5230.         }
  5231.         if {[lempty $passwd2]} {
  5232.         VtSetValues $text1 -value ""
  5233.         VtSetValues $text2 -value ""
  5234.         VtShow [VtErrorDialog $dialog.pwerrbox2 \
  5235.             -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOPWENT2] \
  5236.             -ok]
  5237.         VtSetFocus $text1
  5238.         VtUnLock
  5239.         return
  5240.         }
  5241.         if {$passwd1 != $passwd2} {
  5242.         VtSetValues $text1 -value ""
  5243.         VtSetValues $text2 -value ""
  5244.         VtShow [VtErrorDialog $dialog.pwerrbox3 \
  5245.             -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWNOTSAME] \
  5246.             -ok]
  5247.         VtSetFocus $text1
  5248.         VtUnLock
  5249.         return
  5250.         }
  5251.         set newpasswd $passwd1
  5252.     }
  5253.     {removepw} {
  5254.         set newpasswd "REMOVE"
  5255.     }
  5256.     }
  5257.     keylset userkeyl password $newpasswd
  5258.     set chgatlogin [VtGetValues [VxGetVar $dialog chgatlogin] -value]
  5259.     keylset userkeyl chgatlogin $chgatlogin
  5260.     set userexists [VxGetVar $pdialog userexists]
  5261.     if {$userexists == 0} {
  5262.     SaStatusBarSet $statusbar \
  5263.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDUSER_STAT]
  5264.     if {![lempty $uData(groupList)]} {
  5265.         set ret 0
  5266.         SaMachGroupProc $uData(hostname) $uData(groupList) \
  5267.         $uData(errorPrompt) [list CreateUser $userkeyl] \
  5268.         $uData(mainscreen) [list $cbs]
  5269.     } else {
  5270.         set ret [CreateUser $uData(hostname) errorStack $userkeyl]
  5271.     }
  5272.     if {$ret != 0} {
  5273.         VtDestroyDialog $dialog
  5274.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_USERCREATE $username
  5275.         SaDisplayErrorStacks $pdialog.usercreateerr \
  5276.              [list $errorStack] HELP
  5277.         VtUnLock
  5278.         return
  5279.     } else {
  5280.         VxSetVar $pdialog userexists 1
  5281.         SaStatusBarSet $statusbar \
  5282.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SETPASSWD_STAT]
  5283.         if {![lempty $uData(groupList)]} {
  5284.         set ret 0
  5285.         SaMachGroupProc $uData(hostname) $uData(groupList) \
  5286.             $uData(errorPrompt) [list SetInitialPassword $userkeyl] \
  5287.             $uData(mainscreen) [list $cbs]
  5288.         } else {
  5289.         set ret [SetInitialPassword $uData(hostname) errorStack $userkeyl]
  5290.         }
  5291.         if {$ret != 0} {
  5292.         SaStatusBarClear $statusbar
  5293.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_INITPW_INFO
  5294.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_SETINITPW $username
  5295.         SaDisplayErrorStacks $dialog.newpasswderr \
  5296.              [list $errorStack] HELP
  5297.         VtUnLock
  5298.         return
  5299.         }  else {
  5300.         VtDestroyDialog $dialog
  5301.         VxSetVar $pdialog pwset 1
  5302.         }
  5303.     }
  5304.     } else {
  5305.     SaStatusBarSet $statusbar \
  5306.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SETPASSWD_STAT]
  5307.     if {![lempty $uData(groupList)]} {
  5308.         set ret 0
  5309.         SaMachGroupProc \
  5310.         $uData(hostname) $uData(groupList) $uData(errorPrompt) \
  5311.         [list SetUserPassword $username $newpasswd $chgatlogin] \
  5312.         $uData(mainscreen) [list $cbs]
  5313.     } else {
  5314.         set ret [SetUserPassword $uData(hostname) errorStack \
  5315.         $username $newpasswd $chgatlogin]
  5316.     }
  5317.     if {$ret != 0} {
  5318.         SaStatusBarClear $statusbar
  5319.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_INITPW_INFO
  5320.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_SETINITPW $username
  5321.         SaDisplayErrorStacks $dialog.newpasswderr \
  5322.              [list $errorStack] HELP
  5323.         VtUnLock
  5324.         return
  5325.     } else {
  5326.         VtDestroyDialog $dialog
  5327.         VxSetVar $pdialog pwset 1
  5328.     }
  5329.     }
  5330.     set pwset [VxGetVar $pdialog pwset]
  5331.     if {$pwset == 1} {
  5332.     set statusbar [VxGetVar $pdialog statusbar]
  5333.     AddUserToList $username
  5334.     VtDestroyDialog $pdialog
  5335.     SaStatusBarClear $uData(statusbar)
  5336.     VtUnLock
  5337.     return
  5338.     }
  5339. }
  5340. proc SetPasswordOptCB {cbs} {
  5341.     set dialog [keylget cbs dialog]
  5342.     set widget [keylget cbs widget]
  5343.     set mode [keylget cbs mode]
  5344.     if {$mode == "done"} {
  5345.     set nextwidget [VxGetVar $widget nextwidget]
  5346.     VtSetFocus $nextwidget
  5347.     } else {
  5348.     set pwoptbox [VxGetVar $dialog pwoptbox]
  5349.     set text1 [VxGetVar $dialog text1]
  5350.     set text2 [VxGetVar $dialog text2]
  5351.     set chgatlogin [VxGetVar $dialog chgatlogin]
  5352.     set which [stripPath [VtGetValues $pwoptbox -value]]
  5353.     case $which in {
  5354.         {enternew} {
  5355.         VtSetSensitive $text1 1
  5356.         VtSetSensitive $text2 1
  5357.         VtRemoveAllTabGroups $dialog
  5358.         VtAddTabGroup $pwoptbox
  5359.         VtAddTabGroup $text1
  5360.         VtAddTabGroup $text2
  5361.         VtAddTabGroup $chgatlogin
  5362.         }
  5363.         {removepw} {
  5364.         VtSetSensitive $text1 0
  5365.         VtSetSensitive $text2 0
  5366.         VtRemoveAllTabGroups $dialog
  5367.         VtAddTabGroup $pwoptbox
  5368.         VtAddTabGroup $chgatlogin
  5369.         }
  5370.     }
  5371.     }
  5372. }
  5373. proc SetPassword {pdialog username userkeyl} {
  5374.     global uData
  5375.     set setpwscreen [VtFormDialog $pdialog.setpwscreen \
  5376.      -title [IntlLocalizeMsg \
  5377.         SCO_ACCOUNTGUI_MSG_SETPWTITLE [list $uData(hostname) $username]] \
  5378.     -ok -cancel -help \
  5379.     -cancelButton CANCEL \
  5380.     -okCallback "SetPasswordOkCB $username {$userkeyl}" \
  5381.     -cancelCallback SetPasswordCancelCB \
  5382.     -autoLock [list SetPasswordOkCB SetPasswordCancelCB ] ]
  5383.     set pwoptform [VtForm $setpwscreen.pwoptform \
  5384.     -topOffset 15 -CHARM_topOffset 1 \
  5385.     -marginHeight 0 -marginWidth 0 \
  5386.     -rightSide FORM -leftSide FORM]
  5387.     set pwoptframe [VtFrame $pwoptform.pwoptframe \
  5388.     -shadowType IN ]
  5389.     set pwoptbox [VtRadioBox $pwoptframe.pwoptbox \
  5390.     -numColumns 1 \
  5391.     -autoSelect 1 ]
  5392.     set enternew [VtToggleButton $pwoptbox.enternew \
  5393.     -callback SetPasswordOptCB \
  5394.     -shortHelpCallback SaShortHelpCB \
  5395.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEWPW_HELP] \
  5396.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEWPW] ]
  5397.     set removepw [VtToggleButton $pwoptbox.removepw \
  5398.     -callback SetPasswordOptCB \
  5399.     -shortHelpCallback SaShortHelpCB \
  5400.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RMVPW_HELP] \
  5401.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RMVPW] ]
  5402.     VtSetValues $pwoptframe \
  5403.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  5404.     -rightSide NONE 
  5405.     VxSetVar $setpwscreen pwoptbox $pwoptbox
  5406.     VxSetVar $setpwscreen enternew $enternew
  5407.     VxSetVar $setpwscreen removepw $removepw
  5408.     VtSetValues $enternew -value 1
  5409.     BuildPwScreen $setpwscreen
  5410.     set chgatlogin [VxGetVar $setpwscreen chgatlogin]
  5411.     VtSetValues $chgatlogin -value 0
  5412.     set text1 [VxGetVar $setpwscreen text1]
  5413.     set text2 [VxGetVar $setpwscreen text2]
  5414.     VtSetSensitive $text1 1
  5415.     VtSetSensitive $text2 1
  5416.     VtSetSensitive $chgatlogin 1
  5417.     VtRemoveAllTabGroups $setpwscreen
  5418.     VtAddTabGroup $pwoptbox
  5419.     VtAddTabGroup $text1
  5420.     VtAddTabGroup $text2
  5421.     VtAddTabGroup $chgatlogin
  5422.     VxSetVar $enternew nextwidget $text1
  5423.     VxSetVar $removepw nextwidget $chgatlogin
  5424.     VxSetVar $setpwscreen pdialog $pdialog
  5425.     VtShow $setpwscreen
  5426.     VtSetFocus $pwoptbox
  5427.     VtUnLock
  5428. }
  5429. proc CheckPasswd1CB {cbs} {
  5430.     set dialog [keylget cbs dialog]
  5431.     set mode [keylget cbs mode]
  5432.     if {$mode == "done"} {
  5433.     set value [keylget cbs value]
  5434.     if [lempty $value] {
  5435.         set text1 [VxGetVar $dialog text1]
  5436.         set text2 [VxGetVar $dialog text2]
  5437.         VtSetValues $text1 -value ""
  5438.         VtSetValues $text2 -value ""
  5439.         VtShow [VtErrorDialog $dialog.pwerrbox1 \
  5440.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOPWENT1] \
  5441.         -ok]
  5442.         VtSetFocus $text1
  5443.         return
  5444.     }
  5445.     VtSetFocus [VxGetVar [keylget cbs widget] nextwidget]
  5446.     }
  5447. }
  5448. proc CheckPasswd2CB {cbs} {
  5449.     set dialog [keylget cbs dialog]
  5450.     set mode [keylget cbs mode]
  5451.     if {$mode == "done"} {
  5452.     set text1 [VxGetVar $dialog text1]
  5453.     set text2 [VxGetVar $dialog text2]
  5454.     set passwd1 [VtGetValues $text1 -value]
  5455.     set passwd2 [VtGetValues $text2 -value]
  5456.     if [lempty $passwd2] {
  5457.         VtSetValues $text1 -value ""
  5458.         VtSetValues $text2 -value ""
  5459.         VtShow [VtErrorDialog $dialog.pwerrbox2 \
  5460.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOPWENT2] \
  5461.         -ok]
  5462.         VtSetFocus $text1
  5463.         return
  5464.     }
  5465.     if {$passwd1 != $passwd2} {
  5466.         VtSetValues $text1 -value ""
  5467.         VtSetValues $text2 -value ""
  5468.         VtShow [VtErrorDialog $dialog.pwerrbox3 \
  5469.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_PWNOTSAME] \
  5470.         -ok]
  5471.         VtSetFocus $text1
  5472.         return
  5473.     }
  5474.     VtSetFocus [VxGetVar [keylget cbs widget] nextwidget]
  5475.     }
  5476. }
  5477. proc BuildPwScreen {parent} {
  5478.     set pwoptbox [VxGetVar $parent pwoptbox]
  5479.     set maxwidth 0
  5480.     set try1form [VtForm $parent.try1form \
  5481.     -marginHeight 0 -marginWidth 0 \
  5482.     -rightSide FORM -leftSide FORM \
  5483.     -topOffset 5 -CHARM_topOffset 1]
  5484.     set label1 [VtLabel $try1form.label1 \
  5485.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ENTERPW] \
  5486.     -labelRight ]
  5487.     set width [VtGetValues $label1 -width]
  5488.     if {$width > $maxwidth} {
  5489.     set maxwidth $width
  5490.     }
  5491.     lappend labellist $label1
  5492.     lappend formlist $try1form
  5493.     set text1 [ VtText $try1form.text1 \
  5494.     -noEcho \
  5495.     -columns 30 \
  5496.     -callback CheckPasswd1CB ]
  5497.     set try2form [VtForm $parent.try2form \
  5498.     -marginHeight 0 -marginWidth 0 \
  5499.     -rightSide FORM -leftSide FORM]
  5500.     set label2 [VtLabel $try2form.label2 \
  5501.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CONFIRMPW] \
  5502.     -labelRight ]
  5503.     set width [VtGetValues $label2 -width]
  5504.     if {$width > $maxwidth} {
  5505.     set maxwidth $width
  5506.     }
  5507.     lappend labellist $label2
  5508.     lappend formlist $try2form
  5509.     set text2 [ VtText $try2form.text2 \
  5510.     -noEcho \
  5511.     -columns 30 \
  5512.     -callback CheckPasswd2CB ]
  5513.     VtSetValues $label1 \
  5514.     -leftSide FORM -rightSide NONE \
  5515.     -topSide FORM -bottomSide FORM 
  5516.     VtSetValues $text1 \
  5517.     -leftSide $label1 -leftOffset 5 -CHARM_leftOffset 1 \
  5518.     -rightSide NONE \
  5519.     -topSide FORM -bottomSide FORM 
  5520.     VtSetValues $label2 \
  5521.     -leftSide FORM -rightSide NONE \
  5522.     -topSide FORM -bottomSide FORM 
  5523.     VtSetValues $text2 \
  5524.     -leftSide $label2 -leftOffset 5 -CHARM_leftOffset 1 \
  5525.     -rightSide NONE \
  5526.     -topSide FORM -bottomSide FORM 
  5527.     set chform [VtForm $parent.chform \
  5528.     -marginHeight 0 -marginWidth 0 \
  5529.     -rightSide FORM -leftSide FORM \
  5530.     -topSide $try2form -topOffset 10 -CHARM_topOffset 1]
  5531.     set chlogin [VtToggleButton $chform.chlogin \
  5532.     -callback MiscSetFocusNextCB \
  5533.     -shortHelpCallback SaShortHelpCB \
  5534.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_FORCECHG_HELP] \
  5535.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_FORCECHANGE] ]
  5536.     AlignLabels $maxwidth $labellist $formlist
  5537.     set statusBar [SaStatusBar $parent.statusbar]
  5538.     VtSetValues $chform -bottomSide $statusBar -CHARM_bottomOffset 1
  5539.     set okbutton [VtGetValues $parent -ok]
  5540.     VxSetVar $parent text1 $text1
  5541.     VxSetVar $parent text2 $text2
  5542.     VxSetVar $parent chgatlogin $chlogin
  5543.     VxSetVar $parent okbutton $okbutton
  5544.     VxSetVar $parent statusbar $statusBar
  5545.     VxSetVar $text1 nextwidget $text2
  5546.     VxSetVar $text2 nextwidget $chlogin
  5547.     VxSetVar $chlogin nextwidget $okbutton
  5548. }
  5549. proc ChangeOwnerCB {cbs} {
  5550.     global uData
  5551.     set dialog [keylget cbs dialog]
  5552.     set twolist [VxGetVar $dialog twolist]
  5553.     set ownerbutton [VxGetVar $dialog ownerbutton]
  5554.     set statusbar [VxGetVar $dialog statusbar]
  5555.     set user [UserSelectedName]
  5556.     set isowner [VtGetValues $ownerbutton -value]
  5557.     if {$isowner == 1} {
  5558.     set otherAuths [SaTwoListGetItems $twolist 2]
  5559.     SaTwoListDeleteItems $twolist 2
  5560.     SaTwoListAddItems $twolist 1 $otherAuths
  5561.     } else {
  5562.     set setAuths [VxGetVar $dialog setauths]
  5563.     set otherAuths [VxGetVar $dialog otherauths]
  5564.     SaTwoListDeleteItems $twolist 1
  5565.     SaTwoListDeleteItems $twolist 2
  5566.     SaTwoListAddItems $twolist 1 $setAuths
  5567.     SaTwoListAddItems $twolist 2 $otherAuths
  5568.     }
  5569. }
  5570. proc ChangeAuthsOkCB {cbs} {
  5571.     global uData
  5572.     if {![info exists uData(admin_printer)]} {
  5573.     set uData(admin_printer) "Administer Printers"
  5574.     set uData(lp_group) "lp"
  5575.     }
  5576.     set dialog [keylget cbs dialog]
  5577.     set twolist [VxGetVar $dialog twolist]
  5578.     set ownerbutton [VxGetVar $dialog ownerbutton]
  5579.     set groups [VxGetVar $dialog groups]
  5580.     set statusbar [VxGetVar $dialog statusbar]
  5581.     set user [UserSelectedName]
  5582.     set isowner [VtGetValues $ownerbutton -value]
  5583.     lappend attribs [list owner $isowner]
  5584.     set userAuths [SaTwoListGetItems $twolist 1 ]
  5585.     set userAuths_l {}
  5586.     foreach p $userAuths {
  5587.     lappend userAuths_l [keylget uData(lprivs) $p]
  5588.     }
  5589.     set userAuths $userAuths_l
  5590.     lappend attribs [list auths $userAuths]
  5591.     if {[lsearch $userAuths $uData(admin_printer)] != -1} {
  5592.     if {[lsearch $groups $uData(lp_group)] == -1} {
  5593.         lappend groups $uData(lp_group)
  5594.     }
  5595.     lappend attribs [list groups $groups]
  5596.     }
  5597.     SaStatusBarSet $statusbar \
  5598.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERAUTHS_STAT]
  5599.     if {![lempty $uData(groupList)]} {
  5600.     set ret 0
  5601.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  5602.         $uData(errorPrompt) [list SetUserAttributes $user $attribs] \
  5603.         $uData(mainscreen) [list $cbs]
  5604.     } else {
  5605.     set ret [SetUserAttributes $uData(hostname) errorStack $user $attribs]
  5606.     }
  5607.     if {$ret != 0} {
  5608.     SaStatusBarClear $statusbar
  5609.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_AUTHS_SET_FAIL $user
  5610.     SaDisplayErrorStacks $dialog.authsfail \
  5611.          [list $errorStack] HELP
  5612.     VtUnLock
  5613.     return
  5614.     } else {
  5615.     VtDestroyDialog $dialog
  5616.     SaStatusBarClear $uData(statusbar)
  5617.     }
  5618.     VtUnLock
  5619. }
  5620. proc AuthsCB {cbs} {
  5621.     global uData
  5622.     set pdialog [keylget cbs dialog]
  5623.     set user [UserSelectedName]
  5624.     set attriblist [list auths owner groups]
  5625.     if {[ErrorCatch errorStack 0 \
  5626.     {GetUserAttribs $uData(hostname) $user $attriblist} userlist] != 0} {
  5627.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_AUTHS_GET $user
  5628.     SaDisplayErrorStacks $uData(mainscreen).authsgeterr \
  5629.          [list $errorStack] HELP
  5630.     VtUnLock
  5631.     return
  5632.     }
  5633.     set userGroupNames [keylget userlist groups]
  5634.     set userAuths [keylget userlist auths]
  5635.     set owner [keylget userlist owner]
  5636.     set authscreen [VtFormDialog $pdialog.authscreen \
  5637.      -title [IntlLocalizeMsg \
  5638.         SCO_ACCOUNTGUI_MSG_AUTHSTITLE [list $uData(hostname) $user]] \
  5639.     -ok -cancel -help \
  5640.     -cancelButton CANCEL \
  5641.     -okCallback ChangeAuthsOkCB \
  5642.     -cancelCallback VxEndFormCB \
  5643.     -autoLock ChangeAuthsOkCB]
  5644.     set owner [VtToggleButton $authscreen.owner \
  5645.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OWNER $user] \
  5646.     -value $owner \
  5647.     -callback ChangeOwnerCB \
  5648.     -topOffset 20 -CHARM_topOffset 1]
  5649.     set setAuths {}
  5650.     set otherAuths {}
  5651.     foreach one [keylkeys userAuths] {
  5652.     set two [keylget userAuths $one]
  5653.     if {$two == "1"} {
  5654.         lappend setAuths $one
  5655.     } else {
  5656.         lappend otherAuths $one
  5657.     }
  5658.     }
  5659.     if {![info exist uData(privs)]} {
  5660.     foreach p [keylkeys userAuths] {
  5661.         keylset uData(privs) $p [IntlLocalizeMsg \
  5662.             SCO_ACCOUNTGUI_MSG_[join $p _]]
  5663.         keylset uData(lprivs) [keylget uData(privs) $p] $p
  5664.     }
  5665.     }
  5666.     set setAuths_l {}
  5667.     foreach p $setAuths {
  5668.     lappend setAuths_l [keylget uData(privs) $p]
  5669.     }
  5670.     set otherAuths_l {}
  5671.     foreach p $otherAuths {
  5672.     lappend otherAuths_l [keylget uData(privs) $p]
  5673.     }
  5674.     set setAuths $setAuths_l
  5675.     set otherAuths $otherAuths_l
  5676.     set twolist [SaTwoList \
  5677.     $authscreen.twolist \
  5678.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERAUTHS] \
  5679.     $setAuths \
  5680.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OTHERAUTHS] \
  5681.     $otherAuths \
  5682.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTREMOVE] \
  5683.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TWOLISTADD] \
  5684.     [list {-selection single}] ]
  5685.     if [VtInfo -charm] {
  5686.     VtSetValues $twolist \
  5687.         -topSide $owner -topOffset 1 \
  5688.         -leftSide FORM -leftOffset 1 -rightSide FORM -rightOffset 1
  5689.     } else {
  5690.     VtSetValues $twolist \
  5691.         -topSide $owner -topOffset 10 \
  5692.         -leftSide FORM -leftOffset 10 -rightSide FORM -rightOffset 10
  5693.     }
  5694.     set statusBar [SaStatusBar $authscreen.statusbar]
  5695.     VtSetValues $twolist -bottomSide $statusBar -CHARM_bottomOffset 1
  5696.     set okbutton [VtGetValues $authscreen -ok]
  5697.     VxSetVar $authscreen ownerbutton $owner
  5698.     VxSetVar $authscreen twolist $twolist
  5699.     VxSetVar $authscreen okbutton $okbutton
  5700.     VxSetVar $authscreen statusbar $statusBar
  5701.     VxSetVar $authscreen setauths $setAuths
  5702.     VxSetVar $authscreen otherauths $otherAuths
  5703.     VxSetVar $authscreen groups $userGroupNames
  5704.     VtShow $authscreen
  5705.     VtSetFocus $okbutton
  5706.     VtUnLock
  5707. }
  5708. proc DefaultUserIdentityOkCB {cbs} {
  5709.     global uData
  5710.     set dialog [keylget cbs dialog]
  5711.     set lshtext [VxGetVar $dialog loginshtext]
  5712.     set lshbutton [VxGetVar $dialog loginshbutton]
  5713.     set disttext [VxGetVar $dialog disttext]
  5714.     set hdtext [VxGetVar $dialog homedirtxt]
  5715.     set hdbutton [VxGetVar $dialog homedirbutton]
  5716.     set lgrptext [VxGetVar $dialog logingrptext]
  5717.     set lgrpbutton [VxGetVar $dialog logingrpbutton]
  5718.     set loginshell [VxGetVar $dialog loginshell]
  5719.     set distribution [VxGetVar $dialog distrib]
  5720.     set asudistribution [VxGetVar $dialog asudistrib]
  5721.     set homedir [VtGetValues $hdtext -label]
  5722.     set homeperms [VxGetVar $dialog homeperms]
  5723.     set defgroups [VxGetVar $dialog groups]
  5724.     set statusbar [VxGetVar $dialog statusbar]
  5725.     set logingroup [VtGetValues $lgrptext -label]
  5726.     if {[ErrorCatch errorStack 0 \
  5727.     {DirExists $uData(hostname) $homedir} direxists] != 0} {
  5728.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  5729.     SaDisplayErrorStacks $dialog.direrr \
  5730.          [list $errorStack] NOHELP
  5731.     VtUnLock
  5732.     return
  5733.     }
  5734.     if {$direxists == 0} {
  5735.     VtShow [VtErrorDialog $dialog.direrror \
  5736.         -message [IntlLocalizeMsg \
  5737.         SCO_ACCOUNTGUI_ERR_DEFHOMEDIR $homedir] \
  5738.         -ok ]
  5739.     VtSetFocus $hdbutton
  5740.     VtUnLock
  5741.     return
  5742.     } 
  5743.     case $distribution {
  5744.     {local}  {
  5745.         lappend attribs [list "isNISUser" 0]
  5746.     }
  5747.     {isNISUser} {
  5748.         lappend attribs [list "isNISUser" 1]
  5749.     }
  5750.     }
  5751.     case $asudistribution {
  5752.     {local}  {
  5753.         lappend attribs [list "isASUUser" 0]
  5754.     }
  5755.     {isNISUser} {
  5756.         lappend attribs [list "isASUUser" 1]
  5757.     }
  5758.     }
  5759.     lappend attribs [list "pw_shell" $loginshell]
  5760.     lappend attribs [list "baseHome" $homedir]
  5761.     if {[lempty $defgroups]} {
  5762.     lappend attribs [list "groups" {}]
  5763.     } else {
  5764.     lappend attribs [list "groups" $defgroups]
  5765.     }
  5766.     lappend attribs [list "loginGroup" $logingroup]
  5767.     lappend attribs [list "mode" $homeperms]
  5768.     SaStatusBarSet $statusbar \
  5769.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERSYS_STAT]
  5770.     if {![lempty $uData(groupList)]} {
  5771.     set ret 0
  5772.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  5773.         $uData(errorPrompt) [list SetUserDefaults $attribs] \
  5774.         $uData(mainscreen) [list $cbs]
  5775.     } else {
  5776.     set ret [SetUserDefaults $uData(hostname) errorStack $attribs]
  5777.     }
  5778.     if {$ret != 0} {
  5779.     SaStatusBarClear $statusbar
  5780.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_SET
  5781.     SaDisplayErrorStacks $dialog.userdeferr \
  5782.          [list $errorStack] HELP
  5783.     VtUnLock
  5784.     return
  5785.     } else {
  5786.     VtDestroyDialog $dialog
  5787.     SaStatusBarClear $uData(statusbar)
  5788.     }
  5789.     VtUnLock
  5790. }
  5791. proc DefaultLoginShellOkCB {cbs} {
  5792.     set dialog [keylget cbs dialog]
  5793.     set nextwidget [VxGetVar $dialog nextwidget]
  5794.     set parent_dialog [VxGetVar $dialog parent_dialog]
  5795.     set combobox [VxGetVar $dialog combo]
  5796.     set displaytext [VxGetVar $parent_dialog loginshtext]
  5797.     set lshell [VtGetValues $combobox -value]
  5798.     if [lempty $lshell] {
  5799.     VtShow [VtErrorDialog $dialog.defloginshbox \
  5800.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOLOGINSHERR] \
  5801.         -ok]
  5802.     VtSetFocus $combobox
  5803.     VtUnLock
  5804.     return
  5805.     }
  5806.     VtSetValues $displaytext -label $lshell -columns 30 -CHARM_columns 15
  5807.     VxSetVar $parent_dialog loginshell $lshell
  5808.     VtDestroyDialog $dialog
  5809.     VtUnLock
  5810.     if [VtInfo -charm] {
  5811.     VtSetFocus $nextwidget
  5812.     }
  5813. }
  5814. proc ChangeDefaultLoginShellCB {cbs} {
  5815.     global uData
  5816.     set dialog [keylget cbs dialog]
  5817.     set widget [keylget cbs widget]
  5818.     set nextwidget [VxGetVar $widget nextwidget]
  5819.     set loginshell [VxGetVar $dialog loginshell]
  5820.     set displaytext [VxGetVar $dialog loginshtext]
  5821.     set title [IntlLocalizeMsg \
  5822.      SCO_ACCOUNTGUI_MSG_CHDEFLSH_TITLE]
  5823.     if {[ErrorCatch errorStack 0 {GetUserDefaults $uData(hostname) \
  5824.     [list installedShells]} attriblist] != 0} {
  5825.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_LSH_GET
  5826.     SaDisplayErrorStacks $uData(mainscreen).defltlsherr \
  5827.          [list $errorStack] HELP
  5828.     VtUnLock
  5829.     return
  5830.     }
  5831.     set lshscreen [VtFormDialog $dialog.lshscreen \
  5832.      -title $title \
  5833.     -ok -cancel -help \
  5834.     -cancelButton CANCEL \
  5835.     -okCallback DefaultLoginShellOkCB \
  5836.     -cancelCallback VxEndFormCB \
  5837.     -autoLock DefaultLoginShellOkCB ]
  5838.     set shboxlabel [VtLabel $lshscreen.shboxlabel \
  5839.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_SELECTLOGINSH] \
  5840.     -leftOffset 10 -CHARM_leftOffset 1 \
  5841.     -topOffset 10 -CHARM_topOffset 1 ]
  5842.     set shells [keylget attriblist installedShells] 
  5843.     set lshbox [VtComboBox $lshscreen.lshbox \
  5844.     -itemList $shells \
  5845.     -callback {SaSetFocus next} \
  5846.     -value $loginshell \
  5847.     -rightSide FORM -rightOffset 10 -CHARM_rightOffset 1 ]
  5848.     set okbutton [VtGetValues $lshscreen -ok]
  5849.     VtSetValues $lshbox -bottomOffset 10 -CHARM_bottomOffset 1
  5850.     VxSetVar $lshscreen parent_dialog $dialog
  5851.     VxSetVar $lshscreen combo $lshbox
  5852.     VxSetVar $lshscreen okbutton $okbutton
  5853.     VxSetVar $lshscreen focusList [list $lshbox $okbutton]
  5854.     VxSetVar $lshscreen nextwidget $nextwidget
  5855.     VtShow $lshscreen
  5856.     VtUnLock
  5857. }
  5858. proc DefaultHomeDirOptsOkCB {cbs} {
  5859.     global uData
  5860.     set dialog [keylget cbs dialog]
  5861.     set nextwidget [VxGetVar $dialog nextwidget]
  5862.     set parent_dlog [VxGetVar $dialog parent_dlog]
  5863.     set textfield [VxGetVar $dialog textfield]
  5864.     set permsform [VxGetVar $dialog permsform]
  5865.     set displaytext [VxGetVar $parent_dlog homedirtxt]
  5866.     set homepath [VtGetValues $textfield -value]
  5867.     if {[lempty $homepath]} {
  5868.     VtShow [VtErrorDialog $dialog.direrror1 \
  5869.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOHDBASE] \
  5870.         -ok ]
  5871.     VtSetFocus $textfield
  5872.     VtUnLock
  5873.     return
  5874.     }
  5875.     if {[ErrorCatch errorStack 0 \
  5876.     {DirExists $uData(hostname) $homepath} direxists] != 0} {
  5877.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_CHECKDIR
  5878.     SaDisplayErrorStacks $dialog.direrror2 \
  5879.          [list $errorStack] NOHELP
  5880.     VtUnLock
  5881.     return
  5882.     }
  5883.     if {$direxists == 0} {
  5884.     VtShow [VtErrorDialog $dialog.direrror3 \
  5885.         -message [IntlLocalizeMsg \
  5886.         SCO_ACCOUNTGUI_ERR_DEFHOMEDIR $homepath] \
  5887.         -ok ]
  5888.     VtSetFocus $textfield
  5889.     VtUnLock
  5890.     return
  5891.     }
  5892.     VtSetValues $displaytext -label $homepath -columns 30 -CHARM_columns 15
  5893.     set defaultHomeDirPerms [PB:GetValue $permsform]
  5894.     VxSetVar $parent_dlog homeperms $defaultHomeDirPerms
  5895.     VtDestroyDialog $dialog
  5896.     VtUnLock
  5897.     if [VtInfo -charm] {
  5898.     VtSetFocus $nextwidget
  5899.     }
  5900. }
  5901. proc DefHomeDirSetFocus {cbs} {
  5902.     if {[keylget cbs mode mode] != 0 && $mode == "done"} {
  5903.     set dialog [keylget cbs dialog]
  5904.     set okbutton [VxGetVar $dialog okbutton]
  5905.     VtSetFocus $okbutton
  5906.     }
  5907. }
  5908. proc DefaultHomeDirOptsCB {cbs} {
  5909.     global uData
  5910.     set dialog [keylget cbs dialog]
  5911.     set widget [keylget cbs widget]
  5912.     set nextwidget [VxGetVar $widget nextwidget]
  5913.     set perms [VxGetVar $dialog homeperms]
  5914.     set displaytext [VxGetVar $dialog homedirtxt]
  5915.     set homepath [VtGetValues $displaytext -label]
  5916.     set defhomescreen [VtFormDialog $dialog.defhomescreen \
  5917.     -title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHDEFHDIR_TITLE] \
  5918.     -ok -cancel -help \
  5919.     -cancelButton CANCEL \
  5920.     -okCallback DefaultHomeDirOptsOkCB \
  5921.     -cancelCallback VxEndFormCB \
  5922.     -autoLock DefaultHomeDirOptsOkCB ]
  5923.     set homedirform [VtForm $defhomescreen.homedirform \
  5924.     -marginHeight 0 -marginWidth 0 \
  5925.     -rightSide FORM -rightOffset 5 -CHARM_rightOffset 1 \
  5926.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1 \
  5927.     -topOffset 10 -CHARM_topOffset 1]
  5928.     set homedirtextlabel [VtLabel $homedirform.homedirtextlabel \
  5929.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFHOMEDIRPATH] ] 
  5930.     set homedirtext [VtText $homedirform.homedirtext \
  5931.     -value $homepath \
  5932.     -columns 30 -CHARM_columns 15 \
  5933.     -callback {SaSetFocus next}]
  5934.     set permsform [DoHomeDirPermsBox $perms $defhomescreen DefHomeDirSetFocus]
  5935.     VtSetValues $permsform \
  5936.     -topOffset 20 -CHARM_topOffset 1 \
  5937.     -rightSide FORM -rightOffset 5 -CHARM_rightOffset 1 \
  5938.     -leftSide FORM -leftOffset 5 -CHARM_leftOffset 1
  5939.     set okbutton [VtGetValues $defhomescreen -ok]
  5940.     set permsbox [VxGetVar $permsform permsbox] 
  5941.     set focusList [list $homedirtext $permsbox $okbutton]
  5942.     VxSetVar $defhomescreen parent_dlog $dialog
  5943.     VxSetVar $defhomescreen textfield $homedirtext
  5944.     VxSetVar $defhomescreen permsform $permsform
  5945.     VxSetVar $defhomescreen okbutton $okbutton
  5946.     VxSetVar $defhomescreen focusList $focusList
  5947.     VxSetVar $defhomescreen nextwidget $nextwidget
  5948.     VtShow $defhomescreen
  5949.     VtUnLock
  5950. }
  5951. proc UserDefaultsCB {cbs} {
  5952.     global uData
  5953.     set pdialog [keylget cbs dialog]
  5954.     set attriblist [list \
  5955.             pw_shell \
  5956.             isNISUser \
  5957.             isASUUser \
  5958.             mode \
  5959.             baseHome \
  5960.             loginGroup \
  5961.             groups]
  5962.     if {[ErrorCatch errorStack 0 \
  5963.     {GetUserDefaults $uData(hostname) $attriblist} defattribs] != 0} {
  5964.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_USRDEF_GET_ATTRIB
  5965.     SaDisplayErrorStacks $uData(mainscreen).defltserr \
  5966.          [list $errorStack] HELP
  5967.     VtUnLock
  5968.     return
  5969.     }
  5970.     set defuidscreen [VtFormDialog $pdialog.defuidscreen \
  5971.      -title [IntlLocalizeMsg \
  5972.         SCO_ACCOUNTGUI_MSG_MODUSERDEFLTSTITLE $uData(hostname)] \
  5973.     -ok -cancel -help \
  5974.     -cancelButton CANCEL \
  5975.     -okCallback DefaultUserIdentityOkCB \
  5976.     -cancelCallback VxEndFormCB \
  5977.     -autoLock DefaultUserIdentityOkCB ]
  5978.     set maxwidth 0
  5979.     set defaultLoginShell [keylget defattribs pw_shell]
  5980.     set defshform [VtForm $defuidscreen.defshform \
  5981.     -topOffset 5 -CHARM_topOffset 1 \
  5982.     -marginHeight 0 -marginWidth 0 \
  5983.     -rightSide FORM -leftSide FORM]
  5984.     set deflshlabel [VtLabel $defshform.deflshlabel \
  5985.     -labelRight \
  5986.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINSH] ]
  5987.     set deflshtext [VtLabel $defshform.deflshtext \
  5988.     -labelLeft \
  5989.         -label $defaultLoginShell \
  5990.     -columns 30 -CHARM_columns 15 \
  5991.     -shortHelpCallback SaShortHelpCB \
  5992.     -CHARM_shortHelpString \
  5993.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINSHTXT_CH_HELP] \
  5994.     -MOTIF_shortHelpString \
  5995.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINSHTXT_MF_HELP] ]
  5996.     set chgshellb [VtPushButton $defshform.chgshellb \
  5997.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHGDEFLOGSHB] \
  5998.     -shortHelpCallback SaShortHelpCB \
  5999.     -shortHelpString \
  6000.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINSHBTN_HELP] \
  6001.     -callback ChangeDefaultLoginShellCB \
  6002.     -autoLock ChangeDefaultLoginShellCB ]
  6003.     set width [VtGetValues $deflshlabel -width]
  6004.     if {$width > $maxwidth} {
  6005.     set maxwidth $width
  6006.     }
  6007.     lappend labellist $deflshlabel
  6008.     lappend formlist $defshform
  6009.     VtSetValues $deflshlabel \
  6010.     -leftSide FORM -rightSide NONE \
  6011.     -topSide FORM -bottomSide FORM 
  6012.     VtSetValues $deflshtext \
  6013.     -leftSide $deflshlabel -leftOffset 5 -CHARM_leftOffset 1 \
  6014.     -rightSide NONE \
  6015.     -topSide FORM -bottomSide FORM 
  6016.     VtSetValues $chgshellb \
  6017.     -leftSide $deflshtext -leftOffset 20 -CHARM_leftOffset 1 \
  6018.     -rightSide NONE \
  6019.     -topSide FORM 
  6020.     set distval [keylget defattribs isNISUser]
  6021.     if {$distval} {
  6022.     set defaultDistribution "isNISUser"
  6023.     } else {
  6024.     set defaultDistribution "local"
  6025.     }
  6026.     set asudistval [keylget defattribs isASUUser]
  6027.     if {$asudistval} {
  6028.     set asuDist "isNISUser"
  6029.     } else {
  6030.     set asuDist "local"
  6031.     }
  6032.     set title [IntlLocalizeMsg \
  6033.     SCO_ACCOUNTGUI_MSG_CHDEFUSRDIST_TITLE] 
  6034.     set distform [DistForm $defuidscreen $title $defaultDistribution \
  6035.         $asuDist]
  6036.     set distlabel [VxGetVar $distform label]
  6037.     set disttext [VxGetVar $distform text]
  6038.     set distbutton [VxGetVar $distform button]
  6039.     set width [VtGetValues $distlabel -width]
  6040.     if {$width > $maxwidth} {
  6041.     set maxwidth $width
  6042.     }
  6043.     lappend labellist $distlabel
  6044.     lappend formlist $distform
  6045.     VtSetValues $distform \
  6046.     -topOffset 5 -CHARM_topOffset 1 
  6047.     VtSetValues $distbutton \
  6048.     -leftOffset 20 -CHARM_leftOffset 1 
  6049.     set defaultHomeDirPerms [keylget defattribs mode]
  6050.     set homedirpath [keylget defattribs baseHome]
  6051.     set hdform [VtForm $defuidscreen.hdform \
  6052.     -topOffset 5 -CHARM_topOffset 1 \
  6053.     -marginHeight 0 -marginWidth 0 \
  6054.     -rightSide FORM -leftSide FORM ]
  6055.     set hdlabel [VtLabel $hdform.hdlabel \
  6056.     -labelRight \
  6057.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFHOMEDIRPATH] ]
  6058.     set hdtext [VtLabel $hdform.hdtext \
  6059.     -labelLeft \
  6060.     -label $homedirpath \
  6061.     -columns 30 -CHARM_columns 15 \
  6062.     -shortHelpCallback SaShortHelpCB \
  6063.     -CHARM_shortHelpString \
  6064.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFHDIRTXT_CH_HELP] \
  6065.     -MOTIF_shortHelpString \
  6066.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFHDIRTXT_MF_HELP] ]
  6067.     set chghomedirb [VtPushButton $hdform.chghomedirb  \
  6068.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFHOMEDIROPTB] \
  6069.     -shortHelpCallback SaShortHelpCB \
  6070.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFHDIRBTN_HELP] \
  6071.     -callback DefaultHomeDirOptsCB \
  6072.     -autoLock DefaultHomeDirOptsCB ]
  6073.     set width [VtGetValues $hdlabel -width]
  6074.     if {$width > $maxwidth} {
  6075.     set maxwidth $width
  6076.     }
  6077.     lappend labellist $hdlabel
  6078.     lappend formlist $hdform
  6079.     VtSetValues $hdlabel \
  6080.     -leftSide FORM -rightSide NONE \
  6081.     -topSide FORM -bottomSide FORM 
  6082.     VtSetValues $hdtext \
  6083.     -leftSide $hdlabel -leftOffset 5 -CHARM_leftOffset 1 \
  6084.     -rightSide NONE \
  6085.     -topSide FORM -bottomSide FORM 
  6086.     VtSetValues $chghomedirb \
  6087.     -leftSide $hdtext -leftOffset 20 -CHARM_leftOffset 1 \
  6088.     -rightSide NONE \
  6089.     -topSide FORM 
  6090.     set defaultLoginGroup [keylget defattribs loginGroup]
  6091.     set defaultGroupNames [keylget defattribs groups]
  6092.     set lgform [VtForm $defuidscreen.lgform \
  6093.     -topOffset 5 -CHARM_topOffset 1 \
  6094.     -marginHeight 0 -marginWidth 0 \
  6095.     -rightSide FORM -leftSide FORM ]
  6096.     set lglabel [VtLabel $lgform.lglabel \
  6097.     -labelRight \
  6098.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINGRP] ]
  6099.     set lgtext [VtLabel $lgform.lgtext \
  6100.     -labelLeft \
  6101.     -label $defaultLoginGroup \
  6102.     -columns 30 -CHARM_columns 15 \
  6103.     -shortHelpCallback SaShortHelpCB \
  6104.     -CHARM_shortHelpString \
  6105.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINGRPTXT_CH_HELP] \
  6106.     -MOTIF_shortHelpString \
  6107.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINGRPTXT_MF_HELP] ]
  6108.     set title [IntlLocalizeMsg \
  6109.     SCO_ACCOUNTGUI_MSG_CHGDEFGRPS_TITLE]
  6110.     set chglogingrpb [VtPushButton $lgform.chglogingrpb  \
  6111.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFCHGGROUPMEMB] \
  6112.     -shortHelpCallback SaShortHelpCB \
  6113.     -shortHelpString \
  6114.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFLOGINGRPBTN_HELP] \
  6115.     -callback "DoChangeGroupsCB {$title}" \
  6116.     -autoLock DoChangeGroupsCB ]
  6117.     set width [VtGetValues $lglabel -width]
  6118.     if {$width > $maxwidth} {
  6119.     set maxwidth $width
  6120.     }
  6121.     lappend labellist $lglabel
  6122.     lappend formlist $lgform
  6123.     VtSetValues $lglabel \
  6124.     -leftSide FORM -rightSide NONE \
  6125.     -topSide FORM -bottomSide FORM 
  6126.     VtSetValues $lgtext \
  6127.     -leftSide $lglabel -leftOffset 5 -CHARM_leftOffset 1 \
  6128.     -rightSide NONE \
  6129.     -topSide FORM -bottomSide FORM 
  6130.     VtSetValues $chglogingrpb \
  6131.     -leftSide $lgtext -leftOffset 20 -CHARM_leftOffset 1 \
  6132.     -rightSide NONE \
  6133.     -topSide FORM 
  6134.     set statusBar [SaStatusBar $defuidscreen.statusbar]
  6135.     VtSetValues $lgform -bottomSide $statusBar -CHARM_bottomOffset 1
  6136.     AlignLabels $maxwidth $labellist $formlist
  6137.     if {!$uData(nisEnabled) && !$uData(asuEnabled) } {
  6138.     VtSetSensitive $disttext 0
  6139.     VtSetSensitive $distlabel 0
  6140.     VtSetSensitive $distbutton 0
  6141.     }
  6142.     VtRemoveAllTabGroups $defuidscreen
  6143.     set okbutton [VtGetValues $defuidscreen -ok]
  6144.     VtAddTabGroup $deflshtext
  6145.     VtAddTabGroup $chgshellb 
  6146.     if {$uData(nisEnabled) || $uData(asuEnabled) } {
  6147.     VtAddTabGroup $disttext
  6148.     VtAddTabGroup $distbutton
  6149.     VxSetVar $deflshtext nextwidget $disttext
  6150.     VxSetVar $chgshellb nextwidget $disttext
  6151.     VxSetVar $disttext nextwidget $hdtext
  6152.     VxSetVar $distbutton nextwidget $hdtext
  6153.     } else {
  6154.     VxSetVar $deflshtext nextwidget $hdtext
  6155.     VxSetVar $chgshellb nextwidget $hdtext
  6156.     }
  6157.     VtAddTabGroup $hdtext
  6158.     VtAddTabGroup $chghomedirb 
  6159.     VxSetVar $hdtext nextwidget $lgtext
  6160.     VxSetVar $chghomedirb nextwidget $lgtext
  6161.     VtAddTabGroup $lgtext
  6162.     VtAddTabGroup $chglogingrpb
  6163.     VxSetVar $lgtext nextwidget $okbutton
  6164.     VxSetVar $chglogingrpb nextwidget $okbutton
  6165.     VxSetVar $defuidscreen loginshtext $deflshtext 
  6166.     VxSetVar $defuidscreen loginshbutton $chgshellb 
  6167.     VxSetVar $defuidscreen disttext $disttext
  6168.     VxSetVar $defuidscreen distbutton $distbutton
  6169.     VxSetVar $defuidscreen homedirtxt $hdtext
  6170.     VxSetVar $defuidscreen homedirbutton $chghomedirb
  6171.     VxSetVar $defuidscreen logingrptext $lgtext
  6172.     VxSetVar $defuidscreen logingrpbutton $chglogingrpb
  6173.     VxSetVar $defuidscreen loginshell $defaultLoginShell
  6174.     VxSetVar $defuidscreen distrib $defaultDistribution
  6175.     VxSetVar $defuidscreen asudistrib $asuDist
  6176.     VxSetVar $defuidscreen homeperms $defaultHomeDirPerms 
  6177.     VxSetVar $defuidscreen logingroup $defaultLoginGroup
  6178.     VxSetVar $defuidscreen groups $defaultGroupNames
  6179.     VxSetVar $defuidscreen statusbar $statusBar
  6180.     VtShow $defuidscreen 
  6181.     VtSetFocus $deflshtext
  6182.     VtUnLock
  6183. }
  6184. proc DefaultGroupIdentityOkCB {cbs} {
  6185.     global uData
  6186.     set dialog [keylget cbs dialog]
  6187.     set mintext [VxGetVar $dialog mintext]
  6188.     set maxtext [VxGetVar $dialog maxtext]
  6189.     set disttext [VxGetVar $dialog disttext]
  6190.     set distribution [VxGetVar $dialog distrib]
  6191.     set statusbar [VxGetVar $dialog statusbar]
  6192.     set mingrpval [VtGetValues $mintext -value]
  6193.     set maxgrpval [VtGetValues $maxtext -value]
  6194.     if [lempty $mingrpval] {
  6195.     VtShow [VtErrorDialog $dialog.defgrperr \
  6196.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOMINGID] \
  6197.         -ok ]
  6198.     VtSetFocus $mintext
  6199.     VtUnLock
  6200.     return
  6201.     }
  6202.     if [lempty $maxgrpval] {
  6203.     VtShow [VtErrorDialog $dialog.defgrperr \
  6204.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_NOMAXGID] \
  6205.         -ok ]
  6206.     VtSetFocus $maxtext
  6207.     VtUnLock
  6208.     return
  6209.     }
  6210.     if {[ctype digit $mingrpval] != 1 && [ctype digit $maxgrpval] != 1} {
  6211.     VtShow [VtErrorDialog $dialog.defgrperr \
  6212.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_DEFGIDERR] \
  6213.         -ok ]
  6214.     VtSetFocus $mintext
  6215.     VtUnLock
  6216.     return
  6217.     }
  6218.     if {$mingrpval > $maxgrpval} {
  6219.     VtShow [VtErrorDialog $dialog.defgrperr \
  6220.         -message [IntlLocalizeMsg SCO_ACCOUNTGUI_ERR_MINGIDLTMAXERR] \
  6221.         -ok ]
  6222.     VtSetFocus $mintext
  6223.     VtUnLock
  6224.     return
  6225.     }
  6226.     lappend attribs [list "minGid" $mingrpval]
  6227.     lappend attribs [list "maxGid" $maxgrpval]
  6228.     case $distribution {
  6229.     {local} {
  6230.         lappend attribs [list "isNISUser" 0]
  6231.     }
  6232.     {isNISUser} {
  6233.         lappend attribs [list "isNISUser" 1]
  6234.     }
  6235.     }
  6236.     SaStatusBarSet $statusbar \
  6237.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPSYS_STAT]
  6238.     if {![lempty $uData(groupList)]} {
  6239.     set ret 0
  6240.     SaMachGroupProc $uData(hostname) $uData(groupList) \
  6241.         $uData(errorPrompt) [list SetGroupDefaults $attribs] \
  6242.         $uData(mainscreen) [list $cbs]
  6243.     } else {
  6244.     set ret [SetGroupDefaults $uData(hostname) errorStack $attribs]
  6245.     }
  6246.     if {$ret != 0} {
  6247.     SaStatusBarClear $statusbar
  6248.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_GRPDEF_SET
  6249.     SaDisplayErrorStacks $dialog.grpdeferr \
  6250.          [list $errorStack] HELP
  6251.     VtUnLock
  6252.     return
  6253.     } else {
  6254.     VtDestroyDialog $dialog
  6255.     SaStatusBarClear $uData(statusbar)
  6256.     }
  6257.     VtUnLock
  6258. }
  6259. proc GroupDefaultsCB {cbs} {
  6260.     global uData
  6261.     set pdialog [keylget cbs dialog]
  6262.     set maxwidth 0
  6263.     set attriblist [list \
  6264.             minGid \
  6265.             maxGid \
  6266.             isNISUser]
  6267.     if {[ErrorCatch errorStack 0 \
  6268.     {GetGroupDefaults $uData(hostname) $attriblist} defattribs] != 0} {
  6269.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_GRPDEF_GET_ATTRIB
  6270.     SaDisplayErrorStacks $uData(mainscreen).grpdeferr \
  6271.          [list $errorStack] HELP
  6272.     VtUnLock
  6273.     return
  6274.     }
  6275.     set defgrpidscreen [VtFormDialog $pdialog.defgrpidscreen \
  6276.      -title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODGRPDEFLTSTITLE $uData(hostname)] \
  6277.     -ok -cancel -help \
  6278.     -cancelButton CANCEL \
  6279.     -okCallback DefaultGroupIdentityOkCB \
  6280.     -cancelCallback VxEndFormCB \
  6281.     -autoLock DefaultGroupIdentityOkCB ]
  6282.     set minform [VtForm $defgrpidscreen.minform \
  6283.     -marginHeight 0 -marginWidth 0 \
  6284.     -rightSide FORM -leftSide FORM \
  6285.     -topOffset 10 -CHARM_topOffset 1]
  6286.     set mingrpidlabel [VtLabel $minform.mingrpidlabel \
  6287.     -labelRight \
  6288.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFMINGIDLABEL] ]
  6289.     set mingrpidtext [ VtText $minform.mingrpidtext \
  6290.     -value [keylget defattribs minGid] \
  6291.     -columns 9 \
  6292.     -callback MiscSetFocusNextCB \
  6293.     -shortHelpCallback SaShortHelpCB \
  6294.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MINGRPID_HELP] ]
  6295.     lappend labellist $mingrpidlabel
  6296.     lappend formlist $minform
  6297.     set width [VtGetValues $mingrpidlabel -width]
  6298.     if {$width > $maxwidth} {
  6299.     set maxwidth $width
  6300.     }
  6301.     set maxform [VtForm $defgrpidscreen.maxform \
  6302.     -topOffset 5 -CHARM_topOffset 1 \
  6303.     -marginHeight 0 -marginWidth 0 \
  6304.     -rightSide FORM -leftSide FORM]
  6305.     set maxgrpidlabel [VtLabel $maxform.maxgrpidlabel \
  6306.     -labelRight \
  6307.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DEFMAXGIDLABEL] ]
  6308.     set maxgrpidtext [VtText $maxform.maxgrpidtext \
  6309.     -value [keylget defattribs maxGid] \
  6310.     -columns 9 \
  6311.     -callback MiscSetFocusNextCB \
  6312.     -shortHelpCallback SaShortHelpCB \
  6313.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAXGRPID_HELP] ]
  6314.     lappend labellist $maxgrpidlabel
  6315.     lappend formlist $maxform
  6316.     set width [VtGetValues $maxgrpidlabel -width]
  6317.     if {$width > $maxwidth} {
  6318.     set maxwidth $width
  6319.     }
  6320.     VtSetValues $mingrpidlabel \
  6321.     -leftSide FORM -rightSide NONE \
  6322.     -topSide FORM -bottomSide FORM 
  6323.     VtSetValues $mingrpidtext \
  6324.     -leftSide $mingrpidlabel -leftOffset 5 -CHARM_leftOffset 1 \
  6325.     -rightSide NONE \
  6326.     -topSide FORM -bottomSide FORM 
  6327.     VtSetValues $maxgrpidlabel \
  6328.     -leftSide FORM -rightSide NONE \
  6329.     -topSide FORM -bottomSide FORM 
  6330.     VtSetValues $maxgrpidtext \
  6331.     -leftSide $maxgrpidlabel -leftOffset 5 -CHARM_leftOffset 1 \
  6332.     -rightSide NONE \
  6333.     -topSide FORM -bottomSide FORM 
  6334.     set distribval [keylget defattribs isNISUser]
  6335.     if {$distribval} {
  6336.     set defaultGroupDistrib "isNISUser"
  6337.     } else {
  6338.     set defaultGroupDistrib "local"
  6339.     }
  6340.     set title [IntlLocalizeMsg \
  6341.     SCO_ACCOUNTGUI_MSG_CHGDEFGRPDIST_TITLE]
  6342.     set distform [DistForm $defgrpidscreen $title $defaultGroupDistrib "none"]
  6343.     set distlabel [VxGetVar $distform label]
  6344.     set disttext [VxGetVar $distform text]
  6345.     set distbutton [VxGetVar $distform button]
  6346.     set width [VtGetValues $distlabel -width]
  6347.     if {$width > $maxwidth} {
  6348.     set maxwidth $width
  6349.     }
  6350.     lappend labellist $distlabel
  6351.     lappend formlist $distform
  6352.     VtSetValues $distform \
  6353.     -topOffset 5 -CHARM_topOffset 1 \
  6354.     -marginHeight 0 -marginWidth 0
  6355.     set statusBar [SaStatusBar $defgrpidscreen.statusbar]
  6356.     VtSetValues $distform -bottomSide $statusBar -CHARM_bottomOffset 1
  6357.     AlignLabels $maxwidth $labellist $formlist
  6358.     if {!$uData(nisEnabled)} {
  6359.     VtSetSensitive $disttext 0
  6360.     VtSetSensitive $distlabel 0
  6361.     VtSetSensitive $distbutton 0
  6362.     }
  6363.     VtRemoveAllTabGroups $defgrpidscreen
  6364.     set okbutton [VtGetValues $defgrpidscreen -ok]
  6365.     VtAddTabGroup $mingrpidtext
  6366.     VxSetVar $mingrpidtext nextwidget $maxgrpidtext
  6367.     VtAddTabGroup $maxgrpidtext
  6368.     if {$uData(nisEnabled)} {
  6369.     VtAddTabGroup $disttext
  6370.     VtAddTabGroup $distbutton
  6371.     VxSetVar $maxgrpidtext nextwidget $disttext
  6372.     VxSetVar $disttext nextwidget $okbutton
  6373.     VxSetVar $distbutton nextwidget $okbutton
  6374.     } else {
  6375.     VxSetVar $maxgrpidtext nextwidget $okbutton
  6376.     }
  6377.     VxSetVar $defgrpidscreen mintext $mingrpidtext 
  6378.     VxSetVar $defgrpidscreen maxtext $maxgrpidtext 
  6379.     VxSetVar $defgrpidscreen disttext $disttext
  6380.     VxSetVar $defgrpidscreen distrib $defaultGroupDistrib
  6381.     VxSetVar $defgrpidscreen asudistrib "none"
  6382.     VxSetVar $defgrpidscreen statusbar $statusBar
  6383.     VtShow $defgrpidscreen
  6384.     VtSetFocus $mingrpidtext
  6385.     VtUnLock
  6386. }
  6387. proc UserSelectedName {} {
  6388.     global uData
  6389.     global users
  6390.     return [keylget users($uData(userSelected)) name]
  6391. }
  6392. proc AddUserToList {user} {
  6393.     global uData
  6394.     global users
  6395.     set position [array size users]
  6396.     incr position
  6397.     if {$uData(showIcons)} {
  6398.     set attribs [list pw_uid \
  6399.               comment \
  6400.               isNISUser \
  6401.               isASUUser \
  6402.               userType \
  6403.               administrative_lock_applied \
  6404.               account_lifetime \
  6405.               passwd_successful_change_date]
  6406.     } else {
  6407.     set attribs [list pw_uid comment ]
  6408.     }
  6409.     if {[ErrorCatch errorStack 0 \
  6410.     {GetUserAttribs $uData(hostname) $user $attribs} attribkl] != 0} {
  6411.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_ADDUSER $user
  6412.     SaDisplayErrorStacks $uData(mainscreen).addusererr \
  6413.          [list $errorStack] HELP
  6414.     return
  6415.     }
  6416.     set id [keylget attribkl pw_uid]
  6417.     set comment [keylget attribkl comment]
  6418.     keylset users($position) name $user
  6419.     keylset users($position) id $id
  6420.     keylset users($position) comment $comment
  6421.     set uData(userSelected) $position
  6422.     if {$uData(showIcons)} {
  6423.     set distribval [keylget attribkl isNISUser]
  6424.         set asudistribval [keylget attribkl isASUUser]
  6425.     if {$distribval || $asudistribval} {
  6426.         set distrib "isNISUser"
  6427.     } else {
  6428.         set distrib "local"
  6429.     }
  6430.     set type [keylget attribkl userType]
  6431.     set admin [keylget attribkl administrative_lock_applied]
  6432.     set lockstatus [IsLocked $type $admin]
  6433.     keylset users($position) distribution $distrib
  6434.     keylset users($position) type $type
  6435.     keylset users($position) lockstatus $lockstatus
  6436.     }
  6437.     if {$uData(listView) == "users"} {
  6438.     if {$uData(showIcons)} {
  6439.         set itemlist {}
  6440.         if {$lockstatus} {
  6441.         set itemlist [list 5]
  6442.         } else {
  6443.         set itemlist NO_ICON
  6444.         }
  6445.         if {$type == "general"} {
  6446.         lappend itemlist 1
  6447.         } elseif {$type == "root"} {
  6448.         lappend itemlist 2
  6449.         } elseif {$type == "retired"} {
  6450.         lappend itemlist 3
  6451.         } elseif {$type == "pseudo"} {
  6452.         lappend itemlist 7
  6453.         } else {
  6454.         lappend itemlist NO_ICON
  6455.         }
  6456.         if {$distrib == "isNISUser"} {
  6457.         lappend itemlist 6
  6458.         } else {
  6459.         lappend itemlist NO_ICON
  6460.         }
  6461.     } else {
  6462.         set itemlist [list NO_ICON NO_ICON NO_ICON]
  6463.     }
  6464.     lappend itemlist $user
  6465.     lappend itemlist $id
  6466.     lappend itemlist $comment
  6467.     VtDrawnListAddItem $uData(mainlist) \
  6468.         -position 0 \
  6469.         -fieldList $itemlist
  6470.     VtDrawnListSelectItem $uData(mainlist) \
  6471.         -position $uData(userSelected)
  6472.     SaDrawnListShowSelectedItem $uData(mainlist) 
  6473.     }
  6474. }
  6475. proc RemoveUserFromList {user} {
  6476.     global uData
  6477.     global users
  6478.     set size [array size users]
  6479.     incr size
  6480.     loop item 1 $size { 
  6481.     if {$user == [keylget users($item) name]} {
  6482.         set position $item
  6483.         break
  6484.     }
  6485.     }
  6486.     loop item $position [expr {$size - 1}] {
  6487.     set next [expr {$item + 1}]
  6488.     keylset users($item) name [keylget users($next) name]
  6489.     keylset users($item) id [keylget users($next) id]
  6490.     keylset users($item) comment [keylget users($next) comment]
  6491.     if {$uData(showIcons)} {
  6492.         keylset users($item) distribution [keylget users($next) distribution]
  6493.         keylset users($item) type [keylget users($next) type]
  6494.         keylset users($item) lockstatus [keylget users($next) lockstatus]
  6495.     }
  6496.     }
  6497.     unset users([expr {$size - 1}])
  6498.     if {$uData(listView) == "users"} {
  6499.     VtDrawnListDeleteItem $uData(mainlist) \
  6500.         -position $uData(userSelected)
  6501.     if {$position == [expr {$size - 1}] } {
  6502.         set uData(userSelected) [expr {$position - 1}]
  6503.     } else {
  6504.         set uData(userSelected) $position
  6505.     }
  6506.     VtDrawnListSelectItem $uData(mainlist) \
  6507.         -position $uData(userSelected)
  6508.     SaDrawnListShowSelectedItem $uData(mainlist) 
  6509.     }
  6510. }
  6511. proc UpdateUserInList {user} {
  6512.     global uData
  6513.     global users
  6514.     set size [array size users]
  6515.     incr size
  6516.     loop item 1 $size { 
  6517.     if {$user == [keylget users($item) name]} {
  6518.         set position $item
  6519.         break
  6520.     }
  6521.     }
  6522.     if {$uData(showIcons)} {
  6523.     set attribs [list isNISUser \
  6524.               isASUUser \
  6525.               userType \
  6526.               comment \
  6527.               administrative_lock_applied \
  6528.               account_lifetime \
  6529.               passwd_successful_change_date]
  6530.     } else {
  6531.     set attribs [list comment ]
  6532.     }
  6533.     if {[ErrorCatch errorStack 0 \
  6534.     {GetUserAttribs $uData(hostname) $user $attribs} attribkl] != 0} {
  6535.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_UPDATEUSER_GET $user
  6536.     SaDisplayErrorStacks $uData(mainscreen).addusererr \
  6537.          [list $errorStack] HELP
  6538.     return
  6539.     }
  6540.     keylset users($position) comment [keylget attribkl comment]
  6541.     if {$uData(showIcons)} {
  6542.     set distrib [keylget attribkl isNISUser]
  6543.         set asudistrib [keylget attribkl isASUUser]
  6544.     if {$distrib || $asudistrib} {
  6545.         keylset users($position) distribution "isNISUser"
  6546.     } else {
  6547.         keylset users($position) distribution "local"
  6548.     }
  6549.     keylset users($position) type [keylget attribkl userType]
  6550.     set type [keylget attribkl userType]
  6551.     set admin [keylget attribkl administrative_lock_applied]
  6552.     keylset users($position) lockstatus [IsLocked $type $admin]
  6553.     }
  6554.     if {$uData(listView) == "users"} {
  6555.     if {$uData(showIcons)} {
  6556.         set itemlist {}
  6557.         set lockstatus [keylget users($item) lockstatus]
  6558.         if {$lockstatus} {
  6559.         set itemlist [list 5]
  6560.         } else {
  6561.         set itemlist NO_ICON
  6562.         }
  6563.         if {[keylget users($item) type] == "general"} {
  6564.         lappend itemlist 1
  6565.         } elseif {[keylget users($item) type] == "root"} {
  6566.         lappend itemlist 2
  6567.         } elseif {[keylget users($item) type] == "retired"} {
  6568.         lappend itemlist 3
  6569.         } elseif {[keylget users($item) type] == "pseudo"} {
  6570.         lappend itemlist 7
  6571.         } else {
  6572.         lappend itemlist NO_ICON
  6573.         }
  6574.         if {$distrib || $asudistrib} {
  6575.         lappend itemlist 6
  6576.         } else {
  6577.         lappend itemlist NO_ICON
  6578.         }
  6579.     } else {
  6580.         set itemlist [list NO_ICON NO_ICON NO_ICON]
  6581.     }
  6582.     lappend itemlist [keylget users($item) name]
  6583.     lappend itemlist [keylget users($item) id]
  6584.     lappend itemlist [keylget users($item) comment]
  6585.     VtDrawnListDeleteItem $uData(mainlist) \
  6586.         -position $position
  6587.     VtDrawnListAddItem $uData(mainlist) \
  6588.         -position $position \
  6589.         -fieldList $itemlist
  6590.     if {$uData(userSelected) != 0} {
  6591.         VtDrawnListSelectItem $uData(mainlist) \
  6592.         -position $uData(userSelected)
  6593.         SaDrawnListShowSelectedItem $uData(mainlist) 
  6594.     }
  6595.     }
  6596. }
  6597. proc GroupSelectedName {} {
  6598.     global uData
  6599.     global groups
  6600.     return [keylget groups($uData(groupSelected)) name]
  6601. }
  6602. proc AddGroupToList {groupname} {
  6603.     global uData
  6604.     global groups
  6605.     set position [array size groups]
  6606.     incr position
  6607.     set attriblist [list gr_gid isNISUser]
  6608.     if {[ErrorCatch errorStack 0 \
  6609.     {GetGroupAttribs $uData(hostname) $groupname $attriblist} glist] != 0} {
  6610.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_ADDGRP $groupname
  6611.     SaDisplayErrorStacks $uData(mainscreen).addgrperr \
  6612.          [list $errorStack] HELP
  6613.     return
  6614.     }
  6615.     set groupid [keylget glist gr_gid]
  6616.     set distrib [keylget glist isNISUser]
  6617.     keylset groups($position) name $groupname
  6618.     keylset groups($position) id $groupid
  6619.     if {$distrib} {
  6620.     keylset groups($position) distribution "isNISUser"
  6621.     } else {
  6622.     keylset groups($position) distribution "local"
  6623.     }
  6624.     set uData(groupSelected) $position
  6625.     if {$uData(listView) == "groups"} {
  6626.     if {$uData(showIcons)} {
  6627.         set itemlist [list NO_ICON 4]
  6628.         if {$distrib} {
  6629.         lappend itemlist 6
  6630.         } else {
  6631.         lappend itemlist NO_ICON
  6632.         }
  6633.     } else {
  6634.         set itemlist [list NO_ICON NO_ICON NO_ICON]
  6635.     }
  6636.     lappend itemlist $groupname
  6637.     lappend itemlist $groupid
  6638.     VtDrawnListAddItem $uData(mainlist) \
  6639.         -position 0 \
  6640.         -fieldList $itemlist
  6641.     VtDrawnListSelectItem $uData(mainlist) \
  6642.         -position $uData(groupSelected)
  6643.     SaDrawnListShowSelectedItem $uData(mainlist) 
  6644.     }
  6645. }
  6646. proc RemoveGroupFromList {group} {
  6647.     global uData
  6648.     global groups
  6649.     set size [array size groups]
  6650.     incr size
  6651.     loop item 1 $size { 
  6652.     if {$group == [keylget groups($item) name]} {
  6653.         set position $item
  6654.         break
  6655.     }
  6656.     }
  6657.     loop item $position [expr {$size - 1}] {
  6658.     set next [expr {$item + 1}]
  6659.     keylset groups($item) id [keylget groups($next) id]
  6660.     keylset groups($item) name [keylget groups($next) name]
  6661.     keylset groups($item) distribution [keylget groups($next) distribution]
  6662.     }
  6663.     unset groups([expr {$size - 1}])
  6664.     if {$uData(listView) == "groups"} {
  6665.     VtDrawnListDeleteItem $uData(mainlist) \
  6666.         -position $uData(groupSelected)
  6667.     if {$position == [expr {$size - 1}] } {
  6668.         set uData(groupSelected) [expr {$position - 1}]
  6669.     } else {
  6670.         set uData(groupSelected) $position
  6671.     }
  6672.     VtDrawnListSelectItem $uData(mainlist) \
  6673.         -position $uData(groupSelected)
  6674.     SaDrawnListShowSelectedItem $uData(mainlist) 
  6675.     }
  6676. }
  6677. proc UpdateGroupInList {groupname} {
  6678.     global uData
  6679.     global groups
  6680.     set size [array size groups]
  6681.     incr size
  6682.     loop item 1 $size { 
  6683.     if {$groupname == [keylget groups($item) name]} {
  6684.         set position $item
  6685.         break
  6686.     }
  6687.     }
  6688.     set attriblist [list gr_gid isNISUser]
  6689.     if {[ErrorCatch errorStack 0 \
  6690.     {GetGroupAttribs $uData(hostname) $groupname $attriblist} glist] != 0} {
  6691.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_UPDATEGRP_GET
  6692.     SaDisplayErrorStacks $uData(mainscreen).updategrperr \
  6693.          [list $errorStack] HELP
  6694.     return
  6695.     }
  6696.     set groupid [keylget glist gr_gid]
  6697.     set distrib [keylget glist isNISUser]
  6698.     if {$distrib} {
  6699.     keylset groups($position) distribution "isNISUser"
  6700.     } else {
  6701.     keylset groups($position) distribution "local"
  6702.     }
  6703.     if {$uData(listView) == "groups"} {
  6704.     if {$uData(showIcons)} {
  6705.         set itemlist [list NO_ICON 4]
  6706.         if {$distrib} {
  6707.         lappend itemlist 6
  6708.         } else {
  6709.         lappend itemlist NO_ICON
  6710.         }
  6711.     } else {
  6712.         set itemlist [list NO_ICON NO_ICON NO_ICON]
  6713.     }
  6714.     lappend itemlist $groupname
  6715.     lappend itemlist $groupid
  6716.     VtDrawnListDeleteItem $uData(mainlist) \
  6717.         -position $position
  6718.     VtDrawnListAddItem $uData(mainlist) \
  6719.         -position $position \
  6720.         -fieldList $itemlist
  6721.     if {$uData(groupSelected) != 0} {
  6722.         VtDrawnListSelectItem $uData(mainlist) \
  6723.         -position $uData(groupSelected)
  6724.         SaDrawnListShowSelectedItem $uData(mainlist) 
  6725.     }
  6726.     }
  6727. }
  6728. proc TopErrorCB {cbs} {
  6729.     global uData
  6730.     VtUnLock
  6731.     SaDisplayErrorInfo $uData(mainscreen).topErrBox [keylget cbs result] HELP
  6732. }
  6733. proc ErrExitCB {cbs} {
  6734.     VtClose
  6735.     exit 1
  6736. }
  6737. proc FastExitCB {cbs} {
  6738.     VtClose
  6739.     exit 0
  6740. }
  6741. proc ExitCB {cbs} {
  6742.     global client
  6743.     global uData
  6744.     if {[ErrorCatch errorStack 0 {SaShortHelpStore $client} dummyvar] != 0} { 
  6745.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_HELPSTORE
  6746.     }
  6747.     if {![VtInfo -charm]} {
  6748.     SaToolbarGet visibility
  6749.     if {[ErrorCatch errorStack 0  \
  6750.         {SaToolbarStore $client visibility} dummyvar] != 0} { 
  6751.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_TOOLBRSTORE
  6752.     }
  6753.     }
  6754.     set currentStatus $uData(showIcons)
  6755.     set listView $uData(listView)
  6756.     if {[ErrorCatch errorStack 0 \
  6757.     {SaScreenPolicySet $client showIcons $currentStatus} dummyvar] != 0} {
  6758.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_ISTATSTORE
  6759.     }
  6760.     if {[ErrorCatch errorStack 0 \
  6761.     {SaScreenPolicySet $client listView $listView} dummyvar] != 0} {
  6762.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_LISTVSTORE
  6763.     }
  6764.     if { ![lempty $errorStack] } {
  6765.     ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_EXITERR
  6766.     SaDisplayErrorStacks $uData(mainscreen).errsave \
  6767.         [list $errorStack] HELP FastExitCB
  6768.     } else {
  6769.     VtClose
  6770.     exit 0
  6771.     }
  6772. }
  6773. proc MainListSelectionCB {cbs} {
  6774.     global uData
  6775.     if {$uData(listView) == "users"} {
  6776.     set uData(userSelected) \
  6777.         [VtDrawnListGetSelectedItem $uData(mainlist) -byPositionList]
  6778.     } elseif {$uData(listView) == "groups"} {
  6779.     set uData(groupSelected) \
  6780.         [VtDrawnListGetSelectedItem $uData(mainlist) -byPositionList]
  6781.     }
  6782.     SetCopyUserSensitivity
  6783. }
  6784. proc TBRemoveCB {cbs} {
  6785.     global uData
  6786.     set dialog [keylget cbs dialog]
  6787.     if {$uData(listView) == "users" && $uData(userSelected) != 0} {
  6788.     RemoveUser $dialog
  6789.     } elseif {$uData(listView) == "groups" && $uData(groupSelected) != 0} {
  6790.     RemoveGroup $dialog
  6791.     }
  6792. }
  6793. proc ExamineCB {cbs} {
  6794.     global uData
  6795.     if {$uData(listView) == "users" && $uData(userSelected) != 0} {
  6796.     set user [UserSelectedName]
  6797.     ModifyUserCB $cbs
  6798.     } elseif {$uData(listView) == "groups" && $uData(groupSelected) != 0} {
  6799.     set groupname [GroupSelectedName]
  6800.     ModifyGroupCB $cbs
  6801.     }
  6802. }
  6803. proc SetUserListTitle {} {
  6804.     global uData
  6805.     set label1 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_STATUS_LIST_TITLE]
  6806.     set label2 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USER_LIST_TITLE]
  6807.     set label3 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ID_LIST_TITLE]
  6808.     set label4 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_COMMENT_LIST_TITLE]
  6809.     if [VtInfo -charm] {
  6810.     VtSetValues $uData(listlabel) \
  6811.         -label [format " %-8s%-12s%-8s%-s" $label1 $label2 $label3 $label4]
  6812.     } else {
  6813.     VtSetValues $uData(mainlist) \
  6814.         -MOTIF_labelList [list $label1 $label2 $label3 $label4]
  6815.     }
  6816. }
  6817. proc SetGroupListTitle {} {
  6818.     global uData
  6819.     set label1 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_STATUS_LIST_TITLE]
  6820.     set label2 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUP_LIST_TITLE]
  6821.     set label3 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ID_LIST_TITLE]
  6822.     set label4 ""
  6823.     if [VtInfo -charm] {
  6824.     VtSetValues $uData(listlabel) \
  6825.         -label [format " %-8s%-11s%-8s%-s" $label1 $label2 $label3 $label4]
  6826.     } else {
  6827.     VtSetValues $uData(mainlist) \
  6828.         -MOTIF_labelList [list $label1 $label2 $label3 $label4]
  6829.     }
  6830. }
  6831. proc UpdateMainList {} {
  6832.     global uData
  6833.     global users
  6834.     global groups
  6835.     if {$uData(listView) == "users"} {
  6836.     SetUserListTitle
  6837.     VtDrawnListDeleteItem $uData(mainlist) -all
  6838.     set size [array size users]
  6839.     incr size
  6840.     if {$uData(showIcons)} {
  6841.         loop item 1 $size {
  6842.         set itemlist {}
  6843.         set lockstatus [keylget users($item) lockstatus]
  6844.         if {$lockstatus} {
  6845.             set itemlist [list 5]
  6846.         } else {
  6847.             set itemlist NO_ICON
  6848.         }
  6849.         if {[keylget users($item) type] == "general"} {
  6850.             lappend itemlist 1
  6851.         } elseif {[keylget users($item) type] == "root"} {
  6852.             lappend itemlist 2
  6853.         } elseif {[keylget users($item) type] == "retired"} {
  6854.             lappend itemlist 3
  6855.         } elseif {[keylget users($item) type] == "pseudo"} {
  6856.             lappend itemlist 7
  6857.         } else {
  6858.             lappend itemlist NO_ICON
  6859.         }
  6860.         set distrib [keylget users($item) distribution]
  6861.         if {$distrib == "isNISUser"} {
  6862.             lappend itemlist 6
  6863.         } else {
  6864.             lappend itemlist NO_ICON
  6865.         }
  6866.         lappend itemlist [keylget users($item) name]
  6867.         lappend itemlist [keylget users($item) id]
  6868.         lappend itemlist [keylget users($item) comment]
  6869.         VtDrawnListAddItem $uData(mainlist) \
  6870.             -position 0 \
  6871.             -fieldList $itemlist
  6872.         }
  6873.     } else {
  6874.         loop item 1 $size {
  6875.         set itemlist [list NO_ICON NO_ICON NO_ICON]
  6876.         lappend itemlist [keylget users($item) name]
  6877.         lappend itemlist [keylget users($item) id]
  6878.         lappend itemlist [keylget users($item) comment]
  6879.         VtDrawnListAddItem $uData(mainlist) \
  6880.             -position 0 \
  6881.             -fieldList $itemlist
  6882.         }
  6883.     }
  6884.     if {$uData(userSelected) != 0} {
  6885.         VtDrawnListSelectItem $uData(mainlist) \
  6886.         -position $uData(userSelected)
  6887.         SaDrawnListShowSelectedItem $uData(mainlist) 
  6888.     }
  6889.     } else {
  6890.     SetGroupListTitle
  6891.     VtDrawnListDeleteItem $uData(mainlist) -all
  6892.     set size [array size groups]
  6893.     incr size
  6894.     if {$uData(showIcons)} {
  6895.         loop item 1 $size {
  6896.         set itemlist [list NO_ICON 4]
  6897.         set distrib [keylget groups($item) distribution]
  6898.         if {$distrib == "isNISUser"} {
  6899.             lappend itemlist 6
  6900.         } else {
  6901.             lappend itemlist NO_ICON
  6902.         }
  6903.         lappend itemlist [keylget groups($item) name]
  6904.         lappend itemlist [keylget groups($item) id]
  6905.         VtDrawnListAddItem $uData(mainlist) \
  6906.             -position 0 \
  6907.             -fieldList $itemlist
  6908.         }
  6909.     } else {
  6910.         loop item 1 $size {
  6911.         set itemlist [list NO_ICON NO_ICON NO_ICON]
  6912.         lappend itemlist [keylget groups($item) name]
  6913.         lappend itemlist [keylget groups($item) id]
  6914.         VtDrawnListAddItem $uData(mainlist) \
  6915.             -position 0 \
  6916.             -fieldList $itemlist
  6917.         }
  6918.     }
  6919.     if {$uData(groupSelected) != 0} {
  6920.         VtDrawnListSelectItem $uData(mainlist) \
  6921.         -position $uData(groupSelected)
  6922.         SaDrawnListShowSelectedItem $uData(mainlist) 
  6923.     }
  6924.     }
  6925. }
  6926. proc DisplayToolBar {visibility} {
  6927.     global uData
  6928.     set mainscreen $uData(mainscreen)
  6929.     set menubar $uData(menubar)
  6930.     set iconlist [list \
  6931.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_tb_newuser_icon] \
  6932.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_tb_copyuser_icon] \
  6933.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_tb_newgroup_icon] \
  6934.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_tb_modify_icon] \
  6935.     [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_tb_delete_icon] ]
  6936.     set commandlist [list \
  6937.     [list newuser "NewUserCB" \
  6938.            [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TB_NEWUSER] ] \
  6939.     [list copyuser "CopyUserCB" \
  6940.            [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TB_COPYUSER] ] \
  6941.     [list newgroup "NewGroupCB" \
  6942.            [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TB_NEWGROUP] ] \
  6943.     [list modify "ExamineCB" \
  6944.            [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TB_MODIFY] ] \
  6945.     [list remove "TBRemoveCB" \
  6946.            [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_TB_REMOVE] ] ]
  6947.     set stdlist [list \
  6948.     {0 0} \
  6949.     {1 1} \
  6950.     {2 2} \
  6951.     {3 3} \
  6952.     {{} S} \
  6953.     {4 4} ]
  6954.     set toolbar [SaToolbar \
  6955.          $mainscreen.toolbar \
  6956.          $menubar \
  6957.          $iconlist \
  6958.          $commandlist \
  6959.          $stdlist\
  6960.          SaShortHelpCB \
  6961.          $visibility ]
  6962.     set uData(toolbar) $toolbar
  6963. }
  6964. proc DisplayMainScreen {} {
  6965.     global uData client
  6966.     if {[llength $uData(groupList)] > 0} {
  6967.     set title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ONGROUP $uData(hostname)]
  6968.     } else {
  6969.     set title [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ON $uData(hostname)]
  6970.     }
  6971.     set uData(mainscreen) [VtFormDialog $uData(appname).mainscreen \
  6972.      -title $title \
  6973.         -wmCloseCallback ExitCB \
  6974.         -wmShadowThickness 0 \
  6975.         -marginWidth 0 -marginHeight 0]
  6976.     set menubar [VtMenuBar $uData(mainscreen).menubar \
  6977.     -helpMenuItemList [SaHelpGetOptionsList]]
  6978.     set uData(menubar) $menubar
  6979.     set hostm [VtPulldown $menubar.hostm \
  6980.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAINMENUHOSTB] \
  6981.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOSTMENUMNEM]]
  6982.     set selhostb [VtPushButton $hostm.selhostb \
  6983.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OPENHOSTB] \
  6984.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_HOSTMNEM] \
  6985.     -callback SaOpenHostCB]
  6986.     set opengrpb [VtPushButton $hostm.opengrpb \
  6987.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OPENGRPB] \
  6988.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OPENGRPM] \
  6989.     -callback SaOpenGroupCB]
  6990.     set hostsep [VtSeparator $hostm.hostsep]
  6991.     set exitb [VtPushButton $hostm.exitb \
  6992.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_EXITB] \
  6993.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_EXITMNEM] \
  6994.     -callback ExitCB]
  6995.     set usersm [VtPulldown $menubar.usersm \
  6996.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAINMENUUSERSB] \
  6997.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERMENUMNEM]]
  6998.     set uaddb [VtPushButton $usersm.uaddb \
  6999.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDNEWUSERB] \
  7000.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDUSERMNEM] \
  7001.     -shortHelpCallback SaShortHelpCB \
  7002.     -shortHelpString \
  7003.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEWUSER_SH] \
  7004.     -callback NewUserCB \
  7005.     -autoLock NewUserCB ]
  7006.     set ucopyb [VtPushButton $usersm.ucopyb \
  7007.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_COPYUSERB] \
  7008.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_COPYUSERMNEM] \
  7009.     -shortHelpCallback SaShortHelpCB \
  7010.     -shortHelpString \
  7011.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_COPYUSER_SH] \
  7012.     -callback CopyUserCB \
  7013.     -autoLock CopyUserCB ]
  7014.     set umodifyb [VtPushButton $usersm.umodifyb \
  7015.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODIFYUSERB] \
  7016.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODUSERMNEM] \
  7017.     -shortHelpCallback SaShortHelpCB \
  7018.     -shortHelpString \
  7019.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODIFYUSER_SH] \
  7020.     -callback ModifyUserCB \
  7021.     -autoLock ModifyUserCB ]
  7022.     set uretireb [VtPushButton $usersm.uretireb \
  7023.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOCKUSERB] \
  7024.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOCKUSERMNEM] \
  7025.     -shortHelpCallback SaShortHelpCB \
  7026.     -shortHelpString \
  7027.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_LOCKUSER_SH] \
  7028.     -callback RetireUserCB \
  7029.     -autoLock RetireUserCB ]
  7030.     set usersep1 [VtSeparator $usersm.usersep1]
  7031.     set udeleteb [VtPushButton $usersm.udeleteb \
  7032.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELETEUSERB] \
  7033.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELUSERMNEM] \
  7034.     -shortHelpCallback SaShortHelpCB \
  7035.     -shortHelpString \
  7036.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELETEUSER_SH] \
  7037.     -callback RemoveUserCB \
  7038.     -autoLock RemoveUserCB ]
  7039.     set usersep2 [VtSeparator $usersm.usersep2]
  7040.     set uchangepwb [VtPushButton $usersm.uchangepwb \
  7041.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGEPWB] \
  7042.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHGPWMNEM] \
  7043.     -shortHelpCallback SaShortHelpCB \
  7044.     -shortHelpString \
  7045.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_CHANGEPW_SH] \
  7046.     -callback ChangePasswordCB \
  7047.     -autoLock ChangePasswordCB ]
  7048.     set upwexpb [VtPushButton $usersm.upwexpb \
  7049.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWEXPIRATIONB] \
  7050.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWEXPIRMNEM] \
  7051.     -shortHelpCallback SaShortHelpCB \
  7052.     -shortHelpString \
  7053.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_PWEXPIRE_SH ] \
  7054.     -callback PasswordExpirationCB \
  7055.     -autoLock PasswordExpirationCB ]
  7056.     set uauthsb [VtPushButton $usersm.uauthsb \
  7057.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERAUTHSB] \
  7058.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_UAUTHSMNEM] \
  7059.     -shortHelpCallback SaShortHelpCB \
  7060.     -shortHelpString \
  7061.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_AUTHS_SH ] \
  7062.     -callback AuthsCB \
  7063.     -autoLock AuthsCB ]
  7064.     set urhostsb [VtPushButton $usersm.urhostsb \
  7065.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERRHOSTSB] \
  7066.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_URHOSTSMNEM] \
  7067.     -shortHelpCallback SaShortHelpCB \
  7068.     -shortHelpString \
  7069.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_RHOSTS_SH ] \
  7070.     -callback RHostsCB \
  7071.     -autoLock RHostsCB ]
  7072.     set groupsm [VtPulldown $menubar.groupsm \
  7073.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAINMENUGROUPSB] \
  7074.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPMENUMNEM]]
  7075.     set gaddb [VtPushButton $groupsm.gaddb \
  7076.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDNEWGROUPB] \
  7077.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ADDGROUPMNEM] \
  7078.     -shortHelpCallback SaShortHelpCB \
  7079.     -shortHelpString \
  7080.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_NEWGRP_SH ] \
  7081.     -callback NewGroupCB \
  7082.     -autoLock NewGroupCB ]
  7083.     set gmodifyb [VtPushButton $groupsm.gmodifyb \
  7084.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODIFYGROUPB] \
  7085.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODGROUPMNEM] \
  7086.     -shortHelpCallback SaShortHelpCB \
  7087.     -shortHelpString \
  7088.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MODIFYGRP_SH ] \
  7089.     -callback ModifyGroupCB \
  7090.     -autoLock ModifyGroupCB ]
  7091.     set grpsep [VtSeparator $groupsm.grpsep]
  7092.     set gdeleteb [VtPushButton $groupsm.gdeleteb \
  7093.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELETEGROUPB] \
  7094.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELGROUPMNEM] \
  7095.     -shortHelpCallback SaShortHelpCB \
  7096.     -shortHelpString \
  7097.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_DELGRP_SH ] \
  7098.     -callback RemoveGroupCB \
  7099.     -autoLock RemoveGroupCB ]
  7100.     set viewm [VtPulldown $menubar.viewm \
  7101.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAINMENUVIEWB] \
  7102.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VIEWMENUMNEM]]
  7103.     set viewub [VtPushButton $viewm.viewub \
  7104.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VIEWUSERSB] \
  7105.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VUSERSMNEM] \
  7106.     -shortHelpCallback SaShortHelpCB \
  7107.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VUSER_SH] \
  7108.     -callback ViewUsersCB]
  7109.     set viewgb [VtPushButton $viewm.viewgb \
  7110.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VIEWGROUPSB] \
  7111.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VGROUPSMNEM] \
  7112.     -shortHelpCallback SaShortHelpCB \
  7113.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_VGRP_SH] \
  7114.     -callback ViewGroupsCB]
  7115.     set optionsm [VtPulldown $menubar.optionsm \
  7116.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_MAINMENUOPTB] \
  7117.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_OPTIONSMENUMNEM]]
  7118.     set userdefb [VtPushButton $optionsm.userdefb \
  7119.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USERDEFAULTSB] \
  7120.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_UDEFLTMNEM] \
  7121.     -shortHelpCallback SaShortHelpCB \
  7122.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_UDFLTS_SH] \
  7123.     -callback UserDefaultsCB \
  7124.     -autoLock UserDefaultsCB ]
  7125.     set groupdefb [VtPushButton $optionsm.groupdefb \
  7126.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GROUPDEFAULTSB] \
  7127.     -mnemonic [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GDEFLTMNEM] \
  7128.     -shortHelpCallback SaShortHelpCB \
  7129.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_GDFLTS_SH] \
  7130.     -callback GroupDefaultsCB \
  7131.     -autoLock GroupDefaultsCB ]
  7132.     set optionsep [VtSeparator $optionsm.optionsep]
  7133.     set showiconsb [VtToggleButton $optionsm.showiconsb \
  7134.     -label [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_STATUSDISPB] \
  7135.     -callback ViewStatusDispCB \
  7136.     -shortHelpCallback SaShortHelpCB \
  7137.     -shortHelpString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ICONSTAT_SH] \
  7138.     -value $uData(showIcons)]
  7139.     SaShortHelpLoad $client
  7140.     SaShortHelpMenuOptions $optionsm
  7141.     if {![VtInfo -charm]} {
  7142.     SaToolbarMenuOptions $optionsm [list show]
  7143.     set visibility 1
  7144.     SaToolbarLoad $client visibility
  7145.     DisplayToolBar $visibility
  7146.     }
  7147.     if {[catch {SaScreenPolicyGet $client showIcons} state] == 0} {
  7148.     set uData(showIcons) $state
  7149.     }
  7150.     VtSetValues $showiconsb -value $uData(showIcons)
  7151.     if {[catch {SaScreenPolicyGet $client listView} state] == 0} {
  7152.     set uData(listView) $state
  7153.     }
  7154.     VxSetVar $uData(mainscreen) viewub $viewub
  7155.     VxSetVar $uData(mainscreen) viewgb $viewgb
  7156.     VxSetVar $uData(mainscreen) umodifyb $umodifyb
  7157.     VxSetVar $uData(mainscreen) udeleteb $udeleteb
  7158.     VxSetVar $uData(mainscreen) ucopyb $ucopyb
  7159.     VxSetVar $uData(mainscreen) uretireb $uretireb
  7160.     VxSetVar $uData(mainscreen) uchangepwb $uchangepwb
  7161.     VxSetVar $uData(mainscreen) upwexpb $upwexpb
  7162.     VxSetVar $uData(mainscreen) uauthsb $uauthsb
  7163.     VxSetVar $uData(mainscreen) urhostsb $urhostsb
  7164.     VxSetVar $uData(mainscreen) gmodifyb $gmodifyb
  7165.     VxSetVar $uData(mainscreen) gdeleteb $gdeleteb
  7166.     VxSetVar $uData(mainscreen) showiconsb $showiconsb 
  7167.     set mainscreen $uData(mainscreen)
  7168.     set label1 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_STATUS_LIST_TITLE]
  7169.     set label2 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_USER_LIST_TITLE]
  7170.     set label3 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_ID_LIST_TITLE]
  7171.     set label4 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_COMMENT_LIST_TITLE]
  7172.     if [VtInfo -charm] {
  7173.     set uData(hostlabel) [VtLabel $uData(mainscreen).hostlabel \
  7174.         -label [format " %s" [IntlLocalizeMsg \
  7175.         SCO_ACCOUNTGUI_MSG_UMNLISTTITLE $uData(fulldomain)]]]
  7176.     set uData(listlabel) [VtLabel $uData(mainscreen).listlabel \
  7177.         -label [format " %-8s%-11s%-8s%-s" $label1 $label2 $label3 $label4]]
  7178.     } else {
  7179.     set uData(hostlabel) [VtLabel $uData(mainscreen).hostlabel \
  7180.         -label [IntlLocalizeMsg \
  7181.         SCO_ACCOUNTGUI_MSG_UMNLISTTITLE $uData(fulldomain)]]
  7182.     }
  7183.     set uData(mainlist) [VtDrawnList $mainscreen.mainlist \
  7184.     -font medNormalFont \
  7185.     -rows 10 \
  7186.     -CHARM_rows 12 \
  7187.     -columns 70 \
  7188.     -CHARM_columns 75 \
  7189.     -iconList [list \
  7190.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_blank_icon] \
  7191.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_user_icon] \
  7192.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_superuser_icon] \
  7193.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_retired_icon] \
  7194.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_group_icon] \
  7195.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_locked_icon] \
  7196.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_distrib_icon] \
  7197.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_dl_puser_icon] ] \
  7198.     -CHARM_iconList [list \
  7199.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_blank_icon] \
  7200.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_user_icon] \
  7201.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_superuser_icon] \
  7202.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_retired_icon] \
  7203.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_group_icon] \
  7204.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_locked_icon] \
  7205.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_distrib_icon] \
  7206.         [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_charm_puser_icon] ] \
  7207.     -formatList [list \
  7208.         {ICON 1} \
  7209.         {ICON 1} \
  7210.         {ICON 1} \
  7211.         {STRING 10 5 5} \
  7212.         {STRING 7} \
  7213.         {STRING 80} ] \
  7214.      -CHARM_formatList [list \
  7215.         {ICON 1} \
  7216.         {ICON 1} \
  7217.         {ICON 1 0 4} \
  7218.         {STRING 9 0 3} \
  7219.         {STRING 5 0 3} \
  7220.         {STRING 80} ] \
  7221.     -MOTIF_labelFormatList [list \
  7222.         {ICON 3 2 5} \
  7223.         {STRING 10 5 5} \
  7224.         {STRING 7} \
  7225.         {STRING 30} ] \
  7226.     -MOTIF_labelList [list $label1 $label2 $label3 $label4] \
  7227.     -callback MainListSelectionCB \
  7228.     -defaultCallback ExamineCB \
  7229.     -autoSelect 1 \
  7230.     -autoLock ExamineCB ]
  7231.     set uData(statusbar) [SaStatusBar $uData(mainscreen).statusbar 1]
  7232.     if [VtInfo -charm] {
  7233.     set topwidget $menubar
  7234.     } else {
  7235.     set topwidget $uData(toolbar)
  7236.     }
  7237.     VtSetValues $uData(hostlabel) \
  7238.     -topSide $topwidget -topOffset 10 -CHARM_topOffset 0 \
  7239.     -MOTIF_leftOffset 5 -MOTIF_rightOffset 5
  7240.     if [VtInfo -charm] {
  7241.     VtSetValues $uData(listlabel) \
  7242.         -topSide $uData(hostlabel) -CHARM_topOffset 1
  7243.     VtSetValues $uData(mainlist) \
  7244.         -rightSide FORM -leftSide FORM \
  7245.         -bottomSide $uData(statusbar) -CHARM_bottomOffset 0 \
  7246.         -topSide $uData(listlabel) -CHARM_topOffset 0 
  7247.     } else {
  7248.     VtSetValues $uData(mainlist) \
  7249.         -rightSide FORM -leftSide FORM \
  7250.         -MOTIF_leftOffset 5 -MOTIF_rightOffset 5 \
  7251.         -bottomSide $uData(statusbar) \
  7252.         -topSide $uData(hostlabel) -topOffset 10 
  7253.     }
  7254.     SaCharmSetMaxFormDimensions $uData(mainscreen)
  7255.     VtShow $uData(mainscreen)
  7256.     VtSetFocus $uData(menubar)
  7257.     VtLock
  7258.     if {[ErrorCatch errorStack 0 {InitUserList} dummyvar] != 0} { 
  7259.     set errReason "unknown"
  7260.     foreach item $errorStack {
  7261.         if {[lindex $item 0] == "SCO_ACCOUNTOSA_MSG_NO_TFADMIN"} {
  7262.         set errReason "auths"
  7263.         }
  7264.     }
  7265.     VtUnLock
  7266.     if {$errReason == "auths"} {
  7267.             SaDisplayNoAuths $uData(mainscreen).noauths \
  7268.                 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_APP_TITLE] \
  7269.                 FastExitCB $uData(hostname)
  7270.     } else {
  7271.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_USER_LIST
  7272.         SaDisplayErrorStacks $uData(mainscreen).listiniterr \
  7273.         [list $errorStack] HELP ErrExitCB
  7274.     }
  7275.     return
  7276.     } elseif {[ErrorCatch errorStack 0 {InitGroupList} dummyvar] != 0} { 
  7277.     set errReason "unknown"
  7278.     foreach item $errorStack {
  7279.         if {[lindex $item 0] == "SCO_GROUPOSA_MSG_NO_TFADMIN"} {
  7280.         set errReason "auths"
  7281.         }
  7282.     }
  7283.     VtUnLock
  7284.     if {$errReason == "auths"} {
  7285.             SaDisplayNoAuths $uData(mainscreen).noauths \
  7286.                 [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_APP_TITLE] \
  7287.                 FastExitCB $uData(hostname)
  7288.     } else {
  7289.         ErrorPush errorStack 0 SCO_ACCOUNTGUI_ERR_FAILED_GROUP_LIST
  7290.         SaDisplayErrorStacks $uData(mainscreen).listiniterr \
  7291.         [list $errorStack] HELP ErrExitCB
  7292.     }
  7293.     return
  7294.     }
  7295.     if {[ErrorCatch errorStack 0 {InitCheckNIS} dummyvar] != 0} { 
  7296.     SaDisplayErrorStacks $uData(mainscreen).checkniserr \
  7297.         [list $errorStack] NOHELP
  7298.     } 
  7299.     if {[ErrorCatch errorStack 0 {InitCheckASU} dummyvar] != 0} {
  7300.         SaDisplayErrorStacks $uData(mainscreen).checkasuerr \
  7301.             [list $errorStack] NOHELP
  7302.     }
  7303.     UpdateMainList  
  7304.     set view $uData(listView)
  7305.     if {$view == "users"} {
  7306.     SetUserSensitivity 
  7307.     set uData(userSelected) \
  7308.         [VtDrawnListGetSelectedItem $uData(mainlist) -byPositionList]
  7309.     } else {
  7310.     SetGroupSensitivity
  7311.     set uData(groupSelected) \
  7312.         [VtDrawnListGetSelectedItem $uData(mainlist) -byPositionList]
  7313.     }
  7314.     VtUnLock
  7315. }
  7316. proc ParseCommandLine {argv} {
  7317.     global uData client
  7318.     set uData(scriptname) [file tail [info script]]
  7319.     set argc [llength $argv]
  7320.     set uData(groupList) {}
  7321.     set uData(errorPrompt) {}
  7322.     if {$argc > 1} {
  7323.     set hostname [lindex $argv 0]
  7324.     if {$argc == 3} {
  7325.         set uData(groupList) [lindex $argv 1]
  7326.         set uData(errorPrompt) [lindex $argv 2]
  7327.     }
  7328.     } else {
  7329.     set hostname [SaHostGetManagedName]
  7330.     }
  7331.     set uData(fulldomain) [SaHostExtractDomain $hostname]
  7332.     set uData(hostname) [SaHostExtractSystemName $hostname]
  7333.     if {[lempty $uData(fulldomain)]} {
  7334.     set uData(fulldomain) [SaHostExtractDomain [SaHostGetLocalName]]
  7335.     }
  7336.     set uData(fulldomain) "$uData(hostname).$uData(fulldomain)"
  7337.     set client "accountGUI"
  7338. }
  7339. proc AccountGUIMain {} {
  7340.     global argv uData versionNumber
  7341.     Initialization
  7342.     ParseCommandLine $argv
  7343.     set helpbook accountGUI
  7344.     set uData(appname) [VtOpen $uData(scriptname) $helpbook]
  7345.     set versionString [IntlLocalizeMsg SCO_ACCOUNTGUI_MSG_APP_TITLE]
  7346.     set versionString "$versionString $versionNumber"
  7347.     VtSetAppValues $uData(appname) \
  7348.     -versionString $versionString \
  7349.     -errorCallback "SaUnexpectedErrorCB {}"
  7350.     DisplayMainScreen
  7351.     VtMainLoop
  7352. }
  7353. ErrorTopLevelCatch AccountGUIMain accountGUI
  7354.