[Summary view] [Print] [Text view]

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