Foro - Perl en Español

¡Hola a todo el mundo! Acabo de registrarme en este foro (no sabía de la existencia de foros de Perl en español )

Bueno, al lío. Tengo que hacer un programa en Perl que cree usuarios en Samba, y gestione sus permisos. En definitiva, que gestione los parámetros básicos del fichero de configuración de Samba (smb.conf). He estado buscando en el siguiente código (y en el foro también sobre esto):

http://cpansearch.perl.org/src/GHENRY/S ... nfigure.pl

Pero en ningún momento veo alguna línea que haga esto, por lo que no encuentro algo del código que me pueda servir u orientar. ¿Alguien con experiencia y alma cándida que ayude a este humilde servidor que lleva apenas un mes iniciándose en Perl?

Espero que alguien me pueda ayudar. ¡Gracias de antemano, gente!

Bienvenido a los foros de Perl en Español, perleando.

No creo que ese programa te ayude, porque se refiere a usar LDAP para hacer la autenticación de los usuarios, y supongo que querrás hacerla mediante la autenticación básica de samba por medio del comando smbpasswd (ver su página de manual).

El formato del archivo smb.conf es del tipo .ini, donde existen secciones que están etiquetadas con corchetes, y a la que siguen las opciones con el formato variable=valor. En CPAN hay varios módulos para gestionar esta parte.

Pero... alguien ya lo ha hecho antes, y lo ha dejado en CPAN: File::Samba. Con esto puedes modificar smb.conf. Y para las contraseñas, Passwd::Samba, pero es un módulo del 2012, así que a lo peor no es compatible con las últimas versiones de Samba (no creo que haya cambiado mucho).

Entra en esos módulos y mira las sinopsis.

explorer escribiste:Bienvenido a los foros de Perl en Español, perleando.

No creo que ese programa te ayude, porque se refiere a usar LDAP para hacer la autenticación de los usuarios, y supongo que querrás hacerla mediante la autenticación básica de samba por medio del comando smbpasswd (ver su página de manual).

El formato del archivo smb.conf es del tipo .ini, donde existen secciones que están etiquetadas con corchetes, y a la que siguen las opciones con el formato variable=valor. En CPAN hay varios módulos para gestionar esta parte.

Pero... alguien ya lo ha hecho antes, y lo ha dejado en CPAN: File::Samba. Con esto puedes modificar smb.conf. Y para las contraseñas, Passwd::Samba, pero es un módulo del 2012, así que a lo peor no es compatible con las últimas versiones de Samba (no creo que haya cambiado mucho).

Entra en esos módulos y mira las sinopsis.

Gracias por responder, explorer. La página me ha aclarado un poco las ideas. Pero hay algo que no lo acabo de entender: en la página que me has facilitado (File::Samba) ¿para qué servirían estas tres líneas de la sinopsis?

@list = $smb->listShares;
$smb->deleteShare('homes');
$smb->createShare('newShare');

Es que no las entiendo, y mira que me estoy mirando los módulos... Perdona la molestia y espero que me puedas aclarar la duda

Son ejemplos de lo que se puede hacer con el módulo.

Las descripciones de cada método están unas líneas más arriba de la sinopsis.

Por ejemplo, para listShares(), pone
que quiere decir

deleteShare('home') está borrando la sección compartida llamada "home".
Y createShare('newShare') crea una nueva sección compartida, llamada "newShare".

Ahora que me fijo, explorer, creo que ese módulo en concreto ya no existe (espero no estar equivocado) en el archivo smb.conf, seguramente debido a lo que has mencionado antes, a que es un mensaje del 2012.

Mirando los demás módulos de File::Samba, por ejemplo, si quiero cambiar el "read only" de la sección [global] (un ejemplo del archivo smb.conf está en esta página: http://www.ite.educacion.es/formacion/materiales/85/cd/linux/m4/instalacin_y_configuracin_de_samba.html ) el código quedaría a mi parecer algo así:


¿Crees que sería correcta la sintaxis?

Como ya he comentado antes, llevo apenas un mes empezando con Perl, así que igual escribo alguna locura de código, yo aviso. ¡Je,je!

Para poder usar File::Samba, debes antes instalarlo en tu sistema. Y sí que está disponible.

Usando cpanminus, me lo he instalado en un minuto:

Ten en cuenta una cosa importante: la modificación del smb.conf del sistema es algo que solo puede hacer el root del sistema, por lo que te será más cómodo hacer pruebas con una versión local de smb.conf, en tu directorio de trabajo. Para cuando veas que todo funciona, y que lo quieres instalar para el sistema, entonces tu programa solo se podrá ejecutar por parte del root, o por medio del comando sudo (siempre y cuando tu usuario del sistema tenga permisos para ello, claro).

Una cosa es la biblioteca File::Samba, para tu programa Perl, y otra cosa es el archivo smb.conf, que forma parte de la configuración de Samba, y que, normalmente, estará en /etc/samba/.

En cuanto al cambio de 'read only', según el manual debería ser así:

Cuando ejecuto el script:

Me arroja la siguiente línea:

No entiendo muy bien qué pasa. ¿Me podrías explicar qué función tiene el archivo Samba.pm que se encuentra en esa ruta que me indica? Si es que tengo que modificar algo de ese archivo o qué...

No sé qué versión de File::Samba estás usando, pero mirando el código fuente de la versión actual, en la línea 364, aparece:

Esa parte del programa está leyendo el archivo smb.conf y, concretamente esa línea, es cuando se refiere a las líneas del tipo campo = valor. Y el fallo está en que el programa se ha encontrado con algo inesperado que no corresponde a ese patrón.

De todas maneras, parece que es un mensaje de advertencia, no un error. Si ese es el caso, solo sería necesario quitar el 'use warnings;' de File::Samba.

Otra opción más fácil... revisar smb.conf y ver qué línea es la que da este problema, y arreglarla.

Diría que tengo la misma versión de File:Samba que aquí, ya que me salen las mismas líneas que mencionas.

En cuanto a la versión de Samba que tengo instalada (por si sirve de algo) tengo la siguiente:

¿Me podrías decir cómo identificar la línea que da el problema del smb.conf?

Lo dice el propio mensaje de error:

En la parte final, está diciendo que el error se ha producido al leer la línea 248 del texto que estaba analizando.