home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3977 < prev    next >
Encoding:
Internet Message Format  |  1991-09-09  |  15.0 KB
  1. Path: wupost!cs.utexas.edu!uunet!europa.asd.contel.com!darwin.sura.net!noc.sura.net!haven.umd.edu!mimsy!nrlvx1.nrl.navy.mil!koffley
  2. From: koffley@nrlvx1.nrl.navy.mil
  3. Newsgroups: alt.sources
  4. Subject: VMS UAF PROFILE part 3 of 18
  5. Message-ID: <1991Sep5.074215.547@nrlvx1.nrl.navy.mil>
  6. Date: 5 Sep 91 11:42:15 GMT
  7. Organization: NRL SPACE SYSTEMS DIVISION
  8. Lines: 369
  9.  
  10. -+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+
  11. X`09parameter (`09mail$_user_in_spare1`09=3112)
  12. X`09parameter (`09mail$_user_in_spare2`09=3113)
  13. X`09parameter (`09mail$_user_in_spare3`09=3114)
  14. X`09parameter (`09mail$_user_in_spare4`09=3115)
  15. X`09parameter (`09mail$_user_in_spare5`09=3116)
  16. X`09parameter (`09mail$_user_in_spare6`09=3117)
  17. X`09parameter (`09mail$_user_in_spare7`09=3118)
  18. X`09parameter (`09mail$_user_in_spare8`09=3119)
  19. X`09parameter (`09mail$_user_in_spare9`09=3120)
  20. X`09parameter (`09mail$_user_in_spare10`09=3121)
  21. X`09parameter (`09mail$_user_in_spare11`09=3122)
  22. X`09parameter (`09mail$_user_in_spare12`09=3123)
  23. X`09parameter (`09mail$_user_in_spare13`09=3124)
  24. X`09parameter (`09mail$_user_in_spare14`09=3125)
  25. X`09parameter (`09mail$_user_in_spare15`09=3126)
  26. X`09parameter (`09mail$_user_in_spare16`09=3127)
  27. X`09parameter (`09mail$_user_in_spare17`09=3128)
  28. X`09parameter (`09mail$_user_in_spare18`09=3129)
  29. X`09parameter (`09mail$_user_in_spare19`09=3130)
  30. X`09parameter (`09mail$_user_in_spare20`09=3131)
  31. X`09parameter (`09mail$_user_mailplus`09=3132)
  32. X`09parameter (`09mail$_user_transport`09=3133)
  33. X`09parameter (`09mail$_user_editor`09=3134)
  34. X`09parameter (`09mail$_user_queue`09=3135)
  35. X`09parameter (`09mail$_user_user1`09=3136)
  36. X`09parameter (`09mail$_user_user2`09=3137)
  37. X`09parameter (`09mail$_user_user3`09=3138)
  38. X`09parameter (`09mail$_user_form`09=3139)
  39. X`09parameter (`09mail$_user_copy_forward`09=3140)
  40. X`09parameter (`09mail$_user_spare3`09=3141)
  41. X`09parameter (`09mail$_user_return_username`09=3142)
  42. X`09parameter (`09mail$_user_auto_purge`09=3143)
  43. X`09parameter (`09mail$_user_sub_directory`09=3144)
  44. X`09parameter (`09mail$_user_full_directory`09=3145)
  45. X`09parameter (`09mail$_user_new_messages`09=3146)
  46. X`09parameter (`09mail$_user_forwarding`09=3147)
  47. X`09parameter (`09mail$_user_personal_name`09=3148)
  48. X`09parameter (`09mail$_user_copy_send`09=3149)
  49. X`09parameter (`09mail$_user_copy_reply`09=3150)
  50. X`09parameter (`09mail$_user_captive`09=3151)
  51. X`09parameter (`09mail$_user_cc_prompt`09=3152)
  52. X`09parameter (`09mail$_user_out_spare2`09=3153)
  53. X`09parameter (`09mail$_user_out_spare3`09=3154)
  54. X`09parameter (`09mail$_user_out_spare4`09=3155)
  55. X`09parameter (`09mail$_user_out_spare5`09=3156)
  56. X`09parameter (`09mail$_user_out_spare6`09=3157)
  57. X`09parameter (`09mail$_user_out_spare7`09=3158)
  58. X`09parameter (`09mail$_user_out_spare8`09=3159)
  59. X`09parameter (`09mail$_user_out_spare9`09=3160)
  60. X`09parameter (`09mail$_user_out_spare10`09=3161)
  61. X`09parameter (`09mail$_user_out_spare11`09=3162)
  62. X`09parameter (`09mail$_user_out_spare12`09=3163)
  63. X`09parameter (`09mail$_user_out_spare13`09=3164)
  64. X`09parameter (`09mail$_user_out_spare14`09=3165)
  65. X`09parameter (`09mail$_user_out_spare15`09=3166)
  66. X`09parameter (`09mail$_user_out_spare16`09=3167)
  67. X`09parameter (`09mail$_user_out_spare17`09=3168)
  68. X`09parameter (`09mail$_user_out_spare18`09=3169)
  69. X`09parameter (`09mail$_user_out_spare19`09=3170)
  70. X`09parameter (`09mail$_user_out_spare20`09=3171)
  71. X`09parameter (`09mail$k_user_min_item`09=3072)
  72. X`09parameter (`09mail$k_user_max_item`09=3171)
  73. X`09parameter (`09mail$k_user_items`09=100)
  74. X`09parameter (`09mail$_noop`09=4097)
  75. X`09parameter (`09mail$_nosignal`09=4098)
  76. X`09parameter (`09mail$_noprobe`09=4099)
  77. X`09parameter (`09mail$_tld_input`09=4100)
  78. X`09parameter (`09mail$_tld_output`09=4101)
  79. X`09parameter (`09mail$_to`09=1)
  80. X`09parameter (`09mail$_cc`09=2)
  81. X`09parameter (`09mail$_spare1`09=3)
  82. X`09parameter (`09mail$_spare2`09=4)
  83. X`09parameter (`09MAIL$m_newmsg`09=1)
  84. X`09parameter (`09MAIL$m_replied`09=2)
  85. X`09parameter (`09MAIL$m_del`09=4)
  86. X`09parameter (`09MAIL$m_extmsg`09=8)
  87. X`09parameter (`09MAIL$m_extfnf`09=16)
  88. X`09parameter (`09MAIL$m_sysmsg`09=32)
  89. X`09parameter (`09MAIL$m_extnstd`09=64)
  90. X`09parameter (`09MAIL$m_marked`09=128)
  91. X`09parameter (`09MAIL$m_recmode`09=256)
  92. X`09parameter (`09MAIL$S_flagsdef`09=2)
  93. X`09parameter (`09MAIL$w_flags`09=0)
  94. X`09parameter (`09MAIL$v_newmsg`09=0)
  95. X`09parameter (`09MAIL$v_replied`09=1)
  96. X`09parameter (`09MAIL$v_del`09=2)
  97. X`09parameter (`09MAIL$v_extmsg`09=3)
  98. X`09parameter (`09MAIL$v_extfnf`09=4)
  99. X`09parameter (`09MAIL$v_sysmsg`09=5)
  100. X`09parameter (`09MAIL$v_extnstd`09=6)
  101. X`09parameter (`09MAIL$v_marked`09=7)
  102. X`09parameter (`09MAIL$v_recmode`09=8)
  103. X
  104. X
  105. X
  106. X
  107. X
  108. $ CALL UNPACK MAILDEF.INC;3 1764829954
  109. $ create 'f'
  110. X        Program PROFILE
  111. XC
  112. XC      PROGRAM DESCRIPTION:
  113. XC
  114. XC               PROFILE is designed to add a new user account or modify
  115. XC       an existing user account using a visual display and cursor
  116. XC       movement. The visual display is created using various SMG calls.
  117. XC       The user profile information is gathered from the $GETUAI
  118. XC       system service. User account modification is accomplished
  119. XC       by using the $SETUAI system service. Because $GETUAI cannot add
  120. XC       new accounts, a short DCL command file is created and spawned
  121. XC       which initially adds the account and $SETUAI modifies the
  122. XC       remaining fields. For new accounts, diskquota is enabled and
  123. XC       a toplevel directory is created (using the LIB$CREATE_DIR
  124. XC       run time library routine). An optional copy routine is included
  125. XC       for copying a sample LOGIN.COM file to the directory of the
  126. XC       new user.
  127. XC
  128. XC               This utility is intended for VMS v5 systems only! The older
  129. XC       VMS v4 version is no longer being supported.
  130. XC
  131. XC      VERSION: 1.2
  132. XC
  133. XC      AUTHORS:
  134. XC
  135. XC               John Howells
  136. XC               Sterling Software
  137. XC               1121 San Antonio Rd.
  138. XC               Palo Alto, CA 94303
  139. XC               mail stop TA19
  140. XC               (415) 694-3651
  141. XC
  142. XC               email addresses:
  143. XC
  144. XC               howells@krypton.arc.nasa.gov
  145. XC               howells@pioneer.arc.nasa.gov
  146. XC               howells@xenon.arc.nasa.gov
  147. XC
  148. XC      CREATION DATE:   10-NOV-1988
  149. XC
  150. XC                      C H A N G E   L O G
  151. XC
  152. XC      Date     `7C Name  `7C Description
  153. XC---------------+-------+---------------------------------------------------
  154. V--
  155. XC  16-NOV-1988  `7C JMH   `7C Added subroutine NEXT_FREE_UIC to determine th
  156. Ve
  157. XC               `7C       `7C next available member in a uic group and use t
  158. Vhat
  159. XC               `7C       `7C value if only the group number is entered.
  160. XC---------------+-------+---------------------------------------------------
  161. V--
  162. XC  19-DEC-1988  `7C JMH   `7C Changed the SPAWN_DCL routine to calculate the
  163. XC               `7C       `7C uic value more simply rather than calling $GET
  164. VUAI
  165. XC               `7C       `7C again.
  166. XC---------------+-------+---------------------------------------------------
  167. V--
  168. XC  03-JAN-1989  `7C HMS   `7C Vms 5.0 needs returns a longword on UAI$_DFWSC
  169. VNT
  170. XC               `7C       `7C and added "new" loginflags PWD_EXPIRED,PWD2_EX
  171. VPIRED
  172. XC               `7C       `7C DISFORCE_PWD_CHANGE. Also allowed < > in defau
  173. Vlt dir
  174. XC               `7C       `7C and corrected setuai parameters account buflen
  175. V=32
  176. XC               `7C       `7C (document says 9)
  177. XC---------------+-------+---------------------------------------------------
  178. V--
  179. XC   6-JAN-1989  `7C JMH   `7C Changed the basic structure of the itemlist to
  180. XC               `7C       `7C use uai$_uic rather than uai$_grp and uai$_mem
  181. V.
  182. XC               `7C       `7C
  183. XC               `7C       `7C Changed sys$fao call to use %!U instead of !OB
  184. XC               `7C       `7C format.
  185. XC               `7C       `7C
  186. XC               `7C       `7C When spawning to add a new account the success
  187. XC               `7C       `7C message normally obtained from AUTHORIZE is no
  188. Vw
  189. XC               `7C       `7C redirected to NL: and new brief success messag
  190. Ve
  191. XC               `7C       `7C is displayed instead.
  192. XC               `7C       `7C
  193. XC               `7C       `7C Expanded the uic field to allow for larger num
  194. Vbers
  195. XC               `7C       `7C and strings (example: `5Bxxxxxx,xxxxxx`5D).
  196. XC               `7C       `7C
  197. XC               `7C       `7C Changed some buffer length specifications to
  198. XC               `7C       `7C conform to V5.0 $SETUAI.
  199. XC               `7C       `7C
  200. XC               `7C       `7C Changed SPAWN_DCL subroutine to check for the
  201. XC               `7C       `7C existance of QUOTA.SYS file on the disk before
  202. XC               `7C       `7C attempting to set a diskquota. Also added code
  203. XC               `7C       `7C to check for the existence of the toplevel
  204. XC               `7C       `7C directory before attempting to create and copy
  205. XC               `7C       `7C LOGIN.COM.
  206. XC---------------+-------+---------------------------------------------------
  207. V--
  208. XC   4-JAN-1989  `7C  JMH  `7C Changed the SPAWN_DCL subroutine to check for
  209. XC               `7C       `7C enabled diskquotas on concealed devices.
  210. XC---------------+-------+---------------------------------------------------
  211. V--
  212. XC   4-DEC-1989  `7C  JMH  `7C Changed the default disk device from a user
  213. XC               `7C       `7C supplied string (USER$DISK) to that of the dev
  214. Vice`20
  215. XC               `7C       `7C found in the DEFAULT template in the uaf.
  216. XC               `7C       `7C Also changed the NEXT_FREE_UIC routine to use
  217. XC               `7C       `7C logical name RIGHTSLIST if it is set.
  218. XC---------------+-------+---------------------------------------------------
  219. V--
  220. XC   5-DEC-1989  `7C  JMH  `7C Added a SENDMAIL feature. A mail message is se
  221. Vnt
  222. XC`09`09`7C`09`7C to the new user via callable mail interface.
  223. XC---------------+-------+---------------------------------------------------
  224. V--
  225. XC  29-MAY-1990  `7C  JMH  `7C Modified for VMS 5.3 - new RESTRICTED flag add
  226. Ved.
  227. XC---------------+-------+---------------------------------------------------
  228. V--
  229. XC
  230. X        Include 'uaf.cmn'
  231. X        Include '($smgdef)'
  232. X        Include '($uaidef)'
  233. X        Include '($dvidef)'
  234. X        Include '($jpidef)'
  235. X        Include '($prvdef)'
  236. X`09include '($iodef)'
  237. X`09include '($libclidef)'
  238. X
  239. X
  240. X`09integer*2      channel
  241. X
  242. X
  243. X
  244. X        Integer*4 sts, value, length, str_len, size
  245. X        Integer*4 priv_mask, my_privs(2)
  246. X
  247. X        Character*64 defdir, lgicmd
  248. X        Character*32 owner, tables, defcli, defdev
  249. X        Character*2 dummy
  250. X        Character*1 confirm
  251. X
  252. X        Byte enbflg /1/
  253. X
  254. X        Byte own_str(32), tables_str(32), cli_str(32)
  255. X        Byte dev_str(32), dir_str(64), cmd_str(64)
  256. X        Equivalence (own_str(2),owner)
  257. X        Equivalence (tables_str(2),tables)
  258. X        Equivalence (cli_str(2),defcli)
  259. X        Equivalence (dev_str(2),defdev)
  260. X        Equivalence (dir_str(2),defdir)
  261. X        Equivalence (cmd_str(2),lgicmd)
  262. XC
  263. XC Set up an itemlist structure for calling $GETUAI and $SETUAI
  264. XC
  265. X        Structure /itm/
  266. X           union
  267. X              map
  268. X                 integer*2 buflen
  269. X                 integer*2 code
  270. X                 integer*4 addr
  271. X                 integer*4 retlen
  272. X              end map
  273. X              map
  274. X                 Integer*4 end_list
  275. X              end map
  276. X           end union
  277. X        End structure
  278. X
  279. X        Record /itm/ itemlist(47)
  280. X        Record /itm/ other_itemlist(4)
  281. X
  282. X`09external       AST
  283. X
  284. X
  285. X
  286. X
  287. X
  288. X`09sts = SYS$ASSIGN ('SYS$OUTPUT', channel ,,)
  289. X`09if (.not. sts) call LIB$STOP (%val(sts))
  290. X`09sts = LIB$DISABLE_CTRL (LIB$M_CLI_CTRLY)
  291. X`09if (.not. sts) call LIB$STOP (%val(sts))
  292. X`09sts = SYS$QIOW (, %val (channel),
  293. X`091                  %val(IO$_SETMODE .or. IO$M_CTRLCAST .or.
  294. X`092                       IO$M_CTRLYAST) ,,,, AST ,,,,,)
  295. X`09if (.not. sts) call LIB$STOP (%val(sts))
  296. X
  297. X        Itemlist(1).buflen = 1
  298. X        Itemlist(1).code = uai$_pwd_length
  299. X        Itemlist(1).addr = %loc(pwd_length)
  300. X        Itemlist(1).retlen = %loc(pwd_length_len)
  301. X        Itemlist(2).buflen = 1
  302. X        Itemlist(2).code = uai$_pri
  303. X        Itemlist(2).addr = %loc(prio)
  304. X        Itemlist(2).retlen = %loc(prio_len)
  305. X        Itemlist(3).buflen = 1
  306. X        Itemlist(3).code = uai$_quepri
  307. X        Itemlist(3).addr = %loc(queprio)
  308. X        Itemlist(3).retlen = %loc(queprio_len)
  309. X        Itemlist(4).buflen = 1
  310. X        Itemlist(4).code = uai$_primedays
  311. X        Itemlist(4).addr = %loc(prime)
  312. X        Itemlist(4).retlen = %loc(prime_len)
  313. X        Itemlist(5).buflen = 2
  314. X        Itemlist(5).code = uai$_biolm
  315. X        Itemlist(5).addr = %loc(biolm)
  316. X        Itemlist(5).retlen = %loc(biolm_len)
  317. X        Itemlist(6).buflen = 2
  318. X        Itemlist(6).code = uai$_astlm
  319. X        Itemlist(6).addr = %loc(astlm)
  320. X        Itemlist(6).retlen = %loc(astlm_len)
  321. X        Itemlist(7).buflen = 4
  322. X        Itemlist(7).code = uai$_dfwscnt
  323. X        Itemlist(7).addr = %loc(wsdef)
  324. X        Itemlist(7).retlen = %loc(wsdef_len)
  325. X        Itemlist(8).buflen = 2
  326. X        Itemlist(8).code = uai$_diolm
  327. X        Itemlist(8).addr = %loc(diolm)
  328. X        Itemlist(8).retlen = %loc(diolm_len)
  329. X        Itemlist(9).buflen = 2
  330. X        Itemlist(9).code = uai$_enqlm
  331. X        Itemlist(9).addr = %loc(enqlm)
  332. X        Itemlist(9).retlen = %loc(enqlm_len)
  333. X        Itemlist(10).buflen = 2
  334. X        Itemlist(10).code = uai$_fillm
  335. X        Itemlist(10).addr = %loc(fillm)
  336. X        Itemlist(10).retlen = %loc(fillm_len)
  337. X        Itemlist(11).buflen = 2
  338. X        Itemlist(11).code = uai$_maxacctjobs
  339. X        Itemlist(11).addr = %loc(maxacctjobs)
  340. X        Itemlist(11).retlen = %loc(maxacctjobs_len)
  341. X        Itemlist(12).buflen = 2
  342. X        Itemlist(12).code = uai$_maxdetach
  343. X        Itemlist(12).addr = %loc(maxdetach)
  344. X        Itemlist(12).retlen = %loc(maxdetach_len)
  345. X        Itemlist(13).buflen = 2
  346. X        Itemlist(13).code = uai$_maxjobs
  347. X        Itemlist(13).addr = %loc(maxjobs)
  348. X        Itemlist(13).retlen = %loc(maxjobs_len)
  349. X        Itemlist(14).buflen = 4
  350. X        Itemlist(14).code = uai$_pbytlm
  351. X        Itemlist(14).addr = %loc(pbytlm)
  352. X        Itemlist(14).retlen = %loc(pbytlm_len)
  353. X        Itemlist(15).buflen = 4
  354. X        Itemlist(15).code = uai$_pgflquota
  355. X        Itemlist(15).addr = %loc(pgflquo)
  356. X        Itemlist(15).retlen = %loc(pgflquo_len)
  357. X        Itemlist(16).buflen = 2
  358. X        Itemlist(16).code = uai$_prccnt
  359. X        Itemlist(16).addr = %loc(prclm)
  360. X        Itemlist(16).retlen = %loc(prclm_len)
  361. X        Itemlist(17).buflen = 2
  362. X        Itemlist(17).code = uai$_shrfillm
  363. X        Itemlist(17).addr = %loc(shrfillm)
  364. X        Itemlist(17).retlen = %loc(shrfillm_len)
  365. X        Itemlist(18).buflen = 2
  366. X        Itemlist(18).code = uai$_tqcnt
  367. X        Itemlist(18).addr = %loc(tqelm)
  368. X        Itemlist(18).retlen = %loc(tqelm_len)
  369. X        Itemlist(19).buflen = 4
  370. X        Itemlist(19).code = uai$_wsextent
  371. X        Itemlist(19).addr = %loc(wsextent)
  372. +-+-+-+-+-+-+-+-  END  OF PART 3 +-+-+-+-+-+-+-+-
  373. -- 
  374. \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  375. < Joe Koffley                        KOFFLEY@NRLVAX.NRL.NAVY.MIL             >
  376. < Naval Research Laboratory          KOFFLEY@CCF.NRL.NAVY.MIL                >
  377. < Space Systems Division             AT&T  :  202-767-0894                   >
  378. \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  379.