# # BEGIN COPYRIGHT BLOCK # Copyright 2001 Sun Microsystems, Inc. # Portions copyright 1999, 2001-2003 Netscape Communications Corporation. # All rights reserved. # END COPYRIGHT BLOCK # # used to add the perl preamble to all perl scripts used by the directory # server run time; the problem is that the INC paths are compiled into # the executable and cannot be overridden at run time, so we have to make # sure we fix them # the first argument is the source path for the INC path # the second argument is the token to replace with the server root # at install time # the third argument is the source perl script # the fourth argument is the destination perl script # ($sourceLibPath, $serverRootToken, $sourceScript, $destScript) = @ARGV; open SRC, $sourceScript or die "Error: could not open $sourceScript: $!"; open DEST, ">$destScript" or die "Error: could not write $destScript: $!"; $isNT = -d '\\'; print DEST<) { print DEST; } close DEST; close SRC;