API tokens GLPI

[KondratDV]

Select Topic Area

Bug

Body

Good afternoon! Today I ran into a problem that the script that closes GLPI applications does not work. I tried deleting the token and updating it, nothing worked, inserting it into the code, it didn't give any results. When calling GET, the error "The app_token parameter is missing" is returned, although it is explicitly specified in the code. Please help me!

[
"ERROR_APP_TOKEN_PARAMETERS_MISSING",
"отсутствует параметр app_token; просмотр документации в вашем браузере в http://10.10.1.3/glpi/apirest.php/#ERROR_APP_TOKEN_PARAMETERS_MISSING"
]

my %glpi_settings = (

	# Полный url, включая apirest.php
	api_url			=> 'http://localhost/glpi/apirest.php',
	# Токен для api клиента
	app_token		=> 'AuscFrkIlX6qvdwyK7pmCCFYEWQTFIfMMCjX2aCO',

	# Метод авторизации пользователя: tocken, password ( пока только token )
	auth_method		=> 'token',
	
	# Если метод - token
	user_token		=> 'rADOeS9V57ySzU9RtNJBDCWZKsFAek2DNXdrnKc5',

	# Если метод - password
	user_login		=> 'apiclient',
	user_password	=> '12345'

);

[KondratDV]

all code scripts , maybe here problem(

#!/usr/bin/env perl
# v.: 1.0


# Необходимые пакеты для установки в Debian через apt:
# 	Mail_Client:
# 		libmail-pop3client-perl
# 		libmime-tools-perl
# 		libemail-simple-perl
# 		libencode-detect-perl
# 		mailtextbody
#
# 	Glpi_Api_Client:
# 		librest-client-perl
# 		libjson-perl
#

use strict;
no warnings 'deprecated';
#use encoding 'utf8';
use utf8;
use FindBin qw($Bin);


#~ Настройки ~#
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

my %mail_settings = (

		# Протокол ( пока только pop3 )
		protocol	=> 'pop3',

		# Уч. запись электронной почты
		#user		=> '',
		#password	=> '',
		user		=> '',
		password	=> '',


		# Сервер и порт
		server		=> 'pop.mail.ru',
		port		=> '995',

		# Использовать ssl - 1, не использовать - 0
		ssl		=> 1,
		
		# Тайм-аут соединения
		timeout		=> 30,

		# Каталог, в который будет записан временный файл с содержимым
		# сообщения для декодирования
		tmp_dir		=> "$Bin/tmp"

);

my %glpi_settings = (

		# Полный url, включая apirest.php
		api_url			=> 'http://localhost/glpi/apirest.php',
		# Токен для api клиента
		app_token		=> 'AuscFrkIlX6qvdwyK7pmCCFYEWQTFIfMMCjX2aCO',

		# Метод авторизации пользователя: tocken, password ( пока только token )
		auth_method		=> 'token',
		
		# Если метод - token
		user_token		=> 'rADOeS9V57ySzU9RtNJBDCWZKsFAek2DNXdrnKc5',

		# Если метод - password
		user_login		=> 'apiclient',
		user_password	=> '12345'

);

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

	my $mc = new Mail_Client(%mail_settings);
	my $api = new Glpi_API_Client(%glpi_settings);

	$api->session() or die "Ошибка работы с rest api glpi";
	$mc->update() or die "Ошибка работы с email";

	my %messages = $mc->get_messages();
	
	foreach my $i (keys %messages) {

			my $subject	= $messages{$i}{'subject'};
			if ( $subject =~ / закрыт \[GLPI / ) {
					my $ticket_id;
					for($subject) {
							s/^.*закрыт \[GLPI \#//;
							s/\]//;
							$ticket_id = $_;
					};
					
					my $solution;
					my $body_all = $messages{$i}{'body'};
					if ( $body_all =~ /Решение:.*/ ) {
						my $solution_string = $&;
						for($solution_string) {
							s/^.*Решение: //;
                                                        $solution = $_;
	                                        };
					};	

					$api->add_solution_for_ticket($ticket_id, $solution);
			}
			$mc->delete($messages{$i}{'id'});
	}
	$mc->close();
	$api->close();	


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

package Glpi_API_Client;

	use strict;
	#use encoding 'utf8';
	use utf8;
	no warnings 'deprecated';
	use REST::Client;
	use JSON;

	sub new {

			my ($class, %settings) = @_;

			die "Не указан url api"			if !$settings{'api_url'};
			die "Не указан app токен"		if !$settings{'app_token'};
			die "Не указан метод авторизации пользователя ( auth_method )"
				if !$settings{'auth_method'};
			if ($settings{'auth_method'} =~ /^token$/) {
					die "Не указан токен пользователя ( user_token )"
						if !$settings{'user_token'};
			} elsif ($settings{'auth_method'} =~ /^password$/) {
					die "Не указан user_login"		if !$settings{'user_login'};
					die "Не указан user_password"	if !$settings{'user_password'};
			} else {
					die "Неизвестный метод авторизации - $settings{'auth_method'}";
			}

			my $this = {
					_client	=> undef,
			};
			$this->{'_client'} = new REST::Client(
					host		=> $settings{'api_url'},
					timeout		=> 60
			);
			$this->{'_client'}->addHeader('Content-Type', 'application/json');
			$this->{'_client'}->addHeader('App-Token', $settings{'app_token'});

			if ($settings{'auth_method'} =~ /^token$/) {
					$this->{'_client'}->addHeader('Authorization', 'user_token '.$settings{'user_token'});
			} else {
					die "Пока только возможный метод - token";
			}

			bless $this, $class;

	}
	
	sub solve_ticket {

			my ( $self , $ticket_id ) = @_;
			$self->{'_client'}->GET('/Ticket/'.$ticket_id);
			if ( $self->{'_client'}->responseCode() ne '200' ) {
					warn "Тикет $ticket_id не существует или другая ошибка";
					return 0;
			} else {
					my $content = decode_json($self->{'_client'}->responseContent());
					if ($content->{'status'} eq 5) {
							warn "Тикет $ticket_id уже имеет статус 'Решена'";
							return 0;
					} else {
							my $update = {
									input	=> {
											status	=> 5 
									}
							};
							my $json_update = encode_json($update);

							$self->{'_client'}->PUT('/Ticket/'.$ticket_id, $json_update);
							if ( $self->{'_client'}->responseCode() eq '200' ) {
									return 1;
							} else {
									warn "Ошибка смены статуса у тикета $ticket_id: "
									.$self->{'_client'}->responseContent()."";
									return 0;
							}
					}
			}

	}

	sub get_solutions {

			my ( $self ) = @_;
			$self->{'_client'}->GET('/ItilSolution/');
			return decode_json($self->{'_client'}->responseContent());

	}

	sub add_solution_for_ticket {

			my ( $self, $ticket_id, $solution ) = @_;

			my $add = {
					input	=> {
							itemtype	=> "Ticket",
							items_id	=> "$ticket_id",
							content		=> "$solution"
					}
			};
			my $json_add = encode_json($add);

			$self->{'_client'}->POST('/ItilSolution/', $json_add);
			if ( $self->{'_client'}->responseCode() eq '201' ) {
					return 1;
			} else {
					warn "Ошибка добавления решения: "
					.$self->{'_client'}->responseContent()."";
					return 0;
			}

	}

	sub session {

			my ( $self ) = @_;

			$self->{'_client'}->GET('/initSession/');
			if ( $self->{'_client'}->responseCode() ne '200' ) {
					warn "Не удалось инициализировать сессию: ".$self->{'_client'}->responseContent()."";
					return 0;
			}

			my $content = decode_json($self->{'_client'}->responseContent());
			$self->{'_client'}->addHeader('Session-Token', $content->{'session_token'});
			
			return 1;

	}

	sub close {

			my ( $self ) = @_;
			$self->{'_client'}->GET('/killSession/');
			if ( $self->{'_client'}->responseCode() eq '200' ) {
					return 1;
			} else {
					return 0;
			}

	}



#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	
package Mail_Client;

	use strict;
	no warnings 'deprecated';
	#use encoding 'utf8';
	use utf8;
	use Encode;
	use Encode::Detect;
	use Mail::POP3Client;
	use Email::Simple;
	use MIME::Words;

	sub new {

			my ($class, %settings) = @_;
			
			die "Не указан протокол."		if !$settings{'protocol'};
			die "Не указан пользователь."		if !$settings{'user'};
			die "Не указан пароль."			if !$settings{'password'};
			die "Не указан сервер."			if !$settings{'server'};
			die "Не указан tmp_dir."		if !$settings{'tmp_dir'};
			
			-d $settings{'tmp_dir'} or die "Каталог tmp_dir: $!";
			-w $settings{'tmp_dir'} or die "Каталог tmp_dir: $!";
		
			my	$this = {
					protocol	=> undef,
					_client		=> undef,
					messages	=> {},
					updated		=> 0,
					tmp_dir		=> undef
			};

			if ($settings{'protocol'} =~ /pop3/) {
					
					$this->{'_client'} = new Mail::POP3Client(
							HOST		=> $settings{'server'},
							PORT		=> $settings{'port'},
							DEBUG		=> 0,
							USESSL		=> $settings{'ssl'},
							TIMEOUT		=> 60
					);
					$this->{'_client'}->User( $settings{'user'} );
					$this->{'_client'}->Pass( $settings{'password'} );
					$this->{'tmp_dir'} = $settings{'tmp_dir'};
					$this->{'protocol'} = 'pop3';
			
			} else {
					die "Неизвестный протокол $settings{'protocol'}";
			}
			
			bless $this, $class;

	}

	sub get_messages {

			my ( $self ) = @_;

			if ($self->{'updated'} eq 0) {
					$self->update() or return 0;
			}
					
			foreach my $i (keys( %{ $self->{'messages'} }) ) {
			
					my $message = Email::Simple->new($self->{'messages'}{$i}{'_data'});
					$self->{'messages'}{$i}{'from'} = &_decode_header($message->header("From"));
					$self->{'messages'}{$i}{'subject'} = &_decode_header($message->header("Subject"));
					$self->{'messages'}{$i}{'body'} = &_decode_body(
						$self->{'tmp_dir'},
						$self->{'messages'}{$i}{'_data'}
					);
						
					delete $self->{'messages'}{$i}{'_data'};
					undef $message;
					
			}		

			return %{ $self->{'messages'} };

	}

	sub update {

			my ( $self ) = @_;

			$self->{'updated'} = 0 if $self->{'updated'};
					
			if ($self->{'protocol'} =~ /^pop3$/i) {
					return $self->_pop3_update();
			}

	}

	sub _pop3_update {

			my ( $self ) = @_;

			if ($self->{'_client'}->Connect() eq 0) {
				my $error = $self->{'_client'}->Message();
				warn "POP3Client: $error\n";
				return 0;
			}

			my $count = $self->{'_client'}->Count();
			my $message_data;
			for ( my $i = 1; $i <= $count; $i++ ) {
					foreach ( $self->{'_client'}->HeadAndBody($i) ) {
							$message_data .= $_."\n";
					}
					$self->{'messages'}{$i}{'id'} = $i;
					$self->{'messages'}{$i}{'_data'} = $message_data;
					$message_data = 0;
			}
			$self->{'updated'} = 1;

			return 1;

	}

	sub _decode_header {

			my $encoded = $_[0];
			my $decoded = MIME::Words::decode_mimewords($encoded);
                        my $decoded_in_utf8 = decode('Detect', $decoded);
			return $decoded_in_utf8;

	}

	sub _decode_body {

			my ( $tmp_dir, $mail_body ) = @_;

			open FILE, '>', "$tmp_dir/tmp.email" or die "$!";
			foreach ( $mail_body ) {
					print FILE $_;
			}
			close FILE;

			open BODY, '-|', "cat $tmp_dir/tmp.email | mailtextbody" or die "$!";
			my $plain_body;
			foreach ( <BODY> ) {
					$plain_body .= $_;
			}
			close BODY;

			my $body_in_utf8 = decode('Detect', $plain_body);

			return $body_in_utf8;

	}

	sub delete {

			my ( $self, $message_id ) = @_;
			if ($self->{'protocol'} =~ /^pop3$/i) {
					return 0 if $self->_pop3_delete($message_id);
			}
			return 1;
	
	}

	sub _pop3_delete {

			my ( $self, $message_id ) = @_;
			$self->{'_client'}->Delete($message_id);
			return 1;

	}

	sub close {

			my ( $self ) = @_;
			if ($self->{'protocol'} =~ /^pop3$/i) {
					return 0 if $self->_pop3_close();
			}
			return 1;

	}

	sub _pop3_close {

			my ( $self ) = @_;
			$self->{'_client'}->Close();
			return 1;

	}