home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / vmsnet / misc / 669 < prev    next >
Encoding:
Internet Message Format  |  1992-07-28  |  3.0 KB
  1. Path: sparky!uunet!stanford.edu!rutgers!ub!acsu.buffalo.edu!ubvmsb.cc.buffalo.edu!masmummy
  2. From: masmummy@ubvmsb.cc.buffalo.edu (William Brennessel)
  3. Newsgroups: vmsnet.misc
  4. Subject: Re: How to determin a rightsidentifier in FORTRAN?
  5. Message-ID: <Bs4urI.Lnu@acsu.buffalo.edu>
  6. Date: 29 Jul 92 05:21:00 GMT
  7. References: <1992Jul28.231632.16827@wega.rz.uni-ulm.de>
  8. Sender: nntp@acsu.buffalo.edu
  9. Organization: University at Buffalo
  10. Lines: 80
  11. News-Software: VAX/VMS VNEWS 1.41
  12. Nntp-Posting-Host: ubvmsb.cc.buffalo.edu
  13.  
  14. In article <1992Jul28.231632.16827@wega.rz.uni-ulm.de>, ORAKEL@rzmain.rz.uni-ulm.de (Framstag) writes...
  15. >I want to check in a FORTRAN program the existens of a VMS rights
  16. >identifier, which are listed as "Process rights" in SHOW PROCESS/PRIV.
  17. > 
  18. >A simple example would be fine ... or a hint where to look in which fine
  19. >manual :-)
  20. > 
  21. >thanx - Ulli
  22.  
  23. Since this is not the first time someone has asked, I will post a FORTRAN
  24. function that performs this operation.
  25.  
  26. The following is a logical function that will return true if a user
  27. possesses a specific rights identifier.
  28.  
  29. As far as I know these item codes are not in the manual...
  30.  
  31. Thanks,
  32. Bill
  33.  
  34. -------------------------------------CUT HERE-----------------------------------
  35.  
  36. * This function returns true if a person has the identifier passed in
  37. * set in his/her process rightslist.
  38.  
  39.       logical *4 function id_set (ident)
  40.       implicit none
  41.  
  42. * Parameter lsize set to 512 will allow for the first 256 (approximately)
  43. * identifiers of a process.  Should a user have more than 256 identifiers
  44. * set, then this number should be increased.
  45.  
  46.       parameter lsize = 512
  47.       character *(*) ident
  48.       character *31 name
  49.       integer *4 status,rights_size,rights_len,sys$getjpi,i,context
  50.       integer *4 rights(lsize),name_dsc(2)/31,0/,sys$idtoasc,length
  51.       structure /item_list_3/
  52.         union
  53.           map
  54.             integer *2 buf_len,it_code
  55.             integer *4 buf_adr,ret_len
  56.           end map
  57.           map
  58.             integer *4 end,%fill
  59.           end map
  60.         end union
  61.       end structure
  62.       record /item_list_3/ list(2)
  63.  
  64.       list(1).buf_len = 16
  65. * Parameter JPI$_RIGHTS_SIZE (value 817) is not currently in FORSYSDEF.TLB.
  66.       list(1).it_code = 817
  67.       list(1).buf_adr = %loc(rights_size)
  68.       list(1).ret_len = 0
  69.       list(2).end = 0
  70.       status = sys$getjpi(,,,list,,,)
  71.       if (.not.status) call lib$signal(%val(status))
  72.  
  73.       list(1).buf_len = rights_size
  74. * Parameter JPI$_PROCESS_RIGHTS (value 814) is not currently in FORSYSDEF.TLB.
  75.       list(1).it_code = 814
  76.       list(1).buf_adr = %loc(rights)
  77.       list(1).ret_len = %loc(rights_len)
  78.       list(2).end = 0
  79.       status = sys$getjpi(,,,list,,,)
  80.       if (.not.status) call lib$signal(%val(status))
  81.  
  82.       name_dsc(2) = %loc(name)
  83.       id_set = .false.
  84.       context = 0
  85.  
  86.       do i = 1,lsize
  87.         status = sys$idtoasc(%val(rights(i)),length,name_dsc,,,context)
  88.         if (name.eq.ident) id_set = .true.
  89.       enddo
  90.  
  91.       end
  92.  
  93. -----------------------------------END OF CUT-----------------------------------
  94.