home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3974 < prev    next >
Encoding:
Internet Message Format  |  1991-09-09  |  14.9 KB
  1. Path: wupost!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 1 of 18
  5. Message-ID: <1991Sep5.073945.544@nrlvx1.nrl.navy.mil>
  6. Date: 5 Sep 91 11:39:45 GMT
  7. Organization: NRL SPACE SYSTEMS DIVISION
  8. Lines: 369
  9.  
  10. $! ------------------ CUT HERE -----------------------
  11. $ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
  12. $!
  13. $! This archive created by VMS_SHARE Version 7.2-007  22-FEB-1990
  14. $!   On 28-AUG-1991 10:19:28.95   By user KOFFLEY 
  15. $!
  16. $! This VMS_SHARE Written by:
  17. $!    Andy Harper, Kings College London UK
  18. $!
  19. $! Acknowledgements to:
  20. $!    James Gray       - Original VMS_SHARE
  21. $!    Michael Bednarek - Original Concept and implementation
  22. $!
  23. $!+ THIS PACKAGE DISTRIBUTED IN 18 PARTS, TO KEEP EACH PART
  24. $!  BELOW 30 BLOCKS
  25. $!
  26. $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
  27. $! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
  28. $!
  29. $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
  30. $!       1. BUILD.COM;6
  31. $!       2. CREATE_USERLOG.COM;1
  32. $!       3. MAILDEF.INC;3
  33. $!       4. PROFILE.FOR;130
  34. $!       5. UAF.CMN;25
  35. $!       6. GET_HASH_NUM.MAR;65
  36. $!
  37. $set="set"
  38. $set symbol/scope=(nolocal,noglobal)
  39. $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
  40. $e="write sys$error  ""%UNPACK"", "
  41. $w="write sys$output ""%UNPACK"", "
  42. $ if f$trnlnm("SHARE_LOG") then $ w = "!"
  43. $ ve=f$getsyi("version")
  44. $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START
  45. $ e "-E-OLDVER, Must run at least VMS 4.4"
  46. $ v=f$verify(v)
  47. $ exit 44
  48. $UNPACK: SUBROUTINE ! P1=filename, P2=checksum
  49. $ if f$search(P1) .eqs. "" then $ goto file_absent
  50. $ e "-W-EXISTS, File ''P1' exists. Skipped."
  51. $ delete 'f'*
  52. $ exit
  53. $file_absent:
  54. $ if f$parse(P1) .nes. "" then $ goto dirok
  55. $ dn=f$parse(P1,,,"DIRECTORY")
  56. $ w "-I-CREDIR, Creating directory ''dn'."
  57. $ create/dir 'dn'
  58. $ if $status then $ goto dirok
  59. $ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
  60. $ delete 'f'*
  61. $ exit
  62. $dirok:
  63. $ w "-I-PROCESS, Processing file ''P1'."
  64. $ if .not. f$verify() then $ define/user sys$output nl:
  65. $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
  66. PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
  67. SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:=
  68. CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b));
  69. LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
  70. BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1);
  71. IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE;
  72. MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1;
  73. ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")=
  74. 1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF";
  75. POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r);
  76. ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1;
  77. COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE,
  78. "output_file"));ENDPROCEDURE;Unpacker;QUIT;
  79. $ delete/nolog 'f'*
  80. $ CHECKSUM 'P1'
  81. $ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
  82. $ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
  83. $ ENDSUBROUTINE
  84. $START:
  85. $ create 'f'
  86. X$ set ver
  87. X$ fortran/ext/cont=99 profile
  88. X$ macro get_hash_num
  89. X$ link profile,get_hash_num
  90. X$ del/log profile.obj;*,get_hash_num.obj;*
  91. X$ set nover
  92. X$ exit
  93. $ CALL UNPACK BUILD.COM;6 491677336
  94. $ create 'f'
  95. X$!
  96. X$!`09Code to generate a list of users with associated terminal server
  97. X$!`09and port names.  This data was requested by NCST to track the
  98. X$!`09network utilization.
  99. X$!
  100. X$`09server = f$getdvi("Sys$Command","TT_AccPorNam")
  101. X$`09if server .nes. ""
  102. X$`09then
  103. X$         pid = f$getjpi("","PID")
  104. X$         now = f$time()
  105. X$         procpriv=f$getjpi(pid,"CURPRIV")
  106. X$         mode=f$getjpi(pid,"MODE")
  107. X$         LOGINTIME=f$getjpi(pid,"LOGINTIM")
  108. X$         owner=f$getjpi(pid,"OWNER")
  109. X$         account=f$getjpi(pid,"ACCOUNT")
  110. X$         masterpid=f$getjpi(pid,"MASTER_PID")
  111. X$         uic=f$getjpi(pid,"UIC")
  112. X$         if mode .eqs. "INTERACTIVE" then $ terminal=f$getjpi(pid,"TERMINAL
  113. V")
  114. X$`09  username = f$getjpi("","UserName")
  115. X$!`09  string   = f$fao("!20AS!AS",username,server)
  116. X$         string = f$fao("!20AS!20AS!24AS!14AS!9AS!9AS!24AS!20AS!9AS",userna
  117. Vme,server,now,mode,masterpid,pid,logintime,uic,terminal)
  118. X$`09  open/append/share/error=CREATE_FILE user_log sys$manager:userlog.txt
  119. X$`09  goto WRITE_FILE
  120. X$!
  121. X$CREATE_FILE:
  122. X$`09  open/write/share/error=SKIP_FILE user_log sys$manager:userlog.txt
  123. X$`09  set prot=w:rwe sys$manager:userlog.txt
  124. X$!
  125. X$WRITE_FILE:
  126. X$`09  write user_log string
  127. X$`09  close user_log
  128. X$!
  129. X$SKIP_FILE:
  130. X$`09  endif
  131. X$!
  132. $ CALL UNPACK CREATE_USERLOG.COM;1 1448027236
  133. $ create 'f'
  134. X`09integer*4 `09mail$_send_spare_0
  135. X`09integer*4 `09mail$_send_foreign
  136. X`09integer*4 `09mail$_send_cc_line
  137. X`09integer*4 `09mail$_send_default_name
  138. X`09integer*4 `09mail$_send_default_transport
  139. X`09integer*4 `09mail$_send_error_entry`09
  140. X`09integer*4 `09mail$_send_filename`09
  141. X`09integer*4 `09mail$_send_from_line`09
  142. X`09integer*4 `09mail$_send_no_default_transport
  143. X`09integer*4 `09mail$_send_pers_name`09
  144. X`09integer*4 `09mail$_send_record`09
  145. X`09integer*4 `09mail$_send_resultspec`09
  146. X`09integer*4 `09mail$_send_server`09
  147. X`09integer*4 `09mail$_send_subject`09
  148. X`09integer*4 `09mail$_send_success_entry
  149. X`09integer*4 `09mail$_send_to_line`09
  150. X`09integer*4 `09mail$_send_uflags`09
  151. X`09integer*4 `09mail$_send_user_data`09
  152. X`09integer*4 `09mail$_send_username`09
  153. X`09integer*4 `09mail$_send_username_type
  154. X`09integer*4 `09mail$_send_fid`09
  155. X`09integer*4 `09mail$_send_no_pers_name
  156. X`09integer*4 `09mail$_send_in_spare3
  157. X`09integer*4 `09mail$_send_in_spare4
  158. X`09integer*4 `09mail$_send_in_spare5
  159. X`09integer*4 `09mail$_send_copy_reply
  160. X`09integer*4 `09mail$_send_copy_send
  161. X`09integer*4 `09mail$_send_user`09
  162. X`09integer*4 `09mail$_send_copy_forward
  163. X`09integer*4 `09mail$_send_out_spare2
  164. X`09integer*4 `09mail$_send_out_spare3
  165. X`09integer*4 `09mail$_send_out_spare4
  166. X`09integer*4 `09mail$_send_out_spare5
  167. X`09integer*4 `09mail$k_send_min_item
  168. X`09integer*4 `09mail$k_send_max_item
  169. X`09integer*4 `09mail$k_send_items
  170. X`09integer*4 `09mail$_mailfile_spare_0
  171. X`09integer*4 `09mail$_mailfile_default_name
  172. X`09integer*4 `09mail$_mailfile_folder_routine
  173. X`09integer*4 `09mail$_mailfile_full_close
  174. X`09integer*4 `09mail$_mailfile_name`09
  175. X`09integer*4 `09mail$_mailfile_reclaim`09
  176. X`09integer*4 `09mail$_mailfile_user_data
  177. X`09integer*4 `09mail$_mailfile_wastebasket_name
  178. X`09integer*4 `09mail$_mailfile_in_spare1
  179. X`09integer*4 `09mail$_mailfile_in_spare2
  180. X`09integer*4 `09mail$_mailfile_in_spare3
  181. X`09integer*4 `09mail$_mailfile_in_spare4
  182. X`09integer*4 `09mail$_mailfile_in_spare5
  183. X`09integer*4 `09mail$_mailfile_in_spare6
  184. X`09integer*4 `09mail$_mailfile_in_spare7
  185. X`09integer*4 `09mail$_mailfile_in_spare8
  186. X`09integer*4 `09mail$_mailfile_in_spare9
  187. X`09integer*4 `09mail$_mailfile_in_spare10
  188. X`09integer*4 `09mail$_mailfile_in_spare11
  189. X`09integer*4 `09mail$_mailfile_in_spare12
  190. X`09integer*4 `09mail$_mailfile_in_spare13
  191. X`09integer*4 `09mail$_mailfile_in_spare14
  192. X`09integer*4 `09mail$_mailfile_in_spare15
  193. X`09integer*4 `09mail$_mailfile_in_spare16
  194. X`09integer*4 `09mail$_mailfile_in_spare17
  195. X`09integer*4 `09mail$_mailfile_in_spare18
  196. X`09integer*4 `09mail$_mailfile_in_spare19
  197. X`09integer*4 `09mail$_mailfile_in_spare20
  198. X`09integer*4 `09mail$_mailfile_data_reclaim
  199. X`09integer*4 `09mail$_mailfile_data_scan
  200. X`09integer*4 `09mail$_mailfile_deleted_bytes
  201. X`09integer*4 `09mail$_mailfile_index_reclaim
  202. X`09integer*4 `09mail$_mailfile_mail_directory
  203. X`09integer*4 `09mail$_mailfile_messages_deleted
  204. X`09integer*4 `09mail$_mailfile_resultspec
  205. X`09integer*4 `09mail$_mailfile_total_reclaim
  206. X`09integer*4 `09mail$_mailfile_wastebasket
  207. X`09integer*4 `09mail$_mailfile_indexed`09
  208. X`09integer*4 `09mail$_mailfile_out_spare2
  209. X`09integer*4 `09mail$_mailfile_out_spare3
  210. X`09integer*4 `09mail$_mailfile_out_spare4
  211. X`09integer*4 `09mail$_mailfile_out_spare5
  212. X`09integer*4 `09mail$_mailfile_out_spare6
  213. X`09integer*4 `09mail$_mailfile_out_spare7
  214. X`09integer*4 `09mail$_mailfile_out_spare8
  215. X`09integer*4 `09mail$_mailfile_out_spare9
  216. X`09integer*4 `09mail$_mailfile_out_spare10
  217. X`09integer*4 `09mail$_mailfile_out_spare11
  218. X`09integer*4 `09mail$_mailfile_out_spare12
  219. X`09integer*4 `09mail$_mailfile_out_spare13
  220. X`09integer*4 `09mail$_mailfile_out_spare14
  221. X`09integer*4 `09mail$_mailfile_out_spare15
  222. X`09integer*4 `09mail$_mailfile_out_spare16
  223. X`09integer*4 `09mail$_mailfile_out_spare17
  224. X`09integer*4 `09mail$_mailfile_out_spare18
  225. X`09integer*4 `09mail$_mailfile_out_spare19
  226. X`09integer*4 `09mail$_mailfile_out_spare20
  227. X`09integer*4 `09mail$k_mailfile_min_item
  228. X`09integer*4 `09mail$k_mailfile_max_item
  229. X`09integer*4 `09mail$k_mailfile_items`09
  230. X`09integer*4 `09mail$_message_spare_0`09
  231. X`09integer*4 `09mail$_message_back`09
  232. X`09integer*4 `09mail$_message_before`09
  233. X`09integer*4 `09mail$_message_cc_substring
  234. X`09integer*4 `09mail$_message_continue`09
  235. X`09integer*4 `09mail$_message_file_action
  236. X`09integer*4 `09mail$_message_folder_action
  237. X`09integer*4 `09mail$_message_default_name
  238. X`09integer*4 `09mail$_message_delete`09
  239. X`09integer*4 `09mail$_message_erase`09
  240. X`09integer*4 `09mail$_message_file_ctx`09
  241. X`09integer*4 `09mail$_message_filename`09
  242. X`09integer*4 `09mail$_message_flags`09
  243. X`09integer*4 `09mail$_message_folder`09
  244. X`09integer*4 `09mail$_message_from_substring
  245. X`09integer*4 `09mail$_message_id`09
  246. X`09integer*4 `09mail$_message_next`09
  247. X`09integer*4 `09mail$_message_since`09
  248. X`09integer*4 `09mail$_message_subj_substring
  249. X`09integer*4 `09mail$_message_to_substring
  250. X`09integer*4 `09mail$_message_uflags`09
  251. X`09integer*4 `09mail$_message_auto_newmail
  252. X`09integer*4 `09mail$_message_user_data`09
  253. X`09integer*4 `09mail$_message_flags_mbz`09
  254. X`09integer*4 `09mail$_message_min_class`09
  255. X`09integer*4 `09mail$_message_max_class`09
  256. X`09integer*4 `09mail$_message_in_spare1`09
  257. X`09integer*4 `09mail$_message_in_spare2`09
  258. X`09integer*4 `09mail$_message_in_spare3`09
  259. X`09integer*4 `09mail$_message_in_spare4`09
  260. X`09integer*4 `09mail$_message_in_spare5`09
  261. X`09integer*4 `09mail$_message_in_spare6`09
  262. X`09integer*4 `09mail$_message_in_spare7`09
  263. X`09integer*4 `09mail$_message_in_spare8`09
  264. X`09integer*4 `09mail$_message_in_spare9`09
  265. X`09integer*4 `09mail$_message_in_spare10
  266. X`09integer*4 `09mail$_message_in_spare11
  267. X`09integer*4 `09mail$_message_in_spare12
  268. X`09integer*4 `09mail$_message_in_spare13
  269. X`09integer*4 `09mail$_message_in_spare14
  270. X`09integer*4 `09mail$_message_in_spare15
  271. X`09integer*4 `09mail$_message_in_spare16
  272. X`09integer*4 `09mail$_message_in_spare17
  273. X`09integer*4 `09mail$_message_in_spare18
  274. X`09integer*4 `09mail$_message_in_spare19
  275. X`09integer*4 `09mail$_message_in_spare20
  276. X`09integer*4 `09mail$_message_cc`09
  277. X`09integer*4 `09mail$_message_current_id
  278. X`09integer*4 `09mail$_message_date`09
  279. X`09integer*4 `09mail$_message_extid`09
  280. X`09integer*4 `09mail$_message_file_created
  281. X`09integer*4 `09mail$_message_folder_created
  282. X`09integer*4 `09mail$_message_from`09
  283. X`09integer*4 `09mail$_message_record`09
  284. X`09integer*4 `09mail$_message_record_type
  285. X`09integer*4 `09mail$_message_reply_path
  286. X`09integer*4 `09mail$_message_resultspec
  287. X`09integer*4 `09mail$_message_return_flags
  288. X`09integer*4 `09mail$_message_return_uflags
  289. X`09integer*4 `09mail$_message_selected`09
  290. X`09integer*4 `09mail$_message_sender`09
  291. X`09integer*4 `09mail$_message_size`09
  292. X`09integer*4 `09mail$_message_subject`09
  293. X`09integer*4 `09mail$_message_to`09
  294. X`09integer*4 `09mail$_message_buffer`09
  295. X`09integer*4 `09mail$_message_return_class
  296. X`09integer*4 `09mail$_message_binary_date
  297. X`09integer*4 `09mail$_message_spare4`09
  298. X`09integer*4 `09mail$_message_spare5`09
  299. X`09integer*4 `09mail$_message_spare6`09
  300. X`09integer*4 `09mail$_message_spare7`09
  301. X`09integer*4 `09mail$_message_spare8`09
  302. X`09integer*4 `09mail$_message_spare9`09
  303. X`09integer*4 `09mail$_message_spare10`09
  304. X`09integer*4 `09mail$_message_spare11`09
  305. X`09integer*4 `09mail$_message_spare12`09
  306. X`09integer*4 `09mail$_message_spare13`09
  307. X`09integer*4 `09mail$_message_spare14`09
  308. X`09integer*4 `09mail$_message_spare15`09
  309. X`09integer*4 `09mail$_message_spare16`09
  310. X`09integer*4 `09mail$_message_spare17`09
  311. X`09integer*4 `09mail$_message_spare18`09
  312. X`09integer*4 `09mail$_message_spare19`09
  313. X`09integer*4 `09mail$_message_null`09
  314. X`09integer*4 `09mail$_message_header`09
  315. X`09integer*4 `09mail$_message_text`09
  316. X`09integer*4 `09mail$_message_spare20`09
  317. X`09integer*4 `09mail$k_message_min_item`09
  318. X`09integer*4 `09mail$k_message_max_item`09
  319. X`09integer*4 `09mail$k_message_items`09
  320. X`09integer*4 `09mail$_user_spare_0`09
  321. X`09integer*4 `09mail$_user_first`09
  322. X`09integer*4 `09mail$_user_next`09
  323. X`09integer*4 `09mail$_user_username
  324. X`09integer*4 `09mail$_user_set_auto_purge
  325. X`09integer*4 `09mail$_user_set_no_auto_purge
  326. X`09integer*4 `09mail$_user_set_sub_directory
  327. X`09integer*4 `09mail$_user_set_no_sub_directory
  328. X`09integer*4 `09mail$_user_set_forwarding
  329. X`09integer*4 `09mail$_user_set_no_forwarding
  330. X`09integer*4 `09mail$_user_set_personal_name
  331. X`09integer*4 `09mail$_user_set_no_personal_name
  332. X`09integer*4 `09mail$_user_set_copy_send
  333. X`09integer*4 `09mail$_user_set_no_copy_send
  334. X`09integer*4 `09mail$_user_set_copy_reply
  335. X`09integer*4 `09mail$_user_set_no_copy_reply
  336. X`09integer*4 `09mail$_user_set_new_messages
  337. X`09integer*4 `09mail$_user_create_if`09
  338. X`09integer*4 `09mail$_user_set_mailplus`09
  339. X`09integer*4 `09mail$_user_set_no_mailplus
  340. X`09integer*4 `09mail$_user_set_transport
  341. X`09integer*4 `09mail$_user_set_no_transport
  342. X`09integer*4 `09mail$_user_set_editor`09
  343. X`09integer*4 `09mail$_user_set_no_editor
  344. X`09integer*4 `09mail$_user_set_queue`09
  345. X`09integer*4 `09mail$_user_set_no_queue`09
  346. X`09integer*4 `09mail$_user_set_user1`09
  347. X`09integer*4 `09mail$_user_set_no_user1`09
  348. X`09integer*4 `09mail$_user_set_user2`09
  349. X`09integer*4 `09mail$_user_set_no_user2`09
  350. X`09integer*4 `09mail$_user_set_user3`09
  351. X`09integer*4 `09mail$_user_set_no_user3`09
  352. X`09integer*4 `09mail$_user_set_form`09
  353. X`09integer*4 `09mail$_user_set_no_form`09
  354. X`09integer*4 `09mail$_user_set_copy_forward
  355. X`09integer*4 `09mail$_user_set_no_copy_forward
  356. X`09integer*4 `09mail$_user_set_cc_prompt
  357. X`09integer*4 `09mail$_user_set_no_cc_prompt
  358. X`09integer*4 `09mail$_user_set_spare3`09
  359. X`09integer*4 `09mail$_user_set_no_spare3
  360. X`09integer*4 `09mail$_user_in_spare1`09
  361. X`09integer*4 `09mail$_user_in_spare2`09
  362. X`09integer*4 `09mail$_user_in_spare3`09
  363. X`09integer*4 `09mail$_user_in_spare4`09
  364. X`09integer*4 `09mail$_user_in_spare5`09
  365. X`09integer*4 `09mail$_user_in_spare6`09
  366. X`09integer*4 `09mail$_user_in_spare7`09
  367. X`09integer*4 `09mail$_user_in_spare8`09
  368. X`09integer*4 `09mail$_user_in_spare9`09
  369. X`09integer*4 `09mail$_user_in_spare10`09
  370. X`09integer*4 `09mail$_user_in_spare11`09
  371. X`09integer*4 `09mail$_user_in_spare12`09
  372. +-+-+-+-+-+-+-+-  END  OF PART 1 +-+-+-+-+-+-+-+-
  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.