File Coverage

blib/lib/Armadito/Agent/Task/Scheduler.pm

Criterion	Covered	Total	%
statement	18	39	46.1
branch	0	4	0.0
condition			n/a
subroutine	6	9	66.6
pod	1	2	50.0
total	25	54	46.3

package Armadito::Agent::Task::Scheduler;

use strict;
use warnings;
use base 'Armadito::Agent::Task';

use MIME::Base64;
use Data::Dumper;
use JSON;

sub new {
	my ( $class, %params ) = @_;

	my $self = $class->SUPER::new(%params);

	if ( $params{debug} ) {
		$self->{debug} = 1;
	}

	my $task = {
		name      => "Scheduler",
		antivirus => $self->{agent}->{antivirus}->getJobj()
	};

	$self->{scheduler} = {
		name => $self->{agent}->{config}->{scheduler},
		conf => {}
	};

	$self->{jobj}->{task} = $task;

	return $self;
}

sub _handleError {
	my ( $self, $response ) = @_;

	$self->{logger}->info( "Error Response : " . $response->content() );
	my $obj = from_json( $response->content(), { utf8 => 1 } );
	$self->{logger}->error( Dumper($obj) );

	return $self;
}

sub sendSchedulerInfos {
	my ( $self, $schedulerinfos ) = @_;

	$self->{jobj}->{task}->{obj} = $schedulerinfos;
	my $json_text = to_json( $self->{jobj} );

	my $response = $self->{glpi_client}->sendRequest(
		"url"   => $self->{agent}->{config}->{server}[0] . "/api/schedulers",
		message => $json_text,
		method  => "POST"
	);

	if ( $response->is_success() ) {
		$self->{logger}->info("Send Scheduler infos successful...");
	}
	else {
		$self->_handleError($response);
		$self->{logger}->info("Send Scheduler infos failed...");
	}
}

1;

__END__

=head1 NAME

Armadito::Agent::Task::Scheduler - base class used for task scheduling management

=head1 DESCRIPTION

This task inherits from L<Armadito::Agent::Task>. It allows a remote management for agent's task scheduling solutions.

=head1 FUNCTIONS

=head2 run ( $self, %params )

Run the task.

=head2 new ( $self, %params )

Instanciate Task.