/usr/share/dirsrv/script-templates/template-fixup-memberof.pl is in 389-ds-base 1.3.4.9-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | #!/usr/bin/perl
#
# BEGIN COPYRIGHT BLOCK
# Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
# Copyright (C) 2013 Red Hat, Inc.
# All rights reserved.
#
# License: GPL (version 3 or any later version).
# See LICENSE for details.
# END COPYRIGHT BLOCK
#
use lib qw(/usr/lib64/dirsrv/perl);
use DSUtil qw(shellEscape);
# We lose args that are quoted when passing ARGV to a wrapper
while ($i <= $#ARGV) {
if($ARGV[$i] =~ /^-/){
$wrapperArgs[$i] = $ARGV[$i];
} else {
$wrapperArgs[$i] = shellEscape($ARGV[$i]);
}
$i++;
}
exec "{{SERVERBIN-DIR}}/fixup-memberof.pl @wrapperArgs -Z {{SERV-ID}}";
exit ($?);
|