[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  
   3  use POSIX;
   4  
   5  require '/etc/SeConfig.ph';
   6  
   7  die("Erreur d'argument.\n") if ($#ARGV != 1);
   8  ($machine, $parc) = @ARGV;
   9  
  10  $res = system("/usr/share/se3/sbin/isMemberOf.pl $machine \"cn=$parc,$parcDn\" > /dev/null 2>&1");
  11  
  12  die "$machine n'est pas dans le parc $parc.\n" if ($res ne '0');
  13  
  14  exit 0;