On Wednesday, January 14, 2004, at 01:50PM, Patrick Spinler <[EMAIL PROTECTED]> wrote:
>Our current DCL code gets this information by calling dumping mcr >authorize show /rights to a file and parsing the results. This, >however, is slow and icky to maintain. > >I'd like to use VMS::Indexedfile, open rightslist.dat directly, and >determine the same info. That should work, but I don't know the format. I'd think the way to do this would be to use VMS::Process and get JPI$_RIGHTSLIST and/or JPI$_PROCESS_RIGHTS and/or JPI$_PERSONA_RIGHTS. I'm not aware of a Perl interface to SYS$FIND_HOLDER or SYS$FIND_HELD, but creating a new extension or adding this capability to an existing one (VMS::User?) would be another way to go.
