Traducido a 9 de Octubre de 1996 Samba COMO David Wood, dwood@plugged.net.au Traducido por: Ricardo Javier Cárdenes Medina, a1402@correo.dis.ulpgc.es v1.0, 10 de Agosto de 1996 Este documento describe la manera de usar el paquete Samba, que dota a Linux de soporte para el protocolo Session Message Block (SMB), también llamado NetBIOS o LanManager. ______________________________________________________________________ Índice General: 1. Introducción 2. Más Información 3. Instalación 4. Ejecutando los demonios 5. Configuración General ( /etc/smb.conf ) 6. Compartiendo Una Unidad Linux Con Máquinas Windows 7. Compartiendo Una Unidad Windows Con Máquinas Linux 8. Compartiendo Una Impresora Linux Con Máquinas Windows 9. Compartiendo Una Impresora Windows Con Máquinas Linux 10. Copyright 11. Reconocimientos 12. Notas sobre/del traductor 13. Anexo: El INSFLUG ______________________________________________________________________ 1. Introducción Este el es SMB COMO. Describe cómo usar el protocolo Session Message Block (SMB), también llamado protocolo NetBIOS o LanManager, con el Linux. Este documento es mantenido por David Wood (dwood@plugged.net.au). Cualquier añadido, modificación o corrección puedes enviarla aquí para incluirla en la siguiente entrega. El protocolo SMB es usado por Microsoft Windows 3.11, NT y 95 para compartir discos e impresoras. Usando el paquete de herramientas Samba creado por Andrew Tridgell, las máquinas UNIX (incluyendo Linux) pueden compartir discos e impresoras con servidores Windows. Hay cuatro cosas que uno puede hacer con Samba: 1. Compartir una unidad de Linux con máquinas Windows. 2. Compartir una unidad de Windows con máquinas Linux. 3. Compartir una impresora de Linux con máquinas Windows. 4. Compartir una impresora de Windows con máquinas Linux. Todos estos puntos están cubiertos en este documento. Excusatorio: Los procedimientos y scripts le funcionan al autor o se sabe que les funciona a la gente que los donó. Algunas configuraciones pueden dar problemas con la información que aquí se da. Si te encuentras en tal situación, puedes mandar un e-mail al autor con sugerencias para mejorar este documento, pero el autor no garantiza nada. ¿Qué esperabas? El autor también es un experto, después de todo... 2. Más Información Este COMO intenta explicar la configuración de servicios SMB básicos de ficheros e impresoras en una máquina Linux. Samba es un paquete muy complejo y completo. No debería haber razón para duplicar toda la documentación de Samba aquí. Para mayor información, por favor lee alguno de estos documentos: · La documentación de Samba, disponible en el paquete de distribución del Samba. El paquete está disponible en: ftp://nimbus.anu.edu.au/pub/tridge/samba/ · El COMO "Imprimiendo en Linux". (Linux Printing HOWTO) · El Mini-HOWTO Print2Win. 3. Instalación La última versión del código de Samba está disponible en: ftp://nimbus.anu.edu.au/pub/tridge/samba/ De todas maneras, si has instalado la distribución RedHat de Linux, tienes la opción de instalarlo como paquete. Algunas otras distribuciones también incluyen los ejecutables de Samba. Se requieren los dos demonios siguientes para el paquete Samba. Se suelen instalar en /usr/sbin y se pueden ejecutar tanto desde los scripts de arranque del sistema como desde inetd. Algunos scripts de ejemplo los puedes ver en ``Ejecutando los demonios''. · smbd (El demonio de SMB) · nmbd (Provee un nameserver de NetBIOS para soporte de clientes) Habitualmente, se instalan en /usr/bin los siguientes ejecutables de Samba, aunque la localización (como de costumbre) es opcional. · smbclient (Un cliente SMB para maquinas UNIX) · smbprint (Un script para imprimir a una impresora en un servidor SMB) · smbprint.sysv (Como el de encima, pero para máquinas UNIX SVR4) · smbstatus (Lista de las conexiones SMB en marcha en el servidor local) · smbrun (Un script 'cola' para facilitar la ejecución de aplicaciones en servidores ) Adicionalmente, se incluye en este COMO un script llamado 'print', que sirve como un útil front end para el script smbprint. El paquete Samba es sencillo de instalar. Simplemente consigue el código fuente del servidor que nombramos antes, y lee el fichero README de la distribución. Hay también un fichero llamado docs/INSTALL.txt en la distribución que te da un sencillo conjunto de instrucciones paso a paso. Siguiendo con la instalación, pon los demonios en /usr/sbin y los ejecutables en /usr/bin. Instala las páginas del manual en /usr/local/man. Cuando compiles el paquete Samba, deberías especificar en el Makefile la localización del fichero de configuración, smb.conf. Generalmente debería estar en /etc, pero puedes ponerlo donde quieras. A estas alturas, presumimos que especificaste la localización del fichero de configuración como /etc/smb.conf, el fichero de registro como /var/log/samba-log.%m y el directorio de bloqueo como /var/lock/samba Instala el fichero de configuración, smb.conf. Ve al directorio donde se compiló el Samba. Mira en el directorio examples/simple y lee el fichero README. En ese directorio encontrarás el fichero smb.conf. Cópialo en /etc. ¡TEN CUIDADO! Si tienes una distribución de Linux que tiene el Samba instalado ya, puede que ya tengas un fichero de configuración en /etc. Probablemente deberías usar el antiguo. Si no quieres que tu configuración esté en /etc, ponla donde quieras y luego pon un enlace simbólico en /etc: ln -s /path/to/smb.conf /etc/smb.conf 4. Ejecutando los demonios Los dos demonios de SMB son /usr/bin/smbd y /usr/sbin/nmbd. Puedes ejecutar los demonios de Samba desde inetd o como procesos independientes . Si estás configurando un servidor de ficheros permanente, deberían ejecutarse desde inetd para que sean reejecutados si 'mueren'. Si solo quieres usar los servicios SMB de vez en cuando o como ayuda a la administración del sistema, puedes ejecutarlos con un script en /etc/rc.d/init.d o incluso a mano cuando los necesites. Para ejecutar los demonios desde inetd, pon las siguientes líneas en el fichero de configuración de inetd, /etc/inetd.conf: # Servicios SAMBA NetBIOS (para compartición de ficheros e impresoras en PC) netbios-ssn stream tcp nowait root /usr/sbin/smbd smbd netbios-ns dgram udp wait root /usr/sbin/nmbd nmbd Entonces reejecuta inetd con el siguiente comando: kill -HUP 1 Para ejecutarlos desde los scripts de inicio del sistema, pon las siguientes líneas en /etc/rc.d/init.d/smb y hazle un enlace simbólico con los ficheros indicados en los comentarios: ______________________________________________________________________ #!/bin/sh # # /etc/rc.d/init.d/smb - comienza y termina los servicios SMB. # # Se deben crear los siguientes ficheros como enlaces simbolicos a este fichero: # symlinks: /etc/rc.d/rc1.d/K35smb (Termina los servicios SMB al cerrar el sistema) # /etc/rc.d/rc3.d/S91smb (Comienza los servicios SMB en modo multiusuario) # /etc/rc.d/rc6.d/K35smb (Termina los servicios SMB al hacer un reboot) # # Libreria de funciones . /etc/rc.d/init.d/functions # Configuracion de red . /etc/sysconfig/network # Asegurarse que la red esta a punto [ ${NETWORKING} = "no" ] && exit 0 # Comprobar como fuimos llamados case "$1" in empezar) echo -n "Poniendo en marcha los servicios SMB: " daemon smbd -D daemon nmbd -D echo touch /var/lock/subsys/smb ;; parar) echo -n "Terminando los servicios SMB: " killproc smbd killproc nmbd rm -f /var/lock/subsys/smb echo "" ;; *) echo "Modo de uso: smb {empezar|parar}" exit 1 esac ______________________________________________________________________ 5. Configuración General ( /etc/smb.conf ) La configuración de Samba en un Linux (u otra máquina UNIX) es controlada por un solo fichero, /etc/smb.conf. Este fichero determina qué recursos del sistema quieres compartir con el mundo exterior y que restricciones deseas poner en ellos. Como las siguientes secciones 'direccionarán' la compartición de unidades e impresoras de Linux con máquinas Windows, el fichero smb.conf mostrado en esta sección es lo más simple posible, solo para propósitos introductorios. No te preocupes por los detalles, aún. Otras secciones más adelante introducirán los conceptos más importantes. Cada sección del fichero empieza con una cabecera como [global], [impresoras], etc. La sección [global] define unas pocas variables que Samba usará para definir la compartición de todos los recursos. La sección [homes] permite a los usuarios remotos acceder a sus respectivos directorios principales en la máquina Linux local (cada uno al suyo nada más). Esto es, si un usuario de Windows intenta conectar a este recurso desde su máquina Windows, será conectado a su directorio personal. A tener en cuenta que para hacer esto, tiene que tener una cuenta en la máquina Linux. ;-) El fichero smb.conf que viene debajo como ejemplo permite a los usuarios remotos acceder a su directorio principal en la máquina local y escribir en un directorio temporal. Para que un usuario de Windows vea estos recursos, la máquina Linux debe estar en la red local. Entonces el usuario simplemente conecta una unidad de red desde el Explorador de Windows o el Windows File Manager. Fíjate que en las siguientes secciones, se darán entradas adicionales a este fichero para permitir la compartición de más recursos. ______________________________________________________________________ ; /etc/smb.conf ; ; Reinicia el servidor cada vez que hagas cambios a este fichero, ej: ; /etc/rc.d/init.d/smb parar ; /etc/rc.d/init.d/smb empezar [global] ; Quita el comentario a la siguiente linea si quieres cuentas de invitado ; guest account = nobody log file = /var/log/samba-log.%m lock directory = /var/lock/samba share modes = yes [homes] comment = Directorios principales browseable = no read only = no create mode = 0750 [tmp] comment = Espacio de ficheros temporales path = /tmp read only = no public = yes ______________________________________________________________________ 6. Compartiendo Una Unidad Linux Con Máquinas Windows Como se muestra en el fichero smb.conf anterior, compartir una unidad Linux con usuarios Windows es fácil. De todas maneras, como todo lo demás con Samba, puedes tener las cosas MUY controladas. Aquí tienes unos pocos ejemplos: Para compartir un directorio con todo el mundo, crea una copia de la sección [tmp] añadiendo algo como esto al smb.conf: ______________________________________________________________________ [public] comment = Cosas publicas path = /home/public public = yes writable = yes printable = yes ______________________________________________________________________ Para que este directorio lo pueda leer todo el mundo, pero que sólo lo puedan cambiar gente del grupo 'laborales', modifica la entrada de esta manera: ______________________________________________________________________ [public] comment = Cosas publicas path = /home/public public = yes writable = yes printable = no write list = @laborales ______________________________________________________________________ Para aprender otros truquillos con que jugar con las unidades compartidas, mira la documentación de Samba o las páginas del man. 7. Compartiendo Una Unidad Windows Con Máquinas Linux Se incluye un programa cliente de SMB para máquinas UNIX con la distribución de Samba. Provee un interfaz estilo ftp para la línea de comandos. Puedes usar esta utilidad para transferir ficheros entre un 'servidor' Windows y un cliente unix. Para ver qué recursos están disponibles en un host dado, ejecuta: /usr/sbin/smbclient -L host donde 'host' es el nombre de la máquina que quieres 'ver'. Esto devolverá un lista de nombres de 'servicios' --esto es, nombres de unidades o impresoras que puede compartir contigo--. A menos que el servidor SMB no tenga la seguridad configurada, te preguntará por una clave. Dale la clave de la cuenta de 'invitados' o de tu cuenta personal en esa máquina. Por ejemplo: smbclient -L zimmerman La salida de este comando debería ser algo parecido a esto: Server time is Sat Aug 10 15:58:27 1996 Timezone is UTC+10.0 Password: Domain=[WORKGROUP] OS=[Windows NT 3.51] Server=[NT LAN Manager 3.51] Server=[ZIMMERMAN] User=[] Workgroup=[WORKGROUP] Domain=[] Sharename Type Comment --------- ---- ------- ADMIN$ Disk Remote Admin public Disk Public C$ Disk Default share IPC$ IPC Remote IPC OReilly Printer OReilly print$ Disk Printer Drivers This machine has a browse list: Server Comment --------- ------- HOPPER Samba 1.9.15p8 KERNIGAN Samba 1.9.15p8 LOVELACE Samba 1.9.15p8 RITCHIE Samba 1.9.15p8 ZIMMERMAN La lista muestra otros servidores SMB con recursos para compartir con la red. Para usar el cliente, ejecuta: /usr/sbin/smbclient servicio donde 'servicio' es una máquina y un servicio. Por ejemplo, si estás intentando entrar en un directorio que ha sido compartido como 'public' en una máquina llamada zimmerman, el servicio debería llamarse \\zimmerman\public. De todas maneras, debido a restricciones del shell, necesitarás poner las barras invertidas con secuencias de escape, por lo que al final saldrá algo parecido a esto: /usr/sbin/smbclient \\\\zimmerman\\public miclave donde 'miclave' es una cadena literal con tu password. Entonces te aparecerá el 'prompt' del smbclient: Server time is Sat Aug 10 15:58:44 1996 Timezone is UTC+10.0 Domain=[WORKGROUP] OS=[Windows NT 3.51] Server=[NT LAN Manager 3.51] smb: \> Escribe 'h' para obtener una ayuda de como usar el cliente: smb: \> h ls dir lcd cd pwd get mget put mput rename more mask del rm mkdir md rmdir rd prompt recurse translate lowercase print printmode queue cancel stat quit q exit newer archive tar blocksize tarmode setmode help ? ! smb: \> Si sabes usar el ftp, no deberías necesitar las páginas del man del smbclient. 8. Compartiendo Una Impresora Linux Con Máquinas Windows Para compartir una impresora Linux con máquinas Windows, necesitas asegurarte de que la impresora está preparada para trabajar bajo Linux. Si puedes imprimir desde Linux, preparar una 'compartición' SMB de la impresora es automático. Mírate el COMO Imprimir (Printing HOWTO) para poner a punto la impresora con Linux. Como el autor usa una impresora conectada a una máquina Windows NT, esta sección no debería ser vista como algo definitivo, sino como mera sugerencia. Cualquiera que tenga detalles que compartir con el autor, por favor, que los mande a dwood@plugged.net.au para que esta sección pueda ser completada. Añade la configuración de la impresora a tu smb.conf: ______________________________________________________________________ [global] printing = bsd printcap name = /etc/printcap load printers = yes log file = /var/log/samba-log.%m lock directory = /var/lock/samba [printers] comment = Todas las impresoras security = server path = /var/spool/lpd/lp browseable = no printable = yes public = yes writable = no create mode = 0700 [ljet] security = server path = /var/spool/lpd/lp printer name = lp writable = yes public = yes printable = yes print command = lpr -r -h -P %p %s ______________________________________________________________________ ¡Asegúrate de que el 'path' de la impresora (en este caso bajo [ljet]) se corresponde al directorio de 'spool' en /etc/printcap! NOTA: Hay algunos problemas compartiendo impresoras conectadas a UNIX con máquinas Windows NT usando Samba. Un problema es que NT 'vea' la impresora compartida correctamente. Para conseguirlo, mírate las notas en la distribución de Samba en el fichero docs/WinNT.txt. El otro va con problemas con las claves. Mírate los comentarios en ese mismo fichero para conseguir una molesta ganancia de conocimientos y fallos (jejeje) para arreglar el problema. 9. Compartiendo Una Impresora Windows Con Máquinas Linux Para compartir una impresora en una máquina Windows, debes hacer lo siguiente: a) Debes tener las entradas adecuadas en /etc/printcap y deben corresponderse a la estructura de directorios local (el directorio de spool, etc) b) Debes tener el script /usr/bin/smbprint. Viene con las fuentes de Samba, pero no con la distribución de ejecutables del Samba. Más abajo comentamos una copia ligeramente modificada. c) Si quieres convertir ficheros ASCII a PostScript, debes tener el 'nenscript' o su equivalente. nenscript es un conversor de PostScript y habitualmente está instalado en /usr/bin. d) Puedes desear que las impresiones de Samba sean más sencillas teniendo un front end fácil de usar. Más abajo tienes un sencillo script en perl para manejar ASCII, PostScript o PostScript generado. La entrada para /etc/printcap que tenemos debajo es para una impresora HP 5MP en un host Windows NT. Las entradas son las siguientes: ______________________________________________________________________ cm - comentario lp - nombre del dispositivo a abrir para salida sd - el directorio de spool de la impresora (en la máquina local) af - el fichero de cuentas mx - el tamano maximo del fichero (cero es ilimitado) if - nombre del fichero de entrada (script) ______________________________________________________________________ Para más información, lee el COMO Imprimir (Printing HOWTO) o la página del man de printcap. ______________________________________________________________________ # /etc/printcap # # //zimmerman/oreilly via smbprint # lp:\ :cm=HP 5MP PostScript OReilly en zimmerman:\ :lp=/dev/lp1:\ :sd=/var/spool/lpd/lp:\ :af=/var/spool/lpd/lp/acct:\ :mx#0:\ :if=/usr/bin/smbprint: ______________________________________________________________________ Asegúrate de que los directorios de spool y cuentas existe y se puede escribir en ellos. Asegura también que la línea 'if' tiene el path adecuado para el script smbprint (que damos debajo) y que apunta al dispositivo adecuado. (el fichero /dev especial). Lo siguiente es el propio script smbprint. Normalmente está en /usr/bin y es atribuible a Andrew Tridgell, la persona que creó el Samba (que yo sepa). Viene con la distribución de las fuentes del Samba, pero está ausente de algunas distribuciones de ejecutables, por lo que lo he recreado aquí. Te podría interesar mirarlo con cuidado. Hay algunas pequeñas alteraciones que han demostrado ser útiles. ______________________________________________________________________ #!/bin/sh -x # Este script es un filtro de entrada para la impresion de printcap en # una maquina unix. Usa el programa smbclient para imprimir un fichero # en el servidor y servicio basados en smb especificados. # Por ejemplo, puedes tener una entrada en printcap como esta # # smb:lp=/dev/null:sd=/usr/spool/smb:sh:if=/usr/local/samba/smbprint # # que creara una impresora unix llamada "smb" que imprimira a traves de # este script. Necesitarras crear el directorio de spool /usr/spool/smb # con los permisos y pertenencias apropiados para tu sistema. # Ahora preparalos con el servidor y servicio en que quieras imprimir # En este ejemplo tengo un PC WfWg llamado "lapland" que tiene una # impresora exportada llamada "printer" sin password. # # Script alterado por hamilton@ecnz.co.nz (Michael Hamilton) # para que servicio, servidor y clave puedan ser leidos desde un # fichero /usr/var/spool/lpd/PRINTNAME/.config # # Para que esto funcione la entrada en /etc/printcap debe incluir un # fichero de cuentas (af=...): # # cdcolour:\ # :cm=CD IBM Colorjet on 6th:\ # :sd=/var/spool/lpd/cdcolour:\ # :af=/var/spool/lpd/cdcolour/acct:\ # :if=/usr/local/etc/smbprint:\ # :mx=0:\ # :lp=/dev/null: # # El fichero /usr/var/spool/lpd/PRINTNAME/.config deberia contener: # servidor=SERVIDOR_PC # servicio=NOMBRE_IMP # clave="clave" # # Ej. # servidor=PAULS_PC # servicio=CJET_371 # clave="" # # Fichero de registro para correcciones, cambiar a /dev/null si se quiere # fichreg=/tmp/smb-print.log # fichreg=/dev/null # # El ultimo parametro para el filtro es el nombre del fichero de # cuentas # dir_spool=/var/spool/lpd/lp fich_config=$dir_spool/.config # Deberia leer las siguientes variables activadas en el fichero de # configuracion: # servidor # servicio # clave # usuario eval `cat $fich_config` # # Algo de ayuda en la correccion de errores. Cambia el >> por > si # quieres salvar algo de espacio. # echo "servidor $servidor, servicio $servicio" >> $fichreg ( # NOTA: Puede que quieras anadir la linea `echo translate' si quieres CR/LF # automatico cuando imprimes. echo translate echo "print -" cat ) | /usr/bin/smbclient "\\\\$servidor\\$servicio" $clave -U $usuario -N -P >> $fichreg ______________________________________________________________________ La mayoría de las distribuciones de Linux vienen con el nenscript para convertir los documentos ASCII a Postscript. El siguiente script perl hace la vida más fácil dando un interfaz sencillo para que linux imprima a través de smbprint. ______________________________________________________________________ Forma de uso: print [-a|c|p] -a imprime como ASCII -c imprime formateado como codigo fuente -p imprime como Postscript Si no se pasa ningun parametro, print intenta averiguar el tipo de fichero e imprimirlo adecuadamente. ______________________________________________________________________ smbprint tiende a truncar las líneas demasiado largas cuando imprime ficheros ASCII. Este rompe las líneas largas donde haya un espacio en blanco (en lugar de en mitad de una palabra), si es posible. El formateado de código fuente se hace con nenscript. Coge un fichero ASCII y lo formatea en 2 columnas con una cabecera mu' mona (fecha, nombre de fichero , etc). Además enumera las líneas. Usándolo como ejemplo, se pueden lograr otros tipos de formateado. Los documentos Postscript también se imprimen correctamente, por lo que pasan directamente. ______________________________________________________________________ #!/usr/bin/perl # Script: print # Autores: Brad Marshall, David Wood # Plugged In Communications # Fecha: 960808 # Cambios: Ricardo Javier Cardenes Medina # Razon: Traduccion de comentarios y codigo a espanol para # mayor comprension. # Fecha: 961109 (Sab 9 de Noviembre de 1996) # # Script para imprimir a Oreilly que esta actualmente en zimmerman. # Proposito: Toma ficheros de varios tipos como parametros y # los procesa apropiadamente para mandarlos al script de impresion de Samba. # # Tipos soportados actualmente: # # ASCII - Asegura que las lineas con mas de $largo_linea caracteres seran # divididas aprovechando los espacios en blanco. # PostScript - No hace nada. # Codigo - Lo formatea en PostScript (usando nenscript) para una mejor # presentacion (fuente, etc...). # # Maxima longitud permitida para cada linea de texto ASCII. $largo_linea = 76; # Path y nombre del script 'print' de Samba. $prog_print = "/usr/bin/smbprint"; # Path y nombre del nenscript (el convertidor ASCII-->PostScript) $nenscript = "/usr/bin/nenscript"; unless ( -f $prog_print ) { die "¡No encuentro $prog_print!"; } unless ( -f $nenscript ) { die "¡No encuentro $nenscript!"; } &InterpLinCom(@ARGV); # DBG print "El tipo de fichero es $tipofich\n"; if ($tipofich eq "ASCII") { &Rompe($largo_linea); } elsif ($tipofich eq "codigo") { &FormateaCodigo; } elsif ($tipofich eq "postscript") { &CreaTabla; } else { print "Lo siento..tipo de fichero desconocido.\n"; exit 0; } # Enviar el array a smbprint open(IMPRESORA, "|$prog_print") || die "¡No puedo abrir $prog_print: $!\n"; foreach $linea (@newlines) { print IMPRESORA $linea; } # Enviar un avance de linea extra en caso de que el fichero tenga una # ultima linea incompleta. print IMPRESORA "\n"; close(IMPRESORA); print "Terminado\n"; exit 0; # --------------------------------------------------- # # Todo lo de debajo es una subrutina # # --------------------------------------------------- # sub InterpLinCom { # Interpreta la linea de comando, averiguando el tipo de fichero # Toma $par y $fich como parametro (si existe) y nombre del # fichero. if ($#_ < 0) { &FormaUso; } # DBG # foreach $elemento (@_) { # print "*$elemento* \n"; # } $par = shift(@_); if ($par =~ /\-./) { $com = $par; # DBG # print "\Encontrado $com.\n"; $fich = shift(@_); } else { $fich = $par; } # Defining the file type unless ($com) { # No tenemos parámetro if ($fich =~ /\.ps$/) { $tipofich = "postscript"; } elsif ($fich =~ /\.java$|\.c$|\.h$|\.pl$|\.sh$|\.csh$|\.m4$|\.inc$|\.html$|\.htm$/) { $tipofich = "codigo"; } else { $tipofich = "ASCII"; } # Procesa $fich buscando el tipo y devuelve $tipofich } else { # Tenemos el tipo en $par if ($com =~ /^-p$/) { $tipofich = "postscript"; } elsif ($com =~ /^-c$/) { $tipofich = "codigo"; } elsif ($com =~ /^-a$/) { $tipofich = "ASCII" } } } sub FormaUso { print " Forma de uso: print [-a|c|p] -a imprime como ASCII -c imprime formateado como codigo fuente -p imprime como Postscript Si no se pasa ningun parametro, print intenta averiguar el tipo de fichero e imprimirlo adecuadamente.\n "; exit(0); } sub Rompe { # Crea una tabla con las lineas del fichero, donde cada linea es # menor que el numero de caracteres especificado, y las rompe # solo en los espacios en blanco # Toma el numero de caracteres a los que limitar la linea. $limite = pop(@_); # DBG #print "Entrando en la subrutina Rompe\n"; #print "El limite de caracteres es $limit\n"; # Lee en el fichero, lo interpreta y pone en la tabla. open(FICHERO, "<$fich") || die "¡No puedo abrir $fich: $!\n"; while() { $linea = $_; # DBG #print "La linea es:\n$linea\n"; # Rompe la linea si se pasa del limite. while ( length($linea) > $limite ) { # DBG #print "Rompiendo..."; # Toma los primeros $limite +1 caracteres. $cacho = substr($linea,0,$limite +1); # DBG #print "La linea parcial es:\n$cacho\n"; # Mira a ver si el ultimo caracter es un espacio. $ultimo_car = substr($cacho,-1, 1); if ( " " eq $ultimo_car ) { # Si lo es, imprime el resto. # DBG #print "El ultimo caracter era un espacio\n"; substr($linea,0,$limite + 1) = ""; substr($cacho,-1,1) = ""; push(@newlines,"$cacho\n"); } else { # Si no lo es, busca el ultimo espacio en la # sub-linea e imprime hasta alli. # DBG #print "El ultimo caracter no era un espacio\n"; # Borra el ultimo caracter que pasa de $limite substr($cacho,-1,1) = ""; # Da la vuelta a la linea para hacer mas # sencillo buscar el espacio. $cachoreves = reverse($cacho); $indice = index($revpart," "); if ( $indice > 0 ) { substr($linea,0,$limite-$indice) = ""; push(@newlines,substr($cacho,0,$limite-$indice) . "\n"); } else { # No hay espacios en la linea, por lo que # se imprime hasta $limite. substr($linea,0,$limite) = ""; push(@newlines,substr($cacho,0,$limite) . "\n"); } } } push(@newlines,$linea); } close(FICHERO); } sub FormateaCodigo { # Llama a la subrutina Rompe cuando filtra a traves de nenscript &Rompe($largo_linea); # Manda los resultados a traves de nenscript para crear un # fichero Postscript que de una forma decente a nuestro codigo # fuente para imprimirlo (fuente Courier, numero de lineas, ...). # E imprime todo esto a un fichero temporal. $fichtmp = "/tmp/nenscript$$"; open(FICHERO, "|$nenscript -2G -i$fich -N -p$fichtmpfich -r") || die "¡No pude abrir nenscript: $!\n"; foreach $linea (@newlines) { print FICHERO $linea; } close(FICHERO); # Vuelca el fichero temporal en una tabla para que pueda # ser pasado al script de impresion de Samba. @newlines = (""); open(FICHERO, "<$fichtmp") || die "¡No puedo abrir $fichtmp: $!\n"; while() { push(@newlines,$_); } close(FICHERO); system("rm $fichtmp"); } sub CreaTabla { # Crear la tabla para postscript open(FICHERO, "<$fich") || die "¡No puedo abrir $fich: $!\n"; while() { push(@newlines,$_); } close(FICHERO); } ______________________________________________________________________ 10. Copyright This HOWTO is copyright 1996 by David Wood. It may be reproduced in any form and freely distributed as long as the file stays intact, including this statement. Este COMO tiene un copyright de 1996 por David Wood. Puede ser reproducido en cualquier forma y distribuido libremente mientras el fichero se mantenga intacto , incluyendo esta línea. 11. Reconocimientos Tan pronto como me mandes sugerencias, te pondré aquí en la siguiente entrega. 12. Notas sobre/del traductor Este es mi primer trabajo para el INSFLUG, grupo del que tuve conocimiento esta misma semana (esto fue escrito el sábado 9 de noviembre de 1996). Para que veáis que aquí nos damos prisa con las cosas y que esto va rápido. Ricardo Cárdenes es un simple estudiante de la E.U. de Informática en la ULPGC (Universidad de Las Palmas de Gran Canaria). Ahora mismo está en su tercer año y tiene dos cosas que agradecer a la uni: Internet y el LiNUX. La primera la tiene presente desde el primer mes en la escuela. El segundo lo descubrió y empezó a quererlo y mimarlo desde que se vio obligado a ceder casi la mitad de su disco duro (210MB -sigh!-) para poder cumplir con unas prácticas de S. Operativos en mitad del segundo curso (hasta ahora no se ha arrepentido) Cualquier donación para la compra de un nuevo disco duro y poder rebajar el 88-95% de ocupación que se mantiene constantemente en las particiones, y así poder dedicarse con más holgura a la traducción de COMOs, FAQs y cosas de esas que tan bien os vienen, será bien recibida }8-))))) Si quieres contactar con él por alguna de esas extrañas razones de la vida (por ejemplo, una donación para su nuevo disco duro 8-))))), podéis dejarle un mensaje aquí: a1402@correo.dis.ulpgc.es 13. Anexo: El INSFLUG El INSFLUG forma parte del grupo internacional Linux Documentation Project, encargándose de las traducciones al castellano de los Howtos (Comos), así como la producción de documentos originales en aquellos casos en los que no existe análogo en inglés. En el INSFLUG se orienta preferentemente a la traducción de documentos breves, como los COMOs y PUFs (Preguntas de Uso Frecuente, las FAQs. :) ), etc. Diríjase a la sede del INSFLUG para más información al respecto. En la sede del INSFLUG encontrará siempre las últimas versiones de las traducciones: www.insflug.org. Asegúrese de comprobar cuál es la última versión disponible en el Insflug antes de bajar un documento de un servidor réplica. Se proporciona también una lista de los servidores réplica (mirror) del Insflug más cercanos a Vd., e información relativa a otros recursos en castellano. Francisco José Montilla, pacopepe@insflug.org.