[Info-vax] Need help in REVOKE

Jan-Erik Soderholm jan-erik.soderholm at telia.com
Wed Feb 13 08:51:45 EST 2013


adityagtm4 at gmail.com wrote 2013-02-13 14:41:
> On Wednesday, 13 February 2013 00:07:10 UTC+5:30, Hein RMS van den Heuvel  wrote:
>> On Tuesday, February 12, 2013 5:23:47 AM UTC-5, adity... at gmail.com wrote:
>>
>>> Hi
>>
>> :
>>
>>> but how can I revoke all the identifier in a single command.
>>
>>
>>
>> I first saw this question appear in an Attunity forum.
>>
>> Here is what I answered over there....
>>
>> -------
>>
>> This appears to be strictly an OpenVMS question with no direct relationship to Attunity (products).
>>
>> As such a better place for the (future) questions would have been the comp.os.vms newsgroup, the HP ITRC OpenVMS Forum, or perhaps stackoverflow.com/questions/tagged/openvms.
>>
>>
>>
>> Still, since you have our attention anyway...
>>
>>
>>
>> OpenVMS rights are granted and removed one at a time.
>>
>> No wildcard support exists.
>>
>> Best you can do is a quick editor, dcl or perl script to parse AUTHORIZE SHOW [/RIGHTS] information.
>>
>>
>>
>> Here is an example in perl looking for any identifier starting with "TES".
>>
>>
>>
>> UAF> grant /ident test_a hein
>>
>> UAF> grant /ident test_b hein
>>
>> $ pipe mcr authorize show hein | -
>>
>> perl -ne "$u=$1 if /me: (\w+)/;print qq(REVOKE/ID $1 $u\n) if /(TES\w*)\s+%X/"
>>
>> REVOKE/ID TEST_A HEIN
>>
>> REVOKE/ID TEST_B HEIN
>>
>>
>>
>> After verifying the rigth output paste that text at the UAF prompt
>>
>> You can even re-direct to a Authorize, or into a file, check and execute:
>>
>>
>>
>> $ pipe mcr authorize show hein | -
>>
>> perl -ne "$u=$1 if /me: (\w+)/;print qq(REVOKE/ID $1 $u\n) if /(TES\w*)\s+%X/" > revoke.tmp
>>
>> $ type revoke.tmp
>>
>> ...
>>
>> $ pipe mcr authorize < revoke.tmp
>>
>>
>>
>> Enjoy!
>>
>> Hein
>
> Hi Hein,
>
> Can you please tell me all these thing step-by-step... I am newbie to OpenVMS.
> I hope you'll help me out.
>
> Thanks..!
>

If you do *not* have perl installed already, and you know how to
"use" perl, my recomendation is to do it with a simple DCL routine
as has been described by others.

Jan-Erik.




More information about the Info-vax mailing list