Discussion :

[romain0412]

Bonjour,

Dans le cadre de la mise en place d'agent OCS Inventory sur un parc de serveur Linux, j'ai besoin de savoir si sur chaque serveur les pré-requis sont installés. Ce sont à chaque fois des modules perl.

Comment rendre cela possible? J'ai trouvé des informations sur ce liens http://www.perlhowto.com/list_the_installed_modules mais est-ce bien ça.

Pour info les modules nécessaires sont :

• Digest::MD5
• XML::Simple
• Net::IP: optional, it is only needed to compute the network information
• LWP
• dmidecode
• lspci
• Proc::Daemon Daemon mode
• Proc::PID::File
• ipmitool
• Compress::Zlib
• Net::CUPS

Merci de votre aide,

[djibril]

normalement, quand tu lances le Makefile.PL de l'agent OCS sur ton serveur linux, il te détecte les modules non installés. donc pas la peine de s'embêter avec . Sauf si tu le souhaites par curiosité ?

[romain0412]

J'en ai vraiment besoin, c'est dans un cadre clientèle que cela est mis en place, donc sur les serveurs on ne fait pas forcemment ce qu'on veux, ou on a aucun droit.

Il faut donc donner la liste des modules manquants et demander leurs installations aux admins.

Donc voilà l'intérêt de ce script

Merci

[djibril]

Voici un code que j'utilise souvent, tu peux le reprendre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl
use warnings;
use strict;
 
#====================================
# testons l'installation des modules
#====================================
my @module_a_tester = qw /
  Digest::MD5
  XML::Simple
  Net::IP
  LWP
  Proc::Daemon
  Proc::PID::File
  Compress::Zlib
  Net::CUPS
  /;
utilisation_module(@module_a_tester);
 
sub module_non_installe {
  my ($un_module) = @_;
  eval "use $un_module;";
  if ( $@ !~ /^\s*$/ ) {
    return $@;
  }
  return;
}
 
sub utilisation_module {
  my @modules = @_;
  my @modules_non_installes = grep { module_non_installe($_) } @modules;
  if ( @modules_non_installes != 0 ) {
    my $message_erreur = "Veuillez installer ces modules " . "pour le bon fonctionnement de votre script :\n";
    foreach my $mod (@modules_non_installes) {
      $message_erreur .= "\t- $mod\n";
    }
    die $message_erreur;
  }
  return;
}

[romain0412]

Bonjour,

Merci beaucoup pour ton script

Bon, pour rien te cacher je n'y connais rien au Perl, alors je ne sais pas vraiment ce que ton script fait mais je fais essayer d'étudier tout cela ligne par ligne

Merci beaucoup,

Romain