Toques finales

Eliminar la configuración automática del terminal

Al iniciarse la sesión, el servidor envía un código (inquire) al terminal para averiguar su tipo, esperando una respuesta y así configurarlo de forma automática. Algunos terminales (como los Axel) no soportan esa función, y el servidor tiene que esperar un rato (timeout) para darse cuenta, lo que aparte de no configurar el terminal alarga el tiempo de conexión. En otras ocasiones, como la consola de linux la configuración no es correcta.

Para eliminar ese inquire y forzar a que el terminal sea un vt100 hay que editar el SYS$MANAGER:SYLOGIN.COM y comentar las líneas indicadas y añadir la línea en rojo para que asuma un terminal VT100 a 9600.

$ set term/vt100
$ edit sys$manager:sylogin.com

Se avanza hasta localizar las líneas a comentar y se añade un $! al principio de cada una para comentarlas, luego al final del bloque se coloca SET TERMINAL/VT100 /SPEED:9600 (los cambios de indican en color rojo).

$ SET CONTROL=T
$
$! Set the terminal type, unless this is a detached DECwindows application,
$! or a remote login, or specific other terminal types.  (Note that remote
$! user logins, via such protocols as DECnet CTERM (SET HOST, device driver
$! prefix "RT") and IP (telnet, device driver prefix "TN"), are considered
$! "Interactive" processes, and not "Network" processes.)
$
$! $ TT_NOINQUIR = "|TW|RT|WT|TK|WS|PY|FT|TN|"
$! $ TT_DEVNAME = F$GETDVI("TT","TT_PHYDEVNAM")
$! $ TT_DEVPREFIX = F$EXTRACT(1,2,TT_DEVNAME)
$! $ IF F$LOCATE("|''TT_DEVPREFIX'|",TT_NOINQUIR) .eq. F$Length(TT_NOINQUIR)
$! $ THEN
$! $    ! Determine what sort of terminal this is, and avoid resetting
$! $    ! the user's default display size settings in the process...
$! $    tt_page = f$getdvi("TT","TT_PAGE")
$! $    devbufsiz = f$getdvi("TT","DEVBUFSIZ")
$! $    SET TERMINAL/INQUIRE/PAGE='tt_page'/WIDTH='devbufsiz'
$! $ EndIf
$ SET TERMINAL /VT100 /SPEED:9600
$
 Buffer: SYLOGIN.COM                                 | Write | Insert | Forward 

156 lines read from file SYS$COMMON:[SYSMGR]SYLOGIN.COM;1

Se guarda con <Ctrl+Z>, se sale de la sesión y se vuelve a entrar.

Copiar ejemplos a JDOE

Tras haber montado el CDROM (mount/over=id dua3):

$ copy dua3:[jdoe...]*.* dua1:[jdoe...]
$ _

Añadir Utilidades

UNZIP: Descomprime archivos ZIP.
MD5SUM y SHASUM: Calcular digest de un archivo, que se usa para poder verificar su integridad.
DF: Muestra los sistemas de archivo montados, su tamaño y el espacio libre (como en Linux).

Si no se hizo al instalar el Forth, se crea el directorio y se copian los archivos EXE con este comando, tras haber montado el CDROM (mount/over=id dua3):

$ create/directory dua0:[util]
$ copy dua3:[util]*.* dua0:[util]
$ _

Para que los comandos se puedan ejecutar de forma pública, se ejectuan los siguientes comandos:

$ set security/protection=(w:e) dua0:[util]unzip.exe
$ set security/protection=(w:e) dua0:[util]md5sum.exe
$ set security/protection=(w:e) dua0:[util]shasum.exe
$ set security/protection=(w:e) dua0:[util]df.exe
$ _

Luego se crean los alias (de forma permanente), para poder ejecutarlos escribiendo su nombre (imprescindible para su uso con parámetros) editando el SYS$MANAGER:SYLOGIN.COM

$ set term/vt100
$ edit sys$manager:sylogin.com

y añadiendo las líneas en rojo en el lugar indicado:

$   MOU*NT :== MOUNT/NOASSIST
$ EndIf
$
$!    =======  =================  ===========   
$!     A D D    C O M M A N D S    B E L O W    
$!    =======  =================  ===========   
$
$ UNZIP=="$DUA0:[UTIL]UNZIP.EXE"
$ MD5SUM=="$DUA0:[UTIL]MD5SUM.EXE"
$ SHASUM=="$DUA0:[UTIL]SHASUM.EXE"
$ DF=="$DUA0:[UTIL]DF.EXE"
$
$!    =======  =================  ===========   
$!     A D D    C O M M A N D S    A B O V E
$!    =======  =================  ===========   
$
$
$! Fall through...
$
$MODE_NETWORK:
$
 Buffer: SYLOGIN.COM                                 | Write | Insert | Forward 

157 lines read from file SYS$COMMON:[SYSMGR]SYLOGIN.COM;1

Se guarda con <Ctrl+Z>, se sale de la sesión y se vuelve a entrar.

Si se ejecuta el comando

$ show symbol /global/all

se observarán los nuevos alias, también se pueden invocar tecleando unzip, md5sum, shasum o df.

Ajustar usuarios

Realizamos lo siguiente:

Elimininar la caducidad de la clave para los usuarios existentes y nuevos.
Pone como tamaño mínimo de la clave 4 caracteres para todos los usuarios existentes y nuevos.
Poner como password 1234 a SYSTEM, SYSTEST, FIELD y JDOE.
Asignar el nombre USERS al grupo 200.

$ set def sys$system
$ run authorize
UAF> _

Para cambiar la longitud mínima de la clave a 4 caracteres y eliminar su caducidad para los usuarios que se creen a partir de este momento se hace:

UAF> default/pwdminimum=4/pwdlifetime=none

y todos los usuarios ya existentes:

UAF> modify * /pwdminimum=4/pwdlifetime=none

Se pone 1234 como clave a los usuarios SYSTEM, SYSTEST, FIELD y JDOE:

UAF> modify system /password=1234/nopwdexpired
UAF> modify systest /password=1234/nopwdexpired
UAF> modify field /password=1234/nopwdexpired
UAF> modify jdoe /password=1234/nopwdexpired

Para asignar el nombre USERS al grupo 200, se ejecuta el comando siguiente:

UAF> add/ident USERS /value=uic:[200,*] /attrib=resource

Por último, para salir de authorize:

UAF> exit
$ _

Incluir el nombre de la máquina en el indicador de DCL

Se edita SYS$MANAGER:SYLOGIN.COM:

$ edit sys$manager:sylogin.com

y se añaden las líneas en rojo:

$
$! $ TT_NOINQUIR = "|TW|RT|WT|TK|WS|PY|FT|TN|"
$! $ TT_DEVNAME = F$GETDVI("TT","TT_PHYDEVNAM")
$! $ TT_DEVPREFIX = F$EXTRACT(1,2,TT_DEVNAME)
$! $ IF F$LOCATE("|''TT_DEVPREFIX'|",TT_NOINQUIR) .eq. F$Length(TT_NOINQUIR)
$! $ THEN
$! $    ! Determine what sort of terminal this is, and avoid resetting
$! $    ! the user's default display size settings in the process...
$! $    tt_page = f$getdvi("TT","TT_PAGE")
$! $    devbufsiz = f$getdvi("TT","DEVBUFSIZ")
$! $    SET TERMINAL/INQUIRE/PAGE='tt_page'/WIDTH='devbufsiz'
$! $ EndIf
$ SET TERMINAL /VT100 /SPEED:9600
$ SET PROMPT=-
      "''F$GETSYI("NODENAME")'::''F$EDIT(F$GETJPI("","USERNAME"),"TRIM")'$ "      
$
$ @SYS$LIBRARY:RDBVMS_SETVER RESET
$
$! Remove the comments from the following command to support the Wollongong 
$! PathWay specific login procedure.
$! @TWG$TCP:[NETDIST.MISC]SYSLOGIN.COM
 Buffer: SYLOGIN.COM                                 | Write | Insert | Forward 

162 lines read from file SYS$COMMON:[SYSMGR]SYLOGIN.COM;9

Se guarda con [Ctrl+Z].

RETRO.COM.ES

Herramientas de usuario

Herramientas del sitio