$ SET VERIFY $ ! Command file to build a new cookie database and also $ ! optionally a printable formatted list of all $ ! cookies on VAX/VMS - invoke as @COOMAK RNO if the $ ! list is desired $ ! $ SET DEFAULT DUA0:[SYSPROG.COOKIE] $ ! $ ! Build unoffensive cookies $ COOTXT :== "$DUA0:[SYSPROG.COOKIE]COOTXT.EXE" $ COOTXT -L "DUA0:[SYSPROG.COOKIE]" -F COONO1.SRC -O COOKIE.TXT $ COOBLD :== "$DUA0:[SYSPROG.COOKIE]COOBLD.EXE" $ COOBLD -F COOKIE.TXT -O COOKIE.FIL $ IF P1 .NES. "RNO" THEN GOTO NORNO1 $ DEFINE/USER SYS$OUTPUT DUA0:[SYSPROG.COOKIE]COOKIE.LST $ COORNO :== "$DUA0:[SYSPROG.COOKIE]COORNO.EXE $ COORNO COOKIE.TXT $NORNO1: $ COPY COOKIE.FIL SYS$GAMES: $ SET FILE/PROT=(O:RWD,S:RWD,G:R,W:R) SYS$GAMES:COOKIE.FIL $ ! $ ! Build offensive cookies $ COOTXT -L "DUA0:[SYSPROG.COOKIE]" -F COOOF1.SRC -O COOKOB.TXT $ COOBLD -F COOKOB.TXT -O COOKOB.FIL $ IF P1 .NES. "RNO" THEN GOTO NORNO2 $ DEFINE/USER SYS$OUTPUT DUA0:[SYSPROG.COOKIE]COOKOB.LST $ COORNO COOKOB.TXT $NORNO2: $ COPY COOKOB.FIL SYS$GAMES: $ SET FILE/PROT=(O:RWD,S:RWD,G:R,W:R) SYS$GAMES:COOKOB.FIL $ ! $ ! Clean up $ DEL COOKIE.TXT;* $ DEL COOKOB.TXT;* $ DEL COOKIE.FIL;* $ DEL COOKOB.FIL;* $ PURGE $ ! $ ! All done