[Info-vax] Restrict the use of SUBMIT/USER= to one particular user.

[John Reagan]

On Thursday, November 10, 2016 at 12:57:07 PM UTC-5, Jim wrote:
> On Thursday, November 10, 2016 at 11:41:25 AM UTC-5, Joe wrote:
> > On Thursday, November 10, 2016 at 5:35:54 PM UTC+1, John Reagan wrote:
> > > On Thursday, November 10, 2016 at 11:28:09 AM UTC-5, Joe wrote:
> > > > > 
> > > > > You *really* have to work with the current SUBMIT command language
> > > > > definition.  The one you found in Sys$Update: is ancient and no
> > > > > longer corresponds to your current SUBMIT.EXE image.
> > > > > 
> > > > 
> > > > Thank you again. 
> > > > I got some time for this today and tested again and I'm getting the same error.
> > > > 
> > > > $ verb submit/output=pni_submit.cld
> > > > $ vi pni_submit.cld
> > > > $  diff pni_submit.cld
> > > > ************
> > > > File SYSMGT:[JOE.PNI_SUBMIT]PNI_SUBMIT.CLD;2
> > > >     1   define verb PNI_SUBMIT
> > > >     2      image PNI_SUBMIT
> > > >     3      parameter P1, prompt="File"
> > > > ******
> > > > File SYSMGT:[JOE.PNI_SUBMIT]PNI_SUBMIT.CLD;1
> > > >     1   define verb SUBMIT
> > > >     2      image SUBMIT
> > > >     3      parameter P1, prompt="File"
> > > > ************
> > > > 
> > > > Number of difference sections found: 1
> > > > Number of difference records found: 2
> > > > 
> > > > $ verb pni_submit
> > > > define verb PNI_SUBMIT
> > > >    image PNI_SUBMIT
> > > >    parameter P1, prompt="File"
> > > >    .
> > > >    .
> > > >    .
> > > >    .
> > > > 
> > > > ! nothing else changed apart from verb to PNI_SUBMIT and image to the same name.
> > > > $  pni_submit test.com
> > > > %CLI-F-SYNTAX, error parsing 'BURST'
> > > > -CLI-E-ENTNF, specified entity not found in command tables
> > > > 
> > > > $ sho sys/noproc
> > > > OpenVMS V8.4  on node VCAS01   10-NOV-2016 17:25:14.94   Uptime  0 02:34:03
> > > > 
> > > > 
> > > > 
> > > > Am I still missing something?
> > > 
> > > Does the pni_submit.cld contain burst?
> > 
> > Not, it doesn't.
> > $ sea pni_submit.cld burst
> > %SEARCH-I-NOMATCHES, no strings matched
> 
> The /BURST qualifier comes from the CLD for the PRINT verb which also invokes the SUBMIT executable. Did you write the code for PNI_SUBMIT or is it just a copy of SUBMIT.EXE? (I haven't looked at the source but could imagine the SUBMIT code checking if the command line verb were SUBMIT and if not then presuming that it was PRINT and checking for the presence of the PRINT specific qualifiers - just a wag...)

Ding, ding, ding.  We have a winner.  If the verb name starts with P, it thinks it is PRINT and goes on to check different quals.  Disgusting hack indeed and should be fixed...

>From SUBMIT.LIS:

    2       780 ! Get the command verb.  If it is PRINT, rather than SUBMIT, change some
    2       781 ! defaults.
    2       782 !
    2       783 CLI$GET_VALUE(D_$VERB, VALUE_DESC);
    2       784 IF CH$RCHAR(.VALUE_DESC[DSC$A_POINTER]) EQL %C'P'
    2       785 THEN
    2       786     BEGIN
    3       787     FLAGS[V_PRINT] = TRUE;
    3       788     FIND_DEFAULT[DSC$A_POINTER] = UPLIT BYTE ('.LIS');
    3       789     END;