[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  
   3  ######################################################################
   4  #   Projet SE3 :Suppression d'une imprimante comme membre d'un parc  #
   5  #                dans LDAP                                           #
   6  #   /usr/share/se3/sbin/printerDelPark.pl                                      #
   7  #   Patrice André <h.barca@free.fr>                                  #
   8  #   Carip-Académie de Lyon -avril-juin-2004                          #
   9  #   Dernière mise-à-jour:25/05/2004                                  #
  10  #   Distribué selon les termes de la licence GPL                     #
  11  ######################################################################
  12  
  13  #Supprime une imprimante d'un parc.
  14  
  15  use Net::LDAP;
  16  
  17  require '/etc/SeConfig.ph';
  18  
  19  use Unicode::String qw(latin1 utf8);
  20  
  21  $ldap = Net::LDAP->new(
  22                 "$slapdIp",
  23                 port    => "$slapdPort",
  24                 debug   => "$slapdDebug",
  25                 timeout => "$slapdTimeout",
  26                 version => "$slapdVersion"
  27                );
  28  
  29  $ldap->bind(
  30          $adminDn,
  31          password => $adminPw
  32         );
  33             
  34  die("Erreur d'argument.\n") if ($#ARGV < 1);
  35  
  36  ($nom_imprimante,$nom_parc)=@ARGV;
  37  #NJ- 4/10/2004 modif pour les noms de parc avec espace
  38  if ($#ARGV > 1)
  39          {for (my $i = 2; $i <= $#ARGV; $i++)
  40                    { $nom_parc = $nom_parc." ".$ARGV[$i];
  41          }
  42  }
  43  
  44  #----------------
  45  
  46  $nom_imprimante            = latin1($nom_imprimante)->utf8;
  47  $nom_parc        = latin1($nom_parc)->utf8;
  48  
  49  $result = $ldap->modify( "cn=$nom_parc,$parcDn",
  50               delete => {'member' => "cn=$nom_imprimante,$printersDn"}
  51               );
  52  
  53  die("Echec à l'entrée dans ldap.\n") if ($result->code != 0);
  54  #$result->code && warn "failed to delete attribute ", $result->error ;
  55  $mesg = $ldap->unbind;  # take down session
  56  
  57  die ("Script de partage d'imprimantes Samba échoué.\n") if (system("/usr/share/se3/sbin/printers_group.pl") !=0);
  58  
  59  exit 0;