#!/usr/bin/perl -w

=for comment

		Script créer par Xavier CABANAT - L'IDEM CREATIVE ART'S SCHOOL - Modif le 06/11/2024

18/03/2026	:	Maj v1.16
=cut

use warnings;use strict;use diagnostics;
use POSIX;
use Env;
use File::Copy;

print "Déclaration des Variables\n";

my $glpi_version;
my $glpi_conf_file;


print "Initialisation des Variables\n";

$glpi_version = "1.16";
$glpi_conf_file = "/etc/glpi-agent/agent.cfg";



print "Download GLPI\n";
chdir "/tmp/";
system("wget https://github.com/glpi-project/glpi-agent/releases/download/$glpi_version/glpi-agent-$glpi_version-linux-installer.pl");


print "Install GLPI\n";
system("perl /tmp/glpi-agent-$glpi_version-linux-installer.pl > /dev/null");
sleep 10;



print "Config GLPI\n";

open(FILEW, ">$glpi_conf_file") || die ("Unable to open File : $glpi_conf_file\n");
print FILEW "#[LIDEM]\n";
print FILEW "server = http://192.168.40.60/front/inventory.php\n";
print FILEW "tasks = collect,inventory,netdiscovery,netinventory,remoteinventory\n";
print FILEW "\n";
close(FILEW);


print "restart GLPI\n";
system("sudo glpi-agent restart");

print "Suppression des fichiers crees\n";
unlink "/tmp/glpi-agent-$glpi_version-linux-installer.pl";



print "Fin\n";