#-h- virtrm.r 1621 asc 21-oct-83 15:42:37 sventek (joseph sventek) #virtrm - S. M. Lazarus 6/7/83 # # Modifications by J. Sventek, 10/21/83 # # This creates a virtual terminal and performs a login to the account # specified in CMDLIN. Edit to reflect your local account and # password. # # # #************************************************************** # * # Edit next line for local login directory and password * # * #************************************************************** define (CMDLIN,"hel maillogin/stmail") # define (MAXSTR,3) # maximum string length for unit number # DRIVER(virtrm) logical*1 unitst(MAXSTR) # unit number string string term(arith(MAXSTR,+,3)) "vt" string cmdlin CMDLIN # integer iparm(3) # address for iparm parameter for crvt integer status # status return code integer params # variable for getadr translation of iparm integer unit # virtual terminal unit number integer lngth,itoc,length # integer*4 mcrnam # rad50 name for mcr... data mcrnam/6rmcr.../ # call getadr(params,iparm(1),status) call crvt( , , , ,params,status) # create the virtual terminal if (status > 0){ unit = status # status returns the unit number lngth=itoc(unit,unitst,MAXSTR-1) call concat(term,unitst,term) # concat unit onto term string call concat(term,":",term) # and add the closing colin % call spawn(mcrnam, , , , , , ,cmdlin,length(cmdlin),unit, ,status) if (status < 0){ call error("Unable to spawn") } } else call error("Unable to create virtual terminal") call stop # issue a stop directive DRETURN end #-h- virtrm.doc 827 asc 21-oct-83 15:42:38 sventek (joseph sventek) Virtrm will create a virtual terminal and spawn a login on that terminal. See "virtrm.r" for the login account and password used. To use virtrm it should be installed and the command line: run virtrm 1t given. Virtrm will stop itself, leaving the virtual terminal active. Unstopping virtrm will result in the unfortunate distruction of the virtual terminal. It is assumed that the login command file for the account used by virtrm.r does something useful, such as starting up the software tools mail system. To build: From the shell, type rc -v virtrm.r '-xogblpat=virtrm:r$fmsk:1' Note: If your concerned about security, create the account used by virtrm with a slaved terminal. Steve Lazarus Ford Aerospace MS V-03 3939 Fabian Way Palo Alto, CA. 94303 (415) 852-4203