[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl 
   2  ## script d'attribution des groupes LDAP de l'absent au remplacant 
   3  ## pschwarz Mai 2005 
   4  # Sur une idée de Pierre Marin et le coup de pied/motivation qui va avec ;-)
   5  # Lancé par rempl.php
   6  # Usage : perl remplacant.pl ....................
   7  
   8  use Net::LDAP;
   9  require '/etc/SeConfig.ph';
  10  
  11  my $remplacant = $ARGV[0];
  12  my $LDAP = $ARGV[1];
  13  my $stop=1;
  14   
  15  $ldap = Net::LDAP->new(
  16                 "$slapdIp",
  17                 port    => "$slapdPort",
  18                 debug   => "$slapdDebug",
  19                 timeout => "$slapdTimeout",
  20                 version => "$slapdVersion"
  21                );
  22  $ldap->bind(); # Anonymous BIND
  23  
  24  $ldap->bind(
  25          $adminDn,
  26          password => $adminPw
  27         );
  28  
  29  $RPL = $ldap->search(
  30               base     => "ou=People,$baseDn",
  31               scope    => 'one',
  32               filter   => "uid=$remplacant"
  33              );
  34  if (!($RPL->entries)[0]) {print "<BR>Le professeur $remplacant n'existe pas.<BR>";$stop=0;}
  35  
  36  
  37  if ( $stop)            
  38  {
  39      $AJOUT = $ldap->modify("$LDAP",
  40              add => {'memberUid' => "$remplacant"});
  41    $LDAP=~s/,ou=Groups,$baseDn//;  
  42    $LDAP=~s/cn=//;  
  43    
  44  print "Ajout dans le groupe <B>$LDAP </B><BR>";
  45              
  46              
  47   }
  48  
  49    
  50   
  51  $ldap->unbind();
  52