How to create multiple users accounts?

[andre]

I study in a school and i have 800 students and 100 teachers and i want do this more possible  as soon i can, we have a pc with ebox 0.10 and we want to create multiple users accounts in a quick way. Thanks

[Javier Amor Garcia]

The way to do that is to create a small script to read a file which your users data and then call the eBox's method to add users.

In the FAQ you can find a more detailed explanation: http://trac.ebox-platform.com/wiki/Document/HowTo/ImportUsersInBulk

Cheers,
  Javier

[patcunha]

What if I want to be able to put the users in a group when I'm creating them?
What changes do I have to make in the script so that it will put the user in its group?
Must i create groups previously?

[sixstone]

It's easy the modification, I post it here in order to help more people. There are several posibilities, I propose the one which add another field which is the group where the user is going to be added, but there are more for sure. This solution only applies where the user belongs to zero/one group. The file structure is the following where jblow belongs to a group called 'blowers' and jdoe belongs to no group:

Code: [Select]

jblow,Joe Blow,jblowspassword,blowers,
jdoe,Jane Doe,jdoespassword,

I change the final lines from first loop starts till the end of the script:

Code: [Select]

while(my $line = <$USERS>) {
   chomp ($line);
   my $user;
   my ($username,$fullname,$password, $group) = split(',',$line);
   $user->{'user'} = $username;
   $user->{'fullname'} = $fullname;
   $user->{'password'} = $password;
   $usersModules->addUser($user, 0);
   if ( defined( $group ) )
      unless ( $usersModule->groupExists($group) ) {
          $usersModule->addGroup($group, '', 0);
      }
      $usersModule->addUserToGroup($username, $group);
   }
}

WARNING! I haven't checked but I think it is alright .

Hope this helps

[ispa]

I created the  CSV files with the Data of the user and also the file bulkusers. I have a few doubts :
- how do i run the file with the script?
- how do I send the files fto the server?
- how do I give root permission?

[Javier Amor Garcia]

- how do i run the file with the script?

The script is fairly primitive and it expects a file called 'users' to be in the same directory, it will oepn and read this file.

how do I send the files fto the server?

Easier way it is to use the 'scp' command. (type 'man scp' in your linux box to get help about this command)

how do I give root permission?

Just run the file logged as root

[ispa]

I ran the script and got this:

Code: [Select]

debian:~# perl bulkusers
Global symbol "$usersModules" requires explicit package name at bulkusers line 21.
syntax error at bulkusers line 23, near ")
      unless"
syntax error at bulkusers line 27, near "}"
Execution of bulkusers aborted due to compilation errors.
my bulkusers file looks like this:

Code: [Select]

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::Global;

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

my @users = ();
open(my $USERS,"users");
while(my $line = <$USERS>) {
   chomp ($line);
   my $user;
   my ($username,$fullname,$password, $group) = split(',',$line);
   $user->{'user'} = $username;
   $user->{'fullname'} = $fullname;
   $user->{'password'} = $password;
   $usersModules->addUser($user, 0);
   if ( defined( $group ) )
      unless ( $usersModule->groupExists($group) ) {
          $usersModule->addGroup($group, '', 0);
      }
      $usersModule->addUserToGroup($username, $group);
   }
}
close($USERS);

foreach my $user (@users) {
   $usersModule->addUser($user, 0);
}

1;
and my users file looks like this:

Code: [Select]

7a01,7a01,7495,7a

7a02,7a02,1599,7a

7a03,7a03,3804,7a

7a04,7a04,6495,7a

7a05,7a05,3385,7a

7a06,7a06,8899,7a

7a07,7a07,3433,7a

7a08,7a08,9915,7a

7a09,7a09,1223,7a

7a10,7a10,8480,7a

7a11,7a11,3533,7a

7a12,7a12,9031,7a

7a13,7a13,2403,7a

7a14,7a14,9051,7a

7a15,7a15,6969,7a

[sixstone]

The correct code script is as follows:

Code: [Select]

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::Global;

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

my @users = ();
open(my $USERS,"users");
while(my $line = <$USERS>) {
   chomp ($line);
   my $user;
   my ($username,$fullname,$password, $group) = split(',',$line);
   $user->{'user'} = $username;
   $user->{'fullname'} = $fullname;
   $user->{'password'} = $password;
   $usersModule->addUser($user, 0);
   if ( defined( $group ) ) {
       unless ( $usersModule->groupExists($group) ) {
           $usersModule->addGroup($group, '', 0);
       }
       $usersModule->addUserToGroup($username, $group);
   }
}
close($USERS);

foreach my $user (@users) {
   $usersModule->addUser($user, 0);
}

1;

Regarding to the "users" file, you miss the trailing comma as

Code: [Select]

7a12,7a12,9031,7a,


[patcunha]

It worked!!!

[heru]

hallo
im newbie in eBOX n i just installed ebox on my computer
how to edit this script so we can create email address to each user


TQ

[Javier Amor Garcia]

First, enable the mail module, create the virtual domain for the addresses and save changes.

I think that this version of the script should work:

Code: [Select]

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::Global;
use EBox::MailUserLdap;

my $vdomain = 'example.com';

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

my $mailUsers =  EBox::MailUserLdap->new();

my @users = ();
open(my $USERS,"users");
while(my $line = <$USERS>) {
   chomp ($line);
   my $user;
   my ($username,$fullname,$password, $group) = split(',',$line);
   $user->{'user'} = $username;
   $user->{'fullname'} = $fullname;
   $user->{'password'} = $password;
   $usersModule->addUser($user, 0);
   if ( defined( $group ) ) {
       unless ( $usersModule->groupExists($group) ) {
           $usersModule->addGroup($group, '', 0);
       }
       $usersModule->addUserToGroup($username, $group);
   }
}
close($USERS);

foreach my $user (@users) {
   my $username = $user->{user};
   $mailUsers->setUserAccount($username, $username, $vdomain);
   
}

1;
You must edit the variable vdomain to use your own vdomain, all users will have addresses in the form username@vdomain

* Last EDIT: I have removed a wrong line

[heru]

thanks for this script, but this script does not create email for my user, so i edit this script n its succes

tq bro

Code: [Select]

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::Global;
use EBox::MailUserLdap;

my $vdomain = 'example.com';

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

my $mailUsers =  EBox::MailUserLdap->new();

my @users = ();
open(my $USERS,"users");
while(my $line = <$USERS>) {
   chomp ($line);
   my $user;
   my ($username,$fullname,$password, $group) = split(',',$line);
   $user->{'user'} = $username;
   $user->{'fullname'} = $fullname;
   $user->{'password'} = $password;
   $usersModule->addUser($user, 0);
   if ( defined( $group ) ) {
       unless ( $usersModule->groupExists($group) ) {
           $usersModule->addGroup($group, '', 0);
       }
       $usersModule->addUserToGroup($username, $group);
   }
   $mailUsers->setUserAccount($username, $username, $vdomain);
}
close($USERS);

1;


[bccs]

I have tried http://trac.ebox-platform.com/wiki/Document/HowTo/ImportUsersInBulk to import users using eBox 1.3.3 and it doesn't work. 

I get the error message: readline() on closed filehandle $USERS at /root/bulkusers line 14

Doesn't eBox 1.3.3 work differently than 1.2?

[Javier Amor Garcia]

This 'readline' error is not from eBox but for Perl's i/o api. Probably you havent a  filename called 'users' or you havent read permissions in this file

[bccs]

I ran bulkusers in /root when I got that last error message because that is what I thought the HOWTO http://trac.ebox-platform.com/wiki/Document/HowTo/ImportUsersInBulk told me to do.  However, when I moved bulkusers and users to /tmp it ran fine.  Following the posts here I tried to assign groups to my users as well. When I run the following code, I get the following error: user name newuser does not exist. 

users file contains just this one line: newuser,New,User,password,students,

Code: [Select]

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::Global;

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

my @users = ();
open(my $USERS,"users") or die "Error opening 'users' file: $!";
while(my $line = <$USERS>) {
   chomp ($line);
   my $user;
   my ($username,$givenname,$surname,$password, $group) = split(',',$line);
   $user->{'user'} = $username;
   $user->{'givenname'} = $givenname;
   $user->{'surname'} = $surname;
   $user->{'password'} = $password;
   push(@users,$user);
   if ( defined( $group ) ) {
       unless ( $usersModule->groupExists($group) ) {
           $usersModule->addGroup($group, '', 0);
       }
       $usersModule->addUserToGroup($username, $group);
   }
}
close($USERS);

foreach my $user (@users) {
   $usersModule->addUser($user, 0);
}

1;