[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 #!/usr/bin/perl 2 3 use POSIX; 4 5 require '/etc/SeConfig.ph'; 6 7 die("Erreur d'argument.\n") if ($#ARGV != 1); 8 ($machine, $parc) = @ARGV; 9 10 $res = system("/usr/share/se3/sbin/isMemberOf.pl $machine \"cn=$parc,$parcDn\" > /dev/null 2>&1"); 11 12 die "$machine n'est pas dans le parc $parc.\n" if ($res ne '0'); 13 14 exit 0;
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |