diff options
| author | Rich Megginson <rmeggins@redhat.com> | 2005-10-21 19:21:19 +0000 |
|---|---|---|
| committer | Rich Megginson <rmeggins@redhat.com> | 2005-10-21 19:21:19 +0000 |
| commit | 35f8ea348b5f4c08f8e09130db59abddd849d870 (patch) | |
| tree | 4089978c5ec8c123e0c4c81bc8b7f06683bca8a7 /ldap/admin/src/AddPerlHeader.pl | |
| parent | 8216af284bf01728074d474131ae781e6033055c (diff) | |
Bug(s) fixed: 171066
Bug Description: Get rid of nsperl; use perldap with system perl
Reviewed by: Noriko, Rob, Nathan (Thanks!)
Branch: HEAD
Fix Description: All perl scripts are made executable by using the
#!/usr/bin/env perl *nix trick. This means that the correct version of
perl must be in the user's PATH e.g. 5.6.1 or later. This version is
either shipped with the OS or available on all platforms. On HP/ux, it
is available as a depot which is installed in /opt/perl. For CGI perl
scripts, the PATH can be set in the admserv.conf, so we may have to do
that for HP/ux. To make perldap work, some ugly hacks are involved.
Each perl script that uses perldap has a BEGIN section that figures out
where it is in the server root, sets a server root variable, and sets
LD_LIBRARY_PATH and SHLIB_PATH to point to serverroot/shared/lib.
Perldap will be installed under serverroot/lib/perl. This directory
will have 3 subdirectories: arch - containing the binary files; auto -
containing autoloaded perl modules; and Mozilla - containing the base
perldap .pm files. The BEGIN section also sets the perl INC path to
find those modules. The directory gets rid of nsperl plus a lot of old
crufty perl building code that we do not use anymore. Those are the
removed files. The admin server code also gets rid of the perl.c wrapper.
Noriko pointed out that this does not take care of upgrade install, so I
added several more files and diffs to take care of that case.
Basically, go through the tasks in o=netscaperoot and replace
perl?scriptname with just scriptname. Also, go through all of the
template generated scripts and replace the shebang line with
#!/usr/bin/env perl, and make sure they are chmod +x. I also found a
few more places that referenced nsperl and removed them.
Platforms tested: RHEL4
Flag Day: no
Doc impact: no
QA impact: should be covered by regular nightly and manual testing
New Tests integrated into TET: none
Diffstat (limited to 'ldap/admin/src/AddPerlHeader.pl')
| -rw-r--r-- | ldap/admin/src/AddPerlHeader.pl | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/ldap/admin/src/AddPerlHeader.pl b/ldap/admin/src/AddPerlHeader.pl deleted file mode 100644 index 1e64c401..00000000 --- a/ldap/admin/src/AddPerlHeader.pl +++ /dev/null @@ -1,92 +0,0 @@ -# -# BEGIN COPYRIGHT BLOCK -# This Program is free software; you can redistribute it and/or modify it under -# the terms of the GNU General Public License as published by the Free Software -# Foundation; version 2 of the License. -# -# This Program is distributed in the hope that it will be useful, but WITHOUT -# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# this Program; if not, write to the Free Software Foundation, Inc., 59 Temple -# Place, Suite 330, Boston, MA 02111-1307 USA. -# -# In addition, as a special exception, Red Hat, Inc. gives You the additional -# right to link the code of this Program with code not covered under the GNU -# General Public License ("Non-GPL Code") and to distribute linked combinations -# including the two, subject to the limitations in this paragraph. Non-GPL Code -# permitted under this exception must only link to the code of this Program -# through those well defined interfaces identified in the file named EXCEPTION -# found in the source code files (the "Approved Interfaces"). The files of -# Non-GPL Code may instantiate templates or use macros or inline functions from -# the Approved Interfaces without causing the resulting work to be covered by -# the GNU General Public License. Only Red Hat, Inc. may make changes or -# additions to the list of Approved Interfaces. You must obey the GNU General -# Public License in all respects for all of the Program code and other code used -# in conjunction with the Program except the Non-GPL Code covered by this -# exception. If you modify this file, you may extend this exception to your -# version of the file, but you are not obligated to do so. If you do not wish to -# provide this exception without modification, you must delete this exception -# statement from your version and license this file solely under the GPL without -# exception. -# -# -# Copyright (C) 2001 Sun Microsystems, Inc. Used by permission. -# Copyright (C) 2005 Red Hat, Inc. -# 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<<EOF1; -#!perl -# This preamble must be at the beginning of every perl script so that we can -# find packages and dynamically load code at run time; SERVER_ROOT must -# be replaced with the absolute path to the server root at installation -# time; it is assumed that the perl library will be installed as -# server root/install/perl -BEGIN { -EOF1 - -# if on NT, just assume we are using activeState, which looks like this -# server root/install/lib -# /bin -# /site/lib -# there is no arch subdir on NT -if ($isNT) { - print DEST "\t\@INC = qw( $serverRootToken/install/lib $serverRootToken/install/site/lib . );\n"; - print DEST "}\n"; -} else { - print DEST<<EOF2; - \$BUILD_PERL_PATH = \"$sourceLibPath\"; - \$RUN_PERL_PATH = \"$serverRootToken/install\"; - # make sure we use the unix path conventions - grep { s#\$BUILD_PERL_PATH#\$RUN_PERL_PATH#g } \@INC; -} -EOF2 -} - -# copy the rest of the file -while (<SRC>) { - print DEST; -} - -close DEST; -close SRC; |
