Проблема в том OTRS клиентов. Я не могу использовать внешний клиентский бэкэнд, поэтому хочу обновить клиентскую базу данных с помощью файлов CSV. Я уже написал скрипт для добавления новых клиентов через otrs.AddCustomerUser.pl
.
Но как я могу массово отключить старых клиентов через скрипт?
Я создал сценарий на основе otrs.AddCustomerUser.pl
для аннулирования пользователя-клиента:
otrs.DisableCustomerUser.pl:
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use FindBin qw($RealBin);
use lib dirname($RealBin);
use lib dirname($RealBin) . '/Kernel/cpan-lib';
use lib dirname($RealBin) . '/Custom';
use Kernel::Config;
use Kernel::System::Encode;
use Kernel::System::Log;
use Kernel::System::Time;
use Kernel::System::Main;
use Kernel::System::DB;
use Kernel::System::CustomerUser;
# create common objects
my %CommonObject;
$CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject);
$CommonObject{EncodeObject} = Kernel::System::Encode->new(%CommonObject);
$CommonObject{LogObject}
= Kernel::System::Log->new( %CommonObject, LogPrefix => 'OTRS-otrs.DisableCustomerUser.pl' );
$CommonObject{TimeObject} = Kernel::System::Time->new(%CommonObject);
$CommonObject{MainObject} = Kernel::System::Main->new(%CommonObject);
$CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject);
$CommonObject{UserObject} = Kernel::System::CustomerUser->new(%CommonObject);
my %Options;
use Getopt::Std;
getopt( 'c', \%Options );
unless ( $ARGV[0] ) {
print
"$FindBin::Script [-c CustomerID] username\n";
print "\n";
exit;
}
my %Param;
$Param{Source} = 'CustomerUser';
$Param{UserLogin} = defined $Options{c} ? $Options{c} : $ARGV[0];
my %User = $CommonObject{UserObject}->CustomerUserDataGet( User => $Param{UserLogin});
if ( !%User ) {
print "No such user '$Param{UserLogin}'!\n";
exit(1);
}
my $Success = $CommonObject{UserObject}->CustomerUserUpdate(
Source => 'CustomerUser',
ID => $User{UserCustomerID},
UserCustomerID => $User{UserCustomerID},
UserLogin => $User{UserCustomerID},
UserFirstname => $User{UserFirstname},
UserLastname => $User{UserLastname},
UserEmail => $User{UserEmail},
ValidID => 2,
UserID => 1,
);
if($Success eq 1){
print "Set customer user $User{UserCustomerID} to invalid.\n";
}
exit(0);
Вызывать:
# otrs.DisableCustomerUser.pl [-c CustomerID] username