Messages

1

Spanish / Re: Virtual Host solo en /var/www/

« on: August 19, 2013, 08:32:42 am »

Buenos días antrax_akb,

prueba poniendo http://principal.intranet.local/nombre-host-virtual y te tendría que redirigir al index.html de /srv/www/nombre-host-virtual

Si aun así quisieras usar  http://principal.intranet.local/ como página principal yo lo hice de dos formas:
 - Editas la plantilla /usr/share/zentyal/stubs/webserver/default.mas con tu configuración para que al reiniciar el servidor persistan los cambios. Lo malo es que al actualizar el módulo web pierdes la configuración.
 - "Cuelas" en alguno de los últimos daemons que arranquen al iniciar el servidor un script que te modifique la configuración. Es una chapuza pero es la que tengo funcionando sin problemas.


Un saludo.

2

Spanish / Re: Importar desde CSV, usuarios a grupos (Zentyal 3) [RESUELTO]

« on: March 04, 2013, 06:39:43 pm »

Modificado, pequeño error al editar algo de código complementario que no venia a cuento para algo general.

Gracias por el detalle fernando, un saludo.

3

Spanish / Re: Importar desde CSV, usuarios a grupos (Zentyal 3)

« on: January 22, 2013, 04:20:03 pm »

Perfecto, funciona correctamente.

Dejo el script completo para que el resto pueda echar mano de él:


#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::UsersAndGroups::User;
use EBox::Global;

EBox::init();

my $users = EBox::Global->modInstance('users');


my @users;

open (my $USERS, 'users');

while (my $line = <$USERS>) {
    chomp ($line);
    my $user;
   
    my ($username, $givenname, $surname, $password, $grupo) = split(',', $line);
    $user->{'user'} = $username;
    $user->{'givenname'} = $givenname;
    $user->{'surname'} = $surname;
    $user->{'password'} = $password;   
       
    my $u= EBox::UsersAndGroups::User->create($user, 0);
    my $group = $users->group($grupo);
    $group->addMember($u);                         
}
   
close ($USERS);

1;

4

Spanish / Re: Importar desde CSV, usuarios a grupos (Zentyal 3)

« on: January 17, 2013, 12:15:20 pm »

Bueno he avanzado un poco más en el asunto, logro agregar un usuario a un grupo que no existe:

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::UsersAndGroups::User;
use EBox::UsersAndGroups;

EBox::init();

my @users;

open (my $USERS, 'users');

while (my $line = <$USERS>) {
    chomp ($line);
    my $user;
   
    my ($username, $givenname, $surname, $password, $grupo) = split(',', $line);
    $user->{'user'} = $username;
    $user->{'givenname'} = $givenname;
    $user->{'surname'} = $surname;
    $user->{'password'} = $password; 
    my $g= EBox::UsersAndGroups::Group->create($grupo, 0);
   
    if (!(-d "/home/$username")) {   
      my $u= EBox::UsersAndGroups::User->create($user, 0);
      $g->addMember($u);
   }                              
}
   
close ($USERS);

1;


Lo que intento y no consigo es "capturar" ese objeto grupo existente. GetObject, ::Group->name('$grupo'), ... nada me sirve.

Un saludo.

5

Spanish / Re: Importar desde CSV, usuarios a grupos (Zentyal 3)

« on: January 17, 2013, 11:48:35 am »

Tengo que decir que es la primera vez que tengo que tocar perl y después de unas horas documentandome he llegado al siguiente script:

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::UsersAndGroups::User;
use EBox::UsersAndGroups;

EBox::init();

my @users;

open (my $USERS, 'users');

while (my $line = <$USERS>) {
    chomp ($line);
    my $user;
   
    my ($username, $givenname, $surname, $password, $grupo) = split(',', $line);
    $user->{'user'} = $username;
    $user->{'givenname'} = $givenname;
    $user->{'surname'} = $surname;
    $user->{'password'} = $password;   
    my $g= EBox::UsersAndGroups->group($grupo);  # instancia en $g el grupo pasado por el csv
   
    if (!(-d "/home/$username")) {   
      my $u= EBox::UsersAndGroups::User->create($user, 0);
      $u-> addGroup($g);     # añade el usuario a su grupo
   }                              
}
   
close ($USERS);

1;


El error que me devuelve es el siguiente:

Can't use string ("EBox::UsersAndGroups") as a HASH ref while "strict refs" in use at /usr/share/perl5/EBox/LdapModule.pm line 60.

Sin saber como solventarlo, ¿ideas?

Un saludo y gracias.

6

Spanish / Re: Importar desde CSV, usuarios a grupos (Zentyal 3)

« on: January 14, 2013, 04:55:36 pm »

Gracias por aportación rjechevers pero lo que busco es asociar esos usuarios a un grupo concreto. Hasta donde veo en tu script el 5º campo que recoges del CSV es el del grupo pero luego no lo usas en ningún lado.

Pd1: tanto 'bulkusers' como 'users' ya los ejecutaba desde '/tmp/', es raro que aun habiéndolos creado con root no funcionen desde cualquier carpeta.

Gracias de todos modos. Un saludo.

7

Spanish / Importar desde CSV, usuarios a grupos (Zentyal 3) [RESUELTO]

« on: January 02, 2013, 06:24:49 pm »

Buenas tardes,

LLevo unas horas dandole vueltas al asunto y no saco nada en claro. Quiero que al mismo tiempo que crea el usuario lo añada a un grupo pero me quedo en la creación del usuario sin asignarlo...

Me baso en el script de ejemplo http://doc.zentyal.org/es/develop.html añadiendo lo siguiente:

    [...]
    chomp ($line);
    my $user;
    my ($username, $givenname, $surname, $password, $group) = split(',', $line);
    $user->{'user'} = $username;
    $user->{'givenname'} = $givenname;
    $user->{'surname'} = $surname;
    $user->{'password'} = $password;
    $user->{'ou'} = $group;      # Documentado como parámetro en UsersAndGroups::User.pm
    push (@users, $user);
    [...]

Gracias y un saludo.