ITSMChangeManagement -> rel-3_2 API documentation

NAME

Kernel::System::ITSMChange::Permission::CABCheck - CAB based permission check

SYNOPSIS

PUBLIC INTERFACE

• new()

  create an object

  use Kernel::Config;
  use Kernel::System::Encode;
  use Kernel::System::Log;
  use Kernel::System::Main;
  use Kernel::System::Time;
  use Kernel::System::DB;
  use Kernel::System::ITSMChange;
  use Kernel::System::User;
  use Kernel::System::Group;
  use Kernel::System::ITSMChange::Permission::CABCheck;
  
  my $ConfigObject = Kernel::Config->new();
  my $EncodeObject = Kernel::System::Encode->new(
      ConfigObject => $ConfigObject,
  );
  my $LogObject = Kernel::System::Log->new(
      ConfigObject => $ConfigObject,
      EncodeObject => $EncodeObject,
  );
  my $MainObject = Kernel::System::Main->new(
      ConfigObject => $ConfigObject,
      EncodeObject => $EncodeObject,
      LogObject    => $LogObject,
  );
  my $TimeObject = Kernel::System::Time->new(
      ConfigObject => $ConfigObject,
      LogObject    => $LogObject,
  );
  my $DBObject = Kernel::System::DB->new(
      ConfigObject => $ConfigObject,
      EncodeObject => $EncodeObject,
      LogObject    => $LogObject,
      MainObject   => $MainObject,
  );
  my $UserObject = Kernel::System::User->new(
      ConfigObject => $ConfigObject,
      LogObject    => $LogObject,
      MainObject   => $MainObject,
      TimeObject   => $TimeObject,
      DBObject     => $DBObject,
      EncodeObject => $EncodeObject,
  );
  my $GroupObject = Kernel::System::Group->new(
      ConfigObject => $ConfigObject,
      LogObject    => $LogObject,
      DBObject     => $DBObject,
  );
  my $ChangeObject = Kernel::System::ITSMChange->new(
      ConfigObject => $ConfigObject,
      EncodeObject => $EncodeObject,
      LogObject    => $LogObject,
      DBObject     => $DBObject,
      TimeObject   => $TimeObject,
      MainObject   => $MainObject,
  );
  my $CheckObject = Kernel::System::ITSMChange::Permission::CABCheck->new(
      ConfigObject         => $ConfigObject,
      EncodeObject         => $EncodeObject,
      LogObject            => $LogObject,
      MainObject           => $MainObject,
      TimeObject           => $TimeObject,
      DBObject             => $DBObject,
      UserObject           => $UserObject,
      GroupObject          => $GroupObject,
      ChangeObject         => $ChangeObject,
  );
  

• Run()

  This method does the check. Access is allowed when type is 'ro' and the agent is a member of the CAB of the change.

  my $HasAccess = $CheckObject->Run(
      UserID   => 123,
      Type     => 'rw',     # 'ro' or 'rw'
      ChangeID => 3333,     # optional for ChangeAdd
  );
  

TERMS AND CONDITIONS

This software is part of the OTRS project (http://otrs.org/).

This software comes with ABSOLUTELY NO WARRANTY. For details, see the enclosed file COPYING for license information (AGPL). If you did not receive this file, see http://www.gnu.org/licenses/agpl.txt.

VERSION

$Id: CABCheck.pm,v 1.7 2012-11-20 19:02:59 mh Exp $