Script pour récupérer la présence de certains modules

Version imprimable

02/03/2010, 17h42
romain0412

Script pour récupérer la présence de certains modules
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,
02/03/2010, 17h59
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 :mrgreen:. Sauf si tu le souhaites par curiosité ?
02/03/2010, 18h04
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 :mrgreen:

Merci

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

Code:

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;
}

03/03/2010, 09h39
romain0412

Bonjour,

Merci beaucoup pour ton script :mrgreen:

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 :roll:

Merci beaucoup,

Romain