init III
This commit is contained in:
132
Perl OTRS/Kernel/System/Console/Command/Admin/User/Add.pm
Normal file
132
Perl OTRS/Kernel/System/Console/Command/Admin/User/Add.pm
Normal file
@@ -0,0 +1,132 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 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;
|
||||
@@ -0,0 +1,77 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 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::SetPassword;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use parent qw(Kernel::System::Console::BaseCommand);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::User',
|
||||
);
|
||||
|
||||
sub Configure {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Description('Update the password for an agent.');
|
||||
$Self->AddArgument(
|
||||
Name => 'user',
|
||||
Description => "Specify the user login of the agent to be updated.",
|
||||
Required => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
$Self->AddArgument(
|
||||
Name => 'password',
|
||||
Description => "Set a new password for the agent (a password will be generated otherwise).",
|
||||
Required => 0,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $Login = $Self->GetArgument('user');
|
||||
|
||||
my $UserObject = $Kernel::OM->Get('Kernel::System::User');
|
||||
my %UserList = $UserObject->UserSearch(
|
||||
UserLogin => $Login,
|
||||
);
|
||||
|
||||
if ( !scalar %UserList ) {
|
||||
$Self->PrintError("No user found with login '$Login'!\n");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
# if no password has been provided, generate one
|
||||
my $Password = $Self->GetArgument('password');
|
||||
if ( !$Password ) {
|
||||
$Password = $UserObject->GenerateRandomPassword( Size => 12 );
|
||||
$Self->Print("<yellow>Generated password '$Password'.</yellow>\n");
|
||||
}
|
||||
|
||||
my $Result = $UserObject->SetPassword(
|
||||
UserLogin => $Login,
|
||||
PW => $Password,
|
||||
);
|
||||
|
||||
if ( !$Result ) {
|
||||
$Self->PrintError("Failed to set password!\n");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
$Self->Print("<green>Successfully set password for user '$Login'.</green>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user