[ Index ]

PHP Cross Reference of Unnamed Project

title

Body

[close]

/se3master/usr/share/se3/sbin/ -> userDel.pl (source)

   1  #!/usr/bin/perl
   2  
   3  require '/etc/SeConfig.ph';
   4  
   5  die("Erreur d'argument.\n") if ($#ARGV != 0);
   6  $uid = shift @ARGV;
   7  
   8  $dn = 'uid=' . $uid . ',' . $peopleDn;
   9  $uid =~ /^(\w*)\.(\w*)$/;
  10  
  11  die if $uid eq '';
  12  
  13  $res = system("/usr/share/se3/sbin/entryDel.pl \"$dn\"");
  14  
  15  exit O;


Generated: Tue Mar 17 22:47:18 2015 Cross-referenced by PHPXref 0.7.1