use EBox;
use EBox::Global;
use EBox::ServiceManager;

use Error qw(:try);

my $username = $ARGV[0];
my $firstName = $ARGV[1];
my $lastName = $ARGV[2];
my $password = $ARGV[3];
my $comment = $ARGV[4];

die "No username given" unless ($username);
die "No first name specified" unless ($firstName);
die "No last name specified" unless ($lastName);
die "No password specified" unless ($password);
die "No comment specified" unless ($comment);


EBox::init();

my $global = EBox::Global->getInstance();
my $usersandgroups = $global->modInstance("users");

my $user;
$user->{'user'} = $username;
$user->{'name'} = $firstName;
$user->{'surname'} = $lastName;
$user->{'fullname'} = $user->{'name'} . ' ' . $user->{'surname'};
$user->{'givenname'} = $user->{'name'};
$user->{'password'} = $password;
$user->{'repassword'} = $password;
$user->{'group'} = "";
$user->{'comment'} = $comment;

$usersandgroups->addUser($user);
$usersandgroups->save();