1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
# --
# Copyright (C) 2001-2021 OTRS AG, https://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
# --
package Kernel::System::Console::Command::Admin::User::Add;
use strict;
use warnings;
use parent qw(Kernel::System::Console::BaseCommand);
our @ObjectDependencies = (
'Kernel::System::Group',
'Kernel::System::User',
);
sub Configure {
my ( $Self, %Param ) = @_;
$Self->Description('Add a user.');
$Self->AddOption(
Name => 'user-name',
Description => "User name for the new user.",
Required => 1,
HasValue => 1,
ValueRegex => qr/.*/smx,
);
$Self->AddOption(
Name => 'first-name',
Description => "First name of the new user.",
Required => 1,
HasValue => 1,
ValueRegex => qr/.*/smx,
);
$Self->AddOption(
Name => 'last-name',
Description => "Last name of the new user.",
Required => 1,
HasValue => 1,
ValueRegex => qr/.*/smx,
);
$Self->AddOption(
Name => 'email-address',
Description => "Email address of the new user.",
Required => 1,
HasValue => 1,
ValueRegex => qr/.*/smx,
);
$Self->AddOption(
Name => 'password',
Description => "Password for the new user. If left empty, a password will be created automatically.",
Required => 0,
HasValue => 1,
ValueRegex => qr/.*/smx,
);
$Self->AddOption(
Name => 'group',
Description => "Name of the group to which the new user should be added (with rw permissions!).",
Required => 0,
HasValue => 1,
Multiple => 1,
ValueRegex => qr/.*/smx,
);
return;
}
sub PreRun {
my ( $Self, %Param ) = @_;
# check if all groups exist
my @Groups = @{ $Self->GetOption('group') // [] };
my %GroupList = reverse $Kernel::OM->Get('Kernel::System::Group')->GroupList();
GROUP:
for my $Group (@Groups) {
if ( !$GroupList{$Group} ) {
die "Group '$Group' does not exist.\n";
}
$Self->{Groups}->{ $GroupList{$Group} } = $Group;
}
return;
}
sub Run {
my ( $Self, %Param ) = @_;
$Self->Print("<yellow>Adding a new user...</yellow>\n");
# add user
my $UserID = $Kernel::OM->Get('Kernel::System::User')->UserAdd(
UserLogin => $Self->GetOption('user-name'),
UserFirstname => $Self->GetOption('first-name'),
UserLastname => $Self->GetOption('last-name'),
UserPw => $Self->GetOption('password'),
UserEmail => $Self->GetOption('email-address'),
ChangeUserID => 1,
UserID => 1,
ValidID => 1,
);
if ( !$UserID ) {
$Self->PrintError("Can't add user.");
return $Self->ExitCodeError();
}
for my $GroupID ( sort keys %{ $Self->{Groups} } ) {
my $Success = $Kernel::OM->Get('Kernel::System::Group')->PermissionGroupUserAdd(
UID => $UserID,
GID => $GroupID,
Permission => { 'rw' => 1 },
UserID => 1,
);
if ($Success) {
$Self->Print( "<green>User added to group '" . $Self->{Groups}->{$GroupID} . "'</green>\n" );
}
else {
$Self->PrintError( "Failed to add user to group '" . $Self->{Groups}->{$GroupID} . "'." );
}
}
$Self->Print("<green>Done.</green>\n");
return $Self->ExitCodeOk();
}
1;
|
