[Summary view] [Print] [Text view]

   1  #!/usr/bin/perl
   2  
   3  require '/etc/SeConfig.ph';
   4  
   5  die("Erreur d'argument.\n") if ($#ARGV != 1);
   6  ($uid, $cn) = @ARGV;
   7  $uidDn = 'uid=' . $uid . ',' . $peopleDn;
   8  $cnDn = 'cn=' . $cn . ',' . $groupsDn;
   9  
  10  $res = system("/usr/share/se3/sbin/groupAddEntry.pl \"$uidDn\" \"$cnDn\"");
  11  
  12  exit O;