view release on metacpan or  search on metacpan

lib/Armadito/Agent/HTTP/Client/ArmaditoGLPI.pm  view on Meta::CPAN

package Armadito::Agent::HTTP::Client::ArmaditoGLPI;

use strict;
use warnings;
use base 'Armadito::Agent::HTTP::Client';

use English qw(-no_match_vars);
use HTTP::Request;
use HTTP::Request::Common qw{ POST };
use UNIVERSAL::require;
use URI;
use Encode;
use Data::Dumper;
use URI::Escape;

sub new {
	my ( $class, %params ) = @_;
	my $self = $class->SUPER::new(%params);

	return $self;
}

sub _prepareVal {
	my ( $self, $val ) = @_;

	return '' unless length($val);

	# forbid too long argument.
	while ( length( URI::Escape::uri_escape_utf8($val) ) > 1500 ) {
		$val =~ s/^.{5}/…/;
	}

	return URI::Escape::uri_escape_utf8($val);
}

sub _prepareURL {
	my ( $self, %params ) = @_;

	my $url = ref $params{url} eq 'URI' ? $params{url} : URI->new( $params{url} );

	if ( $params{method} eq 'GET' ) {

		my $urlparams = 'agent_id=' . uri_escape( $params{args}->{agent_id} );

		foreach my $k ( keys %{ $params{args} } ) {
			if ( ref( $params{args}->{$k} ) eq 'ARRAY' ) {
				foreach ( @{ $params{args}->{$k} } ) {
					$urlparams .= '&' . $k . '[]=' . $self->_prepareVal( $_ || '' );
				}
			}
			elsif ( ref( $params{args}->{$k} ) eq 'HASH' ) {
				foreach ( keys %{ $params{args}->{$k} } ) {
					$urlparams .= '&' . $k . '[' . $_ . ']=' . $self->_prepareVal( $params{args}->{$k}{$_} );
				}
			}
			elsif ( $k ne 'action' && length( $params{args}->{$k} ) ) {
				$urlparams .= '&' . $k . '=' . $self->_prepareVal( $params{args}->{$k} );
			}
		}

		$url .= '?' . $urlparams;
	}

	return $url;
}

sub sendRequest {
	my ( $self, %params ) = @_;

	my $url = $self->_prepareURL(%params);

	$self->{logger}->debug2($url) if $self->{logger};

	my $headers = HTTP::Headers->new(
		'Content-Type' => 'application/json',
		'Referer'      => $url
	);