[Summary view] [Print] [Text view]

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