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