Вопросы Теги

Масса отключает клиентов в OTRS

Проблема о клиентах OTRS. Я не могу использовать внешний клиентский бэкенд, таким образом, я хочу обновить клиента DB с помощью файлов CSV. Я уже записал сценарий для добавления новых Клиентов через otrs.AddCustomerUser.pl.

Но как может я масса отключать старых клиентов с помощью сценария?

0
задан 3 November 2014 в 17:07
1 ответ

Я создал сценарий на основе 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
1
ответ дан 4 December 2019 в 17:08

Теги

Похожие вопросы